formlib.fullscreen(false) doesn't work

[Byak@]

Sub Globals
f=0
End Sub

Sub App_Start
flib.New1("form1",B4PObject(1))
 Form1.show
End Sub

Sub Button1_Click
If f=0 Then
flib.FullScreen(true)
f=1
Else
flib.FullScreen(false)
End If
End Sub

flib.FullScreen(false) doesn't return titles...why?

 

[Erel]

FormLib.FullScreen is a one way function.
You will need to use the Door library to return the title bar or menu:

'obj and obj2 are Objects (from the door library)
Sub Globals
    'Declare the global variables here.

End Sub

Sub App_Start
    Form1.Show
    flb.New1("form1",B4PObject(1))
    obj.New1(false)
    obj2.New1(false)
    obj2.FromControl("form1")
    obj2.Value = obj2.GetProperty("Menu")

    flb.FullScreen(true)
End Sub

Sub ReturnTitle
    obj.FromControl("form1")
    obj.SetProperty("MaximizeBox",true)
    obj.SetProperty("ControlBox",true)
    obj.SetProperty("FormBorderStyle","Sizable")
    obj.SetProperty("WindowState","Normal")
End Sub

Sub ReturnMenu
    obj.FromControl("form1")
    obj.SetProperty2("Menu",obj2.Value)
End Sub

 

[Byak@]

thanks Erel

 

[Cableguy]

@Erel

Issues like this, should be placed in a "closed" forum, like "Known limitations", because every once in a while, someone atrts up a thread like this one, without first searching the forum....