SYSMENU

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

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

SYSMENU

Post by rmtarget » Thu Nov 15, 2018 5:06 pm

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 858 times
De antemano muchas gracias y saludos !!
Atte.
Rene Mtz. (méxico city)

User avatar
andyglezl
Posts: 1057
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 24 times
Been thanked: 46 times
Contact:

Post by andyglezl » Thu Nov 15, 2018 6:21 pm

Quitar la "X" no sé, pero puedes usar: SET INTERACTIVECLOSE OFF
Andrés González López
Desde Guadalajara, Jalisco. México.

rmtarget
Posts: 60
Joined: Sat Jul 04, 2009 7:28 pm

Post by rmtarget » Thu Nov 15, 2018 9:10 pm

Muchas gracias andyglezl !, lo probaré....
De antemano muchas gracias y saludos !!
Atte.
Rene Mtz. (méxico city)

mlnr
Posts: 85
Joined: Fri Aug 28, 2015 1:52 pm
DBs Used: DBF
Location: Hungary
Has thanked: 26 times
Been thanked: 9 times

Post by mlnr » Fri Nov 16, 2018 7:38 am

Please, look at this.http://www.hmgforum.com/viewtopic.php?f ... dlg#p35986
I use this solution.
Best regards,
Gabor

User avatar
andyglezl
Posts: 1057
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 24 times
Been thanked: 46 times
Contact:

Post by andyglezl » Fri Nov 16, 2018 11:12 pm

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

MenuPers.png
MenuPers.png (8.64 KiB) Viewed 726 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