не могу рисовать на канве формы

JCooper · Отправлено: **16:42, 06-04-2004** | #2

Все работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
   rect: TRect;
begin
   TextOut(Form1.Canvas.Handle, 10, 10, PChar('TEXT'), 4);
   rect.Left:=30;
   rect.Top:=30;
   rect.Right:=60;
   rect.Bottom:=60;
   FillRect(Form1.Canvas.Handle, rect, CreateSolidBrush(1));
end;

Вот на скорую руку, есть вопросы пиши.

Vich · Отправлено: **17:10, 06-04-2004** | #3

но прежде чем рисовать заблокируй канву: canvas.lock, а после отрисовки разблокируй canvas.unlock

Nealles · Отправлено: **17:16, 06-04-2004** | #4

все, я догнал
я пытался нарисовать при создании формы

спасибо

JCooper · Отправлено: **17:43, 06-04-2004** | #5

Цитата:

но прежде чем рисовать заблокируй канву: canvas.lock, а после отрисовки разблокируй canvas.unlock

А это еще зачем?

Vich · Отправлено: **17:49, 06-04-2004** | #6

чтобы в отрисовать нужно "единолично", без вмешательств из вне (например из других потоков)

JCooper · Отправлено: **18:37, 06-04-2004** | #7

Vich ну про многопоточность никто не говорил...

JCooper Сообщения: 196 Благодарности: 0	Профиль \| Сайт \| Отправить PM \| Цитировать Vich ну про многопоточность никто не говорил...
	Отправлено: 18:37, 06-04-2004 \| #7