DBGrid -> Zeilenkopf farblich ändern

[HolgerCW]

Lösung:

Delphi-Quellcode:

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

if (DataModule1.Query1['PLANUNGSTERMIN'] < Date) then
 begin

  MyRect := Rect;

  DBGrid1.Canvas.Brush.Color := clred;
  DBGrid1.Canvas.Font.Color := clred;

  MyRect.Left := 1;
  MyRect.Right := 10;

  DBGrid1.DefaultDrawColumnCell(MyRect, DataCol, Column, State);

 end;
end;