Xojo Conferences
MBSSep2018MunichDE
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/ChartDirector/vlinearmeter
Function:
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/vlinearmeter
This example is the version from Sun, 17th Mar 2012.
Project "vlinearmeter.rbp"
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 = 75.35 // Create an LinearMeter object of size 60 x 265 pixels, using silver background // with a 2 pixel black 3D depressed border. dim m as new CDLinearMeterMBS(60, 265, CDBaseChartMBS.silverColor, 0, -2) // Set the scale region top-left corner at (25, 30), with size of 20 x 200 // pixels. The scale labels are located on the left (default - implies vertical // meter) m.setMeter(25, 30, 20, 200) // 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 a deep blue (000080) pointer at the specified value call m.addPointer(value, &h000080) // Add a text box label at top-center (30, 5) using Arial Bold/8 pts/deep blue // (000088), with a light blue (9999ff) background call m.addText(30, 5, "Temp C", "arialbd.ttf", 8, &h000088, CDBaseChartMBS.kTopCenter).setBackground(&h9999ff) // Add a text box to show the value formatted to 2 decimal places at bottom // center (30, 260). Use white text on black background with a 1 pixel depressed // 3D border. call m.addText(30, 260, m.formatValue(value, "2"), "arial.ttf", 8, &hffffff,CDBaseChartMBS.kBottomCenter).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

Feedback, Comments & Corrections

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




Links
MBS Xojo tutorial videos