Сообщение от Winner
Подскажите, как с помощью Канваса рисовать на панелях.
|
Так же, как и на рабочем столе:
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;