БД + изменение цвета TDBCheckbox

[chel83]

Есть БД, на форме стоит DBCheckbox с текстом, если чекбокс имеет свойство true то в определённое поле заноситься значение ВКЛ, если False то ВЫКЛ при этом по умолчанию свойство Caption чекбокса имеет цвет текста - серый.

Нужно сделать так чтобы если я выделяю строку в БД а в поле стоит значение TRUE менялся цвет текста Caption'a чекбокса на красный допустим а если FALSE то например на зелёный

[mihali4]

Да очень просто:

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
if DataSet.FieldByName('MyField').AsBoolean=True then
DBCheckBox1.Font.Color:=clRed else
DBCheckBox1.Font.Color:=clGreen;
end;