RGB to HEX

0

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)

0

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 ]==-=-

0

Qrde niezly bajer z ta zamiana na system szesnastkowy :)
Ja musiałem napisać wszystko ręcznie....

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