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;

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

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