Problemas de visualizacion de label en Firemonkey Delphi 10.1 (Multidevice)

[josesuarezochoa]

Ya lo probe con un Ttext y me salía de la misma manera, de todas formas voy a probar de nuevo con el ttext y varias de sus funciones y mañana doy mas detalles.

[[AgustinOrtu]]

A mi este ejemplo me funciona bien. No he cambiado ninguna propiedad de las que vienen por defecto en diseño

Código Delphi [-]
unit Unit1;

interface

uses
  System.Classes,
  FMX.Forms,
  FMX.Types,
  FMX.Controls,
  FMX.Objects;

type
  TForm1 = class(TForm)
    Text1: TText;
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Text1.Align := TAlignLayout.Client;
  Text1.TextSettings.VertAlign := TTextAlign.Leading;
  Text1.Text := 'Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore ' +
                'et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut ' +
                'aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse' +
                'cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, ' +
                'sunt in culpa qui officia deserunt mollit anim id est laborum.';
end;

end.

Dejo una imagen de como se ve en un Nexus 5X que tiene una pantalla de 5.2 pulgadas

[josesuarezochoa]

Hola, gracias por contestar pero asi si me funciona bien. La forma en que digo yo es ese mismo texto que pusiste, que no se muestre completo, que solo muestre 3 líneas el label y el resto quede oculto con puntos supensivos al final.... Como lo muestras en tu imagen es completo, yo quiero que salga a mediados de línea sin que se muestre recortado, y si deseo pues dar click y que se muestre completo, pero lo esencial es que salga correctamente una parte del texto. En la imagen se muestra lo que me refiero y como sale el texto raro en la parte inferior.

Gracias de nuevo.

[[AgustinOrtu]]

Siguiendo el ejemplo anterior y cambiando el codigo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Text1.Align := TAlignLayout.Top;
  Text1.Trimming := TTextTrimming.Word;
  Text1.VertTextAlign := TTextAlign.Leading;
  Text1.Text := 'Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore ' +
                'et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut ' +
                'aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse' +
                'cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, ' +
                'sunt in culpa qui officia deserunt mollit anim id est laborum.';
  Text1.Height := Text1.Canvas.TextHeight(Text1.Text);
end;

procedure TForm1.Text1Click(Sender: TObject);
begin
  if Text1.Align = TAlignLayout.Top then
    Text1.Align := TAlignLayout.Client
  else
  begin
    Text1.Align := TAlignLayout.Top;
    Text1.Height := Text1.Canvas.TextHeight(Text1.Text);
  end;
end;

Tendrias que ajustar el calculo del alto cuando el texto se contrae. Por ejemplo podrias pasarle al Canvas como parametro las 3 primeras lineas para que te devuelva el alto necesario para mostrar esas 3 lineas

[josesuarezochoa]

al final lo que hice fue crear una función y en el evento onpaint del label pues llamarla:

Código Delphi [-]
LabelDescripcionDetalles.Text:=AdaptarTexto(LabelDescripcionDetalles.Text,cantidadcaracteres);

Código Delphi [-]
function TForm1.AdaptarTexto(texto:string;largo:integer): String;
begin
  if (Length(texto)>largo) and (largo > 5) then
  begin
    result:=Copy(texto,1,largo);
    Result:=result+'...';
  end
  else
    result:=texto;
end;

Por si a alguien le sirve de ayuda.

[ecfisa]

Hola.

Muchas gracias por publicar la soluciòn .

Por favor cuando incluyas código, aplícale las etiquetas correspondientes para una mejor visualización:


Saludos