Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Отобразить код цвета в TEdit

2.6K
21 января 2006 года
php_error
40 / / 22.08.2004
Есть компонент RzColorPicker и Edit. Как мне в Editе показать код цвета который я выделил в RzColorPicker. Так как делают НТМЛ редакторы
2.6K
26 января 2006 года
php_error
40 / / 22.08.2004
Цитата:
Originally posted by php_error
Есть компонент RzColorPicker и Edit. Как мне в Editе показать код цвета который я выделил в RzColorPicker. Так как делают НТМЛ редакторы


Нашел вот ответ на мой вопрос. Вот пример:

Код:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TColorRef rgbVal;
    if (ColorDialog1->Execute())
    {
        rgbVal = ColorToRGB(ColorDialog1->Color);
        AnsiString tmp = Format("%2x%2x%2x",OPENARRAY(TVarRec,
                    (GetRValue(rgbVal),GetGValue(rgbVal),GetBValue(rgbVal))));
        Label1->Caption = tmp;
  }
}

Подогнал под себя вот так:
 
Код:
TColorRef rgbVal;
 rgbVal = ColorToRGB(CPClolorSelect->SelectedColor);
        AnsiString tmp = Format("%2x%2x%2x",OPENARRAY(TVarRec,
                    (GetRValue(rgbVal),GetGValue(rgbVal),GetBValue(rgbVal))));
 EColor->Text = tmp;

Но есть не большой глюк. Код некоторых цветов он отображает с пробелами между цифрами и буквами. Из-за чего это происходит, кто подскажет?
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог