Pen reagiert nicht auf Farbe

[Delbor]

Hi zusammen

Nun arbeite ich daran, meinen Jahreskalender etwas zu verfeinern; das heisst, ich muss das Ding (oder besser: Die 12 Dinger - Grids, die jeweils einen Monat darstellen) selbst zeichnen. Und da zeigt sich schon das erste Problem:

Delphi-Quellcode:

procedure TDayNumberFrame.StrGCalendarMonthFrameDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if (gdFixed In State) then
  begin
    StrGCalendarMonthFrame.Canvas.Brush.Color := clred;
    StrGCalendarMonthFrame.Canvas.FillRect(Rect);
    StrGCalendarMonthFrame.Canvas.Pen.Color := clyellow;
    StrGCalendarMonthFrame.Canvas.Pen.Mode :=  pmCopy;
    StrGCalendarMonthFrame.Canvas.Pen.Style :=  psSolid;
    StrGCalendarMonthFrame.Canvas.TextOut(Rect.Left+2, Rect.Top+2, StrGCalendarMonthFrame.Cells[ACol, ARow]);
  end;
end;

Das zeichnet mir die fixierten Zeilen und Spalten, die Stiftfarbe ist abernach wie vor schwarz. Was mache ich falsch'

Gruss
Delbor