| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Преобразование color в цвет html.... [D6, WinXP]

vvedensk ©   (2002-05-16 14:07:00) 

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

---

lipskiy   (2002-05-16 23:37:00) [1]

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;

---

Donal_Graeme   (2002-05-16 14:55:00) [2]


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;


---

Наверх