Метод Draw

[Илья Аввакумов]

Переписывая одну прогу с Delphi на Lazarus, столкнулся с проблемой. Программа генерирует runtime ошибку. Код примерно такой

Код: Выделить всё

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'е?

[SovNarKom]

У меня не ругается... что за лазарь, система?

[Илья Аввакумов]

Заработало после, казалось бы, косметических изменений :rolleyes: