[iegrec]

Код:

procedure Tbaza.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin

  if DM4.Spisok.FieldByName('St').AsString = DM4.table_st.FieldByName('St').AsString then begin
	with  DBGrid1.Canvas do
	begin
		Brush.Color:=DM4.table_st.FieldByName('C').AsInteger;
	 	Font.Color:=clWhite;
	 	FillRect(Rect);
		TextOut(Rect.Left+2,rect.Top+2,Column.Field.Text);
    //dbgrid1.DefaultDrawColumnCell(rect, DataCol, Column, State);
	end;

end;

Админ: Пользуемся тегами!

но вот только красит то что выбрал при добавление строчки...а мне нужно что бы этот чвет оставался всегда..т.е статусы должны быть разными цветами.....