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;
}
}
Отобразить код цвета в TEdit
Есть компонент RzColorPicker и Edit. Как мне в Editе показать код цвета который я выделил в RzColorPicker. Так как делают НТМЛ редакторы
Цитата:
Originally posted by php_error
Есть компонент RzColorPicker и Edit. Как мне в Editе показать код цвета который я выделил в RzColorPicker. Так как делают НТМЛ редакторы
Есть компонент RzColorPicker и Edit. Как мне в Editе показать код цвета который я выделил в RzColorPicker. Так как делают НТМЛ редакторы
Нашел вот ответ на мой вопрос. Вот пример:
Код:
Подогнал под себя вот так:
Код:
TColorRef rgbVal;
rgbVal = ColorToRGB(CPClolorSelect->SelectedColor);
AnsiString tmp = Format("%2x%2x%2x",OPENARRAY(TVarRec,
(GetRValue(rgbVal),GetGValue(rgbVal),GetBValue(rgbVal))));
EColor->Text = tmp;
rgbVal = ColorToRGB(CPClolorSelect->SelectedColor);
AnsiString tmp = Format("%2x%2x%2x",OPENARRAY(TVarRec,
(GetRValue(rgbVal),GetGValue(rgbVal),GetBValue(rgbVal))));
EColor->Text = tmp;
Но есть не большой глюк. Код некоторых цветов он отображает с пробелами между цифрами и буквами. Из-за чего это происходит, кто подскажет?