Label mit dynamischer Höhe, aber fester Breite?

[xZise]

Hallo ihr,
wie kriegt ihr es hin, dass ein Label eine feste Breite, aber je nach Inhalt eine dynamische Größe hat?
Ich habe AutoSize und WordWrap auf True. Wenn ich dann nach setzen des Textes die Breite Setze funktioniert es fast. Weil bei mir wird er zwar mehrzeilig, aber hat ... mehr als die doppelte Höhe als eigentlich notwendig. Wobei manchmal (nicht genau getestet wann), geht es.

MfG
xZise

[omata]

Nimm doch ein Memo, schalte dort...

Delphi-Quellcode:

BorderStyle := bsNone;
Color := clBtnFace;
ReadOnly := true;
WordWrap := true;

...und dynamische Höhe: Anchors oder Align benutzen

[alzaimar]

Delphi-Quellcode:

Function MeasureTextHeight (Const s: String; aLabel : TLabel; aMaxWidth : Integer) : Integer;
Var
  p : TPanel;
  l : TLabel;
Begin
  p := TPanel.create(Nil);
  l := TLabel.create(Nil);
  Try
    with P do begin
      Width := aMaxWidth;
      Height := 1024;
    end;
    with l do begin
      Parent := P;
      Font.Assign (aLabel.Font);
      Align := alTop;
      WordWrap := True;
      Caption := s;
    end;
    Result := l.Height;
  Finally
    l.free;
    p.free;
  End
End;

[himitsu]

ich hatte es mir einfach gemacht, nur mir war die Gesamthöhe des Labels egal

WordWrap = True
AutoSize = False

dann einfach so breit machen, wie gewünscht,
die Höhe so wählen, daß alle zu erwartenden Zeilen reinpassen

und nun einfach nur noch fleißig Text zuweisen und sonst nix mehr ändern. :angel:

[xZise]

Hallo,

ich vermute ich habe mich nicht klar genug ausgedrückt (.... das klingt irgendwie böse :mrgreen: ). Aber ich habe einen Text mit unbestimmter Länge und eine Breite und will jetzt einfach nur wissen, wie hoch das Label dafür sein muss :) Und alzaimars Lösung sieht gut aus. Ich teste die gleich mal.

MfG
xZise

[Lannes]

Hallo,

eine andere Möglichkeit:

Delphi-Quellcode:

function SetLabelHeight(aLabel: TLabel): Integer;
var bmp : TBitMap;
    aRect : TRect;
begin
  bmp := TBitMap.Create;
  try
  bmp.Canvas.Font.assign(aLabel.Font);
  aRect := Rect(0,0,aLabel.Width,0);
  DrawText(bmp.Canvas.Handle, PChar(aLabel.Caption), Length(aLabel.Caption),
           aRect, DT_WORDBREAK or DT_CALCRECT);
  Result := aRect.Bottom  + 2;
  finally
    bmp.Free;
  end;
end;

[Hawkeye219]

Hallo Fabian,

setze einfach - bei aktiviertem AutoSize und WordWrap - Constraints.MinWidth und Constraints.MaxWidth des Labels auf den gewünschten Wert. Damit ersparst du dir jegliche Berechnung der Höhe.

Gruß Hawkeye

[xZise]

Hallo Hawkeye219,
aber damit habe ich ja nicht das Problem behoben, dass mein Panel mit dem Label immer noch sich an die Höhe anpassen muss.

Ich mach das jetzt erstmal über Constraints.MaxWidth. Vielleicht klappt es ja damit.

MfG
xZise

[xZise]

Hallo ihr,
so ich glaube ich habe alles wunderbar eingerichtet, das Problem ist aber, dass ich noch AdjustBounds aufrufen müsste?

Also es ginge über:

Delphi-Quellcode:

L.AutoSize := False; L.AutoSize := True;

MfG
xZise