Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

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



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

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.02 c
14-43894
RealRascal
2004-02-16 06:22
2004.03.14
Идеи...


3-43250
Leech
2004-02-13 10:52
2004.03.14
Table:=false; => Error :(


14-43847
Sergey13
2004-02-17 09:38
2004.03.14
Глюк или фича? Копирование файлов.


3-43329
BlackTiger
2004-02-17 16:48
2004.03.14
Как сделать аналог


3-43384
}|{yk
2004-02-18 13:59
2004.03.14
Процедуры, возвращающие набор значений в Оракле