View Single Post
  #2 (permalink)  
Old 08-13-2008, 04:14 PM
Erel's Avatar
Erel Erel is offline
Administrator
 
Join Date: Apr 2007
Posts: 3,344
Default

FormLib.FullScreen is a one way function.
You will need to use the Door library to return the title bar or menu:
Code:
'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
Reply With Quote