- Код: Выделить всё
var Bmp1 : TBitMap;
...
procedure TForm1.FormActivate(Sender: TObject);
begin
...
Bmp1 := TBitMap.Create;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
with Bmp1.Canvas do
begin
//
end;
Form1.Canvas.Draw(0,0,Bmp1);// похоже, что ругается на эту строку
end;
Как же реализовать это в Lazarus'е?