Problema IMPORTANTE con Menu Look 2007 en FWH 10.11

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Problema IMPORTANTE con Menu Look 2007 en FWH 10.11
Posted: Fri Feb 18, 2011 09:52 AM

Buenas, compilando con FWH10.11, Harbour y BCC582 he encontrado un problema en entornos MDI y menú look 2007.
Basándome en el ejemplo TESTMDI.PRG

Code (fw): Select all Collapse

// Working with MDI enviroments

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   local oWndEdit, oBar, oIcon, oImage
   local cName := "FiveWin power"

   DEFINE ICON oIcon RESOURCE "test" 

   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "I am the MDI Frame" ;
      MDI ;
      MENU BuildMenu() ; // COLOR "GR+*/RB" 
      ICON oIcon

   SET MESSAGE OF oWnd TO "Main Window"

   DEFINE WINDOW oWndEdit MDICHILD OF oWnd FROM 2, 2 TO 20, 50 ;
      TITLE "I am a MDI Child" COLOR "W+/R"

   @ 4, 2 GET cName OF oWndEdit SIZE 170, 25 COLOR "BG+/B"

   DEFINE BUTTONBAR oBar _3D OF oWndEdit

   DEFINE BUTTON OF oBar

   SET MESSAGE OF oWndEdit TO "Child Window"

   ACTIVATE WINDOW oWndEdit

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      VALID MsgYesNo( "Want to End ?" )

return nil

//----------------------------------------------------------------------------//

function BuildMenu()

   local oMenu

   MENU oMenu 2007
      MENUITEM "&Information"
      MENU
         MENUITEM "&About..." ACTION MsgAbout( "FiveWin", "FiveTech" )
         SEPARATOR
         MENUITEM "&End..." ACTION oWnd:End()
      ENDMENU

      MENUITEM "&Child Windows"
      MENU
         MENUITEM "&Tiled" ACTION oWnd:Tile()
         MENUITEM "&Cascade" ACTION oWnd:Cascade()
      ENDMENU
   ENDMENU

return oMenu

//----------------------------------------------------------------------------//

Donde lo único que he cambiado ha sido poner la clásula 2007 en la creación del menú.
Aparentemente todo funciona bien pero al maximizar la ventana MDI, si se accede al menú (bien con el ratón o con el teclado), el programa genera un GPF. Esto no ocurre si no se pone la cláusula 2007.

Pego aquí parte del GPF

Code (fw): Select all Collapse

Application Internal Error - C:\si\nlen\fwh\samples\TESTMDI.exe
Terminated at: 2011.02.18 10:50:00
Unrecoverable error 6005: Exception error: 

    Exception Code:C0000005
    Exception Address:00483322
    EAX:00007261  EBX:0012EC7C  ECX:00000000  EDX:003EF324
    ESI:0055D0F8  EDI:005253A4  EBP:0012EC70
    CS:EIP:00483322  SS:ESP:0023:0012EC68
    DS:0023  ES:0023  FS:003B  GS:0000
    Flags:00010206
    CS:EIP: F7 00 05 B4 00 00 74 07 50 E8 24 66 FE FF 59 8B
    SS:ESP: 00000000 0055D0F8 0012EC90 00461E19 0012EC7C 0000002F 00000000 003F4D9C 00000000 00000000 0012ED9C 0045BFCA 00000001 00000000 0000002B 004E4C94

    C stack:
    EIP:     EBP:       Frame: OldEBP, RetAddr, Params...
    00483322 0012EC70   0012EC90 00461E19 0012EC7C 0000002F 00000000 003F4D9C 00000000 00000000
    00461E19 0012EC90   0012ED9C 0045BFCA 00000001 00000000 0000002B 004E4C94 0055D334 00010003 0012ECC0 0047F257
    0045BFCA 0012ED9C   0012EDAC 00405C30 00525218 0051F8E8
    00405C30 0012EDAC   0012EDCC 00461E9C 0012F0E4 0000002A 00000000 003F4D9C 00ED0008 00000488
    00461E9C 0012EDCC   0012EDD8 004622BD 003E0002
    004622BD 0012EDD8   0012EE00 00409BCB 00000002 00529314 00000000 00521A88 0003D0F8 0012EE20 00461F6A 003EFAC4
    00409BCB 0012EE00   0012EE20 00461FA9 0055D0F8 00000022 00000000 003F4D9C 00F90008 00000000
    00461FA9 0012EE20   0012EF2C 0045C084 00000003 00000000 0012F0E4 00521A78 0012EE58 0041710F 0071020E 006801D6
    0045C084 0012EF2C   0012EF3C 00406380 005292DB 0051F8E8
    00406380 0012EF3C   0012EF5C 00461F09 0000002B 0000001F 00000000 003F13BC 00000000 00000D42
    00461F09 0012EF5C   0012EF74 0040B155 00000005 0012F00C 0040BEB0 0071020E
    0040B155 0012EF74   0012EF94 0040BED0 0071020E 0000002B 00000000 0012F0E4 00000001 00000000
    0040BED0 0012EF94   0012EFC0 77F4C3E7 0071020E 0000002B 00000000 0012F0E4 0040BEB0 DCBAABCD 00000000 0012F00C
    77F4C3E7 0012EFC0   0012F038 77F4C4B4 0040BEB0 0071020E 0000002B 00000000 0012F0E4 00000000 0071020E 006415E8
    77F4C4B4 0012F038   0012F094 77F4CA98 00000000 0040BEB0 0071020E 0000002B 00000000 0012F0E4 007A2614 00000001
    77F4CA98 0012F094   0012F0C0 77F610A2 007A2600 0000002B 00000000 0012F0E4 0040BEB0 007A2600 00000000 00000000
    77F610A2 0012F0C0   0012F16C 7C82ECAE 0012F0D8 00000044 0012F2A8 7C82EC60 007A2600 0000002B 00000000 00000001
    7C82ECAE 0012F16C   0012F1D4 77F5008A 0071020E 00000085 1D040A94 00000000 00000001 004170F0 0071020E 0012F28C
    77F5008A 0012F1D4   0012F1F4 77F6B1BB 0071020E 006801D6 00000085 1D040A94 00000000 00000001
    77F6B1BB 0012F1F4   0012F214 0041710F 0071020E 006801D6 00000085 1D040A94 00000000 00000000

¿A alguien más le pasa?

Angel Salom
FWH 10.11 - BCC582 - Harbour

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: Problema IMPORTANTE con Menu Look 2007 en FWH 10.11
Posted: Fri Feb 18, 2011 10:04 AM

Comentar que lo estoy probando en sistema operativo Windows 2003 Server.

Angel Salom

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: Problema IMPORTANTE con Menu Look 2007 en FWH 10.11
Posted: Fri Feb 18, 2011 11:01 AM

En Windows 7 no me ocurre, solución momentánea :

Code (fw): Select all Collapse

If Substr (cWinVersion(),1,6)<>"Server"
    oMnuMdi:=MenuBegin(.F.,.F.,,.T.)  // Look 2007
  Else
    oMnuMdi:=MenuBegin(.F.,.F.,,.F.) 
  Endif

Angel Salom

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

FiveTech Support Forums

Continue the discussion