Class App Inherits Application

Const kEditClear = "&Löschen"

Const kFileQuit = "Beenden"

Const kFileQuitShortcut = ""

End Class

Class PicWindow Inherits Window

EventHandler Sub Open() // The data for the chart dim data0(-1) as double = array(90, 25, 40, 55, 68, 44, 79, 85, 50.0) dim angles0(-1) as double = array(15, 60, 110, 180, 230, 260, 260, 310, 340.0) dim data1(-1) as double = array(80, 91, 66, 80, 92, 87.0) dim angles1(-1) as double = array(40, 65, 88, 110, 150, 200.0) // Create a PolarChart object of size 460 x 500 pixels, with a grey (e0e0e0) // background and 1 pixel 3D border dim c as new CDPolarChartMBS(460, 500, &he0e0e0, &h000000, 1) // Add a title to the chart at the top left corner using 15pts Arial Bold Italic // font. Use a wood pattern as the title background. call c.addTitle("Polar Line Chart Demo", "arialbi.ttf", 15).setBackground(c.patternColor(FindFile("wood.png"))) // Set center of plot area at (230, 280) with radius 180 pixels, and white // (ffffff) background. c.setPlotArea(230, 280, 180, &hffffff) // Set the grid style to circular grid, with grids below the chart layers c.setGridStyle(false, false) // Add a legend box at top-center of plot area (230, 35) using horizontal layout. // Use 10 pts Arial Bold font, with 1 pixel 3D border effect. dim b as CDLegendBoxMBS b = c.addLegend(230, 35, false, "arialbd.ttf", 9) b.setAlignment(CDPolarChartMBS.kTopCenter) b.setBackground(CDPolarChartMBS.kTransparent, CDPolarChartMBS.kTransparent, 1) // Set angular axis as 0 - 360, with a spoke every 30 units c.angularAxis.setLinearScale(0, 360, 30) // Add a blue (&hff) line layer to the chart using (data0, angle0) dim layer0 as CDPolarLineLayerMBS layer0 = c.addLineLayer(data0, &h0000ff, "Close Loop Line") layer0.setAngles(angles0) // Set the line width to 2 pixels layer0.setLineWidth(2) // Use 11 pixel triangle symbols for the data points layer0.setDataSymbol(CDPolarChartMBS.kTriangleSymbol, 11) // Enable data label and set its format layer0.setDataLabelFormat("({value},{angle})") // Set the data label text box with light blue (&h9999ff) backgruond color and 1 // pixel 3D border effect layer0.setDataLabelStyle.setBackground(&h9999ff, CDPolarChartMBS.kTransparent, 1) // Add a red (&hff0000) line layer to the chart using (data1, angle1) dim layer1 as CDPolarLineLayerMBS layer1 = c.addLineLayer(data1, &hff0000, "Open Loop Line") layer1.setAngles(angles1) // Set the line width to 2 pixels layer1.setLineWidth(2) // Use 11 pixel diamond symbols for the data points layer1.setDataSymbol(CDPolarChartMBS.kDiamondSymbol, 11) // Set the line to open loop layer1.setCloseLoop(false) // Enable data label and set its format layer1.setDataLabelFormat("({value},{angle})") // Set the data label text box with light red (&hff9999) backgruond color and 1 // pixel 3D border effect layer1.setDataLabelStyle.setBackground(&hff9999, CDPolarChartMBS.kTransparent, 1) // Output the chart Backdrop=c.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