FiveTech Software tech support forums

but I tried and run only if I close oGrid and recreate it new each times

... cell B must go to cell A...is possible ? and How I can save all datas ? I have a array but I read a dbf... I saw also if I use this command oApp():oGrid:aCols[ nI ]:bToolTip := { | brw,r,c,f,oMouseCol,nMouseRow| MyColToolTip( brw,r,c,f,oMouseCol,nMouseRow ) } then the drag and drop not run !!

... 332 )   Called from: source\Ptabell.prg => (b)PTABELLONE( 187 )  I made : for nI = 2 to 61 oApp():oGrid:aCols[ nI ]:bToolTip := { | brw,r,c,f,oMouseCol,nMouseRow| MyColToolTip( brw,r,c,f,oMouseCol,nMouseRow ) } next ... function MyColToolTip( oBrw, ...

... allways string filter result or dialog of creation filter with easy commands oFilter:= TFilter():New(aCampos,aTitulos,aTipos, cDbf,oGrid,lNew,cSection)      oFilter:lShowString := .T.      cFilter :=  oFilter:LoadFilter()      IF ! Empty( cFilter)            ...

... on downlist folder Tfilter class FileManager and two samples It is easy to undestand it . oFilter:= TFilter():New(aCampos,aTitulos,aTipos, cDbf,oGrid,lNew,cSection) oFilter:Dialog() oFilter:Activate() cFilter := oFilter:SetFilter() IF ! Empty( cFilter) SET FILTER TO &cFilter (cDbf)->( ...

... have you idea to resize all : when I resize the window ( on the left) the splitter must move to left for the grid I found the solution IF oApp():oGrid != NIL oApp():oGrid:SetSize( aClient[1]-oApp():oGrid:nLeft, oApp():oDlg:nHeight - 60 ) oApp():oGrid:Refresh() endif I need it for the splitter ...

... space(5),space(5),space(5),; space(5),space(5),space(5),; space(10),space(5),space(5)} ) I must sum the 16 column with oApp():oGrid:aCols[16 ]:bfooter := the text is on Hour and minutes sample "00:56:00" 00 hour 56 minutes 00 seconds I make the sum with timefunction ...

yes of course, I tried also with valid ACTIVATE DIALOG oApp():oDlg NOWAIT ; ON PAINT (oApp():oSplit:AdjClient()); ON INIT(oApp():oGrid:SetFocus(),ResizeWndMain()) ; VALID ( oApp():oGrid:nLen := 0 ,; oBar:End(), DbCloseAll(), oApp():oDlg := NIL, oApp():oGrid := NIL, oApp():oTab := NIL, ...

... option there is an error MENUITEM "Show ToolBar"; WHEN { |o| o:SetCheck( ltoolBar ), .t. } ; ACTION ( ltoolBar :=!ltoolBar,; ChangeSize(oGrid,ltoolBar,oBar),oGrid:refresh(),; oMenuItem:SetCheck( ltoolBar )) this line is right: ChangeSize( oGrid,ltoolBar,oDlg ),oGrid:refresh(),;

http://img585.imageshack.us/img585/3561/testbar.jpg oBar:= TBar():New(oDlg) oBar:ntop := oGrid:nTop+8 oBar:nLeft:= oGrid:nLeft oBar:nwidth :=oGrid:nwidth oBar:nbottom:= nHeightBar oBar:l2010 :=.t. oBar:l3D :=.t. oBar:nMode :=1 Antonio, Good ...but how I can ...

Antonio,
Sorry....I saw now we can !!!

oBar:= TBar():New(oDlg)
oBar:ntop := oGrid:nTop+(nHeightBar-2)
oBar:nLeft:= oGrid:nLeft
oBar:nwidth :=oGrid:nwidth
oBar:nbottom:= nHeightBar


ok we have resolve this!!

... or toolbar can be create in the dialog or on the wnd and not on top of the object xbrowse So, I thinked to create this Function CreateToolBar( oGrid,oDlg,ltoolBar) Local oExit,oItem1 local nClrText := CLR_BLACK Local nHeightBar:=20 If ltoolBar oBar := TMyControl ():New( oGrid:nTop+(nHeightBar-2),oGrid:nLeft, ...

Hello Santo, I call a function ang give to this function only the object of xbrowse sample test1(ogrid) on this function I must create the array for fields, header and type I hope you understood In italian devo sapere quali sono i nomi dei campi delle colonne della tabella ...

If I have a xbrowse I must populate 3 array Local nLen := Len( oGrid:aCols ) Local aCampos [ nLen ] Local aTitulos[ nLen ] Local aTipos [ nLen ] FOR n = 1 TO nLen aCampos [ n ]:= alltrim( cValToChar( (oGrid:cAlias)->( Fieldname( oGrid:aCols[ n ]:nCreationOrder ...

... the function search a field on Conti.dbf , if found it show the data wehn I scroll the record I call a function on bChange of the xbrowse oApp():oGrid:bChange := { || (SituazioneConto(oRicerca)) } oRicerca is the name of variable OF the FOLDER the SituazioneConto(oRicerca) function Function SituazioneConto(oRicerca)  ...