Master en TESTDLG2.PRG porque cuando pulso ALT + O, usando LOOK 2007 no funciona?
Sin LOOK 2007 funciona perfecto el uso de ALT + O ó ALT + T.
Que hacer para que funcione?
gracias, saludos.
Sin LOOK 2007 funciona perfecto el uso de ALT + O ó ALT + T.
Que hacer para que funcione?
gracias, saludos.
// Building an application just with a DialogBox
#include "FiveWin.ch"
static oDlg
//----------------------------------------------------------------------------//
function Main()
// local oDlg
DEFINE DIALOG oDlg FROM 6, 6 TO 20, 60 TITLE "Hello World!"
@ 2, 2 BUTTON "&Hello" OF oDlg ;
ACTION ( MsgAbout( FWVERSION, FWCOPYRIGHT ), _SetMenu() )
@ 4, 2 BUTTON "&Bye!" OF oDlg ACTION oDlg:End()
ACTIVATE DIALOG oDlg ;
VALID MsgYesNo( "Want to end ?" )
return nil
//----------------------------------------------------------------------------//
function _SetMenu()
local oMenu
MENU oMenu 2007
MENUITEM "&One" ACTION MsgInfo( "One" )
MENUITEM "&Two" ACTION MsgInfo( "Two" )
ENDMENU
oDlg:SetMenu( oMenu )
return nil
//----------------------------------------------------------------------------//
procedure AppSys // XBase++ requirement
return
//----------------------------------------------------------------------------//João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341