FiveTech Software tech support forums

by **shri_fwh** » Sat Oct 13, 2018 5:15 am

Dear All ,

I am getting an ERROR when I run below Code in MDI Window but it works fine in the Dialog Window. Could you please let me know any problem in the Code ? Thanks in advance...!

Code: Select all Expand view RUN: function tGetDynRO() local v1 := v2 := v3 := 0 local oGet1 , oGet2, oGet3 LOCAL oDlg DEFINE DIALOG oDlg FROM 0, 0 TO 200 , 400 PIXEL // oDlg := create_uiwnd("Ledger" ) //DEFINE WINDOW oDlg MDICHILD OF oApp:oWnd FROM 0, 0 TO 200, 400 PIXEL @10,5 GET oGet1 VAR v1 SIZE 50 , 10 PIXEL OF oDlg oGet1:bValid := < || oDlg:Update() return .T. > @30,5 GET oGet2 VAR v2 SIZE 50 , 10 PIXEL OF oDlg @50,5 GET oGet3 VAR v3 WHEN ( v1 == 5 ) SIZE 50 , 10 PIXEL OF oDlg ACTIVATE WINDOW oDlg return nil ERROR :

Code: Select all Expand view RUN: Application =========== Path and name: C:\VIMDEV\VIMFA2\vimfa.exe (64 bits) Size: 7,413,391 bytes Compiler version: Harbour 3.2.0dev (r1603181642) FiveWin version: FWH 18.07 C compiler version: LLVM/Clang C 3.3.1 (35465.f352ad3.17344af) (64-bit) Windows version: 6.1, Build 7601 Service Pack 1 Time from start: 0 hours 0 mins 7 secs Error occurred at: 13/10/2018, 10:42:53 Error description: Error BASE/1003 Variable does not exist: V2 Stack Calls =========== Called from: C:\VIMDEV\VIMFA2\PRGS\fwTest.prg => (b)TGETDYNRO( 26 ) Called from: ../../../tget.prg => TCLIPGET:VARGET( 0 ) Called from: ../../../tget.prg => TCLIPGET:SETFOCUS( 0 ) Called from: .\source\classes\TGET.PRG => TGET:LOSTFOCUS( 0 ) Called from: .\source\classes\CONTROL.PRG => TGET:KILLFOCUS( 0 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 0 ) Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 0 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 0 ) Called from: => DIALOGBOXINDIRECT( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 0 ) Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 0 ) Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 0 ) Called from: C:\VIMDEV\VIMFA2\PRGS\fwTest.prg => (b)TGETDYNRO( 26 ) Called from: ../../../tget.prg => TCLIPGET:VARGET( 0 ) Called from: ../../../tget.prg => TCLIPGET:SETFOCUS( 0 ) Called from: .\source\classes\TGET.PRG => TGET:GOTFOCUS( 0 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 0 ) Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 0 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 0 ) Called from: => SETFOCUS( 0 ) Called from: .\source\classes\WINDOW.PRG => TMDICHILD:GONEXTCTRL( 0 ) Called from: .\source\classes\TGET.PRG => TGET:KEYCHAR( 0 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 0 ) Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 0 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 0 ) Called from: => WINRUN( 0 ) Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 0 ) Called from: C:\VIMDEV\VIMFA2\PRGS\v.prg => MAIN( 33 ) System ====== Hardware memory: 7907 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Windows total applications running: 7 1 , 2 , C:\Windows\WinSxS\amd64_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_fa39 3 , C:\Windows\system32\SHELL32.dll 4 , C:\Windows\system32\SHLWAPI.dll 5 DDE Server Window, C:\Windows\system32\OLE32.DLL 6 GDI+ Window, C:\Windows\WinSxS\amd64_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.18120_none_2b25b14c71eb 7 Task Switching, C:\VIMDEV\VIMFA2\vimfa.exe Variables in use ================ Procedure Type Value ========================== (b)TGETDYNRO Param 1: O Class: ERROR TCLIPGET:VARGET Local 1: U Local 2: U Local 3: U Local 4: U TCLIPGET:SETFOCUS Local 1: U Local 2: U Local 3: U Local 4: U TGET:LOSTFOCUS Local 1: U Local 2: S Local 3: O Class: TCLIPGET TGET:KILLFOCUS Param 1: N 3213994 TCONTROL:HANDLEEVENT Param 1: N 3213994 Local 1: U TGET:HANDLEEVENT Param 1: N 8 Param 2: N 3213994 Param 3: N 0 Local 1: U _FWH Param 1: N 8 Param 2: N 3213994 Param 3: N 0 Local 1: U Local 2: U DIALOGBOXINDIRECT Param 1: N 0 Param 2: N 8 Param 3: N 3213994 Param 4: N 0 Param 5: N 5 Local 1: O Class: TGET TDIALOG:ACTIVATE Param 1: N 4194304 Param 2: C "€ È€ â ° F i v e W i n f o r H a r b o u r P 4 u h S T A T I C E r r o r d e s c r i p t i o n : E r r o r B A S E / 1 0 0 3 V a r i a b l e d o e s n o t e x i s t : V 2 P H i S T A T I C & S t a c k L i s t ¡P ! Ü { j L I S T B O X P ™ ž k B U T T O N & R e t r y P ) ž l B U T T O N & Q u i t P ¯ / m B U T T O N S e e e r r o r . l o g f i l e " Param 3: N 1444510 Param 4: O Class: TDIALOG ERRORDIALOG Param 1: U Param 2: U Param 3: B {|| ... } Param 4: L .T. Param 5: U Param 6: L .T. Param 7: U Param 8: U Param 9: U Param 10: U Param 11: U Local 1: N 1444510 Local 2: S Local 3: O Class: TDIALOG (b)ERRORSYS Param 1: O Class: ERROR Local 1: O Class: TDIALOG Local 2: O Class: TLISTBOX Local 3: U Local 4: U Local 5: C " Called from: C:\VIMDEV\VIMFA2\PRGS\fwTest.prg => (b)TGETDYNRO( 26 )" Local 6: N 4 Local 7: C " Error description: Error BASE/1003 Variable does not exist: V2 " Local 8: A Len: 18 Local 9: O Class: TSAY Local 10: N -2012932765 Local 11: N 2 Local 12: C "Application =========== Path and name: C:\VIMDEV\VIMFA2\vimfa.exe (64 bits) Size: 7,413,391 bytes Compiler version: Harbour 3.2.0dev (r1603181642) FiveWin version: FWH 18.07 C compiler version: LLVM/Clang C 3.3.1 (35465.f352ad3.17344af) (64-bit) Windows version: 6.1, Build 7601 Service Pack 1 Time from start: 0 hours 0 mins 7 secs Error occurred at: 13/10/2018, 10:42:53 Error description: Error BASE/1003 Variable does not exist: V2 Stack Calls =========== Called from: C:\VIMDEV\VIMFA2\PRGS\fwTest.prg => (b)TGETDYNRO( 26 ) Called from: ../../../tget.prg => TCLIPGET:VARGET( 0 ) Called from: ../../../tget.prg => TCLIPGET:SETFOCUS( 0 ) Called from: .\source\classes\TGET.PRG => TGET:GOTFOCUS( 0 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 0 ) Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 0 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 0 ) Called from: => SETFOCUS( 0 ) Called from: .\source\classes\WINDOW.PRG => TMDICHILD:GONEXTCTRL( 0 ) Called from: .\source\classes\TGET.PRG => TGET:KEYCHAR( 0 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 0 ) Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 0 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 0 ) Called from: => WINRUN( 0 ) Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 0 ) Called from: C:\VIMDEV\VIMFA2\PRGS\v.prg => MAIN( 33 ) System ====== Hardware memory: 7907 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Windows total applications running: 6 1 , 2 , C:\Windows\system32\SHELL32.dll 3 , C:\Windows\system32\SHLWAPI.dll 4 DDE Server Window, C:\Windows\system32\OLE32.DLL 5 GDI+ Window, C:\Windows\WinSxS\amd64_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.18120_none_2b25b14c71eb 6 Task Switching, C:\VIMDEV\VIMFA2\vimfa.exe Variables in use ================ Procedure Type Value ========================== (b)TGETDYNRO Param 1: O Class: ERROR TCLIPGET:VARGET Local 1: U Local 2: U Local 3: U Local 4: U TCLIPGET:SETFOCUS Local 1: U Local 2: U Local 3: U Local 4: U TGET:GOTFOCUS Local 1: U Local 2: S Local 3: O Class: TCLIPGET TWINDOW:HANDLEEVENT Param 1: N 1575570 TCONTROL:HANDLEEVENT Param 1: N 7 Param 2: N 1575570 Param 3: N 0 TGET:HANDLEEVENT Param 1: N 7 Param 2: N 1575570 Param 3: N 0 Local 1: U _FWH Param 1: N 7 Param 2: N 1575570 Param 3: N 0 Local 1: U Local 2: U SETFOCUS Param 1: N 0 Param 2: N 7 Param 3: N 1575570 Param 4: N 0 Param 5: N 5 Local 1: O Class: TGET TMDICHILD:GONEXTCTRL Param 1: N 1313428 TGET:KEYCHAR Param 1: N 1575570 Local 1: N 1313428 TWINDOW:HANDLEEVENT Param 1: N 13 Param 2: N 18612225 Local 1: U Local 2: U Local 3: U Local 4: U Local 5: U TCONTROL:HANDLEEVENT Param 1: N 258 Param 2: N 13 Param 3: N 18612225 TGET:HANDLEEVENT Param 1: N 258 Param 2: N 13 Param 3: N 18612225 Local 1: U _FWH Param 1: N 258 Param 2: N 13 Param 3: N 18612225 Local 1: U Local 2: U WINRUN Param 1: N 18612225 Param 2: N 258 Param 3: N 13 Param 4: N 18612225 Param 5: N 4 Local 1: O Class: TGET TMDIFRAME:ACTIVATE Param 1: N 1444510 MAIN Param 1: C "MAXIMIZED" Param 2: U Param 3: U Param 4: U Param 5: U Param 6: B {|| ... } Param 7: U Param 8: U Param 9: U Param 10: U Param 11: U Param 12: U Param 13: U Param 14: U Param 15: U Param 16: U Param 17: B {|| ... } Param 18: U Param 19: U Param 20: L .F. Local 1: O Class: TMDIFRAME Local 2: U Local 3: U Linked RDDs =========== DBF DBFFPT DBFBLOB DBFCDX DBFNTX DataBases in use ================ Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TAPPLICATION 5 TWINDOW 6 TCONTROL 7 TGET 8 TFONT 9 FWMARIACONNECTION 10 TMDIFRAME 11 TMENU 12 TMENUITEM 13 TREG32 14 TBRUSH 15 TMDICLIENT 16 TBITMAP 17 TIMAGE 18 TRECT 19 TMDICHILD 20 GET 21 TCLIPGET Memory Analysis =============== 577 Static variables Dynamic memory consume: Actual Value: 1703936 bytes Highest Value: 1703936 bytes " Local 13: A Len: 5 Local 14: A Len: 6 Local 15: A Len: 5 Local 16: U Local 17: B {|| ... } Local 18: L .T. Local 19: N 41.25 Local 20: N 153.75 Local 21: U Local 22: N 158 Local 23: N 30 Local 24: N 11 Local 25: N 450 Local 26: N 350 Local 27: N 33 Local 28: N 220 Local 29: N 123 (b)TGETDYNRO Param 1: O Class: ERROR TCLIPGET:VARGET Local 1: U Local 2: U Local 3: U Local 4: U TCLIPGET:SETFOCUS Local 1: U Local 2: U Local 3: U Local 4: U TGET:GOTFOCUS Local 1: U Local 2: S Local 3: O Class: TCLIPGET TWINDOW:HANDLEEVENT Param 1: N 1575570 TCONTROL:HANDLEEVENT Param 1: N 7 Param 2: N 1575570 Param 3: N 0 TGET:HANDLEEVENT Param 1: N 7 Param 2: N 1575570 Param 3: N 0 Local 1: U _FWH Param 1: N 7 Param 2: N 1575570 Param 3: N 0 Local 1: U Local 2: U SETFOCUS Param 1: N 0 Param 2: N 7 Param 3: N 1575570 Param 4: N 0 Param 5: N 5 Local 1: O Class: TGET TMDICHILD:GONEXTCTRL Param 1: N 1313428 TGET:KEYCHAR Param 1: N 1575570 Local 1: N 1313428 TWINDOW:HANDLEEVENT Param 1: N 13 Param 2: N 18612225 Local 1: U Local 2: U Local 3: U Local 4: U Local 5: U TCONTROL:HANDLEEVENT Param 1: N 258 Param 2: N 13 Param 3: N 18612225 TGET:HANDLEEVENT Param 1: N 258 Param 2: N 13 Param 3: N 18612225 Local 1: U _FWH Param 1: N 258 Param 2: N 13 Param 3: N 18612225 Local 1: U Local 2: U WINRUN Param 1: N 18612225 Param 2: N 258 Param 3: N 13 Param 4: N 18612225 Param 5: N 4 Local 1: O Class: TGET TMDIFRAME:ACTIVATE Param 1: N 1444510 MAIN Param 1: C "MAXIMIZED" Param 2: U Param 3: U Param 4: U Param 5: U Param 6: B {|| ... } Param 7: U Param 8: U Param 9: U Param 10: U Param 11: U Param 12: U Param 13: U Param 14: U Param 15: U Param 16: U Param 17: B {|| ... } Param 18: U Param 19: U Param 20: L .F. Local 1: O Class: TMDIFRAME Local 2: U Local 3: U Linked RDDs =========== DBF DBFFPT DBFBLOB DBFCDX DBFNTX DataBases in use ================ Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TAPPLICATION 5 TWINDOW 6 TCONTROL 7 TGET 8 TFONT 9 FWMARIACONNECTION 10 TMDIFRAME 11 TMENU 12 TMENUITEM 13 TREG32 14 TBRUSH 15 TMDICLIENT 16 TBITMAP 17 TIMAGE 18 TRECT 19 TMDICHILD 20 GET 21 TCLIPGET 22 TDIALOG 23 TSAY 24 TLISTBOX 25 TBUTTON Memory Analysis =============== 577 Static variables Dynamic memory consume: Actual Value: 2031616 bytes Highest Value: 2031616 bytes

