FiveTech Software tech support forums

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

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

José,

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

Normal, está usando o BCC7 ?

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.

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

Entendi, congelou mesmo.

Isso mesmo meu amigo.

obrigado por ter simulado!

Se eu usasse assim, eu faria assim:

Code: Select all  Expand view

#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
 



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

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

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

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

Gracias Maestro,

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

Has probado con la ventana MDICHILD sin maximizar?