TColor -> String

← →
Mixa (2004-02-27 19:05) [0]

Не подскажете, как значение типа TColor распечатать? Т.е. чтобы можно было напечатать например в файле значение цвета в шестнадцатеричном формате...

Пробовал IntToStr() но получается одно и тоже дестичное число... Может есть какая-нибудь процедура для перевода HEX в стринг или что то типа этого? (я такой не нашел)

← →
Тимохов (2004-02-27 19:07) [1]

inttohex

← →
TButton (2004-02-27 19:09) [2]

в один проход не получится.

← →
TUser (2004-02-27 19:09) [3]

hextostr

← →
Тимохов (2004-02-27 19:10) [4]

> TUser © (27.02.04 19:09) [3]
> hextostr

Это что?

← →
MG (2004-02-27 19:11) [5]

ColorToRGB()
только в полученном значение цвета, кажется записаны
наоборот BGR

← →
TButton (2004-02-27 19:12) [6]

s:=StrToInt(IntToHex(GetRValue(Color)))+StrToInt(IntToHex(GetGValue(Color)))+StrToInt(IntToHex(GetBValue(Color)));

так, если не на путал.

← →
TUser (2004-02-27 19:53) [7]

> Это что?

Это я погорячился. Где-то я здесь давал код про то, как TColor в string записать в виде #ff00ff. Когда понадобилось - написал, как - уже не помню. Домой приду - могу посмотреть.

← →
TButton (2004-02-27 19:57) [8]

у мене есть обратный код HexToColor

← →
Style (2004-02-27 20:01) [9]

function ColorToHtml(Color: TColor): string; var rgb: COLORREF; begin rgb := ColorToRgb(clRed); result := "#" + IntToHex(integer(GetRValue(rgb)),2) + IntToHex(integer(GetGValue(rgb)),2) + IntToHex(integer(GetBValue(rgb)),2); end;

← →
Defunct (2004-02-27 20:01) [10]

> Не подскажете, как значение типа TColor распечатать?

Format("%x",[цвет]);

← →
Style (2004-02-27 20:02) [11]

Блин вместо clRed - Color :)

← →
Mixa (2004-02-28 13:39) [12]

Всем спасибо!
А особенно 2 Style © !!!

PS

> > Не подскажете, как значение типа TColor распечатать?
>
> Format("%x",[цвет]);

Это мне напоминает фортран... или я чего то путаю? %P

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