Witam!
Mam takie pytamie: jak można pobrać kolor piksela, nad którym znajduje się mysz?
0
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));