Kleiner Tip an raik und hansa:
Niemals die Angaben für FixedCols & FixedRows absolut angeben!
Raiks Code könnte dann so aussehen:
Delphi-Quellcode:
With Sender as TStringGrid Do
Begin
If aRow < FixedRows Then Exit;
If aCol < FixedCols Then Exit;
If (DayList[aCol].isfree) and (aCol <= 5) Then
Canvas.Brush.color:=clRed;
End;