Ayuda Con Listbox

[sanzCrito]

buenos/as dias/noches!
mi problema es que tengo un listbox y necesito poner cadenas muy largas y cuando exceden el tamaño deol listbox no puedo visualizar el final d la cadena,pense que el tamaño se iva ajustar automaticamente pero no.
como hago?ahi alguna propiedad para esto o tengo que usar otro elemento?

[[egostar]]

Empezado por sanzCrito

buenos/as dias/noches!
mi problema es que tengo un listbox y necesito poner cadenas muy largas y cuando exceden el tamaño deol listbox no puedo visualizar el final d la cadena,pense que el tamaño se iva ajustar automaticamente pero no.
como hago?ahi alguna propiedad para esto o tengo que usar otro elemento?

Hola sanzCrito

Bienvenido al foro.

Debe existir una solución mejor y mas óptima que esta:

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var
  ancho,i:integer;
begin
  ancho := 0;
  for i := 0 to ListBox1.Items.Count-1 do begin
     if ancho < Canvas.TextWidth(ListBox1.Items.Strings[i]) then
        ancho := Canvas.TextWidth(ListBox1.Items.Strings[i]);
  end;
  ListBox1.Width := Ancho+10;
end;

Seguro alguien posteara algo mejor

Salud OS

PD, te invito a leer nuestra guia de estilo.

[*Caro*]

Hola sanzCrito, mi solución no es una mejor que del amigo egopolice. Puedes utilizar la función DrawText que te permite dar formato a tu texto, para que te muestre en varias líneas tendrías que utilizar el formato DT_WORDBREAK, según la ayuda una vez que llega al tamaño de tu TRect te lo corta y el resto te pone en otra línea.

Código Delphi [-]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
 aItem : String;
begin
 aItem := ListBox1.Items[Index];
 DrawText(ListBox1.Canvas.Handle,PChar(aItem), StrLen(PChar(aItem)),Rect,DT_WORDBREAK);
end;

Debes cambiar la propiedad Style a lbOwnerDrawFixed, sino no se activa el evento OnDrawItem de tu ListBox. También debes aumentar el alto de los items, porque sino no se ve lo que esta en la siguiente línea, para esto la propiedad ItemHeight.

Lo ideal sería si el texto ocupa una sola línea el alto sea solo para esa línea y si ocupa mas el alto sea mas, pero nose como hacer eso.

Saluditos

[sanzCrito]

gracia por la rapida respuesta