Como coloco Scroll Vertical a la Izquierda en un Tree
http://imageshack.us/photo/my-images/18/dibujoxtl.jpg
" alt="" loading="lazy">
Local nRow, nCol, nKeyFlags
nRow := nCol := nKeyFlags := 0
::iaContl := {0,0," "," ",0,0,1,385,35,::l2007,0,0,0,0,0,memvar->x_tmotor,0,4,0,memvar->x_tfado,::oWdlcx}
::oImageList = TImageList():New()
::oImageList:AddMasked( TBitmap():Define( "REG_SALIR",, ::oWdlcx ), nRGB( 192, 192, 192 ) )
::oImageList:AddMasked( TBitmap():Define( "OK",, ::oWdlcx ), nRGB( 192, 192, 192 ) )
::oImageList:AddMasked( TBitmap():Define( "REG_PRINTER",, ::oWdlcx ), nRGB( 192, 192, 192 ) )
::oImageList:AddMasked( TBitmap():Define( "PRINTER",, ::oWdlcx ), nRGB( 192, 192, 192 ) )
::oImageList:AddMasked( TBitmap():Define( "RPV",, ::oWdlcx ), nRGB( 192, 192, 192 ) )
::oImageList:AddMasked( TBitmap():Define( "EXCEL",, ::oWdlcx ), nRGB( 192, 192, 192 ) )
::oImageList:AddMasked( TBitmap():Define( "REG_BROW",, ::oWdlcx ), nRGB( 192, 192, 192 ) )
::oImageList:AddMasked( TBitmap():Define( "REG_CANC",, ::oWdlcx ), nRGB( 192, 192, 192 ) )
::oImageList:AddMasked( TBitmap():Define( "BOLVERD",, ::oWdlcx ), nRGB( 192, 192, 192 ) )
::oImageList:AddMasked( TBitmap():Define( "BOLAMAR",, ::oWdlcx ), nRGB( 192, 192, 192 ) )
::oImageList:AddMasked( TBitmap():Define( "EXPAN_PEQ",, ::oWdlcx ), nRGB( 192, 192, 192 ) )
::oImageList:AddMasked( TBitmap():Define( "CONT_PEQ",, ::oWdlcx ), nRGB( 192, 192, 192 ) )
::oTree = TTreeView():New( 2.5, 1, ::oWdlcx,,,,,380,538,,.t.)
::AddItems()
IF x_brodesv;barbwodegra(::oTree,1);endif
::oTree:oFont := ::oBold // ::lTransparent = .T.
::oTree:bLDblClick := { | nRow, nCol, nKeyFlags | ::MyClick( nRow, nCol, ::oTree, ::oWdlcx,::itabla ,::iaContl ) }
::oTree:cToolTip := OemToAnsi( "Doble Click Para Ejecutar " )
::oWdlcx:Refresh()" alt="" loading="lazy">