Скачать: CL | DM;

HTML colors   Найти похожие ветки 

← →
Adil   (2003-05-18 12:09) [0]

Как переоброзовать TColor в HTML код.
Например $004080FF заменить на #FF8040.
Или работать с RGB

---

← →
Palladin ©   (2003-05-18 12:37) [1]


function AsHTMLColor(c:TColor):string;
begin
result:="#"+inttohex(LongRec(C).Bytes[2],2)+inttohex(LongRec(C).Bytes[1],2)+inttohex(LongRec(C).Bytes[0],2);
end;


---

← →
Adil   (2003-05-18 12:56) [2]

Спосиба.Но там есть неболшая ошика дожен быть:

result:="#"+inttohex(LongRec(C).Bytes[0],2)+inttohex(LongRec(C).Bytes[2],2)+inttohex(LongRec(C).Bytes[1],2);

---

← →
Palladin ©   (2003-05-18 13:08) [3]

да, перепутал, ты прав

---

← →
Fenik ©   (2003-05-18 13:09) [4]

http://delphibase.endimus.com/?action=viewfunc&topic=mediacolors&id=10127

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c