Pobieranie kolorów.

Jak pobrać kolor pixela nad którym znajduje się kursor, kursor nie znajduje się nad formą.

Tworzysz zmienna np: c:Tcolor; i piszesz to:

Canvas.Handle:=GetWindowDC(GetDesktopWindow); *pobieranie uchwytu pulpitu
c:=canvas.Pixels[mouse.CursorPos.X,mouse.CursorPos.Y]; *odczyt koloru

Jak juz sie pewnie domyslasz w zmiennej c bedziesz mial kolor spod kursora :-) --Delphi 6, Pascal

----====Pozdrawiam @LL====----
------====== RFL ======------
--==[ [email protected] ]==--
----====[ GG: 3532533 ]====----

RFL zrobiles maly blad
a kod bedzie wygladal chyba tak:

var
C : TColor ;
Point : TPoint ;
begin
GetCursorPos(Point);
Canvas.Handle := GetWindowDC(GetDesktopWindow); *pobieranie uchwytu pulpitu
C :=canvas.Pixels[Point.X, Point.Y]; *odczyt koloru
end;---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

LKS napisal:
&gt_RFL_ zrobiles maly blad

na pewno nie zrobilem bledu... U mnie wszystko dobrze dziala...--Delphi 6, Pascal

----====Pozdrawiam @LL====----
------====== RFL ======------
--==[ [email protected] ]==--
----====[ GG: 3532533 ]====----

chodzilo mi o to mouse poniewaz w Delphi 3 tego nie ma :-)
ale w D6 jest :-)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

No tak ale jak piszesz mouse to kod jest krotszy... A ja nie lubie tych pointów czy jakos tam...
LKS czy myslisz ze podawal bym kod ktory by mi nie dzialal???--Delphi 6, Pascal

----====Pozdrawiam @LL====----
------====== RFL ======------
--==[ [email protected] ]==--
----====[ GG: 3532533 ]====----

Wyluzujcie, ja mam D6 i działa mi ten kod :)

LKS czy myslisz ze podawal bym kod ktory by mi nie dzialal???

wcale tak nie mysle
ale to co ja napisalem z tymi TPoint'ami :-) jest bardziej uniwerslane :-) :-)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-