TMS TAdvStringGrid inplace edit autosizerow

[hoika]

Hallo,

oh Mann !!
das war's
Hier hatte ich schon mal rumprobiert.

http://www.delphipraxis.net/112566-t...-wordwrap.html

Und die ganze Zeit stochere ich in der TAdvInplaceEdit.KeyDown rum,
wo genau das benutzt wird !

Danke !

Ich hatte das in der Zwischenzeit so gelöst:

Delphi-Quellcode:

       
        iLines := SendMessage(SG.NormalEdit.Handle, EM_LINEFROMCHAR,
          Length(SG.NormalEdit.Text)-1, 0);
        iLines := iLines+1;

        { das +4 durch Ausprobieren ermittelt }
        iHeight :=  iLines*SG.Canvas.TextHeight('A')+4;
        if iHeight>SG.RowHeights[SG.Row] then
        begin
          SG.RowHeights[SGAkte.Row] := iHeight;
        end;

Ein einfaches Property zu setzen, geht natürlich auch
Noch mal vielen Dank.


Heiko