Ajustar Listbox

Ajustar Listbox

Postby servicomver » Tue Nov 05, 2024 7:41 pm

Hola, ¿Es posible ajustar una cadena larga al ancho de un Listbox, sin que corte las palabras ?
COLUMNA1 COLUMNA2 COLUMNA3
Clave: 001 Sucursal: Independencia
Codigo: AB1013 Ubicacion: Centro
Fecha: 05/11/2024 Equipo: Refrigerador

El campo de la columna 3 es un Longtext de un RecordSet SQL

@ 3.5, .5 LISTBOX oLbx FIELDS "Folio: " + Transform(oRecordSet:Fields("Id"):value,"9999") + CRLF + "Codigo:" +
IIF(oRecordSet:Fields("Codigo"):value=NIL,"",Transform(oRecordSet:Fields("Codigo"):value,"99999")) + CRLF + "Fecha:",;
"Sucursal:" + oRecordSet:Fields("Sucursal"):value + CRLF + "Ubicacion: " + oRecordSet:Fields("Ubicacion"):value + CRLF + ;
oRecordSet:Fields("Descripcion"):value,;
oRecordSet:Fields("Falla"):value); ///////////////aqui necesito ajustar el texto al ancho de los 3 renglones///////////////
HEADERS "ID","Sucursal", "Falla";
FIELDSIZES 90,200,200;
SIZE 990, 350 OF oWndchild

Gracias, espero haberme explicado correctamente.
servicomver
 
Posts: 190
Joined: Fri Nov 18, 2005 7:34 pm

Re: Ajustar Listbox

Postby servicomver » Tue Nov 05, 2024 8:38 pm

Ya quedó solucionado. con una Función logré dividir el campo y ponerlo sin cortar palabras :D
servicomver
 
Posts: 190
Joined: Fri Nov 18, 2005 7:34 pm

Re: Ajustar Listbox

Postby JoseAlvarez » Wed Nov 06, 2024 12:53 pm

servicomver wrote:Ya quedó solucionado. con una Función logré dividir el campo y ponerlo sin cortar palabras :D


Quizás esta cláusula te sirva para hacerlo mas fácil:

Code: Select all  Expand view  RUN
oLbx:lMChange := .F.  / .T.


El usuario puede ajustar el tamaño de todas las columnas desde el encabezado.
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 798
Joined: Sun Nov 09, 2014 5:01 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], wmormar and 63 guests