TCustomFormCanvas (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

The following code loads a bitmap from a file and assigns it to the Brush of the Canvas of Form1.

Code

var
  Bitmap: TBitmap;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('bm1.BMP');
    Form1.Canvas.Brush.Bitmap := Bitmap;
    Form1.Canvas.FillRect(Rect(0,0,100,100));
  finally
    Form1.Canvas.Brush.Bitmap := nil;
    Bitmap.Free;
  end;
end;

Uses