KOLORKI

0

Jak zmienić kolor np. z ColorDialog na postać taką jak w HTMLu (np. FFFF00)?

0

If ColorDialog1.Execute then
Begin
Edit1.Text := IntToStr(ColorToRGB(ColorDialog1.Color));
End;

tylko jak to zamienic z tego LongInta na hex'a to juz nie wiem (trzeba brac po trzy cyfry i zamieniac na hex)

0

no a poza tym w takiej postaci tez mozesz do HTML'a to wrzucic tylko nie pamietam czy tak normalnie czy cos jakos inaczej (a moze sie nie da : ()

0

znalezione w FAQ :)

var
TheRgbValue : TColorRef;
begin
if ColorDialog1.Execute then begin
Pobieramy kolor z TColorDialog
TheRgbValue := ColorToRGB(ColorDialog1.Color);
Funkcja ColorToRGB konwertuje wartość z postaci TColor do postaci RGB.
ShowMessage(Format('%.2x%.2x%.2x',
[GetRValue(TheRGBValue),
GetGValue(TheRGBValue),
GetBValue(TheRGBValue)]));
//Fukcja showmessage wyświetli kolor w postaci szesnastkowej np.#FFFFFF
end;
end;

---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

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