Delphi Label mit dynamischer Höhe, aber fester Breite?

Thema durchsuchen

Ansicht

Themen-Optionen

Label mit dynamischer Höhe, aber fester Breite?

Ein Thema von xZise · begonnen am 21. Jun 2009 · letzter Beitrag vom 16. Aug 2009

Vorheriger Beitrag

Nächster Beitrag

Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge

Delphi 3 Professional

Re: Label mit dynamischer Höhe, aber fester Breite?

22. Jun 2009, 15:30

Hallo,

eine andere Möglichkeit:

zusammenfalten · markieren

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;