Pen reagiert nicht auf Farbe

[Delbor]

Hi zusammen

Und wie so oft sitzt der Fehler vor dem Blidschirm...

Natürlich muss es so sein:

Delphi-Quellcode:

procedure TDayNumberFrame.StrGCalendarMonthFrameDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if (ARow=0) or (ACol=0) then
  begin
    StrGCalendarMonthFrame.Canvas.Brush.Color := clred;
    StrGCalendarMonthFrame.Canvas.FillRect(Rect);
    StrGCalendarMonthFrame.Canvas.Font.Charset := DEFAULT_CHARSET;
//    StrGCalendarMonthFrame.Font.Name := 'Times New Roman';
//    StrGCalendarMonthFrame.Font.Color := clYellow;
//    StrGCalendarMonthFrame.Font.Style := [fsBold];
//    StrGCalendarMonthFrame.Font.Size := 10;
    StrGCalendarMonthFrame.Canvas.Font.Name :=  'Times New Roman';
    StrGCalendarMonthFrame.Canvas.Font.Color := clYellow;
    StrGCalendarMonthFrame.Canvas.Font.Size := 10;
    StrGCalendarMonthFrame.Canvas.Font.Style := [fsBold];
    StrGCalendarMonthFrame.Canvas.TextOut(Rect.Left+4, Rect.Top+2, StrGCalendarMonthFrame.Cells[ACol, ARow]);
  end;
end;

Auskommentiert sind die Zeilen, die sich in dieser falschen Form im letzten Codeschnipsel eingeschlichen haben...
Ausserdem muss DefaultDrawing False sein.

Gruss
Delbor