//Для желтого цвета (clYellow)
//так:
Label->Caption=ColorToString(ColorDialog->Color);
//Выдает clYellow буквами;
//а так:
long lCl=ColorToInt(ColorDialog->Color);
Label->Caption=IntTohex(lCl,6);
//выдает 00FFFF вместо правильного FFFF00
//в чем лажа!
Color To Sting
Спасите, запарился я уже с цветами :(
Нужно цвет перевести в шестнацетеричный вид.
Нужно цвет перевести в шестнацетеричный вид.
Код:
А где там неправильно? Байты в памяти располагаются наоборот, чем отображаются. Перевод верный
00FFFF - именно так они в памяти и хранятся. Рассматривая их как строку, естественно получаем такое положение.
00FFFF - именно так они в памяти и хранятся. Рассматривая их как строку, естественно получаем такое положение.
[QUOTE=r000n_m]А где там неправильно? Байты в памяти располагаются наоборот, чем отображаются. Перевод верный
00FFFF - именно так они в памяти и хранятся. Рассматривая их как строку, естественно получаем такое положение.[/QUOTE]
Спасибо! Совсем уже заработался!
00FFFF - именно так они в памяти и хранятся. Рассматривая их как строку, естественно получаем такое положение.[/QUOTE]
Спасибо! Совсем уже заработался!
[QUOTE=r000n_m]А где там неправильно? Байты в памяти располагаются наоборот, чем отображаются. Перевод верный
00FFFF - именно так они в памяти и хранятся. Рассматривая их как строку, естественно получаем такое положение.[/QUOTE]
Спасибо! Совсем уже заработался!
00FFFF - именно так они в памяти и хранятся. Рассматривая их как строку, естественно получаем такое положение.[/QUOTE]
Спасибо! Совсем уже заработался!
Ребята, а как наоборот из такого формата FF00FF получить цвет и залить форму? :(
Вероятно, HexToColor (правда не проверял, есть ли такая функция)
[QUOTE=r000n_m]Вероятно, HexToColor (правда не проверял, есть ли такая функция)[/QUOTE]
Нет такой. Спс, пришлось вспомнить со школы как переводить 16-ричные в 10-тичные.
Удачи!
Нет такой. Спс, пришлось вспомнить со школы как переводить 16-ричные в 10-тичные.
Удачи!