Monkeybread Xojo plugin - Example: /MacCG/CoreGraphics DirectDisplay/CG Modelist

Platforms to show: All Mac Windows Linux Cross-Platform

/MacCG/CoreGraphics DirectDisplay/CG Modelist

Required plugins for this example: MBS MacCG Plugin, MBS MacCF 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.xojo_binary_project"

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