Error fwh1608 - thema Classic (Solucionado)

[MGA]

Sr. Antonio,

ocorre um ERRO quando:

1 utilizando TEMA CLASSICO WINDOWS(estou usando WINDOWS 7)
2 abrir uma WINDOW CHILD
3 MENU -> abrir uma DIALOG.

estou simulando o problema com o seguinte PRG:


#include "FiveWin.ch"

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

function Main()

local oWnd

DEFINE WINDOW oWnd MDI FROM 3, 6 TO 20, 70 ;
TITLE "Welcome to FiveWin" COLOR "W/BG" MENU BuildMenu()

DEFINE BUTTONBAR OF oWnd _3D SIZE 33, 33

DEFINE BUTTON PROMPT "CHILD" OF oWnd:oBar ACTION NewChild()


ACTIVATE WINDOW oWnd MAXIMIZED


return nil


function BuildMenu()

local oMenu

MENU oMenu
MENUITEM "TEST"
MENU
MENUITEM "TEST ERROR" ACTION( NewDialog())
ENDMENU
ENDMENU
ENDMENU

return oMenu

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

function NewChild()

local oWndChild, oLbx, oFont, oDbf

USE Customer NEW

DATABASE oDbf

DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -8

DEFINE WINDOW oWndChild TITLE Time() MDICHILD

DEFINE BUTTONBAR OF oWndChild _3D

@ 2, 0 LISTBOX oLbx FIELDS ;
ON RIGHT CLICK MsgInfo( oLbx:cAlias ) ;
FONT oFont ;
SIZE 400, 200

oWndChild:SetControl( oLbx )

@ 20, 0 TABS oWndChild:oBottom PROMPT "One", "Two" ;
OF oWndChild

ACTIVATE WINDOW oWndChild MAXIMIZED ;
ON RIGHT CLICK MsgInfo( oWndChild:GetText() )

oWndChild:ReSize()

return nil

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

function NewDialog()

local oDlg, oLbx, oBtn
local oSbr, lChk := .t.

DEFINE DIALOG oDlg TITLE "Hello world of FiveWin 32 bits!" ;
FROM 5, 5 TO 20, 50

@ 1, 1 SAY "Hello"

@ 2, 2 CHECKBOX lChk PROMPT "&CAntonio" SIZE 100, 20


@ 6, 2 BUTTON oBtn PROMPT "&Ok" ACTION NewDialog()


oDlg:bRClicked = { || MsgInfo( "Right Click" ) }

ACTIVATE DIALOG oDlg CENTERED

return nil


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

procedure AppSys

return

[joseluisysturiz]

...y donde o cual es el error .? para que tratemos de ayudarte, saludos...

[MGA]

José,

Ocorre erro de EXCEÇÃO DO WINDOWS, veja:

[karinha]

Normal, está usando o BCC7 ?

[MGA]

Karinha,

conforme o post, o erro acontece utilizando:

1 TEMA CLASSICO WINDOWS(estou usando windows7)
2 ABRIR UMA WINDOWS CHILD
3 PELO MENU abrindo uma opção com DIALOG.

O erro acontece antes mesmo de abrir a dialog, parece ser algo com MENU.

att.

[karinha]

Veja se eu estou no tema correto, se não, mostre qual é o tema que você está usando. Neste da imagem, normal!

[karinha]

Entendi, congelou mesmo.

[MGA]

Isso mesmo meu amigo.

obrigado por ter simulado!

[karinha]

Se eu usasse assim, eu faria assim:

Code: Select all | Expand

#include "FiveWin.ch"

STATIC oWnd, oWndChild

function Main()

   // local oWnd

   DEFINE WINDOW oWnd MDI FROM 3, 6 TO 20, 70 ;
          TITLE "Welcome to FiveWin" COLOR "W/BG" MENU BuildMenu()

   DEFINE BUTTONBAR OF oWnd _3D SIZE 33, 33

   DEFINE BUTTON PROMPT "CHILD" OF oWnd:oBar ACTION NewChild()


   ACTIVATE WINDOW oWnd MAXIMIZED

return nil

function BuildMenu()

   local oMenu

   MENU oMenu

      MENUITEM "TEST"

      MENU
         MENUITEM "TEST ERROR" ACTION( oWndChild:End(), NewDialog())
      ENDMENU

   ENDMENU

   //ENDMENU  //???

return oMenu

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

function NewChild()

   //local oWndChild, oLbx, oFont, oDbf
   local oLbx, oFont, oDbf

   USE Customer NEW

   DATABASE oDbf

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -8

   DEFINE WINDOW oWndChild TITLE Time() MDICHILD

   DEFINE BUTTONBAR OF oWndChild _3D

   @ 2, 0 LISTBOX oLbx FIELDS ;
          ON RIGHT CLICK MsgInfo( oLbx:cAlias ) ;
          FONT oFont ;
          SIZE 400, 200

   oWndChild:SetControl( oLbx )

   @ 20, 0 TABS oWndChild:oBottom PROMPT "One", "Two" ;
           OF oWndChild

   ACTIVATE WINDOW oWndChild MAXIMIZED ;
            ON RIGHT CLICK MsgInfo( oWndChild:GetText() )

   oWndChild:ReSize()

return nil

function NewDialog()

   local oDlg, oLbx, oBtn
   local oSbr, lChk := .t.

   DEFINE DIALOG oDlg TITLE "Hello world of FiveWin 32 bits!" ;
          FROM 5, 5 TO 20, 50

   @ 1, 1 SAY "Hello"

   @ 2, 2 CHECKBOX lChk PROMPT "&CAntonio" SIZE 100, 20

   @ 6, 2 BUTTON oBtn PROMPT "&Ok" ACTION NewDialog()

   oDlg:bRClicked = { || MsgInfo( "Right Click" ) }

   ACTIVATE DIALOG oDlg CENTERED

return nil
 



[MGA]

Este foi só um exemplo em cima de um PRG do SAMPLES do fivewin. Notei este problema na minha aplicação.

[karinha]

Este é um problema para Mister Navarro resolver.
Se bem que eu acho dificil alguém usar temas clássico do windows hoje em dia.

[MGA]

Concordo com você, mais foi justamente um cliente que reclamou do problema.

[cnavarro]

Lo he comprobado y tienes razón
Ocurre cuando la ventana mdichild está maximizada y el estilo es clásico
Si la ventana mdichild no está maximizada no da error
Voy a intentar ver donde puede estar el problema

[MGA]

Gracias Maestro,

eu acredito que o problema é com a classe que controla MENUS do sistema. Porque o problema só ocorre quando chamado do menu.

[cnavarro]

Has probado con la ventana MDICHILD sin maximizar?