FiveTech Software tech support forums

... Contextual_Menu( Self,oBrw,oDbf,cIniUser,cSection,oDlg,aBtnBrow[4] ) ) Function Contextual_Menu( oBtn,oBrw,oDbf,cIniUser,cSection,oParent,oCont,lExport,lColConfig ) .... MENU oMenu POPUP .. ENDMENU return oMenu

Nages, I have one popup on this codeblock oBrw:bRClicked := {|nRow,nCol| Disp_Menu_Comuni(oParent,nRow,nCol,oDbf,oBrw,cSection,oCont) .....} Function Disp_Menu_Comuni(oParent,nRow,nCol,oDbf,oBrw,cSection,oCont) .... ENDMENU ACTIVATE POPUP oMenu OF oParent AT oBrw:nTop+nRow, oBrw:nLeft+nCol ...

... I can make this DEFINE VMENUITEM OF oBar ; CAPTION "Elenco movimenti" ; IMAGE "GRID_IMPRIMIR2" ; MENU Stampa_Mov(oApp():oGrid,oCont,oBar); LEFT 10 where Stampa_Mov is a normal function with menupopup type Function Stampa_Mov(oGrid,oCont,oBar) Local oMenuStampa MENU oMenuStampa ...

HOla amigos Utilizo ODBC para acceder a una db en SLQLITE cargo los datos de esta manera oRs1 := FW_OpenRecordSet( oConT, "SELECT * FROM datos" ) luego uso un xbrowse... al recargar los datos hago un oRs1:Refresh() y sale este error Error description: (DOS Error -2147352570) ...

I have oApp():oGrid:bKeyDown := {|nKey| PrTecla(nKey,oApp():oGrid,oCont,oApp():oDlg) } function PrTecla(nKey,oGrid,oCont,oDlg)Do case   case nKey==VK_RETURN      PrEdita(oGrid,2,oCont,oDlg)   case nKey==VK_INSERT  ...

oApp():oGrid:bKeyDown := {|nKey| Stephan_Tecla(nKey,oApp():oGrid,oCont,oApp():oDlg ) } function Stephan_Tecla(nKey,oGrid,oCont,oDlg) Do case case nKey==VK_RETURN Function for edit record case nKey==VK_INSERT function for add record case nKey==VK_DELETE function ...

... code of josè, if you not have it you can use texplorerbar class it 's easy oBar:= tPanel(...) activate dialog NOWAIT On INIT BuildEplorer(oBar,oCont) ... Function BuildEplorer(oBar,oCont) oBar : texplorer(...) oCont:= oBar:AddPanel(...) return nil I hope you understood me

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

... BuildPanel(nMod) oApp():oTaskPanel := TExplorerBar():New( 0, 0,oApp():oPanelLeft:nwidth-5, oApp():oPanelLeft:nbottom, oApp():oPanelLeft ) oApp():oCont = oApp():oTaskPanel:AddPanel( "Customer", "c:\work\fwh\bitmaps\32x32\people.bmp",1 ) oApp():oCont:lSpecial = .T. oApp():oCont2 ...

... + oApp():oTab:nHeight PIXEL ; OF oApp():oDlg ; _3DLOOK ; UPDATE ACTIVATE DIALOG oApp():oDlg NOWAIT ; ON INIT BarExplorer(oApp():oExBar,oApp():oCont,"CU") ; ON PAINT ( oApp():oSplit:AdjClient()) How I can resolve this graphic error ?

... , 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 :nStretchCol = STRETCHCOL_LAST ...

... (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 =========== Path and ...

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

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

... 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 := ...