Verwendung von TBrush.Bitmap

[Hawkeye219]

Hallo Meflin,

in der Online-"Hilfe" zu Delphi 2006 fehlen leider die Beispiele, deshalb hier ein Auszug aus der Delphi6-Hilfe:

Zitat von Delphi6-Hilfedatei:

Im folgenden Code wird ein Bitmap aus einer Datei geladen und der Eigenschaft Brush der Zeichenfläche von Form1 zugewiesen.

Delphi-Quellcode:

var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('MyBitmap.bmp');
    Form1.Canvas.Brush.Bitmap := Bitmap;
    Form1.Canvas.FillRect(Rect(0,0,100,100));
  finally
    Form1.Canvas.Brush.Bitmap := nil;
    Bitmap.Free;
  end;
end;

Du solltest also nicht vergessen, die Eigenschaft Bitmap wieder mit dem Wert NIL zu besetzen und anschließend die zuvor benutzte Bitmap freizugeben.

Gruß Hawkeye