Xojo Conferences
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/Util/Window Group/Windowgroup like iTunes
Function:
Required plugins for this example: MBS Util Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Util/Window Group/Windowgroup like iTunes
This example is the version from Sun, 17th Mar 2012.
Project "Windowgroup like iTunes.rbp"
Class SmallWindow Inherits Window
Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action() BigWindow.Show SmallWindow.Hide End EventHandler
End Control
Control CheckBox1 Inherits CheckBox
ControlInstance CheckBox1 Inherits CheckBox
EventHandler Sub Action() if me.Value then self.WindowGroupMBS=front else self.WindowGroupMBS=normal end if End EventHandler
End Control
EventHandler Sub Open() dim g as WindowGroupMBS // Create a new WindowGroup const kWindowGroupAttrSelectAsLayer=1 const kWindowGroupAttrMoveTogether=2 const kWindowGroupAttrLayerTogether=4 const kWindowGroupAttrSharedActivation=8 const kWindowGroupAttrHideOnCollapse=16 g=new WindowGroupMBS g.Create 0 // no attributes const kCGBaseWindowLevelKey = 0 const kCGMinimumWindowLevelKey = 1 const kCGDesktopWindowLevelKey = 2 const kCGBackstopMenuLevelKey = 3 const kCGNormalWindowLevelKey = 4 const kCGFloatingWindowLevelKey = 5 const kCGTornOffMenuWindowLevelKey = 6 const kCGDockWindowLevelKey = 7 const kCGMainMenuWindowLevelKey = 8 const kCGStatusWindowLevelKey = 9 const kCGModalPanelWindowLevelKey = 10 const kCGPopUpMenuWindowLevelKey = 11 const kCGDraggingWindowLevelKey = 12 const kCGScreenSaverWindowLevelKey = 13 const kCGMaximumWindowLevelKey = 14 const kCGOverlayWindowLevelKey = 15 const kCGHelpWindowLevelKey = 16 const kCGUtilityWindowLevelKey = 17 const kCGDesktopIconWindowLevelKey = 18 const kCGCursorWindowLevelKey = 19 const kCGAssistiveTechHighWindowLevelKey = 20 const kCGNumberOfWindowLevelKeys = 21 ' Internal bookkeeping; must be last g.Level=g.LevelForKey(kCGFloatingWindowLevelKey) normal=self.WindowGroupMBS front=g End EventHandler
Property Protected front As WindowGroupMBS
Property Protected normal As WindowgroupMBS
End Class
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = "File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu0 = "Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
End Class
Class BigWindow Inherits Window
Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action() BigWindow.hide SmallWindow.show End EventHandler
End Control
End Class
End Project

See also:

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS Util Plugin.




Links
MBS Xojo PDF Plugins