Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://hmgforum.com/
Code: Select all
* ¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯
// MENU PERSONALIZADO BY ANDYGLEZL
// PERSONALIZED MENU BY ANDYGLEZL
* ¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯¯._.¯
#include "HMG.CH"
FUNCTION MAIN( )
nAnchWMain := GetDesktopWidth()
nAltoWMain := GetDesktopHeight()
DEFINE WINDOW Form_Main AT 50,20 WIDTH nAnchWMain HEIGHT nAltoWMain NOSIZE NOCAPTION MAIN BACKCOLOR BLUE FONT 'Calibri' SIZE 10
@ 200 , 400 LABEL Label_01 WIDTH 400 HEIGHT 30 VALUE "MENU PERSONALIZADO BY ANDYGLEZL" FONT 'Calibri' SIZE 12 FONTCOLOR WHITE BOLD TRANSPARENT
@ 300 , 400 LABEL Label_02 WIDTH 400 HEIGHT 30 VALUE "PERSONALIZED MENU BY ANDYGLEZL" FONT 'Calibri' SIZE 12 FONTCOLOR WHITE BOLD TRANSPARENT
DEFINE MAIN MENU OF Form_Main
DEFINE POPUP '|'+PadC( Expand( "EL TITULO DE ESTA VENTANA" ), 390 )+'| ' NAME PU_01
MENUITEM 'Acerca de...' ACTION ( MSGBOX( "Acerca de esta ventana..." ) )
END POPUP
DEFINE POPUP "__" NAME PU_02
MENUITEM "Mininizar" ACTION ( ThisWindow.Minimize )
END POPUP
* DEFINE POPUP " ■ " NAME PU_03
* MENUITEM "Maximizar" ACTION ( ThisWindow.Maximize )
* END POPUP
END MENU
DEFINE CONTEXT MENU OF Form_Main
MENUITEM "Salir" ACTION ( ThisWindow.Release )
END MENU
END WINDOW
CENTER WINDOW Form_Main
ACTIVATE WINDOW Form_Main
RETURN nil