DBGrid formatieren - Abhängig vom Inhalt

[d6lpz]

Hallo,
vielen Dank für deine Hinweise, die haben mir schon ein Stück weiter geholfen - allerdings funktioniert es noch nicht ganz richtig.
Ich habe jetzt folgendes:

Delphi-Quellcode:

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

        With DBGrid1 do
                if DataModule1.CrossQry_Month.FieldByName('1').Value = 'H' then
                begin
                        Canvas.Brush.Color:=clRed;
                        DefaultDrawColumnCell(Rect,DataCol,Column,State);
                end
                else if DataModule1.CrossQry_Month.FieldByName('1').Value = 'W' then
                begin
                        Canvas.Brush.Color:=clBlue;
                        DefaultDrawColumnCell(Rect,DataCol,Column,State);

                end
end;

Ergebnis sind eingefärbte Zeilen und nicht Zellen.
PS: Die Spalte hat die Bezeichnung '1' ( 1 steht für den ersten Tag des Monats usw.)

So komme ich noch nicht zum Ziel...

Hast du noch einen Tip?

Dirk