Bitmap auf Form malen !

[thomas2009]

Hi
wie kann ich ein Bitmap auf Form1 malen
Das Bild soll aber nach dem Malen beim MouseMove nicht weg gelöscht ?

Delphi-Quellcode:

var
bmp:=TBitmap;
begin
bmp:=TBitmap.Create;
bmp.LoadFormfile('test.bmp')
// ... wie male ich nun das Bitmap auf Form1

bmp.free;
end;

[alfold]

Schau Dir mal die Eigenschaften von Form1.Canvas an!
zb: .Canvas.Draw, .Canvas.FillRect, usw. und die Eigenschaft von bmp.Canvas

Gruss alfold

[DeddyH]

Zitat:

Delphi-Quellcode:

bmp:=TBitmap.Free;

Ja nee, is klar. Es kommt mir immer mehr so vor, als wüsstest Du nicht im Ansatz, was Du tust :?

[alfold]

oh, lol hab ich gar nicht gesehen 8-), sonnst hätt ich dies auch bemängelt:wink:

[Bummi]

><((((º> :?:

[Neutral General]

Hallo,

Erst das Bild laden (z.B. im OnCreate):

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FBitmap := TBitmap.Create;
  FBitmap.LoadFromFile('C:\Bild.bmp');
end;

// Und dann im OnPaint zeichnen:
procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Draw(0,0,FBitmap);
end;

// Und im OnDestroy natürlich wieder freigeben:
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FBitmap.Free;
end;

Das OnPaint der Form wird jedes mal aufgerufen wenn sich irgendwie was am Aussehen der Form ändert.
Dadurch verhinderst du, dass das Bild auf einmal (stellenweise) weg ist.

Wenns flackert: Doublebuffered der Form auf true setzen! :wink:

Gruß
Neutral General