Object: Circle

DIAdem 2018 Help


Edition Date: June 2018
Part Number: 370858P-01
View Product Info

DOWNLOAD (Windows Only)


DIAdem 2015 Help
DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help
DIAdem 2020 Help

The Circle object provides a circle in DIAdem REPORT.

The following example adds a circle to the current worksheet, changes the display of the circle, and then exports the circle into the graphics file MyCircle.png:

Dim oMyCircle, oMyBackgroundColor, oMyBorderLineColor
Call Report.NewLayout()
Set oMyCircle = Report.ActiveSheet.Objects.Add(eReportObjectCircle,"MyCircle")

oMyCircle.ForceCircle = True

Set oMyBackgroundColor = oMyCircle.BackgroundColor
Call oMyBackgroundColor.SetPredefinedColor(eColorIndexRed )
oMyBackgroundColor.Transparency = 50

oMyCircle.Position.ByCoordinate.X1 = 10
oMyCircle.Position.ByCoordinate.X2 = 40
oMyCircle.Position.ByCoordinate.Y1 = 50
oMyCircle.Position.ByCoordinate.Y2 = 80

Set oMyBorderLineColor = oMyCircle.BorderLine.Color
Call oMyBorderLineColor.SetPredefinedColor(eColorIndexGreen)
oMyCircle.BorderLine.LineType = eLineTypeDotted
oMyCircle.BorderLine.Width = eLineWidth0140

Report.Settings.ImageExport.PNG.BitsPerPixel = ePNGBitsPerPixelRGB24
Report.Settings.ImageExport.PNG.Height = 300
Report.Settings.ImageExport.PNG.UseRatio = True
Call oMyCircle.ExportToImage(LayoutWritePath & "MyCircle", eImageExportTypePNG)

WAS THIS ARTICLE HELPFUL?

Not Helpful