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
Puedes probar a cambiar el font usado por el listbox
聽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}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
Jos茅 Camilo wrote:Antonio y Loren: Gracias por su tiempo.Esto solo funciona con el TWBROWSE() by Hernan.
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
Gracias Joao !!
