Възможно ли е в DBGrid да се сменя шрифта или стилът му в един ред в зависимост от съдържанието на първата клетка в реда?

Примерно съдържание =1 -bold на целия ред, 2 -normal

Wuzmozno e no ako izpolzwash standartnia komponent ste ti e trudno - pogledni OnDrawXXXX sabitiata - ama e boza

Po dobre potarsi w internet DrawDBGrid - ili nesto podobno se kazawashe - ako go niama ste ti go pratia pri parwa wazmoznost

---
Е т'ва е живот!

Съдържаниет е скрито
Влезте за да го видите

Използвам последно TDBGridEh-руска дбгрид. В хелпа му пише следното нещо но освен че трябва да използвам това събитие друго нищо не ми е ясно.
:
You can write TDBGridEh.OnGetCellParams event to take specific action before a data cell is draw. You can change draw font and background color. This event suitable to use then you want to change attributes of the font or color of whole row.
Превеждам го че с това събитие може да се смени цвета ... на целия ред.
Но как става това не ми е ясно.

pogledni w primera kam nego - maj imam nesto podobno kato komponent - ste proveria - makar 4e ako ne mi e instaliran ste mi e trudno
Oba4e mozesh da naprawish nesto lesno - sazdaj si OnGetCellParam - i wiz kakwi sa mu parametrite - i moze da se orientirash

---
Е т'ва е живот!

Съдържаниет е скрито
Влезте за да го видите

procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
if AppoloTable_OFERTA['KOD']=0 then
AFont.Style := AFont.Style + [fsBold];
end;

procedure DrawGridCell(Canvas:TCanvas; Rect:TRect; Align:TAlignment; State:TGridDrawState; Txt:String);

var tmp, X : Integer;

begin

  tmp := Canvas.TextWidth(Txt);

  Case Align of

    taRightJustify : X := Rect.Right - tmp;

    taCenter : X := Rect.Left + ((Rect.Right-Rect.Left) div 2) - (tmp div 2);

  Else X := Rect.Left;

  end;

  If (gdSelected in State) and (gdFocused in State) then begin

    Canvas.Font.Color := clHighlightText;

    Canvas.Brush.Color := clHighlight;

  end;

  Canvas.TextRect(Rect, X, Rect.Top+2, Txt);

end;

procedure TfrmZOConfig.DrawGrid(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

var Txt : String;

begin

  If EDM.EmpPersInsCDS.IsEmpty then Exit;

  If DataCol in [0,1,2] then begin

    grKids.DefaultDrawColumnCell(Rect, DataCol, Column, State);

    Exit;

  end;

  Txt := '';

  If DataCol = 3 then

    If EDM.EmpPersInsCDSForeigner.AsBoolean then

      Txt := txtDa Else Txt := txtNe;

  If DataCol = 4 then

    If EDM.EmpPersInsCDSZOType.AsInteger in [0..(EDEditPersInsured.cbZOType.Items.Count - 1)] then

      Txt := EDEditPersInsured.cbZOType.Items[EDM.EmpPersInsCDSZOType.AsInteger];

  If DataCol = 5 then begin

    If EDM.EmpPersInsCDSPayed.AsBoolean then

      Txt := txtDa

    Else

      Txt := txtNe;

  end;

  DrawGridCell(grKids.Canvas, Rect, grKids.Columns[DataCol].Alignment, State, Txt);

end;

намерих разкошна статия по темата с примери

http://delphi.vitpc.com/helloworld/dbgridcolor.htm

хех, бинго!