Hide App

Georg

Member
Licensed User
Longtime User
I have an App in fullscreen and wont to call Hardware1.ShowTodayScreen, and later activate the App again
It works with this code on winmobile 5 and 6 but not on winmobile 6.1. Then when I activate the app again, the app closed. here is a test code. What is wrong.

B4X:
Sub Globals
    'Declare the global variables here.
    ToDayScreen=0 
    
End Sub

Sub App_Start
    Form1.Show
 Hardware1.New1
    flib.New1("form1",B4PObject(1))
    obj.New1(False)
    obj2.New1(False)
    obj2.FromControl("form1")
If cPPC Then
          'flib.MinimizeBox=True
        evtFormActivated.New1(obj2.Value,"Activated")
    End If
    flib.FullScreen(True)
End Sub




Sub ReturnTitle_Click
    obj.FromControl("form1")
    obj.SetProperty("MaximizeBox",True)
    obj.SetProperty("ControlBox",True)
    obj.SetProperty("FormBorderStyle","Sizable")
    obj.SetProperty("WindowState","Normal")
ToDayScreen=1 
Hardware1.ShowTodayScreen
End Sub


Sub evtFormActivated_NewEvent

    If cPPC AND ToDayScreen=1 Then
flib.FullScreen(True)
        Sip(False)
        ToDayScreen=0
    End If
End Sub
 

Georg

Member
Licensed User
Longtime User
The problem is, when you use Fullscreen before you can't use ShowTodayScreen
That is my problem.
 

Georg

Member
Licensed User
Longtime User
A command Fullscreen(false,false) that brings back the menu and the Title could be fine. Is that possible to create?
 

Georg

Member
Licensed User
Longtime User
it works with these code with the Door.dll perhaps it helps someone

code:

Sub Globals
'Declare the global variables here.

End Sub

Sub App_Start
Form1.Show
Hardware1.New1
flib.New1("form1",B4PObject(1))
obj.New1(False)
obj2.New1(False)
obj2.FromControl("form1")
flib.FullScreen2(True,True)
End Sub

Sub ReturnTitle_Click
obj.FromControl("form1")
obj.SetProperty("MaximizeBox",True)
obj.SetProperty("ControlBox",True)
obj.SetProperty("FormBorderStyle","Sizable")
'obj.SetProperty("WindowState","Normal")
Hardware1.ShowTodayScreen
End Sub
 
Top