Example: /Main/Platform Test

Online Documentation   -   Statistics   -   FAQ   -   Plugin Parts (All, Dependencies)   -   Class hierarchy

New in Version 22.2 22.3 22.4 22.5 23.0 23.1 23.2 23.3 23.4 23.5 24.0 24.1

The list of the   topics,   classes,   interfaces,   controls,   modules,   global methods by category,   global methods by name,   screenshots,   licenses   and   examples.

Platforms to show: All Mac Windows Linux Cross-Platform

/Main/Platform Test


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.


💬 Ask a question or report a problem