Kolor pod kursorem

0

Czy wie ktoś jak pobrać kolor pod kursorem? i to nie tylko we własnej applikacji (tzn jeżeli dany kolor znajduje się na tray-u w ikonce i user na niego najedzie to zwróci mi kolor (postać dowolna, byle kolor))

0

var
Punkt : TPoint;
kolor : TColorRef ;
begin
GetCursorPos(Punkt);
Canvas.Handle:=GetWindowDC(GetDesktopWindow);
kolor := Canvas.Pixels[punkt.x,punkt.y] ;
label1.Caption:=(Format('#%.2x%.2x%.2x',[GetRValue(kolor), GetGValue(kolor),GetBValue(kolor)]));
...

0

Dzięki, nawet nie wiesz jakie to dla mnie ważne!

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