ERROR in GET Control when use MDI Window

[shri_fwh]

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

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

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


 

[Antonio Linares]

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

[shri_fwh]

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

[shri_fwh]

Dear Sir ,

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

Thanks
Shridhar

[nageswaragunupudi]

Shridhar

In your code, please change this

Code: Select all  Expand view

 local v1 := v2 := v3 := 0
  local oGet1 , oGet2, oGet3
  LOCAL oDlg
 

AS

Code: Select all  Expand view

 local v1,v2,v3
  local oGet1 , oGet2, oGet3
  LOCAL oDlg

  v1 := v2 := v3 := 0
 

It should work with this change.
Please confirm.

[shri_fwh]

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

[nageswaragunupudi]

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

      do while ::hContainerWnd:WinStyle( WS_CHILD ) .and. ::hContainerWnd:oWnd != nil
 

Please replace this line with

Code: Select all  Expand view

      do while ::hContainerWnd:WinStyle( WS_CHILD ) .and. !::hContainerWnd:IsKindOf( "TMDICHILD" ) .and. ::hContainerWnd:oWnd != nil
 

[shri_fwh]

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

[nageswaragunupudi]

Code: Select all  Expand view

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

[shri_fwh]

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

   The application was unable to start correctly (0x000007b). Click OK to close the application

 

Thanks
Shridhar

[Antonio Linares]

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.