Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.012 c
4-43959
Zin
2004-01-05 13:57
2004.03.14
Как прочитатать кластер или сектор на диске под NTFS?


7-43924
SkySlider
2003-12-22 13:14
2004.03.14
Обращение к принтеру


7-43900
Sashoks
2003-12-24 03:10
2004.03.14
Модель винчестера


3-43306
jen_bond
2004-02-10 19:29
2004.03.14
Проблемма с выполнением запроса.


11-43419
Сергей Апин
2003-06-26 15:44
2004.03.14
Вопрос о доке для начинающих ;)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский