PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV Mobile 2024 → Switching between planes and a window
Switching between planes and a window
Débuté par Claire, 29 mai 2018 15:11 - Aucune réponse
#1
Membre enregistré
48 messages
Posté le 29 mai 2018 - 15:11
We have an app that currently uses a main window with multiple planes and an internal window menu (left sliding). We have the different options on the menu opening the associated planes but for one of the menu options, we want it to open a separate menu.

It functions properly when you start the app, and tap on the option to go to the window but when you have the window active and open the menu, the title in the Action Bar changes to the appropriate plane but the screen remains stuck on the window which then ends up making you completely close down the app and restart in order to access the other planes.

Below is the code for the menu (case 5 opens the window).

SWITCH MZ_Menu
CASE 1:
//Trace("1")
MyWindow..Title = "Release Sites"
MyWindow..Plane = Plane_Release_Sites

CASE 2:
//Trace("2")
MyWindow..Title = "Recovery Sites"
MyWindow..Plane = Plane_Recovery_Sites

CASE 3:
//Trace("3")
MyWindow..Title = "Send and Receive"
MyWindow..Plane = Plane_Sync
CASE 4:
//Trace("4")
MyWindow..Title = "Login"
MyWindow..Plane = Plane_Login
WIN_Main.InitLogin()
CASE 5:
//Trace("5")
//MyWindow..Title = "My Location" CEP 5/25/18
//MyWindow..Plane = Plane_Location CEP 5/24/18
//win_main.Maincompass() CEP 5/24/18
OpenChild(WIN_Map)
CASE 6:
//Trace("6")
MyWindow..Title = "Help"
WIN_Main.HTM_HELP = Replace("file://" + gsExtractDir + "HTML/help/MapBio_Help.htm"," ", "%20")
MyWindow..Plane = Plane_Help
CASE 7:
MyWindow..Title = "About"
MyWindow..Plane = Plane_About
OTHER CASE
//Trace("Other")
MyWindow..Plane = 0
END

WIN_Main.OPT_New..Visible = (MyWindow..Plane = Plane_Release_Sites OR MyWindow..Plane = Plane_Recovery_Sites)
//OPT_Save..Visible = (ACTB_ActionBar..Value > 4) AND gbReadWrite
//OPT_Delete..Visible = (ACTB_ActionBar..Value > 4) AND gbReadWrite

WinSlidingVisible(swLeft, False)
→ Revenir à WINDEV Mobile 2024