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
