Object: 2DBarFilling
- Updated2024-09-12
- 1 minute(s) read
(2DAdditionalStyles | 2DBarsHorizontalSettings | 2DBarsSettings | 2DDifferentialSettings | 2DGroupedBarsSettings | 2DStackedBarsSettings) > Object: 2DBarFilling
Object: 2DBarFilling
The 2DBarFilling object provides the properties of a bar display in a 2D axis system in DIAdem REPORT.
The following example generates an axis system with a curve and specifies the curve parameters:
| VBScript | Python |
Dim oMy2DAxisSystem, oMyCurve, oMyPos, oMyShape, oMySettings, oMyFilling Call Data.Root.Clear() Call DataFileLoad(DataReadPath & "Report_Data.tdm","TDM","") Call Report.NewLayout() Set oMy2DAxisSystem = Report.ActiveSheet.Objects.Add(eReportObject2DAxisSystem, "My2DAxisSystem") Set oMyPos = oMy2DAxisSystem.Position.ByCoordinate oMyPos.X1 = 20 oMyPos.X2 = 80 oMyPos.Y1 = 20 oMyPos.Y2 = 80 Set oMyCurve = oMy2DAxisSystem.Curves2D.Add(e2DShapeBars, "MyCurve") Set oMyShape = oMyCurve.Shape oMyShape.XChannel.Reference = "[6]/[1]" oMyShape.YChannel.Reference = "[6]/[2]" Set oMySettings = oMyShape.Settings Call oMySettings.BorderLine.Color.SetPredefinedColor(eColorIndexBlue) Set oMyFilling = oMySettings.Filling oMyFilling.UseSameColorAsBorder = False Call oMyFilling.Color.SetPredefinedColor(eColorIndexDarkRed) oMyFilling.Pattern = eFillPatternCrossDiagonal oMyFilling.Density = 30 Call Report.Refresh()
Properties
Color | Density | LineWidth | Pattern | UseSameColorAsBorder
Returned From
2DAdditionalStyles.Filling | 2DBarsHorizontalSettings.Filling | 2DBarsSettings.Filling | 2DDifferentialSettings.Filling | 2DGroupedBarsSettings.Filling | 2DStackedBarsSettings.Filling