Jak zmienić kolor np. z ColorDialog na postać taką jak w HTMLu (np. FFFF00)?
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)
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 : ()
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] ]=-