Метод Draw

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Сообщение Илья Аввакумов » 13.03.2006 10:11:39

Переписывая одну прогу с 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'е?
Илья Аввакумов
новенький
 
Сообщения: 50
Зарегистрирован: 04.05.2005 15:06:42
Откуда: Екатеринбург

Сообщение SovNarKom » 13.03.2006 18:47:27

У меня не ругается... что за лазарь, система?
SovNarKom
постоялец
 
Сообщения: 389
Зарегистрирован: 28.05.2005 10:37:39
Откуда: Воронеж [vrn] [36]

Сообщение Илья Аввакумов » 15.03.2006 09:57:34

Заработало после, казалось бы, косметических изменений :rolleyes:
Илья Аввакумов
новенький
 
Сообщения: 50
Зарегистрирован: 04.05.2005 15:06:42
Откуда: Екатеринбург


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 29

Рейтинг@Mail.ru