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/multihmeter
This example is the version from Sun, 17th Mar 2012.
Project "multihmeter.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 values to display on the meter
const value0 = 30.99
const value1 = 45.35
const value2 = 77.64
// Create an LinearMeter object of size 250 x 75 pixels, using silver background
// with a 2 pixel black 3D depressed border.
dim m as new CDLinearMeterMBS(250, 75, CDBaseChartMBS.silverColor, 0, -2)
// Set the scale region top-left corner at (15, 25), with size of 220 x 20
// pixels. The scale labels are located on the top (implies horizontal meter)
m.setMeter(15, 25, 220, 20, CDBaseChartMBS.kTop)
// Set meter scale from 0 - 100, with a tick every 10 units
m.setScale(0, 100, 10)
// Set 0 - 50 as green (99ff99) zone, 50 - 80 as yellow (ffff66) zone, and 80 -
// 100 as red (ffcccc) zone
call m.addZone(0, 50, &h99ff99)
call m.addZone(50, 80, &hffff66)
call m.addZone(80, 100, &hffcccc)
// Add deep red (000080), deep green (008000) and deep blue (800000) pointers to
// reflect the values
call m.addPointer(value0, &h000080)
call m.addPointer(value1, &h008000)
call m.addPointer(value2, &h800000)
// Add a label at bottom-left (10, 68) using Arial Bold/8 pts/red (c00000)
call m.addText(10, 68, "Temp C", "arialbd.ttf", 8, &hc00000, CDBaseChartMBS.kBottomLeft)
// Add three text boxes to show the values in this meter
call m.addText(148, 70, m.formatValue(value0, "2"), "arial.ttf", 8, &h6666ff,CDBaseChartMBS.kBottomRight).setBackground(0, 0, -1)
call m.addText(193, 70, m.formatValue(value1, "2"), "arial.ttf", 8, &h33ff33,CDBaseChartMBS.kBottomRight).setBackground(0, 0, -1)
call m.addText(238, 70, m.formatValue(value2, "2"), "arial.ttf", 8, &hff3333,CDBaseChartMBS.kBottomRight).setBackground(0, 0, -1)
// Output the chart
Backdrop=m.makeChartPicture
End EventHandler
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.