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