Rowheight Eigenschaft ändert sich ungewollt im StringGrid

[Boncuk79]

ONDRAWCELL

Delphi-Quellcode:

With (Sender as TStringGrid) Do Begin
      Text := Cells[ACol,ARow];
      Canvas.FillRect(Rect);
      DrawText(Canvas.Handle, PChar(Text), Length(Text), Rect, DT_CalcRect or DT_Left or DT_WordBreak);
      DrawText(Canvas.Handle, PChar(Text), Length(Text), Rect, DT_Left or DT_WordBreak);
      y := Rect.Bottom - Rect.Top;
      IF y > 17 Then Begin
        RowHeights[ARow] := y;
        Height := CellRect(ACol,RowCount-1).Bottom;
      End;
  End;

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]