by **Antonio Linares** » Sat Oct 13, 2018 7:45 am

Shridhar,

A MDI child window behaves non modal, so after the ACTIVATE WINDOW ... the execution does not stop
so the code goes out of the scope of such function and the local variables are no longer accesible

Please use static variables, declared out of the function, or public ones

by **shri_fwh** » Sat Oct 13, 2018 8:03 am

Dear Sir ,

Thanks ...! But I have the same code which runs FINE in FWH 13.09 but NOT in 18.07. I have to re setup the OLD environment to build old code TO REPRODUCE the behavior Code.

Thanks
Shridhar

by **shri_fwh** » Sat Oct 13, 2018 10:24 am

Dear Sir ,

How we should to set dynamically enable/disable TGETs by using WHEN condition ?

Thanks
Shridhar

by **nageswaragunupudi** » Sat Oct 13, 2018 10:44 am

Shridhar

In your code, please change this

Code: Select all Expand view RUN: local v1 := v2 := v3 := 0 local oGet1 , oGet2, oGet3 LOCAL oDlg

AS

Code: Select all Expand view RUN: local v1,v2,v3 local oGet1 , oGet2, oGet3 LOCAL oDlg v1 := v2 := v3 := 0

It should work with this change.
Please confirm.

by **shri_fwh** » Sat Oct 13, 2018 10:54 am

