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