Hola amigos: es posible inhabilitar de una pantalla la 'X' ? necesito quedarme con la opción de minimizar y maximizar la ventana, pero no quiero que aparezca la X para cerrarla... se puede ? Gracias !!
SYSMENU
Moderator: Rathinagiri
Re: SYSMENU
Quitar la "X" no sé, pero puedes usar: SET INTERACTIVECLOSE OFF
Andrés González López
Desde Guadalajara, Jalisco. México.
Desde Guadalajara, Jalisco. México.
Re: SYSMENU
Muchas gracias andyglezl !, lo probaré....
De antemano muchas gracias y saludos !!
Atte.
Rene Mtz. (méxico city)
Atte.
Rene Mtz. (méxico city)
Re: SYSMENU
Please, look at this.http://www.hmgforum.com/viewtopic.php?f ... dlg#p35986
I use this solution.
I use this solution.
Best regards,
Gabor
Gabor
Re: SYSMENU
O tal vez un Menú Personalizado...
*-------------------------------------------------
Or maybe a Custom Menu ...
*-------------------------------------------------
Or maybe a Custom Menu ...
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
Andrés González López
Desde Guadalajara, Jalisco. México.
Desde Guadalajara, Jalisco. México.