1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.FormCreate(Sender: TObject);
begin
  for a := 0 to stringgrid1.ColCount - 1 do
  begin
    stringgrid1.Cells[a,0] := DateToStr(now + a);
    if (DayOfTheWeek(now + a) = 6) or (DayOfTheWeek(now + a) = 7) then
    begin
      for i := 0 to stringgrid1.RowCount - 1 do
      begin
        // Zelle markieren
      end;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TfrmMain.grdKalenderDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  RectLinks : TRect;
  RectRechts : TRect;
begin
  if (ACol > 0) and (ARow > 0) then begin
    //Initialisierung
    Rect.Bottom := Rect.Bottom-1;
    Rect.Right := Rect.Right-1;
    Rect.Top := Rect.Top+1;
    Rect.Left := Rect.Left+1;
    RectLinks.Top := Rect.Top;
    RectLinks.Right := Rect.Left + (Rect.Right - Rect.Left) div 2;
    RectLinks.Left := Rect.Left;
    RectLinks.Bottom := Rect.Bottom;
    RectRechts.Top := Rect.Top;
    RectRechts.Right := Rect.Right;
    RectRechts.Left := Rect.Left + (Rect.Right - Rect.Left) div 2;
    RectRechts.Bottom := Rect.Bottom;

    grdKalender.Canvas.Brush.Color := Liste[ARow,ACol].Links;
    grdKalender.Canvas.FillRect(RectLinks);
    grdKalender.Canvas.TextRect(RectLinks, RectLinks.Left + 1, RectLinks.Top + 1, copy(Liste[ARow,ACol].Text,1,1));

    grdKalender.Canvas.Brush.Color := Liste[ARow,ACol].Rechts;
    grdKalender.Canvas.FillRect(RectRechts);
    grdKalender.Canvas.TextRect(RectRechts, RectRechts.Left + 1, RectRechts.Top + 1, copy(Liste[ARow,ACol].Text,2,1));

    if (grdKalender.Selection.Left <= ACol) and (grdKalender.Selection.Right >= ACol) and
       (grdKalender.Selection.Top <= ARow) and (grdKalender.Selection.Bottom >= ARow) then begin
      grdKalender.Canvas.Brush.Color := TColor(Integer(grdKalender.Canvas.Brush.Color) xor $00FFFFFF);
      grdKalender.Canvas.FrameRect(Rect);
    end;
  end;
end;