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