Platforms to show: All Mac Windows Linux Cross-Platform
Required plugins for this example: MBS Util Plugin, MBS Main Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Main/Platform Test
This example is the version from Fri, 9th Jun 2022.
Project "Platform Test.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class MainWindow Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
End Control
EventHandler Sub Open()
list.AddRow "MBS PLugins "+MBSPluginVersion
list.AddRow "Compiled " + mbs.CompileDate
list.AddRow "Target "+Self.Target
List.AddRow "OS Name is " + SystemInformationMBS.OSName
List.AddRow "OS Version is " + SystemInformationMBS.OSVersionString
List.AddRow "CPUBrandString is "+SystemInformationMBS.CPUBrandString
List.AddRow "PhysicalRAM is "+Str(SystemInformationMBS.PhysicalRAM / 1024.0 / 1024.0 / 1024.0, "0.0")+" GB"
End EventHandler
Private Function Target() As string
Dim OS As String
Dim Arch As String
Dim Bits As String
#If Target64Bit Then
Bits = " 64-bit"
#ElseIf Target32Bit
Bits = " 32-bit"
#Else
?
#EndIf
#If TargetARM Then
Arch = " ARM"
#ElseIf TargetX86
Arch = " x86"
#Else
?
#EndIf
#If TargetWindows Then
OS = "Windows"
#ElseIf TargetIOS Then
#If TargetMobileSimulator
OS = "iOS Simulator"
#Else
OS = "iOS"
#EndIf
#ElseIf TargetMacOS Then
OS = "macOS"
#ElseIf TargetLinux Then
OS = "Linux"
#ElseIf TargetMobileDevice
OS = "Android"
#Else
?
#EndIf
Return OS + Arch + bits
End Function
End Class
MenuBar MainMenuBar
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem EditSeparator1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem EditSeparator2 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
End Project
The items on this page are in the following plugins: MBS Main Plugin.
