forum.boolean.name - Графика на панели

forum.boolean.name (http://forum.boolean.name/index.php)

- Delphi (http://forum.boolean.name/forumdisplay.php?f=66)

- - Графика на панели (http://forum.boolean.name/showthread.php?t=11573)

Графика на панели

Подскажите, как с помощью Канваса рисовать на панелях.

Ответ: Графика на панели

Цитата:

Сообщение от Winner (Сообщение 131197)

Подскажите, как с помощью Канваса рисовать на панелях.

Так же, как и на рабочем столе:

PHP код:


		
			
procedure TForm1.Button1Click(Sender: TObject);

 var

  C:TCanvas;

  dc:HDC;

begin

  C:=TCanvas.Create; //создаем Canvas;

  dc:=GetDC(Panel1.Handle);//Получаем контекст устройства для панели

  C.Handle:=dc;//Ассоциируем Canvas с контекстом устройства

  C.TextOut(10,10,'text');//Рисуем

end;

Ответ: Графика на панели

Большое спасибо!