Hi zusammen
Doch, wer lesen kann(auch die Hilfe), ist klar im Vorteil. Hab ich zuerst gedacht. War aber falsch, auch wenns sich zum ersten logisch anhört.
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.Font.Charset := DEFAULT_CHARSET;
StrGCalendarMonthFrame.Font.Color := clYellow;
StrGCalendarMonthFrame.Font.Style := [fsBold];
StrGCalendarMonthFrame.Font.Size := 10;
StrGCalendarMonthFrame.Canvas.TextOut(Rect.Left+2, Rect.Top+2, StrGCalendarMonthFrame.Cells[ACol, ARow]);
end;
end;
Erstmal erfolgte die Textausgabe wie gehabt. Dann fügte ich die auskommentierte Zeile ein und bekam die gelbe Textausgabe - die blieb auch, nachdem ich die Zeile auskommentiert hatte und die erzeugten DCUs gelöschte hatte. Wobei nun die Textausgaben im ganzen grid erfolgten, was eben nicht sein sollte (Die ist anders).
Vielen Dank für deine Bemühungen, by brechi.
Gruss
Delbor