Kolor z pulpitu

0

Witam!
Mam takie pytamie: jak można pobrać kolor piksela, nad którym znajduje się mysz?

0

var
Color: TColor;
Point: TPoint;
Canvas: TCanvas;
begin
Canvas:=TCanvas.Create;
Canvas.Handle:=GetDC(0);
GetCursorPos(Point);
Color:=Canvas.Pixels[Point.x,Point.y];
Canvas.Destroy;
end;

0

Dzięki! [hurra]

0

Canvas jest wolny :P Lepiej zostawić VCL i użyć WInAPI :]

var
 DC: hDC;
 P: TPoint;
 Kolor: TColor;
[...]
 DC:=GetDC(0);
 GetCursorPos(P);
 Kolor:=GetPixel(DC,P.X,P.Y);
 ReleaseDC(0,DC);
 // kolor można wyświetlić na np. Labelku z rozbiciem na składowe
 Label1.Caption:='R '+IntToStr(GetRValue(Kolor))+'; G '+IntToStr(GetGValue(Kolor))+'; B '+IntToStr(GetBValue(Kolor));

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0