Platforms to show: All Mac Windows Linux Cross-Platform
Required plugins for this example: MBS ChartDirector Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /ChartDirector/iconameter
This example is the version from Thu, 6th Apr 2016.
Project "iconameter.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class PicWindow Inherits Window
EventHandler Sub Open()
// The value to display on the meter
const value = 85
// Create an AugularMeter object of size 70 x 90 pixels, using black background
// with a 2 pixel 3D depressed border.
dim m as new CDAngularMeterMBS(70, 90, 0, 0, -2)
// Use white on black color palette for default text and line colors
m.setwhiteonblackColors
// Set the meter center at (10, 45), with radius 50 pixels, and span from 135 to
// 45 degress
m.setMeter(10, 45, 50, 135, 45)
// Set meter scale from 0 - 100, with the specified labels
dim pattern1(-1) as string = array("E", " ", " ", " ", "F")
m.setScale(0, 100, pattern1)
// Set the angular arc and major tick width to 2 pixels
m.setLineWidth(2, 2)
// Add a red zone at 0 - 15
m.addZone(0, 15, &hff3333)
// Add an icon at (25, 35)
call m.addText(25, 35, "<*img="+m.getpath(FindFile("gas.gif"))+"*>")
// Add a yellow (ffff00) pointer at the specified value
call m.addPointer(value, &hffff00)
// Output the chart
Backdrop=m.makeChartPicture
End EventHandler
Function FindFile(name as string) As FolderItem
// Look for file in parent folders from executable on
dim parent as FolderItem = app.ExecutableFile.Parent
while parent<>Nil
dim file as FolderItem = parent.Child(name)
if file<>Nil and file.Exists then
Return file
end if
parent = parent.Parent
wend
End Function
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
End Project
The items on this page are in the following plugins: MBS ChartDirector Plugin.