цвет строки dbgrid из combobox

[undead92]

Здравствуйте,проблема такова есть dbgrid есть combobox,в нем 3 строки красный желтый серый ,мне нужно чтобы выбрав строчку в dbgrid и выбрав желтый,строчка окрашивалась и причем после перезахода в программу тоже оставалась желтой.

мой код ошибок не вызывает но и не работает

procedure TForm4.dbgrd1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdfocu
sed in State) then begin
if cbb1.ItemIndex=0 then dbgrd1.canvas.Brush.Color := clRed;
end;
if cbb1.ItemIndex=1 then dbgrd1.Canvas.Brush.Color := clYellow;
if cbb1.ItemIndex=2 then dbgrd1.Canvas.Brush.Color := clGray;
end;

[vovk]

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

procedure TForm.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var
color_:integer;
begin
  color_:=Column.Field.DataSet.FieldByName('color').AsInteger;
  if color_>0 then
                  with (sender  as TDBGrid).Canvas do
                         begin
                           Brush.Color:= color_;
                           Font.Color:= clBlack;
                           end;
  (sender  as TDBGrid).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

цвет хранится в поле 'color' в виде числа (integer)

[undead92]

Сообщение от vovk

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

procedure TForm.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var
color_:integer;
begin
  color_:=Column.Field.DataSet.FieldByName('color').AsInteger;
  if color_>0 then
                  with (sender  as TDBGrid).Canvas do
                         begin
                           Brush.Color:= color_;
                           Font.Color:= clBlack;
                           end;
  (sender  as TDBGrid).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

цвет хранится в поле 'color' в виде числа (integer)

а как связать combobox с нужными цветами?

[vovk]

На ocloseup комбобокса перезаписывать поле 'color' в текущей записи числовым значением цвета из комбобокса, если конечно значения отличаются.

[undead92]

Сообщение от vovk

На ocloseup комбобокса перезаписывать поле 'color' в текущей записи числовым значением цвета из комбобокса, если конечно значения отличаются.

совсем не понятно,можно пожалуйста подробней,комбобокс имеет три цвета

[_SERGEYX_]

В каком формате он имеет три цвета?
$000000FB, clRed, FF0000 или просто item покрашен в красный цвет?
И это обычный Combobox, или ColorCombobox?
Телепаты отдыхают до 8 марта...

[vovk]

ocloseup это событие которое происходит после закрытия.

Как вы храните цвет в комбобокс?

[DiemonStar]

кстати, кое-где встречается и DBColorComboBox, так что выбор цвета можно будет упростить)

[undead92]

исходя из кода в первом посте, в comboboxe цветов вообще нет,, они потом в процедуре должны менять канвас на цвет clRed если в комбо выбран красный