Mahdi_Delphi
یک شنبه 14 آبان 1385, 20:44 عصر
سلام
می خواستم ببینم چطور میشه با استفاده از Canvas روی دسکتاپ اشکالی رو رسم کنم.
کد زیر رو نوشتم ولی جواب نمیده :
Desktop:HDC;
C:TCanvas;
h:HWND;
C:=Tcanvas.Create;
h:=findwindow('progman',nil);
Desktop:=getdc(h);
C.Handle:=DeskTop;
C.Pen.Width:=3;
C.Pen.Color:=CLRed;
C.MoveTo(30,30);
C.LineTo(100,100);
ReleaseDC(h,desktop);
ممنون
می خواستم ببینم چطور میشه با استفاده از Canvas روی دسکتاپ اشکالی رو رسم کنم.
کد زیر رو نوشتم ولی جواب نمیده :
Desktop:HDC;
C:TCanvas;
h:HWND;
C:=Tcanvas.Create;
h:=findwindow('progman',nil);
Desktop:=getdc(h);
C.Handle:=DeskTop;
C.Pen.Width:=3;
C.Pen.Color:=CLRed;
C.MoveTo(30,30);
C.LineTo(100,100);
ReleaseDC(h,desktop);
ممنون