Estoy Usando Listbox y tengo un problema como amplio las filas y titulos lo uso asi y me da error.
oBrw12:nHeaderHeight := 20 // me da error
oBrw12:nLineHeight := 15 // me da error
- Code: Select all Expand view
REDEFINE LISTBOX oBrw12 ;
FIELDS oDat12:Fields("referen"):value, ;
oDat12:Fields("descrip"):value, ;
oDat12:Fields("um"):value, ;
transform(oDat12:Fields("stock"):value,"@e 99999,999.99"), ;
transform(oDat12:Fields("sto_con"):value,"@e 99999,999.99"), ;
oDat12:Fields("catval"):value ;
HEADERS "Referencia","Nombre Referencia","Um","Stock","Stock.Con","Cat.val" ;
FIELDSIZES 70, 280, 50,60,60,40 ;
ID 4001 ;
OF oDlgbrow UPDATE COLOR CLR_BLACK, X_BROFOND
oBrw12:aJustify ={.F., .F.,.F.,.T.,.T.,.F.}
oBrw12:bLogicLen = { || oDat12:RecordCount }
oBrw12:bGoTop = { || oDat12:MoveFirst() }
oBrw12:bGoBottom = { || oRs:MoveLast() }
oBrw12:bSkip = { | nSkip | Skipper( oDat12, nSkip ) }
oBrw12:cAlias = "ARRAY"
par_browse("2",oBrw12,aContl[20],2,oDat12," ")
oBrw12:Refresh()
oDlgbrow:oClient := oBrw12
oBrw12:nHeaderHeight := 20 // me da error
oBrw12:nLineHeight := 15 // me da error
