USO DE Setup en xBrowse - CERRADO
Posted: Sun Sep 07, 2014 4:19 pm
Saludos, estoy intentando usar SETUP en mis xbrowse, ya que repito muchos parametros en su creacion, entiendo que con SETUP llamando una funcion donde haga mis definicion me ahorraira lineas repetias innecesarias, tambien entiendo que mi funcion deberia recibir mi objeto xbrowse y algunos otros parametros, pero no consigo si es asi como se le llama, el methodo SETUP en xbrowse, vi como un colega lo usa asi...
pero yo defino mi xbrowse asi...
...como y donde aplico el uso de SETUP.?, gracias, saludos...
- Code: Select all Expand view
- XBROWSER aPrueba tITLE "MI TITULO" COLUMNS { 1,2,3 } SETUP MiSetUp( oBrw, {'Col1','Col2',Col3'} )
pero yo defino mi xbrowse asi...
- Code: Select all Expand view
- oBrw := TXBrowse():New( oDlg )
WITH OBJECT oBrw
:nMarqueeStyle := MARQSTYLE_HIGHLCELL
:nColDividerStyle := LINESTYLE_BLACK
:lColDividerComplete := .t.
:nHeaderHeight := 20
:l2007 := .t.
:lFooter := .t.
:lRecordSelector := .t.
:lAllowColHiding := .f.
:lAllowColSwapping := .f.
:bClrStd := {|| IF( oBrw:nArrayAt % 2 == 0, {0, RGB(255,255,255)} ,;
{0, RGB(203,226,254)} ) }
// AL HACER CLICK EN LA CELDA QUEDA EDITABLE
:bLButtonUp := { |r,c,f,o| If( o:SelectedCol():lEditable, o:SelectedCol():Edit(), nil ) }
:lFastEdit := .t.
END WITH
oCol := oBrw:AddCol()
oCol:cHeader := "Denominación"
oCol:bStrData := {|| IIF( LEN( oBrw:aArrayData ) == 0, SPACE(5) ,;
oBrw:aArrayData[oBrw:nArrayAt, 1] ) }
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_CENTER
oCol:nWidth := 100
oCol:nArrayCol := 1
oBrw:CreateFromResource(100)
oBrw:SetArray( aBilletes, .t. )
...como y donde aplico el uso de SETUP.?, gracias, saludos...