Meg szeretném határozni az asztalon egy x, y pixel RGB kódját de csak a form-on belül működik. Hogy lehetne ezt kiterjeszteni? Nyelv: Delphi.

Az alábbi programrészlet a képernyő 10,10-60,60 koordinatáiba eső részt befesti pirosra, és kiir rá egy számot. A program amiből kimásoltam 2005-ben készült, már jópár éve nem használok Delphit, de azért remélem segít. FillRect helyett gondolom van valami SetPixel, de az intellisense majd segít ebben.

var

c:TCanvas;

r:TRect;

myhdc:HDC;

begin

r:=screen.DesktopRect;

myhdc:=CreateDC('DISPLAY',nil,nil,nil);

if myhdc<>0 then begin

c:=TCanvas.Create;

c.Handle:=myhdc;

c.Brush.Color:=clRed;

c.FillRect(Rect(10,10,60,60));

c.Font.Size:=20;

c.TextOut(20,20,IntToStr(ScrShotSzam));

c.Destroy;

DeleteDC(myhdc);

end;

end;