TStringGrid, wordwrap, 1zeilig sieht es blöd aus

[hoika]

Hallo,

mache ich ja, aber wie stelle ch fest,
dass umgebrochen wird ?

Delphi-Quellcode:

        if (DrawRect.Bottom - DrawRect.Top) > RowHeights[R] then
        begin
          { cell word-wraps; increase row height }
          RowHeights[R]:= DrawRect.Bottom - DrawRect.Top;
          SetGridHeight(AGrid);
        end;

        if RowHeights[R]<=AGrid.DefaultRowHeight then
        begin
          // hierher kommt er , es passiert aber nichts

siehe der Screenshot


Heiko