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