Eine Art Kalender darstellen

[Dumpfbacke]

Hallo Leute ich möchte einen Art Kallender erstellen. Als erstes dachte ich das ich ein String Grid benutzen möchte. Das ist leider nicht möglich da ich in einen Feld verschiedene Schriften und Farben benutzen möchte. Kann mir jemand hier einen Tip geben wie ich es machen soll ?

So sollte es aussehen. Die senkrechten Striche natürlich alle übereinander. Die Bezeichung Team sollte dann z.B. eine andere Farbe haben als Fr oder Sa usw.

Code:

+--------------------+-------------+
|Januar              |Februar      |
+--------------------+-------------+
|1 Fr Neujahr        |1 Mo Team 17 |
+--------------------+-------------+
|2 Sa                |2 Di frei    |
+--------------------+-------------+
|3 So                |3 Mi Team 19 |
+--------------------+-------------+
|4 Mo Team 1, Team 2 |4 Do         |
+--------------------+-------------+
|5 Do Team 4         |5 Fr         |
+--------------------+-------------+

[bcvs]

Zitat von Dumpfbacke:

Das ist leider nicht möglich da ich in einen Feld verschiedene Schriften und Farben benutzen möchte. Kann mir jemand hier einen Tip geben wie ich es machen soll ?

Doch, das ist möglich. Du musst dann nur den Text im OnDrawCell des Grid selbst malen.
z.B. so:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (aCol=1) and (aRow=1) then begin
    With TStringGrid(Sender).Canvas do begin
      Font.Color:=clBlack;
      TextOut(Rect.Left+2, Rect.Top+2, 'Das ist schwarz');
      Font.Color:=clred;
      TextOut(Rect.Left+40, Rect.Top+2, 'Das ist rot');
    end;
  end;
end;