Announcement

**Mathias Simmack** · 18.09.2001, 20:44

Abgeschrieben aus Delphi 2-Das Buch (boah, uralt ;o):
<PRE>
type
  Form1 = class(TForm)
    ...
  private
    BSBrush : HBrush;
    ...

{$R BORSTIL.RES}

procedure TForm1.FormCreate(Sender: TObject);
var
BorBM : TBitmap;
begin
  BorBM := LoadBitmap(hInstance,pchar(998));
  BSBrush := CreatePatternBrush(BorBM);
  DeleteObject(BorBM);
  Canvas.Brush.Handle := BSBrush;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Rectangle(-1,-1,Width,Height);
end;
</PRE>
So, das war die harmlose "Ich mach alles mit Delphi"-Variante.

) Vorausgesetzt wird die besagte RES-Datei, die eine Bitmap enth�lt; ich nehme mal an der Code dieser Bitmap ist "998". Dann wird diese Bitmap beim Erzeugen des Formulars geladen, zugeordnet und bei "FormPaint" als Hintergrund gemalt. 
Im selben Buch gibt�s noch 3 andere Versionen, die mehr Systemfunktionen nutzen. Soll ich die auch posten? Mathias

**Michael Wiesen** · 19.09.2001, 12:46

Ja, w�re nett, damit ich alles mal ausprobieren kann.

THX Michae

**Mathias Simmack** · 19.09.2001, 13:09

Na gut. Was tut man nicht alles.

) Numero Uno:
<pre>
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    ...
  private
    BSBrush : hBrush;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  ...

procedure TForm1.FormCreate(Sender: TObject);
begin
  // wie bei der allersten L�sung; ich spar�s mir deshalb

)
end;

procedure TForm1.WMPaint(var Message: TWMPaint);
begin
  Canvas.Rectangle(-1,-1,Width,Height); inherited;
end;
</pre>
Du musst hier die Funktion "TForm1.FormPaint" rausnehmen. Du brauchst nur "FormCreate" und die besagte "WMPaint". Nebenbei: deswegen sind es insgesamt auch nur 3 L�sungen und nicht 4. Bei einer wurde nur die WM_PAINT abgefangen, mit einem Piepser h�rbar gemacht, aber den Rest erledigt auch die "FormPaint"

**Mathias Simmack** · 19.09.2001, 13:10

Und die letzte L�sung:
<pre>
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure WndProc(var Message: TMessage); override;
  ... 
// wie gehabt, "FormCreate" bleibt identisch 
procedure TForm1.WndProc(var Message: TMessage);
begin
  if(Message.Msg = WM_Paint) then Canvas.Rectangle(-1,-1,Width,Height);
  inherited WndProc(Message);
end;
</pre>
Jetzt, nach dem Abschreiben, f�llt mir auf, dass die Unterschiede gar nicht so gro� sind.

) 
Bitte sch�n. Mathias

**Frank Speelmans** · 15.11.2001, 00:00

Hallo Mathias,

dieser Beitrag ist zwar schon etwas her, habe aber trotzdem eine
Frage zu einer Alternative. Ich m�chte ebenfalss ein Bitmap (aus
.res Datei) in den Hintergrund stellen (mit Delphi 6). Dies
funktioniert auch wie in dem Beispiel beschrieben prima. Leider
m�chte ich aber das Bitmap bei einer ver�nderung der Fenster-
gr��e an das Fenster anpassen. Der Canvas.StretchDraw(TRect,
TGraphic) unterst�tzt diese M�glichkeit.
Ich weiss allerdings nicht woher ich das TGrapgics Objekt bekomme.

Wenn Du einen Tip hast w�rde ich mich freuen.

Gru�
Frank

PS. In Delphi 6 musste ich die Deklaration BorBM : TBitmap in
BorBM : HBitmap �ndern, da ich beim kompilieren einen Fehler
erhielt (Datentypen stimmen nicht �berein)

**Michael Wiesen** · 15.11.2001, 10:19

Hallo Frank,

dieses Problem hatte ich auch in genau dieser Form. Allerdings habe ich da mein Bitmap aus praktischen Gr�nden im bmp-Format gehabt.
Du machst einfach

New(Bitmap);
Bitmap.LoadFromFile("Hintergrund.bmp");

und schon hast du dein TGraphics-Objekt.
Dann machst du noch bei onPaint und onResize ein identisches Ereignis, das aus dem Befehl

Canvas.StretchDraw(Rect(0,0,Width,Height-25),Bitmap);

besteht. Die -25 bei der H�he haben sich als praktisch erwiesen, da ansonsten der untere Teil des Bitmaps (je nach Formgr��e) teilweise deutlich abgeschnitten wird.

Ich hoffe, das ich dir helfen konnte,

Gru� Michae

**Frank Speelmans** · 16.11.2001, 15:20

Hallo Michael,

ich bin anscheinend nicht in der Lage das korrekt umzusetzten.
Ich erhalte den Fehler 'inkompatible Typen' wenn ich New(Bitmap)
einsetze.
Bei folgender OnCreate Procedur erhalte ich beim kompilieren keine
Fehler, das Programm bricht aber mit einem Fehler beim Start ab.

private
{ Private-Deklarationen }
Bild : ^TGraphic;

procedure TF_EcoVision.FormCreate(Sender: TObject);
begin
new(Bild);
Bild.LoadFromFile('bild.bmp');
end;

procedure TF_EcoVision.OnPaint(Sender: TObject);
begin
Canvas.StretchDraw(Rect(0,0,width,Height-25),Bild^);
end;

Als was wurde 'Bitmap' bei Dir deklariert ?

Gru� Fran

**Jens Schumann** · 18.11.2001, 14:37

Hallo Mathias, 
was machst Du eigentlich, wenn das Form Scrollbars hat. Beim scrollen 
flackert das Bild ordentlich. Wei�t Du wie man das vermeiden kann ? 
Jens Schumann<br&gt

**Mathias Simmack** · 19.11.2001, 11:57

Ich mache gar nichts.

) Ich benutze die Funktionen ja nicht. Ich habe sie nur aus besagtem Buch abgeschrieben, um Michael zu helfen. Mathias

**Jens Schumann** · 19.11.2001, 17:54

Hallo Mathias, das ist gut "Ich mache gar nichts" sag ich auch immer, wenn mich jemand fragt was ich mache. Ich sage dann immer: Ich sitze den ganzen Tag auf einem Stuhl. ;-) Jens Schuman

**Mathias Simmack** · 19.11.2001, 21:36

Ich denke, wir verstehen uns. 
Nicht jedes Problem, das jemand hat, interessiert mich so sehr, dass ich es auch selbst ausprobiere. Manchmal - wie in dem Fall - schreibe ich die L�sung einfach nur ab, und fertig. Deswegen wei� ich auch leider nicht, wie man das Flackern vermeiden kann. Sorry. 
Oder um es in Neu-Deutsch zu sagen: 
offiziell: I wasn�t involved in the project. 
Slang: It�s not my fucking problem. :-D 
�hem, du solltest auch mal aufstehen. Den ganzen Tag sitzen, gibt unsch�ne Druckstellen. :-D Mathias

Announcement

Bitmap als Hintergrund

Bitmap als Hintergrund

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment