РАБОТА СО  Битмап слика како BRUSH

Прво се подига програмскиот јазик Delphi и се прави избор на нова апликација File->NEW Application.

Се поставува и еден  Button  со Caption - Crtaj  од палетата со компоненти Standard. На Event клик на

Button1 се впишува следниот код

procedure TForm1.Button1Click(Sender: TObject);
var Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
Bmp.LoadFromFile('c:\windows\Bricks1.bmp');
//Bmp.LoadFromFile('E:\Delphi_proekti\Delphi_Izborna\Canvas_BMP_Brush\ucenik.jpg'); NE MOZE so jpg
Canvas.Brush.Bitmap := Bmp;
//Form1.Canvas.FillRect(Rect(0, 0, 200,200));
Canvas.Rectangle(0, 0, 200,200);
Canvas.Brush.Bitmap := nil;
Canvas.Rectangle(200, 200, 400,400);
Bmp.Free;
Canvas.Rectangle(400, 400, 600,600);
end;