Pase mis controles de borland a usar los controles de Pelles C especificamente el control listbox para el xbrowse
pero no consigo que aparezca la barra de scroll, les pego mi trozo de codigo
- Code: Select all Expand view RUN
REDEFINE XBROWSE oBrwDet ;
FIELDS DETGUIAT->articu ;
,Articulo->DesG ;
,Articulo->UM ;
,Tran(Articulo->Cap,"999") ;
,Tran(DETGUIAT->Cantid,"999,999") ;
,Tran(((articulo->conos+articulo->coning-articulo->consal) ),"999,999") ;
,Tran((Articulo->Cap*DETGUIAT->Cantid),"999,999") ;
,Tran(DETGUIAT->PRECIO,"999.9999") ;
,Transform(DETGUIAT->TOTAL ,"999,999.99") ;
FIELDSIZES 65,195,30,30,40,40,40,50,70 ;
HEADERS "Codigo" ;
,"Descripción" ;
,"U.M." ;
,"Cap" ;
,"Cant." ;
,"Stock" ;
,"Mts." ;
,"Precio" ;
,"Importe" ;
ID 4025 OF oDlgDet ;
LINES CELL NOBORDER UPDATE
oBrwDet:nMarqueeStyle = MARQSTYLE_HIGHLROW
oBrwDet:bClrSel := {|| { CLR_WHITE, GetSysColor(13 ) } }
oBrwDet:aCols[6]:bClrStd:={|| {CLR_HRED,CLR_WHITE} }
oBrwDet:aCols[9]:nDataStrAlign := AL_RIGHT
oBrwDet:lHScroll := .t.
oBrwDet:lVScroll := .t. //==> para que aparezca la barra scroll vertical
Gracias x su ayuda
