delphi - systems - Calcular el tamaño necesario para un TLabel

delphi technologies

Question

Ok, aquí está el problema. Tengo un componente de etiqueta en un panel. La etiqueta se alinea como alClient y tiene habilitado el ajuste de texto. El texto puede variar de una línea a varias líneas. Me gustaría cambiar el tamaño de la altura del panel (y la etiqueta) para que se ajuste a todo el texto.

¿Cómo obtengo la altura necesaria de una etiqueta cuando conozco el texto y el ancho del panel?

Answer 1

Puede usar el método TCanvas.TextRect, junto con los indicadores tfCalcRect y tfWordBreak:

var
  lRect : TRect;
  lText : string;

begin
  lRect.Left := 0;
  lRect.Right := myWidth;
  lRect.Top := 0;
  lRect.Bottom := 0;

  lText := myLabel.Caption;

  myLabel.Canvas.TextRect( 
            {var} lRect, //will be modified to fit the text dimensions
            {var} lText, //not modified, unless you use the "tfModifyingString" flag
            [tfCalcRect, tfWordBreak] //flags to say "compute text dimensions with line breaks"
          );
  ASSERT( lRect.Top = 0 ); //this shouldn''t have moved
  myLabel.Height := lRect.Bottom;
end;

TCanvas.TextRect ajusta una llamada a la función DrawTextEx desde la API de Windows.

Los tfCalcRect y tfWordBreak son envoltorios delphi para los valores DT_CALCRECT y DT_WORDBREAK de la API de Windows. Puede encontrar información detallada sobre sus efectos en la documentación de msdn en msdn

Answer 2

Puedes usar una línea de código para esto:

label.width := label.canvas.textwidth(label.caption);

o puede establecer la propiedad de tamaño automático de la etiqueta en verdadero en el inspector de objetos.

Answer 3

Si puede alinearlo hasta arriba y mantener el tamaño automático activado, entonces TLabel ajustará automáticamente la altura después de establecer el título.

Answer 4

Utilice TextWidth y TextHeight.

Vea un ejemplo aquí: http://www.greatis.com/delphicb/tips/lib/fonts-widthheight.html

TextWidth le dirá qué tan ancho sería el texto, y luego puede dividir eso por el ancho del control para ver cuántas filas necesita. El resto de la división debe ser una fila adicional.