Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.275 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: TMS TAdvStringGrid inplace edit autosizerow

  Alt 28. Jul 2015, 16:04
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
Heiko

Geändert von hoika (28. Jul 2015 um 16:07 Uhr)
  Mit Zitat antworten Zitat