Текущий архив: 2002.05.27;
Скачать: CL | DM;

Вниз

Преобразование color в цвет html....   Найти похожие ветки 

← →
vvedensk ©   (2002-05-16 14:07) [0]

Может кто знает как преобразовать color в код цвета html например белый в $ffffff
Зарание спасибо...

---

← →
Donal_Graeme   (2002-05-16 14:55) [1]


function ColorToHTML (Color: TColor): AnsiString;
var R, G, B: Byte;
begin
R := GetRValue (Color);
G := GetGValue (Color);
B := GetBValue (Color);
Result := "#" +IntToHex (R, 2) +IntToHex (G, 2) +IntToHex (B, 2);
end;


---

← →
lipskiy ©   (2002-05-16 23:37) [2]

From UBPFD:
http://delphibase.endimus.com/?action=viewfunc&topic=mediacolors&index=1

function ColorToHTMLHexColor(Color:TColor):string;
begin
result:= IntToHex(GetRValue(ColorToRGB(Color)),2) +
IntToHex(GetGValue(ColorToRGB(Color)),2) +
IntToHex(GetBValue(ColorToRGB(Color)),2);
end;

---

Страницы: 1 вся ветка

Текущий архив: 2002.05.27;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c