mam pytanie jak z 3-ech scroll barow
pobrac wartoci kolorow w RGB i zapisac/wyświetlic ich wartosc na labelu czy
czyms w HEX
dla wyjasnienia, ffffff to kolor bialy 000000 to kolor czarny
---= pozdrawiam Oskar =- (delphi 6 GG:2792614)
mam pytanie jak z 3-ech scroll barow
pobrac wartoci kolorow w RGB i zapisac/wyświetlic ich wartosc na labelu czy
czyms w HEX
dla wyjasnienia, ffffff to kolor bialy 000000 to kolor czarny
---= pozdrawiam Oskar =- (delphi 6 GG:2792614)
umieszczasz na formie 3 ScrollBary i 1 Labela
ScrollBarom ustawiasz wartosc Max na 255:
ScrollBar1.Max := 255;
ScrollBar2.Max := 255;
ScrollBar3.Max := 255;
w funkcji OnChange wszystkich ScrollBarow dajesz cosik takiego:
Label1.Font.Color := Rgb(ScrollBar1.Position,
ScrollBar2.Position,
ScrollBar3.Position);
Label1.Caption := Format('#%.2x%.2x%.2x',
[ScrollBar1.Position,
ScrollBar2.Position,
ScrollBar3.Position]);
no i to by bylo tyle :)
---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-
Qrde niezly bajer z ta zamiana na system szesnastkowy :)
Ja musiałem napisać wszystko ręcznie....