Dear Rao Sir ,

Thanks ...! Now error is gone , But oGet3 should get enabled when oGet1 inputs gets value 5 for variable v1. This is NOT working.

Thanks
Shridhar

by **nageswaragunupudi** » Sat Oct 13, 2018 11:02 am

Thanks ...! Now error is gone

I advise you to use the flags "/w1 /es2" while compiling. Had you used these flags you would not have made this posting.

But oGet3 should get enabled when oGet1 inputs gets value 5 for variable v1. This is NOT working.

Unfortunately, this is due to a bug introduced in version 18.07.

I request you to make this correction to \fwh\source\control.prg and include this program in your linkscript to fix the bug.

Please locate this at line 946:

Code: Select all Expand view RUN: do while ::hContainerWnd:WinStyle( WS_CHILD ) .and. ::hContainerWnd:oWnd != nil

Please replace this line with

Code: Select all Expand view RUN: do while ::hContainerWnd:WinStyle( WS_CHILD ) .and. !::hContainerWnd:IsKindOf( "TMDICHILD" ) .and. ::hContainerWnd:oWnd != nil

by **shri_fwh** » Sat Oct 13, 2018 11:20 am

Dear Rao Sir ,

After changing code in the control.prg , Its working now as expected.

Many thanks to you.

Just one observation that the oGet3 get enable but without BORDER.

