FiveTech Software tech support forums

... = 15512898 // :bClrStd := { || Colores(oDVds) } // :bClrSelFocus = { || { 0, DARKCYAN } } // :bClrSel ={ || { 0, DARKCYAN } } :bChange :={ || (RefreshCont(oCont,oDVds)) } END oApp():oGrid:CreateFromCode()

... , oApp():oTab:nOption:=3,oApp():oTab:refresh()) } WITH OBJECT oApp():oGrid :bChange := { || (nRecSel := oApp():oGrid:BookMark,RefreshCont(oApp:oCont,oDHard)) } :nRowDividerStyle := LINESTYLE_NOLINES :nColDividerStyle := LINESTYLE_NOLINES :nMarqueeStyle := MARQSTYLE_HIGHLROW ...

... { (oDHardware)->marca, (oDHardware)->modello , nrecord } endif (oDHardware)->(DBSKIP()) enddo ENDTREE ENDTREE return oTree STAT FUNCTION RefreshCont(oCont,cdbf) oApp():oCont:cTitle:=((oDHardware)->Type ):Cargo[3] oApp():oCont:refresh() return NIL it make error Application =========== ...

... CAN SEE HERE http://img402.imageshack.us/img402/4187/treeok.jpg AND FOR THE SECOND QUESTION ? i USE oApp():oGrid:bChange :={ || (RefreshCont(oApp:oCont,oDHardware),) } STAT FUNCTION RefreshCont(oCont,cdbf) oApp():oCont:cTitle:="Hardware "+tran((cdbf)->(OrdKeyNo()),'@E ...

... using trees on the xbrowse. He is the expert on that issue...." AND THERE IS ANOTHER QUESTION NOW WHEN i MAKE oApp():oGrid:bChange :={ || (RefreshCont(oApp:oCont,oDHardware),) } STAT FUNCTION RefreshCont(oCont,cdbf) oApp():oCont:cTitle:="Hardware "+tran((cdbf)->(OrdKeyNo()),'@E ...

... := aBrowse[ i, 4 ] oCol:nHeadStrAlign := aBrowse[ i, 4 ] NEXT oApp():oGrid:SetRDD() oApp():oGrid:CreateFromCode() oApp():oGrid:bChange := { || RefreshCont(oCont,"CU") } oApp():oGrid:nRowHeight := 21 oApp():oGrid:RestoreState( cState ) CU->(DbSetOrder(nOrder)) CU->(DbGoTo(nRecno)) ...

Silvio,

>
oCont:= oOutLook2003:aGroups[ nPage ]:cPrompt

oGrid:bChange := { || RefreshCont( oCont,"CUst") }
>

oCont is a string! You should do:

oCont:= oOutLook2003:aGroups[ nPage ]

... (aCtrl[nPage]) ="O" aCtrl[nPage]:Show() ELSE oGrid := TXBrowse():New( oWnd ) oCont:= oOutLook2003:aGroups[ nPage ]:cPrompt oGrid:bChange := { || RefreshCont( oCont,"CUst") } where is the error ?

How I can to modify the title header of outlook2003 of each agroup ? when I change record of xbrowse I want call this FUNCTION RefreshCont(oCont,cdbf) oCont:cTitle:="Cust "+tran((cdbf)->(OrdKeyNo()),'@E 999,999')+" / "+tran((cdbf)->(OrdKeyCount()),'@E 999,999') oCont:refresh() return ...

... ( nOrder := oApp():oTab:nOption ,; if( norder=1, oRs:Sort := 'ID' ,oRs:Sort := 'COGNOME' ),; oRs:MoveFirst() ,; oApp():oGrid:Refresh(.t.) ,; RefreshCont(oCont,oRs) )

... ACTION ( nOrder := oApp():oTab:nOption ,; if( norder=1, oRs:Sort( "ID" ),oRs:Sort( "Cognome" )),; oRs:MoveFirst() ,; oApp():oGrid:Refresh(.t.) ,; RefreshCont(oCont,oRs) ) but it not run !!

... ', ' Last ' ; ACTION ( nOrder := oApp():oTab:nOption ,; oRs:Sort := oRs:Fields(nOrder-1):Name ,; oRs:MoveFirst() ,; oApp():oGrid:Refresh(.t.) ,; RefreshCont(oCont,oRs) ) Application =========== Path and name: C:\work\prg\Mwopen_W\source\FSDI2006.Exe (32 bits) Size: 1,789,952 bytes Time from start: ...

... ; ITEMS ' First ', ' Last ' ; ACTION ( nOrder := oApp():oTab:nOption ,; oRs:Sort := (nOrder),; oRs:MoveFirst() ,; oApp():oGrid:Refresh(.t.) ,; RefreshCont(oCont,oRs) )

... ' First ', ' Last ' ACTION ( nOrder := oApp():oTab:nOption ,; CU->(DbSetOrder(nOrder)),; CU->(DbGoTop()) ,; oApp():oGrid:Refresh(.t.) ,; RefreshCont(oCont, "CU") ) IMAGES "image1.bmp","image2.bmp" HOW i CAN MAKE IT?

oBrw:bChange := { || if (lChange=.t.,( lChange=.f., RefreshCont("QUOTE",cSocio,@lChange),oBrw:GoTop(),oBrw:refresh() ), ) }



static FUNCTION RefreshCont(cdbf,cSocio,lChange)
cKey:=cSocio

(cdbf)->(OrdScope(0,cKey))

(cdbf)->(OrdScope(1,cKey))
sysrefresh()
lChange:=.f.
return NIL