Tmemo height dynamisch an text anpassen

[blackfin]

Erstelle eine unsichtbares Label mit fester Breite und wordwrap, gib dem Label die gleichen Schrift-Einstellungen wie das Memo, dann kannst du
den Canvas vom Label verwenden, um die Texthöhe herauszufinden:

Delphi-Quellcode:

H := Label1.Canvas.TextHeight(Meintext);
Memo1.Height := H ;

[H3llsing]

hab ich auch schon versucht, allerdings war dann das memo trotzdem zu hoch.
liegt es eventuell daran dass ich das Label auch als AlTop in die scrollbox gesetzt habe, danach autosize,wordwrap an
und dann den Text zugewiesen habe.


hab den Code leider schon verworfen, probiers aber gern nochmal aus


btw: es geht darum die größe des Panels dynamisch zu erzeugen.

[blackfin]

Alternativ probier noch folgendes, auch indem du den Canvas des Labels benutzt.
Das Label muss aber die gleiche Breite (oder etwas kleiner) wie das Memo dafür haben, Höhe ist egal.

Delphi-Quellcode:

..
.
var
  h: Integer ;
  FRect : TRect ;
begin
  FRect.Left := 0;
  FRect.Top := 0 ;
  FRect.Right := Label1.Width ;
  FRect.Bottom := 0 ;

  DrawText(Label1.Canvas.Handle, PChar(MeinText),Length(MeinText),FRect,DT_CALCRECT or DT_NOPREFIX or DT_WORDBREAK);
  Memo1.Height := FRect.Bottom;

  Memo1.Text := MeinText ;
end;

[H3llsing]

vielen dank erstmal, werde es morgen früh ausprobieren

[himitsu]

Zitat von blackfin:

Das Label muss aber die gleiche Breite (oder etwas kleiner)

Eher kleiner, da das Memo bestimmt einen Rand/Border hat.

[DeddyH]

Jetzt hab ich mich auch mal daran versucht (allerdings ohne Hilfslabel):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var aDC: hDC;
    R: TRect;
    aCanvas: TCanvas;
begin
  R := Memo1.BoundsRect;
  Memo1.Lines.BeginUpdate;
  try
    Memo1.Lines.Add('Zeile');
    Memo1.Text := trim(Memo1.Text);
    aDC := GetWindowDC(Memo1.Handle);
    if aDC <> 0 then
      try
        aCanvas := TCanvas.Create;
        try
          aCanvas.Handle := aDC;
          aCanvas.Font.Assign(Memo1.Font);
          DrawText(aCanvas.Handle,PChar(Memo1.Text),-1,R,DT_NOPREFIX or DT_CALCRECT or DT_WORDBREAK);
        finally
          aCanvas.Free;
        end;
      finally
        ReleaseDC(Memo1.Handle,aDC);
      end;
  finally
    Memo1.Lines.EndUpdate;
  end;
  Memo1.Height := R.Bottom - R.Top + 6;
end;

Ob das jetzt 100%-ig so stimmt, weiß ich nicht (vor allem die 6 in der letzten Zeile), aber das sah bei ersten Tests ganz gut aus.

[wicht]

Wegen der 6 in der letzten Zeile eventuell nicht Height, sondern ClientHeight zuweisen? Hab's aber nicht getestet...