FiveTech Software tech support forums

... 7 // MARQSTYLE_HIGHLWIN7 // for Windows 7 style
:nFreeze :=3
:SetRDD()
:nRecSelColor = 15512898
// :bClrStd := { || Colores(oDVds) }
// :bClrSelFocus = { || { 0, DARKCYAN } }
// :bClrSel ={ || { 0, DARKCYAN } }
:bChange :={ || (RefreshCont(oCont,oDVds)) }
END


oApp():oGrid:CreateFromCode()

... Index(3,oDHard) , 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 ...

... 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 999999 ...

... 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 999999')+" di ...

... 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))

oBar ...

Silvio,

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

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

oCont is a string! You should do:

oCont:= oOutLook2003:aGroups[ nPage ]

... Len(oOutLook:aGroups ) *166 )

DO CASE

....

CASE nPage = 3

IF Valtype (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 NIL ...

... 2 TABS oApp():oTab ;
OPTION nOrder SIZE oApp():oWndMain:nWidth()-50, 12 PIXEL OF oApp():oDlg ;
ITEMS ' First ', ' Last ' ;
ACTION ( nOrder := oApp():oTab:nOption ,;
if( norder=1, oRs:Sort := 'ID' ,oRs:Sort := 'COGNOME' ),;
oRs:MoveFirst() ,;
oApp():oGrid:Refresh(.t.) ,;
RefreshCont(oCont,oRs) )

... OPTION nOrder SIZE oApp():oWndMain:nWidth()-50, 12 PIXEL OF oApp():oDlg ;
ITEMS ' First ', ' Last ' ;
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 ...

... oApp():oDlg:nGridBottom, nSplit+2 TABS oApp():oTab ;
OPTION nOrder SIZE oApp():oWndMain:nWidth()-50, 12 PIXEL OF oApp():oDlg ;
ITEMS ' First ', ' Last ' ;
ACTION ( nOrder := oApp():oTab:nOption ,;
oRs:Sort := (nOrder),;
oRs:MoveFirst() ,;
oApp():oGrid:Refresh(.t.) ,;
RefreshCont(oCont,oRs) )

... nOrder SIZE oApp():oWndMain:nWidth()-50, 12 PIXEL OF oApp():oDlg ;
ITEMS ' 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