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

[hoika]

Hallo,

Delphi-Quellcode:

        if RowHeights[R]<=AGrid.DefaultRowHeight then
        begin
          DrawText(Handle, PChar(S2), length(S2), DrawRect,
                   dt_singleline
                   or dt_vcenter
                   or iAlign);
        end           
        else
        begin
          DrawText(Handle, PChar(S2), length(S2), DrawRect,
                   dt_wordbreak
                   or iAlign);
        end;

<= ist richtig, ich will in diesem Fall ja per dt_singleline
und vor allem dt_vcenter das Standard-Verhalten malen,
also vertikal zentriert, so als ob es keinen Umbruch gibt.


Heiko