Jak pobrać kolor pixela nad którym znajduje się kursor, kursor nie znajduje się nad formą.
0
0
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 ======------
--==[ rafalrs@poczta.onet.pl ]==--
----====[ GG: 3532533 ]====----
0
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 ]==-=-=-
-=[ lks16@tenbit.pl ]=-
0
LKS napisal:
>_RFL_ zrobiles maly blad
na pewno nie zrobilem bledu... U mnie wszystko dobrze dziala...--Delphi 6, Pascal
----====Pozdrawiam @LL====----
------====== RFL ======------
--==[ rafalrs@poczta.onet.pl ]==--
----====[ GG: 3532533 ]====----
0
chodzilo mi o to mouse poniewaz w Delphi 3 tego nie ma :-)
ale w D6 jest :-)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ lks16@tenbit.pl ]=-
0
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 ======------
--==[ rafalrs@poczta.onet.pl ]==--
----====[ GG: 3532533 ]====----
0
Wyluzujcie, ja mam D6 i działa mi ten kod :)
0
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 ]==-=-=-
-=[ lks16@tenbit.pl ]=-
0
No dobra juz dobra, niech ci bedzie, nie bede sie klucil bo wiem ze i tak masz racje... ;) --Delphi 6, Pascal
----====Pozdrawiam @LL====----
------====== RFL ======------
--==[ rafalrs@poczta.onet.pl ]==--
----====[ GG: 3532533 ]====----