Форум: "Основная";
Текущий архив: 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.46 MB
Время: 0.007 c