Thanks
shridhar

by **nageswaragunupudi** » Sat Oct 13, 2018 12:00 pm

Code: Select all Expand view RUN: Just one observation that the oGet3 get enable but without BORDER.

You need to link manifest with your application.

Link \fwh\samples\winxp\xplook.rc

by **shri_fwh** » Sun Oct 14, 2018 8:47 am

Dear Sir ,

Have tried to compile with xplook.rc and it is created .EXE but when the .EXE runs it gives the below error. I need to educate myself in *.RC compilation.

Please guide me on this...!

Code: Select all Expand view RUN: The application was unable to start correctly (0x000007b). Click OK to close the application

Thanks
Shridhar

by **Antonio Linares** » Mon Oct 15, 2018 7:42 am

Shridhar,

Usually you get this error when you are using a wrong manifest file.
If you are building a 64 bits app then you must use a manifest file for a 64 bits app.

Please review FWH\samples\winxp folder where you find 32 and 64 manifest files.

FiveTech Software tech support forums

ERROR in GET Control when use MDI Window

ERROR in GET Control when use MDI Window

Re: ERROR in GET Control when use MDI Window

Re: ERROR in GET Control when use MDI Window

Re: ERROR in GET Control when use MDI Window

Re: ERROR in GET Control when use MDI Window

Re: ERROR in GET Control when use MDI Window

Re: ERROR in GET Control when use MDI Window

Re: ERROR in GET Control when use MDI Window

Re: ERROR in GET Control when use MDI Window

Re: ERROR in GET Control when use MDI Window

Re: ERROR in GET Control when use MDI Window

Who is online