freepascal.ru

По-видимому компонет TRxDBColorBox содержит ошибку. Если включён флаг cbCustomColor и устанавливаешь цвет через пункт "custom..." он сохраняется как clBlack. Если выбирать цвета из стандартного перечня - всё нормально.

https://disk.yandex.ru/i/ONnlkLwPOO_hyQ

Демо:
https://disk.yandex.ru/d/tfhL9xsQvOn1aA

В событии OnCloseUp дописать строку

Код: Выделить всё

SQLQuery1.FieldByName('color').AsInteger := RxDBColorBox1.Selected;

И настанет щасте.

Спасибо, помогло.

Отчего автор сего модуля сам не исправит сохранение значения, чтобы можно было обходиться без такого костыля?