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

Вниз

Как получичть из строки цвет   Найти похожие ветки 

 
VJar   (2002-05-12 02:30) [0]

Допустим у меня есть строка "$FFFFF" (белый цвет).
Как можно перевести ее в переменную типа TColor,
которую уже можно применять для изменения цвета
допустим формы?


 
Almaz   (2002-05-12 03:00) [1]

Проще, чем кажется:


var
S: String;
...
S := "$FFFFFF";
Form1.Color := StrToInt(S);


Удачи.


 
[NIKEL]   (2002-05-12 03:49) [2]

В модуле graphics имеются две недокументированные функции:
function ColorToString(Color: TColor): string;

Если значение TColor является именованным цветом, функция возвращает имя цвета ("clRed"). В противном случае возвращается шестнадцатиричное значение цвета в виде строки.

function StringToColor(S: string): TColor;

Данная функция преобразует "clRed" или "$0000FF" во внутреннее значение цвета.



 
VJar   (2002-05-12 11:18) [3]

Большо спасибо. Мне это очень помогло



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

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

Наверх





Память: 0.44 MB
Время: 0.007 c
3-73067
СергейКнязев
2002-04-25 13:35
2002.05.23
Как программно определить стоит ли на компе BDE


1-73115
AndreyS
2002-05-13 11:42
2002.05.23
Float points


1-73109
Doomer1
2002-05-13 07:51
2002.05.23
Как обратиться к элементам, находящимся на TPanel ????


1-73104
MaximatorVeter
2002-05-12 20:03
2002.05.23
Избыточность данных при наследовании


3-73088
toorick
2002-04-09 16:24
2002.05.23
данные не сохраняются :(





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский