Сохранить цвет текста помимо значения

@Delamus · Регистрация: 09.08.2015

Всем доброго времени суток! Есть у меня TsDBCheckBox-ы(штук с 30), помимо значения Checked, мне нужно "паралельно" сохранять цвет шрифта для каждого из них. Отдельно ещё 30 полей делать в таблице для этого считаю крайними мерами. Это запоминание цвета текста нужно для этого условия в общем обработчике:

Delphi

procedure TForm1.chk2Click(Sender: TObject);
begin
  if ((Sender as TsDBCheckBox).Font.Color = clRed) then
 begin
   (Sender as TsDBCheckBox).Checked:=False;
   (Sender as TsDBCheckBox).Font.Color:=clBlack;
 end
end;

Т.е. цвет может быть только либо черный либо красный.
P.S. Использую базу данных MS Access(*.mdb)

@qwertehok · 09.12.2015, 19:36

а в чем у вас проблема?
заведите таблицу для хранения настроек
в ней 1 строка - color_dbcheckbox - [red]\[black]
другая - checked [true]\[false]

@Delamus · 09.12.2015, 22:26 **[ТС]**

а можно в двух словах как их синхронизировать?)

@oryth · 09.12.2015, 22:29

по ключевым полям, должен быть ключ, который идентифицировал бы компонент в программе

@Delamus · 11.12.2015, 19:10 **[ТС]**

Оказываеться, помимо цвета шрифта нужна ещё и видимость, так же для каждого чекбокса отдельно. Желательно пример кода как обьединить таблицу этих свойств с чекбоксом

@qwertehok 4413 / 3668 / 940 Регистрация: 29.08.2013 Сообщений: 23,747 Записей в блоге: 3
	09.12.2015, 19:36	2
	а в чем у вас проблема? заведите таблицу для хранения настроек в ней 1 строка - color_dbcheckbox - [red]\[black] другая - checked [true]\[false] 1

@Delamus 0 / 0 / 0 Регистрация: 09.08.2015 Сообщений: 11
	09.12.2015, 22:26 [ТС]	3
	а можно в двух словах как их синхронизировать?) 0

@oryth 12 / 12 / 7 Регистрация: 09.12.2015 Сообщений: 187
	09.12.2015, 22:29	4
	по ключевым полям, должен быть ключ, который идентифицировал бы компонент в программе 0

@Delamus 0 / 0 / 0 Регистрация: 09.08.2015 Сообщений: 11
	11.12.2015, 19:10 [ТС]	5
	Оказываеться, помимо цвета шрифта нужна ещё и видимость, так же для каждого чекбокса отдельно. Желательно пример кода как обьединить таблицу этих свойств с чекбоксом 0

Опции темы