DBGRID and Colors

[Regany]

How to make severally field fonts in DBGrid to be in different color (for example if value is more than 10 then its green)? But it must be called from ButtonClick not from DrawColumnCell!

I know "DBGrid1.Columns[1].Font.Color:=clgreen;" but thats for whole column!


I hope my question is understandable!

 

[fruNNik]

use the DrawColumnCell to draw on the Grids Canvas, there you can place the if like so:

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

 // pseudo code
  if Value > 10 then
  DBGrid1.Columns[1].Font.Color:=clgreen;

  DBGrid1.Canvas.TextOut(Rect.Left,Rect.Top,'text from dbfield');

end;

hth
- fruNNik