Pobieranie kolorów.

0

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

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 ======------
--==[ [email protected] ]==--
----====[ 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 ]==-=-=-
-=[ [email protected] ]=-

0

LKS napisal:
&gtRFL zrobiles maly blad

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

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

0

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

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 ======------
--==[ [email protected] ]==--
----====[ 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 ]==-=-=-
-=[ [email protected] ]=-

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 ======------
--==[ [email protected] ]==--
----====[ GG: 3532533 ]====----

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