onDrawCell überschreibt Caption vom Formular

[DeddyH]

Was ist denn Text überhaupt? Fehlt da evtl. eine lokale Variable?

[edit]So sieht das bei mir aus, als sei es so gewollt:

Delphi-Quellcode:

procedure TForm.DrawTerminart(Sender: TObject; ACol, ARow: Integer;
  ARect: TRect; State: TGridDrawState);
var
  outRect: TRect;
  G: TStringGrid;
  Text: string;  //<-- das machen wir mal lieber lokal
begin
  //und das with kommt auch sicherheitshalber weg
  G := Sender as TStringGrid;
  if (ACol > 1) And (ARow >= 1) then
    begin
      Text := G.Cells[ACol, ARow];
      outRect := ARect;
      G.Canvas.Brush.Color := clWhite;
      G.Canvas.Fillrect(ARect);
      G.Canvas.Font.Name := 'Wingdings 2';
      G.Canvas.Font.Size := 14;
      if ACol = 9 then
        G.Canvas.Font.Color := clGray
      else
        G.Canvas.Font.Color := clBlack;

      outRect.Top := outRect.Top + 2;
      DrawText(G.Canvas.Handle, PChar(Text), length(Text), outRect,
        DT_Center or DT_SingleLine);
    end;
end;

[/edit]