DCSTATIC SCROLLBARS

[digitsoft]

#command @ <nRow>,<nCol> DCSTATIC SCROLLBARS <oObject> ;
DRAWINGAREA <oDrawingArea> ;
SIZE <nWidth>,<nHeight> ;
[COLOR <cFgc>,<cBgc>] ;
PARENT <oParentObj> ;
=> DC_StaticScroolBars(GetList, <nRow>, <nCol>, <oObject>, <oDrawingArea>, <nWidth>, <nHeight>, [<cFgc>], [<cBgc>], <oParentObj> )




@ 0.8,0.5 DCSTATIC SCROLLBARS @oStatic1 ;
DRAWINGAREA @oStatic2 ;
SIZE 54.5,14.9 ;
COLOR GRA_CLR_BLACK, GRA_CLR_BACKGROUND ;
PARENT @oMyGroup2


DCREAD GUI FIT TITLE "Grupos de Usuarios" APPWINDOW oDialog PARENT @oDlg ;
EVAL {|o| SetAppWindow(o), oStatic1:setFrameState( XBPDLG_FRAMESTAT_MAXIMIZED ) }




FUNCTION DC_StaticScroolBars(GetList, nRow, nCol, oObject, oDrawingArea, nWidth, nHeight, cFgc, cBgc, oParentObj )
local oStatic, oStatic2, oDlg
@ nRow+0.0,nCol+0.0 DCSTATIC TYPE XBPSTATIC_TYPE_RECESSEDBOX SIZE nWidth, nHeight OBJECT oStatic PARENT oParentObj COLOR cFgc, cBgc
@ nRow+0.1,nCol+0.1 DCDIALOG oObject DRAWINGAREA oDrawingArea SIZE nWidth-0.1, nHeight-0.1 ;
NOTITLEBAR BORDER XBPDLG_NO_BORDER ;
COLOR cFgc, cBgc ;
SCROLLBARS XBP_SCROLLBAR_VERT ;
INVISIBLE ;
PARENT oStatic
return oObject

Nolberto Paulino