SYSMENU

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

Post Reply
rmtarget
Posts: 67
Joined: Sat Jul 04, 2009 7:28 pm

SYSMENU

Post by rmtarget »

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 !!
ejemplo.jpg
ejemplo.jpg (7.57 KiB) Viewed 6632 times
De antemano muchas gracias y saludos !!
Atte.
Rene Mtz. (méxico city)
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

Re: SYSMENU

Post by andyglezl »

Quitar la "X" no sé, pero puedes usar: SET INTERACTIVECLOSE OFF
Andrés González López
Desde Guadalajara, Jalisco. México.
rmtarget
Posts: 67
Joined: Sat Jul 04, 2009 7:28 pm

Re: SYSMENU

Post by rmtarget »

Muchas gracias andyglezl !, lo probaré....
De antemano muchas gracias y saludos !!
Atte.
Rene Mtz. (méxico city)
mlnr
Posts: 126
Joined: Fri Aug 28, 2015 1:52 pm
DBs Used: DBF

Re: SYSMENU

Post by mlnr »

Please, look at this.http://www.hmgforum.com/viewtopic.php?f ... dlg#p35986
I use this solution.
Best regards,
Gabor
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

Re: SYSMENU

Post by andyglezl »

O tal vez un Menú Personalizado...
*-------------------------------------------------
Or maybe a Custom Menu ...

MenuPers.png
MenuPers.png (8.64 KiB) Viewed 6500 times

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.
Post Reply