Alto de linea en LISTBOX

[José Camilo]

Buenas noches.
Necesito cambiar el alto de la linea o registro que muestra un listbox a lo que trae por defecto.
lo que en un xbrowse se haria asi:

oBrw:nStretchCol := 2
oBrw:nRowHeight := 30
oBrw:nMarqueeStyle := 4


Como se puede hacer en listbox?

Gracias

[Antonio Linares]

Puedes probar a cambiar el font usado por el listbox

[Loren]

Hola,
en mis Listbox yo los configuro de la siguiente manera:

Code: Select all  Expand view

 listagen:bkeydown     := {|nKey| iif(nKey==VK_RETURN, editage(.f.) ,)}
  listagen:bBkcolor     := {|nRow,nCol,nStyle| IF( nStyle == 3, IF( nCol == 3,iif(agenda->fechaaviso-date()<0,nRGB(240,70,70),CLR_HGRAY), ), ) }
  listagen:nclrPANE     :={||CLR_WHITE}
  listagen:nClrBackFocus:={||CLR_HGRAY}
  listagen:nClrForeFocus:={||CLR_BLACK}
  listagen:lAutoSkip    := .t.
  listagen:nLineStyle   :=1 &&4
  listagen:nHeaderHeight:=32
  listagen:nclrbackhead :={||CLR_GRAY}
  listagen:nclrFOREhead :={||CLR_WHITE}
  listagen:aJustify     := {1,0,0,0}
  listagen:nLineHeight  := 80      && <<---- este es el alto de línea
  listagen:nClrLine     :=CLR_GRAY
  listagen:UpStable()
  listagen:lDrawFooters:=.t.
  listagen:nclrbackhead:={||CLR_GRAY}
  listagen:nclrFOREhead:={||CLR_WHITE}
  listagen:nFooterHeight:=20
  listagen:nclrffore    :={||CLR_WHITE}
  listagen:nclrFback    :={||CLR_GRAY}

Espero te sirva,
Saludos!!

[José Camilo]

Antonio y Loren: Gracias por su tiempo.
Loren: entiendo que en esta definicion LISTAGEN es el OBJETO.
listagen:nLineHeight := 80 && <<---- este es el alto de línea

yo lo puse asi

oLbx:nLineHeight := 80
y me da error BASE/1005 Message not found: TWBROWSE:_NLINEHEIGHT

Antonio:
lo tengo definido asi:

define font oTipLet NAME "Courier" SIZE 10,14 // bold
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15

DEFINE DIALOG oDlg RESOURCE "CodLiqVar"
. . .
select _CoLiAux
_CoLiAux->(DbGotop())

REDEFINE LISTBOX oLbx FIELDS str(_CoLiAux->Locatario,4,0) , ;
_CoLiAux->Nombre , ;
str(_CoLiAux->Propiedad,4,0) , ;
_CoLiAux->Domicilio , ;
str(_CoLiAux->importe,12,0) ;
FIELDSIZES {50,150,50,200,90} ;
HEADERS "Cód.","Locatario","Cód","Domicilio","Importe" ;
ID _CLV_Lbx ;
FONT oTipLet ;
OF oDlg
oLbx:aJustify = {.t.,.f.,.t.,.f.,.t.}


Si uso la letra oFONT me da el error del mensaje anterior y aun cuando le cambio los tamaños continua el error.
Si uso oTipLet NO DA ERROR pero no me varia el alto de la linea.

Que mas se puede hacer?

Gracias

[karinha]

Antonio y Loren: Gracias por su tiempo.
Loren: entiendo que en esta definicion LISTAGEN es el OBJETO.
listagen:nLineHeight := 80 && <<---- este es el alto de línea

yo lo puse asi

oLbx:nLineHeight := 80
y me da error BASE/1005 Message not found: TWBROWSE:_NLINEHEIGHT

Antonio:
lo tengo definido asi:

define font oTipLet NAME "Courier" SIZE 10,14 // bold
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15

DEFINE DIALOG oDlg RESOURCE "CodLiqVar"
. . .
select _CoLiAux
_CoLiAux->(DbGotop())

REDEFINE LISTBOX oLbx FIELDS str(_CoLiAux->Locatario,4,0) , ;
_CoLiAux->Nombre , ;
str(_CoLiAux->Propiedad,4,0) , ;
_CoLiAux->Domicilio , ;
str(_CoLiAux->importe,12,0) ;
FIELDSIZES {50,150,50,200,90} ;
HEADERS "Cód.","Locatario","Cód","Domicilio","Importe" ;
ID _CLV_Lbx ;
FONT oTipLet ;
OF oDlg
oLbx:aJustify = {.t.,.f.,.t.,.f.,.t.}


Si uso la letra oFONT me da el error del mensaje anterior y aun cuando le cambio los tamaños continua el error.
Si uso oTipLet NO DA ERROR pero no me varia el alto de la linea.

Que mas se puede hacer?

Gracias

Esto solo funciona con el TWBROWSE() by Hernan.

Regards, saludos.

[José Camilo]

Gracias Joao !!