Xojo Conferences

Platforms to show: All Mac Windows Linux Cross-Platform

/MacCG/CoreGraphics DirectDisplay/CG Modelist
Required plugins for this example: MBS MacCG Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacCG/CoreGraphics DirectDisplay/CG Modelist
This example is the version from Sun, 17th Mar 2012.
Project "CG Modelist.rbp"
Class Window1 Inherits Window
Control List Inherits ListBox
ControlInstance List Inherits ListBox
EventHandler Sub DoubleClick() // Switch to the given mode dim dic as Dictionary = List.RowTag(List.ListIndex) dim error as integer = display.SwitchToMode(dic) if error = 0 then MsgBox "OK" else MsgBox "Errorcode: "+str(error) end if End EventHandler
End Control
EventHandler Sub Open() // Display all available graphic modes: List.DeleteAllRows dim d as CGDisplayMBS = CGDisplayMBS.MainDisplay // main display dim modes(-1) as Dictionary = d.AvailableModes dim i as integer = 0 for each di as Dictionary in modes i = i + 1 List.AddRow str(i) List.cell(List.LastIndex,1)=di.Value(d.kCGDisplayMode) List.cell(List.LastIndex,2)=di.Value(d.kCGDisplayWidth)+" x "+di.Value(d.kCGDisplayHeight) List.cell(List.LastIndex,3)=di.Value(d.kCGDisplayRefreshRate) List.cell(List.LastIndex,4)=di.Value(d.kCGDisplayBitsPerPixel) List.RowTag(List.LastIndex)=di next display=d End EventHandler
Property Protected display As CGDisplayMBS
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
End Project

See also:

Feedback, Comments & Corrections

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

MBS Xojo PDF Plugins