Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Disappearing Menu!
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01355475
Message ID:
01355566
Vues:
22
>Something is fishy here. Why you're using Main_Menu and not using it anywhere else?
>

It is being use at the beginning of many of the called programs in the project .... like this....
PROCEDURE PASSCHG
PUSH KEY CLEAR
HIDE MENU Main_Menu
HIDE POPUP ALL
SET CURSOR OFF
Hold_Pass = _Password		
***************************************************************************************************
WARNING - OLD CODE BELOW!!!

Originally, the pos_strt.prg program has this in it for calling Mainpops.prg....
PUBLIC Main_Menu,RegMenus
...
Main_Menu = "_mSysMenu"
...
_EXIT = .F.
DO WHILE _EXIT = .F.
	_EXIT = .T.
	DO Mainpops WITH _EXIT
ENDDO

DEACTIVATE MENU Main_Menu
RELEASE MENU Main_Menu EXTENDED

SET SYSMENU TO DEFAULT
and in Mainpops.prg
PROCEDURE MAINPOPS
PARAMETER _EXITPOS

CLEAR

*main_menu = "Main_Menu"
SET SYSMENU TO 
main_menu = "_mSysMenu"

DEFINE MENU &Main_Menu

DEFINE PAD _Cash_Reg  OF &Main_Menu PROMPT "\<Cash Register"
DEFINE PAD _Inventory OF &Main_Menu PROMPT "\<Inventory"    
DEFINE PAD _Utilities OF &Main_Menu PROMPT "\<Utilities"    
DEFINE PAD _Exit      OF &Main_Menu PROMPT "E\<xit"         

*!*   DEFINE PAD _Cash_Reg  OF Main_Menu PROMPT "Cash Register  "  AT 0,0;
*!*   	COLOR SCHEME 3 KEY ALT+C, "" FONT 'Fixedsys', 10
*!*   DEFINE PAD _Inventory OF Main_Menu PROMPT "Inventory  "     AT 0,18;
*!*   	COLOR SCHEME 3 KEY ALT+I, "" FONT 'Fixedsys', 10
*!*   DEFINE PAD _Utilities OF Main_Menu PROMPT "\<Utilities  "     AT 0,32;
*!*   	COLOR SCHEME 3 KEY ALT+U, "" FONT 'Fixedsys', 10
*!*   DEFINE PAD _Exit      OF Main_Menu PROMPT "E\<xit  "          AT 0,46;
*!*   	COLOR SCHEME 3 KEY ALT+X, "" FONT 'Fixedsys', 10

ON SELECTION PAD _Cash_Reg  OF &Main_Menu DO Regtemp
ON PAD _Inventory OF &Main_Menu ACTIVATE POPUP Inventory
ON PAD _Utilities OF &Main_Menu ACTIVATE POPUP Utilities
ON SELECTION PAD _Exit      OF &Main_Menu RETURN
....
ACTIVATE MENU &Main_Menu

_EXITPOS = .F.

RETURN
This older code would work, but if you clicked outside the program, like on on the Taskbar, or the desktop, the window of this program starts to flicker (the Menu flickers).....but it still works ok when you click on the program and on the Menu.

so, I removed the loop in the pos_strt.prg and made it like you saw in the original code. In the newer code, it doesn't flicker, but the Menu disappears and does not come back. You loose control of the program and have to endtask out.

Hope this helps in what is going on.
Tommy Tillman A+ NetWork+ MCP
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform