Stringgrid spinnt

[marabu]

Hallo Matthias,

Delphi-Quellcode:

procedure TFrmMultiSearch.grdAnzeigeDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  a: integer;
  d: TDate;
  cl: TColor;
begin
  d := StrToDate(grdAnzeige.Cells[aCol, 0]);
  if gdFixed in State then cl := grdAnzeige.FixedColor
  else if DayOfTheWeek(d) = 6 then cl := $0000c3ff
  else if DayOfTheWeek(d) = 7 then cl := clRed
  else if grdAnzeige.Cells[aCol, aRow] <> '' then cl := clSkyBlue
  else cl := clWhite;

  with grdAnzeige do
  begin
    Canvas.Brush.Color := cl;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
  end;
end;

Grüße vom marabu