FiveTech Software tech support forums

... ), 9 )        SETFOREGROUNDWINDOW( FINDWND( NOME_PROGRAMMA_TITLE ) )        RETURN NIL     ENDIF   WITH OBJECT oApp := TApplication():New()      :Activate()   END the function FUNCTION FINDWND( cTitle )    LOCAL hWnd := GETWINDOW( ...

... ) Called from: => WINRUN( 0 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1078 ) Called from: .\prg\btc\MAIN.PRG => TAPPLICATION:ACTIVATE( 258 ) Called from: .\prg\btc\MAIN.PRG => MAIN( 42 ) System ====== CPU type: Intel(R) Core(TM) i7-4770K CPU @ 3.50GHz 3500 ...

the problem is not refresh the get but assign the new values on dDataIniApp and dDataFinApp are two data of Tapplication()

I change something ....
now ddatainiziale and ddatafinale are a data of class Tapplication where is the ribbonbar and as you can see seem run ok

... "dd-mm-yyyy" SET DELETED ON SET CENTURY ON SET EPOCH TO year( date() ) - 20 SET MULTIPLE OFF SetBalloon( .T. ) WITH OBJECT oApp := TApplication():New() :Activate() END RETURN nil when I make the index it make error because it go to found DBT file and not FPT why ? Application===========  ...

On my application on Main.prg I use a Object class Tapplication (oApp) and set the DATA oFont with ::oFont := TFont():New( GetDefaultFontName2(), 0, GetDefaultFontHeight2(),, ) on all prgs I use the expression oApp():oFont to call this font then when ...

... => RINFRESCA_TAB( 845 ) Called from: source\PRaccoglito2.prg => RACCOGLITORI( 70 ) Called from: source\Main.prg => (b)TAPPLICATION:BUILDBTNBAR( 655 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 650 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( ...

... Called from TBTNBMP:SETCOLOR(1466) in Source\btnbmp.prg Called from TBTNBMP:NEWBAR(361) in Source\btnbmp.prg Called from TAPPLICATION:BUILDBTNBAR(266) in Source\main.prg Called from TAPPLICATION:ACTIVATE(189) in Source\main.prg Called from MAIN(41) in Source\main.prg I ...

... Called from TBTNBMP:SETCOLOR(1466) in Source\btnbmp.prg Called from TBTNBMP:NEWBAR(361) in Source\btnbmp.prg Called from TAPPLICATION:BUILDBTNBAR(265) in Source\main.prg Called from TAPPLICATION:ACTIVATE(189) in Source\main.prg Called from MAIN(41) in Source\main.prg ------------------------------------------------------------------------ ...

... 3345 ) Called from: => WINRUN( 0 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1050 ) Called from: source\Main.prg => TAPPLICATION:ACTIVATE( 394 ) Called from: source\Main.prg => MAIN( 55 ) I found an error on new addserie method Time from start: 0 hours 0 mins 9 ...

... Wnen activate the ownd/dialog call ::GetWinCoors to load position and move the oWnd/odlg in old position sample : WITH OBJECT oApp := TApplication():New() :Activate() END METHOD New() CLASS tApplication DEFINE WINDOW ::oWndMain .... RETURN Self METHOD Activate() class TApplication ...

fwstring sometimes not run ok I need to insert astrings.prg into a Tapplication class when It process the method buildMenu not show the words of lang but fwstring is not processed sample : FUNCTION Main()   PUBLIC oApp   RddSetDefault( "DBFCDX" ...

Dear Antonio, I try to converte fwstrings functions into methods of a Tapplication METHOD LanguageID() METHOD LoadPreferences() METHOD SavePreferences() METHOD FWSetLanguage( nNewLanguage ) METHOD FWAddLanguage( aLang, nLang ) METHOD FWString( cString ) METHOD ...

... called by TXBROWSE:HANDLEEVENT(11628) called by _FWH(3160) called by WINRUN(0) called by TWINDOW:ACTIVATE(989) called by TAPPLICATION:ACTIVATE(259) called by MAIN(76) CPU type: Intel(R) Core(TM)2 Duo CPU E7500 @ 2.93GHz 2933 Mhz Hardware memory: 3071 MB ( available: 1091 ...

... de las funcones. En tu caso podría ser algo así: static oApp //<--------------------------------- Aqui la defino FUNCTION origen() ... oApp := TApplication() // <---------------------------- Aquí la inicializo ... return Con eso sería visible para todo tu prg :D