Форум: "Основная";
Текущий архив: 2004.02.17;
Скачать: [xml.tar.bz2];

Вниз

TColor -> HTML цвета   Найти похожие ветки 

← →
Воа   (2004-02-05 12:51) [0]

Помогите нормально преобразовать TColor в формат RGB для html?
ColorToRGB не предлагать.. Я все перепробовал..

---

← →
Воа   (2004-02-05 12:54) [1]

Такое тоже не прокатывает...
IntToHex(ColorToRgb(TColor), 6)

---

← →
Gero   (2004-02-05 12:55) [2]

Иммеется ввиду в формат "rgb(0, 0, 0)" или "#000000" ?

---

← →
Воа   (2004-02-05 12:56) [3]

#000000

---

← →
хз   (2004-02-05 12:57) [4]

Может что-то вроде этого?


Function ColorToHtmlColor(Color:TColor):String;
Var
Bgcol_S,Bgcol_S2:string;
Bgcol:LongInt;
Begin
Result:="";
Bgcol:=Color;
Bgcol_S:=IntToHex(Bgcol,6);
Bgcol_S2:=Bgcol_S;
Bgcol_S2[1]:=Bgcol_S[5];
Bgcol_S2[2]:=Bgcol_S[6];
Bgcol_S2[3]:=Bgcol_S[3];
Bgcol_S2[4]:=Bgcol_S[4];
Bgcol_S2[5]:=Bgcol_S[1];
Bgcol_S2[6]:=Bgcol_S[2];
Result:="#"+Bgcol_S2;
End;


---

← →
Воа   (2004-02-05 13:01) [5]

хз, спасибо ;)
Прокатило отлично.

---

← →
Gero   (2004-02-05 13:01) [6]


function ColorToHtmlColor(Color: TColor) : string;
begin
Result := IntToHex(Color, 6);
Result := "#" + Copy(Result, 5, 2) + Copy(Result, 3, 2) + Copy(Result, 1, 2);
end;


---

← →
Воа   (2004-02-05 13:03) [7]

Gero, тоже отлично работает..
Спасибо всем.

---

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

Форум: "Основная";
Текущий архив: 2004.02.17;
Скачать: [xml.tar.bz2];

Наверх

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