[starcon]

Не могу разобраться с раскраской строк в DbGridEh.
Вот код , который работает

Код:

procedure TForm2.DBGrideh1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumneh; State: TGridDrawState);
const
clPaleGreen = TColor($CCFFCC);
clPaleRed = TColor($CCCCFF);
begin
 
   if Column.Field.Dataset.FieldByName('rastr').AsString = 'Растр' then
     if (gdFocused in State) then
       DBGrideh1.Canvas.Brush.Color := clNavy
     else
       DBGrideh1.Canvas.Brush.Color := clyellow;
 
 
DBGrideh1.DefaultDrawColumnCell(Rect, DataCol, Column, State)
 
end;

Как мне прикрутить туда комбобох с выбором цвета, который при повторном запуску программы будет запоминаться?

[Alegun]

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

[starcon]

Спасибо .
Была идея прямь ,создать столб в таблице для цвета.
Потом связать с комбобоксом .
Уже не актуально.