home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Ocx / Vci / Impress / VCFI.PAS < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  73KB  |  2,043 lines
  1. unit vcfi;
  2.  
  3. { This file contains pascal declarations imported from a type library.
  4.   This file will be written during each import or refresh of the type
  5.   library editor.  Changes to this file will be discarded during the
  6.   refresh process. }
  7.  
  8. { VCI First Impression Library }
  9. { Version 1.0 }
  10.  
  11. { Conversion log:
  12.   Warning: 'Label' is a reserved word. Label changed to Label_
  13.   Warning: 'Array' is a reserved word. Parameter 'Array' in _DVtChart.CopyDataFromArray changed to 'Array_'
  14.   Warning: 'Array' is a reserved word. Parameter 'Array' in _DVtChart.CopyDataToArray changed to 'Array_'
  15.   Warning: 'Set' is a reserved word. ICoor.Set changed to Set_
  16.   Warning: 'Set' is a reserved word. ILCoor.Set changed to Set_
  17.   Warning: 'Set' is a reserved word. ICoor3.Set changed to Set_
  18.   Warning: 'Set' is a reserved word. IColor.Set changed to Set_
  19.   Warning: 'Type' is a reserved word. IPicture.Type changed to Type_
  20.   Warning: 'Set' is a reserved word. IVcView3d.Set changed to Set_
  21.   Warning: 'Set' is a reserved word. IVcDoughnut.Set changed to Set_
  22.   Warning: 'Set' is a reserved word. IVcPie.Set changed to Set_
  23.   Warning: 'Set' is a reserved word. IVcWeighting.Set changed to Set_
  24.   Warning: 'Type' is a reserved word. Parameter 'Type' in IVcStatLines.Style changed to 'Type_'
  25.   Warning: 'Type' is a reserved word. IVcScale.Type changed to Type_
  26.   Warning: 'Set' is a reserved word. IVcLightSource.Set changed to Set_
  27.  }
  28.  
  29. interface
  30.  
  31. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  32.  
  33. const
  34.   LIBID_VCIFiLib: TGUID = '{5A721583-5AF0-11CE-8384-0020AF2337F2}';
  35.  
  36. const
  37.  
  38. { The list of VtFont styles }
  39.  
  40. { FontStyleConstants }
  41.  
  42.   VtFontStyleBold = 1;
  43.   VtFontStyleItalic = 2;
  44.   VtFontStyleOutline = 4;
  45.  
  46. { The list of VtFont effects }
  47.  
  48. { FontEffectsConstants }
  49.  
  50.   VtFontEffectStrikeThrough = 256;
  51.   VtFontEffectUnderline = 512;
  52.  
  53. { Frame Styles }
  54.  
  55. { FrameStyleConstants }
  56.  
  57.   VtFrameStyleNull = 0;
  58.   VtFrameStyleSingleLine = 1;
  59.   VtFrameStyleDoubleLine = 2;
  60.   VtFrameStyleThickInner = 3;
  61.   VtFrameStyleThickOuter = 4;
  62.  
  63. { Brush Styles }
  64.  
  65. { BrushStyleConstants }
  66.  
  67.   VtBrushStyleNull = 0;
  68.   VtBrushStyleSolid = 1;
  69.   VtBrushStylePattern = 2;
  70.   VtBrushStyleHatched = 3;
  71.  
  72. { The list of datapoint label component types }
  73.  
  74. { LabelComponentConstants }
  75.  
  76.   VtChLabelComponentValue = 1;
  77.   VtChLabelComponentPercent = 2;
  78.   VtChLabelComponentSeriesName = 4;
  79.   VtChLabelComponentPointName = 8;
  80.  
  81. { Brush Patterns }
  82.  
  83. { BrushPatternConstants }
  84.  
  85.   VtBrushPattern94Percent = 0;
  86.   VtBrushPattern88Percent = 1;
  87.   VtBrushPattern75Percent = 2;
  88.   VtBrushPattern50Percent = 3;
  89.   VtBrushPattern25Percent = 4;
  90.   VtBrushPatternBoldHorizontal = 5;
  91.   VtBrushPatternBoldVertical = 6;
  92.   VtBrushPatternBoldDownDiagonal = 7;
  93.   VtBrushPatternBoldUpDiagonal = 8;
  94.   VtBrushPatternChecks = 9;
  95.   VtBrushPatternWeave = 10;
  96.   VtBrushPatternHorizontal = 11;
  97.   VtBrushPatternVertical = 12;
  98.   VtBrushPatternDownDiagonal = 13;
  99.   VtBrushPatternUpDiagonal = 14;
  100.   VtBrushPatternGrid = 15;
  101.   VtBrushPatternTrellis = 16;
  102.   VtBrushPatternInvertedTrellis = 17;
  103.  
  104. { Brush Hatches }
  105.  
  106. { BrushHatchConstants }
  107.  
  108.   VtBrushHatchHorizontal = 0;
  109.   VtBrushHatchVertical = 1;
  110.   VtBrushHatchDownDiagonal = 2;
  111.   VtBrushHatchUpDiagonal = 3;
  112.   VtBrushHatchCross = 4;
  113.   VtBrushHatchDiagonalCross = 5;
  114.  
  115. { Shadow Styles }
  116.  
  117. { ShadowStyleConstants }
  118.  
  119.   VtShadowStyleNull = 0;
  120.   VtShadowStyleDrop = 1;
  121.  
  122. { Mouse Flag Constants }
  123.  
  124. { MouseFlagConstants }
  125.  
  126.   VtChMouseFlagShiftKeyDown = 4;
  127.   VtChMouseFlagControlKeyDown = 8;
  128.  
  129. { Pen Styles }
  130.  
  131. { PenStyleConstants }
  132.  
  133.   VtPenStyleNull = 0;
  134.   VtPenStyleSolid = 1;
  135.   VtPenStyleDashed = 2;
  136.   VtPenStyleDotted = 3;
  137.   VtPenStyleDashDot = 4;
  138.   VtPenStyleDashDotDot = 5;
  139.   VtPenStyleDitted = 6;
  140.   VtPenStyleDashDit = 7;
  141.   VtPenStyleDashDitDit = 8;
  142.  
  143. { Pen Join types }
  144.  
  145. { PenJoinConstants }
  146.  
  147.   VtPenJoinMiter = 0;
  148.   VtPenJoinRound = 1;
  149.   VtPenJoinBevel = 2;
  150.  
  151. { Pen Cap types }
  152.  
  153. { PenCapConstants }
  154.  
  155.   VtPenCapButt = 0;
  156.   VtPenCapRound = 1;
  157.   VtPenCapSquare = 2;
  158.  
  159. { Gradient Styles }
  160.  
  161. { GradientStyleConstants }
  162.  
  163.   VtGradientStyleHorizontal = 0;
  164.   VtGradientStyleVertical = 1;
  165.   VtGradientStyleRectangle = 2;
  166.   VtGradientStyleOval = 3;
  167.  
  168. { Picture Types }
  169.  
  170. { PictureTypeConstants }
  171.  
  172.   VtPictureTypeNull = 0;
  173.   VtPictureTypeBMP = 1;
  174.   VtPictureTypeWMF = 2;
  175.  
  176. { Picture Options (WMF only) }
  177.  
  178. { PictureOptionConstants }
  179.  
  180.   VtPictureOptionNoSizeHeader = 0;
  181.   VtPictureOptionTextAsCurves = 1;
  182.  
  183. { Picture Map Types }
  184.  
  185. { PictureMapTypeConstants }
  186.  
  187.   VtPictureMapTypeActual = 0;
  188.   VtPictureMapTypeFitted = 1;
  189.   VtPictureMapTypeStretched = 2;
  190.   VtPictureMapTypeTiled = 3;
  191.   VtPictureMapTypeCropFitted = 4;
  192.  
  193. { Fill Style Constants }
  194.  
  195. { FillStyleConstants }
  196.  
  197.   VtFillStyleNull = 0;
  198.   VtFillStyleBrush = 1;
  199.   VtFillStyleGradient = 2;
  200.  
  201. { Chart Element Location Type Constants }
  202.  
  203. { LocationTypeConstants }
  204.  
  205.   VtChLocationTypeTopLeft = 0;
  206.   VtChLocationTypeTop = 1;
  207.   VtChLocationTypeTopRight = 2;
  208.   VtChLocationTypeLeft = 3;
  209.   VtChLocationTypeRight = 4;
  210.   VtChLocationTypeBottomLeft = 5;
  211.   VtChLocationTypeBottom = 6;
  212.   VtChLocationTypeBottomRight = 7;
  213.   VtChLocationTypeCustom = 8;
  214.  
  215. { Axis Id Constants }
  216.  
  217. { AxisIdConstants }
  218.  
  219.   VtChAxisIdX = 0;
  220.   VtChAxisIdY = 1;
  221.   VtChAxisIdY2 = 2;
  222.   VtChAxisIdZ = 3;
  223.  
  224. { Axis Tick Style Constants }
  225.  
  226. { AxisTickStyleConstants }
  227.  
  228.   VtChAxisTickStyleNone = 0;
  229.   VtChAxisTickStyleCenter = 1;
  230.   VtChAxisTickStyleInside = 2;
  231.   VtChAxisTickStyleOutside = 3;
  232.  
  233. { Date Interval Constants }
  234.  
  235. { DateIntervalTypeConstants }
  236.  
  237.   VtChDateIntervalTypeNone = 0;
  238.   VtChDateIntervalTypeDaily = 1;
  239.   VtChDateIntervalTypeWeekly = 2;
  240.   VtChDateIntervalTypeSemimonthly = 3;
  241.   VtChDateIntervalTypeMonthly = 4;
  242.   VtChDateIntervalTypeYearly = 5;
  243.  
  244. { Scale Type Constants }
  245.  
  246. { ScaleTypeConstants }
  247.  
  248.   VtChScaleTypeLinear = 0;
  249.   VtChScaleTypeLogarithmic = 1;
  250.   VtChScaleTypePercent = 2;
  251.  
  252. { Percent Axis Basis Constants }
  253.  
  254. { PercentAxisBasisConstants }
  255.  
  256.   VtChPercentAxisBasisMaxChart = 0;
  257.   VtChPercentAxisBasisMaxRow = 1;
  258.   VtChPercentAxisBasisMaxColumn = 2;
  259.   VtChPercentAxisBasisSumChart = 3;
  260.   VtChPercentAxisBasisSumRow = 4;
  261.   VtChPercentAxisBasisSumColumn = 5;
  262.  
  263. { Pie Weight Basis Constants }
  264.  
  265. { PieWeightBasisConstants }
  266.  
  267.   VtChPieWeightBasisNone = 0;
  268.   VtChPieWeightBasisTotal = 1;
  269.   VtChPieWeightBasisSeries = 2;
  270.  
  271. { Pie Weight Style Constants }
  272.  
  273. { PieWeightStyleConstants }
  274.  
  275.   VtChPieWeightStyleArea = 0;
  276.   VtChPieWeightStyleDiameter = 1;
  277.  
  278. { Sort Type Constants }
  279.  
  280. { SortTypeConstants }
  281.  
  282.   VtSortTypeNone = 0;
  283.   VtSortTypeAscending = 1;
  284.   VtSortTypeDescending = 2;
  285.  
  286. { Angle Units Constants }
  287.  
  288. { AngleUnitsConstants }
  289.  
  290.   VtAngleUnitsDegrees = 0;
  291.   VtAngleUnitsRadians = 1;
  292.   VtAngleUnitsGrads = 2;
  293.  
  294. { Sub Plot Label Location Type Constants }
  295.  
  296. { SubPlotLabelLocationTypeConstants }
  297.  
  298.   VtChSubPlotLabelLocationTypeNone = 0;
  299.   VtChSubPlotLabelLocationTypeAbove = 1;
  300.   VtChSubPlotLabelLocationTypeBelow = 2;
  301.   VtChSubPlotLabelLocationTypeCenter = 3;
  302.  
  303. { The list of series/datapoint label line styles }
  304.  
  305. { LabelLineStyleConstants }
  306.  
  307.   VtChLabelLineStyleNone = 0;
  308.   VtChLabelLineStyleStraight = 1;
  309.   VtChLabelLineStyleBent = 2;
  310.  
  311. { The list of series/datapoint label locations }
  312.  
  313. { LabelLocationTypeConstants }
  314.  
  315.   VtChLabelLocationTypeNone = 0;
  316.   VtChLabelLocationTypeAbovePoint = 1;
  317.   VtChLabelLocationTypeBelowPoint = 2;
  318.   VtChLabelLocationTypeCenter = 3;
  319.   VtChLabelLocationTypeBase = 4;
  320.   VtChLabelLocationTypeInside = 5;
  321.   VtChLabelLocationTypeOutside = 6;
  322.   VtChLabelLocationTypeLeft = 7;
  323.   VtChLabelLocationTypeRight = 8;
  324.  
  325. { Contour VtColor Type Constants }
  326.  
  327. { ContourColorTypeConstants }
  328.  
  329.   VtChContourColorTypeAutomatic = 0;
  330.   VtChContourColorTypeGradient = 1;
  331.   VtChContourColorTypeManual = 2;
  332.  
  333. { Contour Display Type Constants }
  334.  
  335. { ContourDisplayTypeConstants }
  336.  
  337.   VtChContourDisplayTypeCBands = 0;
  338.   VtChContourDisplayTypeCLines = 1;
  339.  
  340. { Surface Base Type Constants }
  341.  
  342. { SurfaceBaseTypeConstants }
  343.  
  344.   VtChSurfaceBaseTypePedestal = 0;
  345.   VtChSurfaceBaseTypeStandard = 1;
  346.   VtChSurfaceBaseTypeStandardWithCBands = 2;
  347.   VtChSurfaceBaseTypeStandardWithCLines = 3;
  348.  
  349. { Surface Display Type Constants }
  350.  
  351. { SurfaceDisplayTypeConstants }
  352.  
  353.   VtChSurfaceDisplayTypeNone = 0;
  354.   VtChSurfaceDisplayTypeCBands = 1;
  355.   VtChSurfaceDisplayTypeCLines = 2;
  356.   VtChSurfaceDisplayTypeSolid = 3;
  357.   VtChSurfaceDisplayTypeSolidWithCLines = 4;
  358.  
  359. { Surface Projection Type Constants }
  360.  
  361. { SurfaceProjectionTypeConstants }
  362.  
  363.   VtChSurfaceProjectionTypeNone = 0;
  364.   VtChSurfaceProjectionTypeCBands = 1;
  365.   VtChSurfaceProjectionTypeCLines = 2;
  366.  
  367. { Surface Wireframe Type Constants }
  368.  
  369. { SurfaceWireframeTypeConstants }
  370.  
  371.   VtChSurfaceWireframeTypeNone = 0;
  372.   VtChSurfaceWireframeTypeMajor = 1;
  373.   VtChSurfaceWireframeTypeMajorAndMinor = 2;
  374.  
  375. { Marker Style Constants }
  376.  
  377. { MarkerStyleConstants }
  378.  
  379.   VtMarkerStyleDash = 0;
  380.   VtMarkerStylePlus = 1;
  381.   VtMarkerStyleX = 2;
  382.   VtMarkerStyleStar = 3;
  383.   VtMarkerStyleCircle = 4;
  384.   VtMarkerStyleSquare = 5;
  385.   VtMarkerStyleDiamond = 6;
  386.   VtMarkerStyleUpTriangle = 7;
  387.   VtMarkerStyleDownTriangle = 8;
  388.   VtMarkerStyleFilledCircle = 9;
  389.   VtMarkerStyleFilledSquare = 10;
  390.   VtMarkerStyleFilledDiamond = 11;
  391.   VtMarkerStyleFilledUpTriangle = 12;
  392.   VtMarkerStyleFilledDownTriangle = 13;
  393.   VtMarkerStyle3dBall = 14;
  394.  
  395. { Projection Type Constants }
  396.  
  397. { ProjectionTypeConstants }
  398.  
  399.   VtProjectionTypePerspective = 0;
  400.   VtProjectionTypeOblique = 1;
  401.   VtProjectionTypeOrthogonal = 2;
  402.  
  403. { Smoothing Type Constants }
  404.  
  405. { SmoothingTypeConstants }
  406.  
  407.   VtSmoothingTypeNone = 0;
  408.   VtSmoothingTypeQuadraticBSpline = 1;
  409.   VtSmoothingTypeCubicBSpline = 2;
  410.  
  411. { Horizontal Alignment Constants }
  412.  
  413. { HorizontalAlignmentConstants }
  414.  
  415.   VtHorizontalAlignmentLeft = 0;
  416.   VtHorizontalAlignmentRight = 1;
  417.   VtHorizontalAlignmentCenter = 2;
  418.  
  419. { Vertical Alignment Constants }
  420.  
  421. { VerticalAlignmentConstants }
  422.  
  423.   VtVerticalAlignmentTop = 0;
  424.   VtVerticalAlignmentBottom = 1;
  425.   VtVerticalAlignmentCenter = 2;
  426.  
  427. { Orientation Constants }
  428.  
  429. { OrientationConstants }
  430.  
  431.   VtOrientationHorizontal = 0;
  432.   VtOrientationVertical = 1;
  433.   VtOrientationUp = 2;
  434.   VtOrientationDown = 3;
  435.  
  436. { Device Context Type Constants }
  437.  
  438. { DcTypeConstants }
  439.  
  440.   VtDcTypeNull = 0;
  441.   VtDcTypeDisplay = 1;
  442.   VtDcTypePrinter = 2;
  443.   VtDcTypeMetafile = 3;
  444.  
  445. { Print Scale Type Constants }
  446.  
  447. { PrintScaleTypeConstants }
  448.  
  449.   VtPrintScaleTypeActual = 0;
  450.   VtPrintScaleTypeFitted = 1;
  451.   VtPrintScaleTypeStretched = 2;
  452.  
  453. { Stat Type Constants }
  454.  
  455. { StatTypeConstants }
  456.  
  457.   VtChStatsMinimum = 1;
  458.   VtChStatsMaximum = 2;
  459.   VtChStatsMean = 4;
  460.   VtChStatsStddev = 8;
  461.   VtChStatsRegression = 16;
  462.  
  463. { Print Orientation Type Constants }
  464.  
  465. { PrintOrientationTypeConstants }
  466.  
  467.   VtPrintOrientationPortrait = 0;
  468.   VtPrintOrientationLandscape = 1;
  469.  
  470. { 2D Text output Type Constants }
  471.  
  472. { TextOutputTypeConstants }
  473.  
  474.   VtTextOutputTypeHardware = 0;
  475.   VtTextOutputTypePolygon = 1;
  476.  
  477. { Text Length Type Constants }
  478.  
  479. { TextLengthTypeConstants }
  480.  
  481.   VtTextLengthTypeVirtual = 0;
  482.   VtTextLengthTypeDevice = 1;
  483.  
  484. { Chart Part Type Constants }
  485.  
  486. { PartTypeConstants }
  487.  
  488.   VtChPartTypeChart = 0;
  489.   VtChPartTypeTitle = 1;
  490.   VtChPartTypeFootnote = 2;
  491.   VtChPartTypeLegend = 3;
  492.   VtChPartTypePlot = 4;
  493.   VtChPartTypeSeries = 5;
  494.   VtChPartTypeSeriesLabel = 6;
  495.   VtChPartTypePoint = 7;
  496.   VtChPartTypePointLabel = 8;
  497.   VtChPartTypeAxis = 9;
  498.   VtChPartTypeAxisLabel = 10;
  499.   VtChPartTypeAxisTitle = 11;
  500.  
  501. { The list of Draw modes }
  502.  
  503. { DrawModeConstants }
  504.  
  505.   VtChDrawModeDraw = 0;
  506.   VtChDrawModeBlit = 1;
  507.  
  508. { The list of Formula One spreadsheet link modes }
  509.  
  510. { SsLinkModeConstants }
  511.  
  512.   VtChSsLinkModeOff = 0;
  513.   VtChSsLinkModeOn = 1;
  514.   VtChSsLinkModeAutoParse = 2;
  515.  
  516. { The list of Series types }
  517.  
  518. { SeriesTypeConstants }
  519.  
  520.   VtChSeriesTypeDefault = -1;
  521.   VtChSeriesType3dBar = 0;
  522.   VtChSeriesType2dBar = 1;
  523.   VtChSeriesType3dHorizontalBar = 2;
  524.   VtChSeriesType2dHorizontalBar = 3;
  525.   VtChSeriesType3dClusteredBar = 4;
  526.   VtChSeriesType3dLine = 5;
  527.   VtChSeriesType2dLine = 6;
  528.   VtChSeriesType3dArea = 7;
  529.   VtChSeriesType2dArea = 8;
  530.   VtChSeriesType3dStep = 9;
  531.   VtChSeriesType2dStep = 10;
  532.   VtChSeriesType2dXY = 11;
  533.   VtChSeriesType2dPolar = 12;
  534.   VtChSeriesType2dRadarLine = 13;
  535.   VtChSeriesType2dRadarArea = 14;
  536.   VtChSeriesType2dBubble = 15;
  537.   VtChSeriesType2dHiLo = 16;
  538.   VtChSeriesType2dHLC = 17;
  539.   VtChSeriesType2dHLCRight = 18;
  540.   VtChSeriesType2dOHLC = 19;
  541.   VtChSeriesType2dOHLCBar = 20;
  542.   VtChSeriesType2dGantt = 21;
  543.   VtChSeriesType3dGantt = 22;
  544.   VtChSeriesType3dPie = 23;
  545.   VtChSeriesType2dPie = 24;
  546.   VtChSeriesType3dDoughnut = 25;
  547.   VtChSeriesType2dDates = 26;
  548.   VtChSeriesType3dBarHiLo = 27;
  549.   VtChSeriesType2dBarHiLo = 28;
  550.   VtChSeriesType3dHorizontalBarHiLo = 29;
  551.   VtChSeriesType2dHorizontalBarHiLo = 30;
  552.   VtChSeriesType3dClusteredBarHiLo = 31;
  553.   VtChSeriesType3dSurface = 32;
  554.   VtChSeriesType2dContour = 33;
  555.   VtChSeriesType3dXYZ = 34;
  556.  
  557. { The list of Chart types }
  558.  
  559. { ChartTypeConstants }
  560.  
  561.   VtChChartType3dBar = 0;
  562.   VtChChartType2dBar = 1;
  563.   VtChChartType3dLine = 2;
  564.   VtChChartType2dLine = 3;
  565.   VtChChartType3dArea = 4;
  566.   VtChChartType2dArea = 5;
  567.   VtChChartType3dStep = 6;
  568.   VtChChartType2dStep = 7;
  569.   VtChChartType3dCombination = 8;
  570.   VtChChartType2dCombination = 9;
  571.   VtChChartType3dHorizontalBar = 10;
  572.   VtChChartType2dHorizontalBar = 11;
  573.   VtChChartType3dClusteredBar = 12;
  574.   VtChChartType3dPie = 13;
  575.   VtChChartType2dPie = 14;
  576.   VtChChartType3dDoughnut = 15;
  577.   VtChChartType2dXY = 16;
  578.   VtChChartType2dPolar = 17;
  579.   VtChChartType2dRadar = 18;
  580.   VtChChartType2dBubble = 19;
  581.   VtChChartType2dHiLo = 20;
  582.   VtChChartType2dGantt = 21;
  583.   VtChChartType3dGantt = 22;
  584.   VtChChartType3dSurface = 23;
  585.   VtChChartType2dContour = 24;
  586.   VtChChartType3dScatter = 25;
  587.   VtChChartType3dXYZ = 26;
  588.  
  589. const
  590.  
  591. { Component class GUIDs }
  592.   Class_VtChart: TGUID = '{5A721580-5AF0-11CE-8384-0020AF2337F2}';
  593.   Class_Coor: TGUID = '{EBF97E21-731F-11CE-840F-00AA0042CB33}';
  594.   Class_LCoor: TGUID = '{EBF97E23-731F-11CE-840F-00AA0042CB33}';
  595.   Class_Coor3: TGUID = '{177BF2A1-7350-11CE-840F-00AA0042CB33}';
  596.   Class_LRect: TGUID = '{177BF2A3-7350-11CE-840F-00AA0042CB33}';
  597.   Class_Rect: TGUID = '{FE5517C1-73FE-11CE-840F-00AA0042CB33}';
  598.   Class_VtColor: TGUID = '{9BA79C61-7403-11CE-840F-00AA0042CB33}';
  599.   Class_Brush: TGUID = '{AFE57021-7409-11CE-840F-00AA0042CB33}';
  600.   Class_Shadow: TGUID = '{AFE57023-7409-11CE-840F-00AA0042CB33}';
  601.   Class_TextLayout: TGUID = '{E26C7701-756C-11CE-840F-00AA0042CB33}';
  602.   Class_Title: TGUID = '{C82141A1-7571-11CE-840F-00AA0042CB33}';
  603.   Class_Location: TGUID = '{EDDF9243-764B-11CE-840F-00AA0042CB33}';
  604.   Class_VtFont: TGUID = '{2E6A37A1-77FC-11CE-840F-00AA0042CB33}';
  605.   Class_Backdrop: TGUID = '{2E6A37A3-77FC-11CE-840F-00AA0042CB33}';
  606.   Class_Frame: TGUID = '{2E6A37A5-77FC-11CE-840F-00AA0042CB33}';
  607.   Class_Gradient: TGUID = '{2E6A37A7-77FC-11CE-840F-00AA0042CB33}';
  608.   Class_VtPicture: TGUID = '{FD30FB01-789C-11CE-840F-00AA0042CB33}';
  609.   Class_Fill: TGUID = '{FD30FB03-789C-11CE-840F-00AA0042CB33}';
  610.   Class_Pen: TGUID = '{279B5A41-8098-11CE-BECC-00AA0042CB33}';
  611.   Class_Marker: TGUID = '{3080E743-813F-11CE-BECC-00AA0042CB33}';
  612.   Class_Footnote: TGUID = '{4F053F01-8396-11CE-BECC-00AA0042CB33}';
  613.   Class_Legend: TGUID = '{95C52B61-83B1-11CE-BECC-00AA0042CB33}';
  614.   Class_PrintInformation: TGUID = '{CFA0AC01-8B6E-11CE-840F-00AA0042CB33}';
  615.   Class_DataGrid: TGUID = '{6CB603A1-8F70-11CE-840F-00AA0042CB33}';
  616.   Class_Plot: TGUID = '{F77BA681-9037-11CE-86B3-444553540000}';
  617.   Class_View3d: TGUID = '{21645F63-90F0-11CE-86B3-444553540000}';
  618.   Class_PlotBase: TGUID = '{508D02E1-90FC-11CE-86B3-444553540000}';
  619.   Class_Doughnut: TGUID = '{508D02E3-90FC-11CE-86B3-444553540000}';
  620.   Class_Pie: TGUID = '{508D02E5-90FC-11CE-86B3-444553540000}';
  621.   Class_Weighting: TGUID = '{508D02E7-90FC-11CE-86B3-444553540000}';
  622.   Class_Wall: TGUID = '{508D02E9-90FC-11CE-86B3-444553540000}';
  623.   Class_Series: TGUID = '{0AA0FE21-912A-11CE-86B3-444553540000}';
  624.   Class_Bar: TGUID = '{264931C1-91F1-11CE-840F-00AA0042CB33}';
  625.   Class_HiLo: TGUID = '{51DCC621-95B7-11CE-86B3-444553540000}';
  626.   Class_Position: TGUID = '{51DCC623-95B7-11CE-86B3-444553540000}';
  627.   Class_SeriesMarker: TGUID = '{51DCC625-95B7-11CE-86B3-444553540000}';
  628.   Class_SeriesLabel: TGUID = '{51DCC627-95B7-11CE-86B3-444553540000}';
  629.   Class_StatLine: TGUID = '{2F6DD6A1-95E5-11CE-86B3-444553540000}';
  630.   Class_DataPointLabel: TGUID = '{2F6DD6A3-95E5-11CE-86B3-444553540000}';
  631.   Class_DataPoint: TGUID = '{2F6DD6A5-95E5-11CE-86B3-444553540000}';
  632.   Class_Axis: TGUID = '{027D7901-A023-11CE-840F-00AA0042CB33}';
  633.   Class_CategoryScale: TGUID = '{62375361-A17D-11CE-840F-00AA0042CB33}';
  634.   Class_DateScale: TGUID = '{62375363-A17D-11CE-840F-00AA0042CB33}';
  635.   Class_AxisGrid: TGUID = '{62375365-A17D-11CE-840F-00AA0042CB33}';
  636.   Class_Intersection: TGUID = '{62375367-A17D-11CE-840F-00AA0042CB33}';
  637.   Class_Tick: TGUID = '{62375369-A17D-11CE-840F-00AA0042CB33}';
  638.   Class_AxisScale: TGUID = '{6237536B-A17D-11CE-840F-00AA0042CB33}';
  639.   Class_ValueScale: TGUID = '{6237536D-A17D-11CE-840F-00AA0042CB33}';
  640.   Class_AxisTitle: TGUID = '{6237536F-A17D-11CE-840F-00AA0042CB33}';
  641.   Class_Label_: TGUID = '{62375371-A17D-11CE-840F-00AA0042CB33}';
  642.   Class_Light: TGUID = '{B54A6421-A25E-11CE-840F-00AA0042CB33}';
  643.   Class_Elevation: TGUID = '{A71FB701-A732-11CE-840F-00AA0042CB33}';
  644.   Class_Attribute: TGUID = '{A71FB703-A732-11CE-840F-00AA0042CB33}';
  645.   Class_Surface: TGUID = '{A71FB705-A732-11CE-840F-00AA0042CB33}';
  646.   Class_Contour: TGUID = '{A71FB707-A732-11CE-840F-00AA0042CB33}';
  647.   Class_LightSource: TGUID = '{CD9EFA61-AA40-11CE-840F-00AA0042CB33}';
  648.   Class_SeriesCollection: TGUID = '{C14E8B61-AE2B-11CE-840F-00AA0042CB33}';
  649.   Class_DataPoints: TGUID = '{C20E5261-B06F-11CE-840F-00AA0042CB33}';
  650.   Class_Labels: TGUID = '{62B9A401-B93D-11CE-8410-00AA0042CB33}';
  651.   Class_XYZ: TGUID = '{7D001801-BC65-11CE-8410-00AA0042CB33}';
  652.   Class_LightSources: TGUID = '{6FE35CC1-CE50-11CE-8410-00AA0042CB33}';
  653.   Class_Attributes: TGUID = '{5A693221-CFEF-11CE-8410-00AA0042CB33}';
  654.   Class_ContourGradient: TGUID = '{69032721-D303-11CE-8410-00AA0042CB33}';
  655.  
  656. type
  657.  
  658. { Forward declarations }
  659. { Forward declarations: Interfaces }
  660.   _DVtChart = dispinterface;
  661.   _DVtChartEvents = dispinterface;
  662.   ICoor = dispinterface;
  663.   ILCoor = dispinterface;
  664.   ICoor3 = dispinterface;
  665.   ILRect = dispinterface;
  666.   IRect = dispinterface;
  667.   IColor = dispinterface;
  668.   IBrush = dispinterface;
  669.   IShadow = dispinterface;
  670.   ITextLayout = dispinterface;
  671.   IVcTitle = dispinterface;
  672.   ILocation = dispinterface;
  673.   IFont = dispinterface;
  674.   IBackdrop = dispinterface;
  675.   IFrame = dispinterface;
  676.   IGradient = dispinterface;
  677.   IPicture = dispinterface;
  678.   IFill = dispinterface;
  679.   IVcPen = dispinterface;
  680.   IVcMarker = dispinterface;
  681.   IVcFootnote = dispinterface;
  682.   IVcLegend = dispinterface;
  683.   IVcPrintInformation = dispinterface;
  684.   IVcDataGrid = dispinterface;
  685.   IVcPlot = dispinterface;
  686.   IVcView3d = dispinterface;
  687.   IVcPlotBase = dispinterface;
  688.   IVcDoughnut = dispinterface;
  689.   IVcPie = dispinterface;
  690.   IVcWeighting = dispinterface;
  691.   IVcWall = dispinterface;
  692.   IVcSeries = dispinterface;
  693.   IVcBar = dispinterface;
  694.   IVcHiLo = dispinterface;
  695.   IVcPosition = dispinterface;
  696.   IVcSeriesMarker = dispinterface;
  697.   IVcSeriesLabel = dispinterface;
  698.   IVcStatLines = dispinterface;
  699.   IVcDataPointLabel = dispinterface;
  700.   IVcDataPoint = dispinterface;
  701.   IVcAxis = dispinterface;
  702.   IVcCategoryScale = dispinterface;
  703.   IVcDateScale = dispinterface;
  704.   IVcAxisGrid = dispinterface;
  705.   IVcIntersection = dispinterface;
  706.   IVcTick = dispinterface;
  707.   IVcScale = dispinterface;
  708.   IVcValueScale = dispinterface;
  709.   IVcAxisTitle = dispinterface;
  710.   IVcLabel = dispinterface;
  711.   IVcLight = dispinterface;
  712.   IVcElevation = dispinterface;
  713.   IVcAttribute = dispinterface;
  714.   IVcSurface = dispinterface;
  715.   IVcContour = dispinterface;
  716.   IVcLightSource = dispinterface;
  717.   IVcSeriesCollection = dispinterface;
  718.   IVcDataPoints = dispinterface;
  719.   IVcLabels = dispinterface;
  720.   IVcXYZ = dispinterface;
  721.   IVcLightSources = dispinterface;
  722.   IVcAttributes = dispinterface;
  723.   IVcContourGradient = dispinterface;
  724.  
  725. { Forward declarations: CoClasses }
  726.   VtChart = _DVtChart;
  727.   Coor = ICoor;
  728.   LCoor = ILCoor;
  729.   Coor3 = ICoor3;
  730.   LRect = ILRect;
  731.   Rect = IRect;
  732.   VtColor = IColor;
  733.   Brush = IBrush;
  734.   Shadow = IShadow;
  735.   TextLayout = ITextLayout;
  736.   Title = IVcTitle;
  737.   Location = ILocation;
  738.   VtFont = IFont;
  739.   Backdrop = IBackdrop;
  740.   Frame = IFrame;
  741.   Gradient = IGradient;
  742.   VtPicture = IPicture;
  743.   Fill = IFill;
  744.   Pen = IVcPen;
  745.   Marker = IVcMarker;
  746.   Footnote = IVcFootnote;
  747.   Legend = IVcLegend;
  748.   PrintInformation = IVcPrintInformation;
  749.   DataGrid = IVcDataGrid;
  750.   Plot = IVcPlot;
  751.   View3d = IVcView3d;
  752.   PlotBase = IVcPlotBase;
  753.   Doughnut = IVcDoughnut;
  754.   Pie = IVcPie;
  755.   Weighting = IVcWeighting;
  756.   Wall = IVcWall;
  757.   Series = IVcSeries;
  758.   Bar = IVcBar;
  759.   HiLo = IVcHiLo;
  760.   Position = IVcPosition;
  761.   SeriesMarker = IVcSeriesMarker;
  762.   SeriesLabel = IVcSeriesLabel;
  763.   StatLine = IVcStatLines;
  764.   DataPointLabel = IVcDataPointLabel;
  765.   DataPoint = IVcDataPoint;
  766.   Axis = IVcAxis;
  767.   CategoryScale = IVcCategoryScale;
  768.   DateScale = IVcDateScale;
  769.   AxisGrid = IVcAxisGrid;
  770.   Intersection = IVcIntersection;
  771.   Tick = IVcTick;
  772.   AxisScale = IVcScale;
  773.   ValueScale = IVcValueScale;
  774.   AxisTitle = IVcAxisTitle;
  775.   Label_ = IVcLabel;
  776.   Light = IVcLight;
  777.   Elevation = IVcElevation;
  778.   Attribute = IVcAttribute;
  779.   Surface = IVcSurface;
  780.   Contour = IVcContour;
  781.   LightSource = IVcLightSource;
  782.   SeriesCollection = IVcSeriesCollection;
  783.   DataPoints = IVcDataPoints;
  784.   Labels = IVcLabels;
  785.   XYZ = IVcXYZ;
  786.   LightSources = IVcLightSources;
  787.   Attributes = IVcAttributes;
  788.   ContourGradient = IVcContourGradient;
  789.  
  790. { Forward declarations: Enums }
  791.   FontStyleConstants = TOleEnum;
  792.   FontEffectsConstants = TOleEnum;
  793.   FrameStyleConstants = TOleEnum;
  794.   BrushStyleConstants = TOleEnum;
  795.   LabelComponentConstants = TOleEnum;
  796.   BrushPatternConstants = TOleEnum;
  797.   BrushHatchConstants = TOleEnum;
  798.   ShadowStyleConstants = TOleEnum;
  799.   MouseFlagConstants = TOleEnum;
  800.   PenStyleConstants = TOleEnum;
  801.   PenJoinConstants = TOleEnum;
  802.   PenCapConstants = TOleEnum;
  803.   GradientStyleConstants = TOleEnum;
  804.   PictureTypeConstants = TOleEnum;
  805.   PictureOptionConstants = TOleEnum;
  806.   PictureMapTypeConstants = TOleEnum;
  807.   FillStyleConstants = TOleEnum;
  808.   LocationTypeConstants = TOleEnum;
  809.   AxisIdConstants = TOleEnum;
  810.   AxisTickStyleConstants = TOleEnum;
  811.   DateIntervalTypeConstants = TOleEnum;
  812.   ScaleTypeConstants = TOleEnum;
  813.   PercentAxisBasisConstants = TOleEnum;
  814.   PieWeightBasisConstants = TOleEnum;
  815.   PieWeightStyleConstants = TOleEnum;
  816.   SortTypeConstants = TOleEnum;
  817.   AngleUnitsConstants = TOleEnum;
  818.   SubPlotLabelLocationTypeConstants = TOleEnum;
  819.   LabelLineStyleConstants = TOleEnum;
  820.   LabelLocationTypeConstants = TOleEnum;
  821.   ContourColorTypeConstants = TOleEnum;
  822.   ContourDisplayTypeConstants = TOleEnum;
  823.   SurfaceBaseTypeConstants = TOleEnum;
  824.   SurfaceDisplayTypeConstants = TOleEnum;
  825.   SurfaceProjectionTypeConstants = TOleEnum;
  826.   SurfaceWireframeTypeConstants = TOleEnum;
  827.   MarkerStyleConstants = TOleEnum;
  828.   ProjectionTypeConstants = TOleEnum;
  829.   SmoothingTypeConstants = TOleEnum;
  830.   HorizontalAlignmentConstants = TOleEnum;
  831.   VerticalAlignmentConstants = TOleEnum;
  832.   OrientationConstants = TOleEnum;
  833.   DcTypeConstants = TOleEnum;
  834.   PrintScaleTypeConstants = TOleEnum;
  835.   StatTypeConstants = TOleEnum;
  836.   PrintOrientationTypeConstants = TOleEnum;
  837.   TextOutputTypeConstants = TOleEnum;
  838.   TextLengthTypeConstants = TOleEnum;
  839.   PartTypeConstants = TOleEnum;
  840.   DrawModeConstants = TOleEnum;
  841.   SsLinkModeConstants = TOleEnum;
  842.   SeriesTypeConstants = TOleEnum;
  843.   ChartTypeConstants = TOleEnum;
  844.  
  845. { Interface for VtChart Control }
  846.  
  847.   _DVtChart = dispinterface
  848.     ['{5A721581-5AF0-11CE-8384-0020AF2337F2}']
  849.     property AutoIncrement: WordBool dispid 1;
  850.     property RandomFill: WordBool dispid 2;
  851.     property ChartType: Smallint dispid 3;
  852.     property Column: Smallint dispid 4;
  853.     property ColumnCount: Smallint dispid 5;
  854.     property ColumnLabel: WideString dispid 6;
  855.     property ColumnLabelCount: Smallint dispid 7;
  856.     property ColumnLabelIndex: Smallint dispid 8;
  857.     property Data: WideString dispid 9;
  858.     property FootnoteText: WideString dispid 10;
  859.     property Repaint: WordBool dispid 11;
  860.     property Row: Smallint dispid 12;
  861.     property RowCount: Smallint dispid 13;
  862.     property RowLabel: WideString dispid 14;
  863.     property RowLabelCount: Smallint dispid 15;
  864.     property RowLabelIndex: Smallint dispid 16;
  865.     property SeriesColumn: Smallint dispid 17;
  866.     property SeriesType: Smallint dispid 18;
  867.     property ShowLegend: WordBool dispid 19;
  868.     property SsLinkMode: Smallint dispid 20;
  869.     property SsLinkRange: WideString dispid 21;
  870.     property SsLinkSheet: WideString dispid 22;
  871.     property DrawMode: Smallint dispid 23;
  872.     property BorderStyle: Smallint dispid -504;
  873.     property Enabled: WordBool dispid -514;
  874.     property hWnd: Smallint dispid -515;
  875.     property Handle: Integer readonly dispid 24;
  876.     property Picture: IPictureDisp readonly dispid 25;
  877.     property Title: IDispatch dispid 26;
  878.     property Footnote: IDispatch dispid 27;
  879.     property TitleText: WideString dispid 28;
  880.     property Stacking: WordBool dispid 29;
  881.     property TextLengthType: Smallint dispid 30;
  882.     property AllowUserChanges: WordBool dispid 31;
  883.     property AllowSelections: WordBool dispid 32;
  884.     property AllowSeriesSelection: WordBool dispid 33;
  885.     property AllowDynamicRotation: WordBool dispid 34;
  886.     property ActiveSeriesCount: Smallint dispid 35;
  887.     property Backdrop: IDispatch dispid 36;
  888.     property PrintInformation: IDispatch dispid 37;
  889.     property Legend: IDispatch dispid 38;
  890.     property DataGrid: IDispatch dispid 39;
  891.     property Plot: IDispatch dispid 40;
  892.     property TwipsWidth: Integer dispid 41;
  893.     property TwipsHeight: Integer dispid 42;
  894.     property AllowDithering: WordBool dispid 43;
  895.     property ErrorOffset: Smallint dispid 44;
  896.     property DoSetCursor: WordBool dispid 45;
  897.     property FileName: WideString dispid 46;
  898.     property Chart3d: WordBool dispid 47;
  899.     property SsLinkBook: WideString dispid 48;
  900.     procedure EditPaste; dispid 49;
  901.     procedure EditCopy; dispid 50;
  902.     procedure ActivateSelectionDialog; dispid 51;
  903.     procedure Layout; dispid 52;
  904.     procedure ToDefaults; dispid 53;
  905.     procedure PrintSetupDialog; dispid 54;
  906.     procedure PrintChart; dispid 55;
  907.     procedure SelectPart(part, index1, index2, index3, index4: Smallint); dispid 56;
  908.     procedure GetSelectedPart(var part, index1, index2, index3, index4: Smallint); dispid 57;
  909.     procedure GetDLLVersion(var major, minor: Smallint); dispid 58;
  910.     procedure TwipsToChartPart(xVal, yVal: Integer; var part, index1, index2, index3, index4: Smallint); dispid 59;
  911.     procedure ReadFromFile(const FileName: WideString); dispid 60;
  912.     procedure WritePictureToFile(const FileName: WideString; pictureType, options: Smallint); dispid 61;
  913.     procedure WriteToFile(const FileName: WideString); dispid 62;
  914.     procedure ActivateFormatMenu(X, Y: Integer); dispid 63;
  915.     procedure GetMetafile(options: Smallint; var Handle: OLE_HANDLE; var Width, Height: Integer); dispid 64;
  916.     procedure CopyDataFromArray(Top, Left, Bottom, Right: Smallint; Array_: OleVariant); dispid 65;
  917.     procedure CopyDataToArray(Top, Left, Bottom, Right: Smallint; Array_: OleVariant); dispid 66;
  918.     procedure Draw(hDC: OLE_HANDLE; hDCType: Smallint; Top, Left, Bottom, Right: Integer; Layout, Stretch: WordBool); dispid 67;
  919.     property GetBitmap[options: OleVariant]: OLE_HANDLE readonly dispid 70;
  920.     procedure UseWizard; dispid 68;
  921.     procedure EditChartData; dispid 69;
  922.     procedure Refresh; dispid -550;
  923.     procedure AboutBox; dispid -552;
  924.   end;
  925.  
  926. { Event interface for Vtchart Control }
  927.  
  928.   _DVtChartEvents = dispinterface
  929.     ['{5A721582-5AF0-11CE-8384-0020AF2337F2}']
  930.     procedure ChartSelected(var MouseFlags, Cancel: Smallint); dispid 1;
  931.     procedure TitleSelected(var MouseFlags, Cancel: Smallint); dispid 2;
  932.     procedure FootnoteSelected(var MouseFlags, Cancel: Smallint); dispid 3;
  933.     procedure LegendSelected(var MouseFlags, Cancel: Smallint); dispid 4;
  934.     procedure PlotSelected(var MouseFlags, Cancel: Smallint); dispid 5;
  935.     procedure AxisSelected(var AxisId, AxisIndex, MouseFlags, Cancel: Smallint); dispid 6;
  936.     procedure AxisLabelSelected(var AxisId, AxisIndex, labelSetIndex, LabelIndex, MouseFlags, Cancel: Smallint); dispid 7;
  937.     procedure AxisTitleSelected(var AxisId, AxisIndex, MouseFlags, Cancel: Smallint); dispid 8;
  938.     procedure PointSelected(var Series, DataPoint, MouseFlags, Cancel: Smallint); dispid 9;
  939.     procedure PointLabelSelected(var Series, DataPoint, MouseFlags, Cancel: Smallint); dispid 10;
  940.     procedure SeriesSelected(var Series, MouseFlags, Cancel: Smallint); dispid 11;
  941.     procedure SeriesLabelSelected(var Series, MouseFlags, Cancel: Smallint); dispid 12;
  942.     procedure ChartActivated(var MouseFlags, Cancel: Smallint); dispid 13;
  943.     procedure TitleActivated(var MouseFlags, Cancel: Smallint); dispid 14;
  944.     procedure FootnoteActivated(var MouseFlags, Cancel: Smallint); dispid 15;
  945.     procedure LegendActivated(var MouseFlags, Cancel: Smallint); dispid 16;
  946.     procedure PlotActivated(var MouseFlags, Cancel: Smallint); dispid 17;
  947.     procedure AxisActivated(var AxisId, AxisIndex, MouseFlags, Cancel: Smallint); dispid 18;
  948.     procedure AxisLabelActivated(var AxisId, AxisIndex, labelSetIndex, LabelIndex, MouseFlags, Cancel: Smallint); dispid 19;
  949.     procedure AxisTitleActivated(var AxisId, AxisIndex, MouseFlags, Cancel: Smallint); dispid 20;
  950.     procedure PointActivated(var Series, DataPoint, MouseFlags, Cancel: Smallint); dispid 21;
  951.     procedure PointLabelActivated(var Series, DataPoint, MouseFlags, Cancel: Smallint); dispid 22;
  952.     procedure SeriesActivated(var Series, MouseFlags, Cancel: Smallint); dispid 23;
  953.     procedure SeriesLabelActivated(var Series, MouseFlags, Cancel: Smallint); dispid 24;
  954.     procedure Click; dispid -600;
  955.     procedure DblClick; dispid -601;
  956.     procedure KeyDown(var KeyCode: Smallint; Shift: Smallint); dispid -602;
  957.     procedure KeyPress(var KeyAscii: Smallint); dispid -603;
  958.     procedure KeyUp(var KeyCode: Smallint; Shift: Smallint); dispid -604;
  959.     procedure MouseDown(Button, Shift: Smallint; X: OLE_XPOS_PIXELS; Y: OLE_YPOS_PIXELS); dispid -605;
  960.     procedure MouseMove(Button, Shift: Smallint; X: OLE_XPOS_PIXELS; Y: OLE_YPOS_PIXELS); dispid -606;
  961.     procedure MouseUp(Button, Shift: Smallint; X: OLE_XPOS_PIXELS; Y: OLE_YPOS_PIXELS); dispid -607;
  962.     procedure ApplyChanges; dispid 25;
  963.   end;
  964.  
  965. { Coor object }
  966.  
  967.   ICoor = dispinterface
  968.     ['{EBF97E20-731F-11CE-840F-00AA0042CB33}']
  969.     property X: Single dispid 1;
  970.     property Y: Single dispid 2;
  971.     procedure Set_(X, Y: Single); dispid 3;
  972.   end;
  973.  
  974. { LCoor object }
  975.  
  976.   ILCoor = dispinterface
  977.     ['{EBF97E22-731F-11CE-840F-00AA0042CB33}']
  978.     property X: Integer dispid 1;
  979.     property Y: Integer dispid 2;
  980.     procedure Set_(X, Y: Integer); dispid 3;
  981.   end;
  982.  
  983. { Coor3 object }
  984.  
  985.   ICoor3 = dispinterface
  986.     ['{177BF2A0-7350-11CE-840F-00AA0042CB33}']
  987.     property X: Single dispid 1;
  988.     property Y: Single dispid 2;
  989.     property Z: Single dispid 3;
  990.     procedure Set_(X, Y, Z: Single); dispid 4;
  991.   end;
  992.  
  993. { LRect object }
  994.  
  995.   ILRect = dispinterface
  996.     ['{177BF2A2-7350-11CE-840F-00AA0042CB33}']
  997.     property Min: IDispatch dispid 1;
  998.     property Max: IDispatch dispid 2;
  999.   end;
  1000.  
  1001. { Rect object }
  1002.  
  1003.   IRect = dispinterface
  1004.     ['{FE5517C0-73FE-11CE-840F-00AA0042CB33}']
  1005.     property Min: IDispatch dispid 1;
  1006.     property Max: IDispatch dispid 2;
  1007.   end;
  1008.  
  1009. { VtColor object }
  1010.  
  1011.   IColor = dispinterface
  1012.     ['{9BA79C60-7403-11CE-840F-00AA0042CB33}']
  1013.     property Red: Smallint dispid 1;
  1014.     property Green: Smallint dispid 2;
  1015.     property Blue: Smallint dispid 3;
  1016.     property Automatic: WordBool dispid 4;
  1017.     procedure Set_(Red, Green, Blue: Smallint); dispid 5;
  1018.   end;
  1019.  
  1020. { Brush object }
  1021.  
  1022.   IBrush = dispinterface
  1023.     ['{AFE57020-7409-11CE-840F-00AA0042CB33}']
  1024.     property Style: Smallint dispid 1;
  1025.     property FillColor: IDispatch dispid 2;
  1026.     property PatternColor: IDispatch dispid 3;
  1027.     property Index: Smallint dispid 4;
  1028.   end;
  1029.  
  1030. { Shadow object }
  1031.  
  1032.   IShadow = dispinterface
  1033.     ['{AFE57022-7409-11CE-840F-00AA0042CB33}']
  1034.     property Style: Smallint dispid 1;
  1035.     property Brush: IDispatch dispid 2;
  1036.     property Offset: IDispatch dispid 3;
  1037.   end;
  1038.  
  1039. { TextLayout object }
  1040.  
  1041.   ITextLayout = dispinterface
  1042.     ['{E26C7700-756C-11CE-840F-00AA0042CB33}']
  1043.     property HorzAlignment: Smallint dispid 1;
  1044.     property VertAlignment: Smallint dispid 2;
  1045.     property Orientation: Smallint dispid 3;
  1046.     property WordWrap: WordBool dispid 4;
  1047.   end;
  1048.  
  1049. { Title object }
  1050.  
  1051.   IVcTitle = dispinterface
  1052.     ['{C82141A0-7571-11CE-840F-00AA0042CB33}']
  1053.     property TextLayout: IDispatch dispid 1;
  1054.     property Text: WideString dispid 2;
  1055.     property _Text: WideString dispid 0;
  1056.     property Location: IDispatch dispid 3;
  1057.     property Backdrop: IDispatch dispid 4;
  1058.     property VtFont: IDispatch dispid 5;
  1059.     property TextLength: Smallint dispid 6;
  1060.     procedure Select; dispid 7;
  1061.   end;
  1062.  
  1063. { Location object }
  1064.  
  1065.   ILocation = dispinterface
  1066.     ['{EDDF9242-764B-11CE-840F-00AA0042CB33}']
  1067.     property Rect: IDispatch dispid 1;
  1068.     property Visible: WordBool dispid 2;
  1069.     property LocationType: Smallint dispid 3;
  1070.   end;
  1071.  
  1072. { VtFont object }
  1073.  
  1074.   IFont = dispinterface
  1075.     ['{2E6A37A0-77FC-11CE-840F-00AA0042CB33}']
  1076.     property Name: WideString dispid 1;
  1077.     property Size: Single dispid 2;
  1078.     property Style: Smallint dispid 3;
  1079.     property Effect: Smallint dispid 4;
  1080.     property VtColor: IDispatch dispid 5;
  1081.   end;
  1082.  
  1083. { Backdrop object }
  1084.  
  1085.   IBackdrop = dispinterface
  1086.     ['{2E6A37A2-77FC-11CE-840F-00AA0042CB33}']
  1087.     property Shadow: IDispatch dispid 1;
  1088.     property Frame: IDispatch dispid 2;
  1089.     property Fill: IDispatch dispid 3;
  1090.   end;
  1091.  
  1092. { Frame object }
  1093.  
  1094.   IFrame = dispinterface
  1095.     ['{2E6A37A4-77FC-11CE-840F-00AA0042CB33}']
  1096.     property Style: Smallint dispid 1;
  1097.     property FrameColor: IDispatch dispid 2;
  1098.     property SpaceColor: IDispatch dispid 3;
  1099.     property Width: Single dispid 4;
  1100.   end;
  1101.  
  1102. { Gradient object }
  1103.  
  1104.   IGradient = dispinterface
  1105.     ['{2E6A37A6-77FC-11CE-840F-00AA0042CB33}']
  1106.     property Style: Smallint dispid 1;
  1107.     property FromColor: IDispatch dispid 2;
  1108.     property ToColor: IDispatch dispid 3;
  1109.   end;
  1110.  
  1111. { VtPicture object }
  1112.  
  1113.   IPicture = dispinterface
  1114.     ['{FD30FB00-789C-11CE-840F-00AA0042CB33}']
  1115.     property Type_: Smallint dispid 1;
  1116.     property Map: Smallint dispid 2;
  1117.     property Embedded: WordBool dispid 3;
  1118.     property FileName: WideString dispid 4;
  1119.   end;
  1120.  
  1121. { Fill object }
  1122.  
  1123.   IFill = dispinterface
  1124.     ['{FD30FB02-789C-11CE-840F-00AA0042CB33}']
  1125.     property Style: Smallint dispid 1;
  1126.     property Brush: IDispatch dispid 2;
  1127.     property Gradient: IDispatch dispid 3;
  1128.     property VtPicture: IDispatch dispid 4;
  1129.   end;
  1130.  
  1131. { Pen object }
  1132.  
  1133.   IVcPen = dispinterface
  1134.     ['{279B5A40-8098-11CE-BECC-00AA0042CB33}']
  1135.     property Style: Smallint dispid 1;
  1136.     property Join: Smallint dispid 2;
  1137.     property Cap: Smallint dispid 3;
  1138.     property VtColor: IDispatch dispid 4;
  1139.     property Width: Single dispid 5;
  1140.     property Limit: Single dispid 6;
  1141.   end;
  1142.  
  1143. { Marker object }
  1144.  
  1145.   IVcMarker = dispinterface
  1146.     ['{3080E742-813F-11CE-BECC-00AA0042CB33}']
  1147.     property Visible: WordBool dispid 1;
  1148.     property Style: Smallint dispid 2;
  1149.     property Pen: IDispatch dispid 3;
  1150.     property Size: Single dispid 4;
  1151.     property FillColor: IDispatch dispid 5;
  1152.     property VtPicture: IDispatch dispid 6;
  1153.   end;
  1154.  
  1155. { Footnote object }
  1156.  
  1157.   IVcFootnote = dispinterface
  1158.     ['{4F053F00-8396-11CE-BECC-00AA0042CB33}']
  1159.     property TextLayout: IDispatch dispid 1;
  1160.     property Location: IDispatch dispid 2;
  1161.     property Backdrop: IDispatch dispid 3;
  1162.     property VtFont: IDispatch dispid 4;
  1163.     property Text: WideString dispid 5;
  1164.     property _Text: WideString dispid 0;
  1165.     property TextLength: Smallint dispid 6;
  1166.     procedure Select; dispid 7;
  1167.   end;
  1168.  
  1169. { Legend object }
  1170.  
  1171.   IVcLegend = dispinterface
  1172.     ['{95C52B60-83B1-11CE-BECC-00AA0042CB33}']
  1173.     property Location: IDispatch dispid 1;
  1174.     property Backdrop: IDispatch dispid 2;
  1175.     property VtFont: IDispatch dispid 3;
  1176.     property TextLayout: IDispatch dispid 4;
  1177.     procedure Select; dispid 5;
  1178.   end;
  1179.  
  1180. { PrintInformation object }
  1181.  
  1182.   IVcPrintInformation = dispinterface
  1183.     ['{CFA0AC00-8B6E-11CE-840F-00AA0042CB33}']
  1184.     property ScaleType: Smallint dispid 1;
  1185.     property Orientation: Smallint dispid 2;
  1186.     property TopMargin: Single dispid 3;
  1187.     property BottomMargin: Single dispid 4;
  1188.     property LeftMargin: Single dispid 5;
  1189.     property RightMargin: Single dispid 6;
  1190.     property CenterHorizontally: WordBool dispid 7;
  1191.     property CenterVertically: WordBool dispid 8;
  1192.     property Monochrome: WordBool dispid 9;
  1193.     property LayoutForPrinter: WordBool dispid 10;
  1194.     procedure PrintCopies(NumberCopies: Smallint); dispid 11;
  1195.   end;
  1196.  
  1197. { DataGrid object }
  1198.  
  1199.   IVcDataGrid = dispinterface
  1200.     ['{6CB603A0-8F70-11CE-840F-00AA0042CB33}']
  1201.     property ColumnCount: Smallint dispid 1;
  1202.     property ColumnLabelCount: Smallint dispid 2;
  1203.     property RowLabelCount: Smallint dispid 3;
  1204.     property RowCount: Smallint dispid 4;
  1205.     procedure DeleteColumns(Column, Count: Smallint); dispid 5;
  1206.     procedure InsertColumns(Column, Count: Smallint); dispid 6;
  1207.     procedure DeleteColumnLabels(LabelIndex, Count: Smallint); dispid 7;
  1208.     procedure InsertColumnLabels(LabelIndex, Count: Smallint); dispid 8;
  1209.     procedure DeleteRows(Row, Count: Smallint); dispid 9;
  1210.     procedure InsertRows(Row, Count: Smallint); dispid 10;
  1211.     procedure DeleteRowLabels(LabelIndex, Count: Smallint); dispid 11;
  1212.     procedure InsertRowLabels(LabelIndex, Count: Smallint); dispid 12;
  1213.     procedure RandomDataFill; dispid 13;
  1214.     procedure SetSize(RowLabelCount, ColumnLabelCount, DataRowCount, DataColumnCount: Smallint); dispid 14;
  1215.     procedure InitializeLabels; dispid 15;
  1216.     property ColumnLabel[Column, LabelIndex: Smallint]: WideString dispid 21;
  1217.     property CompositeColumnLabel[Column: Smallint]: WideString readonly dispid 22;
  1218.     property CompositeRowLabel[Row: Smallint]: WideString readonly dispid 23;
  1219.     property RowLabel[Row, LabelIndex: Smallint]: WideString dispid 24;
  1220.     procedure RandomFillColumns(Column, Count: Smallint); dispid 16;
  1221.     procedure RandomFillRows(Row, Count: Smallint); dispid 17;
  1222.     procedure MoveData(Top, Left, Bottom, Right, OverOffset, DownOffset: Smallint); dispid 18;
  1223.     procedure GetData(Row, Column: Smallint; var DataPoint: Double; var nullFlag: Smallint); dispid 19;
  1224.     procedure SetData(Row, Column: Smallint; DataPoint: Double; nullFlag: Smallint); dispid 20;
  1225.   end;
  1226.  
  1227. { Plot object }
  1228.  
  1229.   IVcPlot = dispinterface
  1230.     ['{F77BA680-9037-11CE-86B3-444553540000}']
  1231.     property AngleUnit: Smallint dispid 1;
  1232.     property Clockwise: WordBool dispid 2;
  1233.     property Sort: Smallint dispid 3;
  1234.     property MaxBubbleToAxisRatio: Single dispid 4;
  1235.     property Backdrop: IDispatch dispid 5;
  1236.     property Perspective: IDispatch dispid 6;
  1237.     property ScaleAngle: Single dispid 7;
  1238.     property StartingAngle: Single dispid 8;
  1239.     property SubPlotLabelPosition: Smallint dispid 9;
  1240.     property BarGap: Single dispid 10;
  1241.     property xGap: Single dispid 11;
  1242.     property AutoLayout: WordBool dispid 12;
  1243.     property WidthToHeightRatio: Single dispid 13;
  1244.     property DepthToHeightRatio: Single dispid 14;
  1245.     property LocationRect: IDispatch dispid 15;
  1246.     property Projection: Smallint dispid 16;
  1247.     property zGap: Single dispid 17;
  1248.     property View3d: IDispatch dispid 18;
  1249.     property PlotBase: IDispatch dispid 19;
  1250.     property Doughnut: IDispatch dispid 20;
  1251.     property Pie: IDispatch dispid 21;
  1252.     property Weighting: IDispatch dispid 22;
  1253.     property Wall: IDispatch dispid 23;
  1254.     property Elevation: IDispatch dispid 24;
  1255.     property SeriesCollection: IDispatch dispid 25;
  1256.     property DataSeriesInRow: WordBool dispid 26;
  1257.     property Light: IDispatch dispid 27;
  1258.     property XYZ: IDispatch dispid 28;
  1259.     property DefaultPercentBasis: Smallint dispid 29;
  1260.     property UniformAxis: WordBool dispid 30;
  1261.     property Axis[AxisId: Smallint; Index: OleVariant]: IDispatch readonly dispid 31;
  1262.   end;
  1263.  
  1264. { View3d object }
  1265.  
  1266.   IVcView3d = dispinterface
  1267.     ['{21645F62-90F0-11CE-86B3-444553540000}']
  1268.     property Rotation: Single dispid 1;
  1269.     property Elevation: Single dispid 2;
  1270.     procedure Set_(Rotation, Elevation: Single); dispid 4;
  1271.   end;
  1272.  
  1273. { PlotBase object }
  1274.  
  1275.   IVcPlotBase = dispinterface
  1276.     ['{508D02E0-90FC-11CE-86B3-444553540000}']
  1277.     property BaseHeight: Single dispid 1;
  1278.     property Brush: IDispatch dispid 2;
  1279.     property Pen: IDispatch dispid 3;
  1280.   end;
  1281.  
  1282. { Doughnut object }
  1283.  
  1284.   IVcDoughnut = dispinterface
  1285.     ['{508D02E2-90FC-11CE-86B3-444553540000}']
  1286.     property Sides: Smallint dispid 1;
  1287.     property InteriorRatio: Single dispid 2;
  1288.     procedure Set_(InteriorRatio: Single; Sides: Smallint); dispid 3;
  1289.   end;
  1290.  
  1291. { Pie object }
  1292.  
  1293.   IVcPie = dispinterface
  1294.     ['{508D02E4-90FC-11CE-86B3-444553540000}']
  1295.     property ThicknessRatio: Single dispid 1;
  1296.     property TopRadiusRatio: Single dispid 2;
  1297.     procedure Set_(ThicknessRatio, TopRadiusRation: Single); dispid 3;
  1298.   end;
  1299.  
  1300. { Weighting object }
  1301.  
  1302.   IVcWeighting = dispinterface
  1303.     ['{508D02E6-90FC-11CE-86B3-444553540000}']
  1304.     property Basis: Smallint dispid 1;
  1305.     property Style: Smallint dispid 2;
  1306.     procedure Set_(Basis, Style: Smallint); dispid 3;
  1307.   end;
  1308.  
  1309. { Wall object }
  1310.  
  1311.   IVcWall = dispinterface
  1312.     ['{508D02E8-90FC-11CE-86B3-444553540000}']
  1313.     property Width: Single dispid 1;
  1314.     property Brush: IDispatch dispid 2;
  1315.     property Pen: IDispatch dispid 3;
  1316.   end;
  1317.  
  1318. { Series object }
  1319.  
  1320.   IVcSeries = dispinterface
  1321.     ['{0AA0FE20-912A-11CE-86B3-444553540000}']
  1322.     property SecondaryAxis: WordBool dispid 1;
  1323.     property SmoothingType: Smallint dispid 2;
  1324.     property SmoothingFactor: Smallint dispid 3;
  1325.     property SeriesType: Smallint dispid 4;
  1326.     property GuideLinePen: IDispatch dispid 5;
  1327.     property ShowLine: WordBool dispid 6;
  1328.     property Pen: IDispatch dispid 7;
  1329.     property Bar: IDispatch dispid 8;
  1330.     property HiLo: IDispatch dispid 9;
  1331.     property Position: IDispatch dispid 10;
  1332.     property SeriesMarker: IDispatch dispid 11;
  1333.     property SeriesLabel: IDispatch dispid 12;
  1334.     property StatLine: IDispatch dispid 13;
  1335.     property DataPoints: IDispatch dispid 14;
  1336.     property LegendText: WideString dispid 15;
  1337.     property _LegendText: WideString dispid 0;
  1338.     property ShowGuideLine[AxisId: Smallint]: WordBool dispid 17;
  1339.     procedure Select; dispid 16;
  1340.     property TypeByChartType[ChartType: Smallint]: Smallint readonly dispid 18;
  1341.   end;
  1342.  
  1343. { Bar object }
  1344.  
  1345.   IVcBar = dispinterface
  1346.     ['{264931C0-91F1-11CE-840F-00AA0042CB33}']
  1347.     property Sides: Smallint dispid 1;
  1348.     property TopRatio: Single dispid 2;
  1349.   end;
  1350.  
  1351. { HiLo object }
  1352.  
  1353.   IVcHiLo = dispinterface
  1354.     ['{51DCC620-95B7-11CE-86B3-444553540000}']
  1355.     property GainColor: IDispatch dispid 1;
  1356.     property LossColor: IDispatch dispid 2;
  1357.   end;
  1358.  
  1359. { Position object }
  1360.  
  1361.   IVcPosition = dispinterface
  1362.     ['{51DCC622-95B7-11CE-86B3-444553540000}']
  1363.     property Excluded: WordBool dispid 1;
  1364.     property Hidden: WordBool dispid 2;
  1365.     property Order: Smallint dispid 3;
  1366.     property StackOrder: Smallint dispid 4;
  1367.   end;
  1368.  
  1369. { SeriesMarker object }
  1370.  
  1371.   IVcSeriesMarker = dispinterface
  1372.     ['{51DCC624-95B7-11CE-86B3-444553540000}']
  1373.     property Auto: WordBool dispid 1;
  1374.     property Show: WordBool dispid 2;
  1375.   end;
  1376.  
  1377. { SeriesLabel object }
  1378.  
  1379.   IVcSeriesLabel = dispinterface
  1380.     ['{51DCC626-95B7-11CE-86B3-444553540000}']
  1381.     property Text: WideString dispid 1;
  1382.     property _Text: WideString dispid 0;
  1383.     property LocationType: Smallint dispid 2;
  1384.     property LineStyle: Smallint dispid 3;
  1385.     property Offset: IDispatch dispid 4;
  1386.     property Backdrop: IDispatch dispid 5;
  1387.     property VtFont: IDispatch dispid 6;
  1388.     property TextLayout: IDispatch dispid 7;
  1389.     property TextLength: Smallint dispid 8;
  1390.   end;
  1391.  
  1392. { StatLine object }
  1393.  
  1394.   IVcStatLines = dispinterface
  1395.     ['{2F6DD6A0-95E5-11CE-86B3-444553540000}']
  1396.     property Flag: Smallint dispid 1;
  1397.     property VtColor: IDispatch dispid 2;
  1398.     property Width: Single dispid 3;
  1399.     property Style[Type_: Smallint]: Smallint dispid 4;
  1400.   end;
  1401.  
  1402. { DataPointLabel object }
  1403.  
  1404.   IVcDataPointLabel = dispinterface
  1405.     ['{2F6DD6A2-95E5-11CE-86B3-444553540000}']
  1406.     property Text: WideString dispid 1;
  1407.     property _Text: WideString dispid 0;
  1408.     property Backdrop: IDispatch dispid 2;
  1409.     property VtFont: IDispatch dispid 3;
  1410.     property Offset: IDispatch dispid 4;
  1411.     property TextLayout: IDispatch dispid 5;
  1412.     property LocationType: Smallint dispid 6;
  1413.     property Custom: WordBool dispid 7;
  1414.     property Component: Smallint dispid 8;
  1415.     property LineStyle: Smallint dispid 9;
  1416.     property ValueFormat: WideString dispid 10;
  1417.     property PercentFormat: WideString dispid 11;
  1418.     property TextLength: Smallint dispid 12;
  1419.     procedure ResetCustomLabel; dispid 13;
  1420.     procedure Select; dispid 14;
  1421.   end;
  1422.  
  1423. { DataPoint object }
  1424.  
  1425.   IVcDataPoint = dispinterface
  1426.     ['{2F6DD6A4-95E5-11CE-86B3-444553540000}']
  1427.     property DataPointLabel: IDispatch dispid 1;
  1428.     property Brush: IDispatch dispid 2;
  1429.     property EdgePen: IDispatch dispid 3;
  1430.     property Marker: IDispatch dispid 4;
  1431.     property Offset: Single dispid 5;
  1432.     property VtPicture: IDispatch dispid 6;
  1433.     procedure ResetCustom; dispid 7;
  1434.     procedure Select; dispid 8;
  1435.   end;
  1436.  
  1437. { Axis(axisId, 1) object }
  1438.  
  1439.   IVcAxis = dispinterface
  1440.     ['{027D7900-A023-11CE-840F-00AA0042CB33}']
  1441.     property Pen: IDispatch dispid 1;
  1442.     property LabelLevelCount: Smallint dispid 2;
  1443.     property CategoryScale: IDispatch dispid 3;
  1444.     property DateScale: IDispatch dispid 4;
  1445.     property AxisGrid: IDispatch dispid 5;
  1446.     property Intersection: IDispatch dispid 6;
  1447.     property Tick: IDispatch dispid 7;
  1448.     property AxisScale: IDispatch dispid 8;
  1449.     property ValueScale: IDispatch dispid 9;
  1450.     property AxisTitle: IDispatch dispid 10;
  1451.     property Labels: IDispatch dispid 11;
  1452.   end;
  1453.  
  1454. { CategoryScale object }
  1455.  
  1456.   IVcCategoryScale = dispinterface
  1457.     ['{62375360-A17D-11CE-840F-00AA0042CB33}']
  1458.     property Auto: WordBool dispid 1;
  1459.     property DivisionsPerLabel: Smallint dispid 2;
  1460.     property DivisionsPerTick: Smallint dispid 3;
  1461.     property LabelTick: WordBool dispid 4;
  1462.   end;
  1463.  
  1464. { DateScale object }
  1465.  
  1466.   IVcDateScale = dispinterface
  1467.     ['{62375362-A17D-11CE-840F-00AA0042CB33}']
  1468.     property Auto: WordBool dispid 1;
  1469.     property Minimum: Double dispid 2;
  1470.     property Maximum: Double dispid 3;
  1471.     property MajInt: Smallint dispid 4;
  1472.     property MajFreq: Smallint dispid 5;
  1473.     property MinInt: Smallint dispid 6;
  1474.     property MinFreq: Smallint dispid 7;
  1475.     property SkipWeekend: WordBool dispid 8;
  1476.   end;
  1477.  
  1478. { AxisGrid object }
  1479.  
  1480.   IVcAxisGrid = dispinterface
  1481.     ['{62375364-A17D-11CE-840F-00AA0042CB33}']
  1482.     property MinorPen: IDispatch dispid 1;
  1483.     property MajorPen: IDispatch dispid 2;
  1484.   end;
  1485.  
  1486. { Intersection object }
  1487.  
  1488.   IVcIntersection = dispinterface
  1489.     ['{62375366-A17D-11CE-840F-00AA0042CB33}']
  1490.     property Auto: WordBool dispid 1;
  1491.     property Point: Double dispid 2;
  1492.     property AxisId: Smallint dispid 3;
  1493.     property Index: Smallint dispid 4;
  1494.     property LabelsInsidePlot: WordBool dispid 5;
  1495.   end;
  1496.  
  1497. { Tick object }
  1498.  
  1499.   IVcTick = dispinterface
  1500.     ['{62375368-A17D-11CE-840F-00AA0042CB33}']
  1501.     property Length: Single dispid 1;
  1502.     property Style: Smallint dispid 2;
  1503.   end;
  1504.  
  1505. { AxisScale object }
  1506.  
  1507.   IVcScale = dispinterface
  1508.     ['{6237536A-A17D-11CE-840F-00AA0042CB33}']
  1509.     property Hide: WordBool dispid 1;
  1510.     property Type_: Smallint dispid 2;
  1511.     property LogBase: Smallint dispid 3;
  1512.     property PercentBasis: Smallint dispid 4;
  1513.   end;
  1514.  
  1515. { ValueScale object }
  1516.  
  1517.   IVcValueScale = dispinterface
  1518.     ['{6237536C-A17D-11CE-840F-00AA0042CB33}']
  1519.     property Auto: WordBool dispid 1;
  1520.     property Minimum: Double dispid 2;
  1521.     property Maximum: Double dispid 3;
  1522.     property MajorDivision: Smallint dispid 4;
  1523.     property MinorDivision: Smallint dispid 5;
  1524.   end;
  1525.  
  1526. { AxisTitle object }
  1527.  
  1528.   IVcAxisTitle = dispinterface
  1529.     ['{6237536E-A17D-11CE-840F-00AA0042CB33}']
  1530.     property Text: WideString dispid 1;
  1531.     property _Text: WideString dispid 0;
  1532.     property Backdrop: IDispatch dispid 2;
  1533.     property VtFont: IDispatch dispid 3;
  1534.     property Visible: WordBool dispid 4;
  1535.     property TextLayout: IDispatch dispid 5;
  1536.     property TextLength: Smallint dispid 6;
  1537.   end;
  1538.  
  1539. { Label object }
  1540.  
  1541.   IVcLabel = dispinterface
  1542.     ['{62375370-A17D-11CE-840F-00AA0042CB33}']
  1543.     property Backdrop: IDispatch dispid 1;
  1544.     property Format: WideString dispid 2;
  1545.     property VtFont: IDispatch dispid 3;
  1546.     property Auto: WordBool dispid 4;
  1547.     property Standing: WordBool dispid 5;
  1548.     property TextLayout: IDispatch dispid 6;
  1549.     property FormatLength: Smallint dispid 7;
  1550.   end;
  1551.  
  1552. { Light object }
  1553.  
  1554.   IVcLight = dispinterface
  1555.     ['{B54A6420-A25E-11CE-840F-00AA0042CB33}']
  1556.     property AmbientIntensity: Single dispid 1;
  1557.     property EdgeIntensity: Single dispid 2;
  1558.     property EdgeVisible: WordBool dispid 3;
  1559.     property LightSources: IDispatch dispid 4;
  1560.   end;
  1561.  
  1562. { Elevation object }
  1563.  
  1564.   IVcElevation = dispinterface
  1565.     ['{A71FB700-A732-11CE-840F-00AA0042CB33}']
  1566.     property ColorType: Smallint dispid 1;
  1567.     property RowSmoothing: Smallint dispid 2;
  1568.     property ColSmoothing: Smallint dispid 3;
  1569.     property Surface: IDispatch dispid 4;
  1570.     property AutoValues: WordBool dispid 5;
  1571.     property SeparateContourData: WordBool dispid 6;
  1572.     property Contour: IDispatch dispid 7;
  1573.     property Attributes: IDispatch dispid 8;
  1574.     property ContourGradient: IDispatch dispid 9;
  1575.   end;
  1576.  
  1577. { Attribute object }
  1578.  
  1579.   IVcAttribute = dispinterface
  1580.     ['{A71FB702-A732-11CE-840F-00AA0042CB33}']
  1581.     property Value: Double dispid 1;
  1582.     property Brush: IDispatch dispid 2;
  1583.     property Pen: IDispatch dispid 3;
  1584.     property Text: WideString dispid 4;
  1585.     property _Text: WideString dispid 0;
  1586.   end;
  1587.  
  1588. { Surface object }
  1589.  
  1590.   IVcSurface = dispinterface
  1591.     ['{A71FB704-A732-11CE-840F-00AA0042CB33}']
  1592.     property Brush: IDispatch dispid 1;
  1593.     property WireframePen: IDispatch dispid 2;
  1594.     property Projection: Smallint dispid 3;
  1595.     property DisplayType: Smallint dispid 4;
  1596.     property RowWireframe: Smallint dispid 5;
  1597.     property ColWireframe: Smallint dispid 6;
  1598.     property Base: Smallint dispid 7;
  1599.   end;
  1600.  
  1601. { Contour object }
  1602.  
  1603.   IVcContour = dispinterface
  1604.     ['{A71FB706-A732-11CE-840F-00AA0042CB33}']
  1605.     property DisplayType: Smallint dispid 1;
  1606.   end;
  1607.  
  1608. { LightSource object }
  1609.  
  1610.   IVcLightSource = dispinterface
  1611.     ['{CD9EFA60-AA40-11CE-840F-00AA0042CB33}']
  1612.     property Intensity: Single dispid 1;
  1613.     property X: Single dispid 2;
  1614.     property Y: Single dispid 3;
  1615.     property Z: Single dispid 4;
  1616.     property _Intensity: Single dispid 0;
  1617.     procedure Set_(X, Y, Z, Intensity: Single); dispid 5;
  1618.   end;
  1619.  
  1620. { SeriesCollection Collection }
  1621.  
  1622.   IVcSeriesCollection = dispinterface
  1623.     ['{C14E8B60-AE2B-11CE-840F-00AA0042CB33}']
  1624.     property Count: Integer dispid 1;
  1625.     property Item[Index: Smallint]: IDispatch readonly dispid 2;
  1626.   end;
  1627.  
  1628. { DataPoints Collection }
  1629.  
  1630.   IVcDataPoints = dispinterface
  1631.     ['{C20E5260-B06F-11CE-840F-00AA0042CB33}']
  1632.     property Count: Integer dispid 1;
  1633.     property Item[DataPoint: Smallint]: IDispatch readonly dispid 2;
  1634.     property _Item[DataPoint: Smallint]: IDispatch readonly dispid 0;
  1635.   end;
  1636.  
  1637. { Labels Collection }
  1638.  
  1639.   IVcLabels = dispinterface
  1640.     ['{62B9A400-B93D-11CE-8410-00AA0042CB33}']
  1641.     property Count: Integer dispid 1;
  1642.     property Item[LabelIndex: Smallint]: IDispatch readonly dispid 2;
  1643.     property _Item[LabelIndex: Smallint]: IDispatch readonly dispid 0;
  1644.   end;
  1645.  
  1646. { XYZ Object }
  1647.  
  1648.   IVcXYZ = dispinterface
  1649.     ['{7D001800-BC65-11CE-8410-00AA0042CB33}']
  1650.     property xIntersection: Double dispid 1;
  1651.     property yIntersection: Double dispid 2;
  1652.     property zIntersection: Double dispid 3;
  1653.     property Automatic: WordBool dispid 4;
  1654.   end;
  1655.  
  1656. { LightSources Collection }
  1657.  
  1658.   IVcLightSources = dispinterface
  1659.     ['{6FE35CC0-CE50-11CE-8410-00AA0042CB33}']
  1660.     property Count: Integer dispid 1;
  1661.     property Item[Index: Smallint]: IDispatch readonly dispid 4;
  1662.     function Add(X, Y, Z, Intensity: Single): IDispatch; dispid 2;
  1663.     procedure Remove(Index: Smallint); dispid 3;
  1664.   end;
  1665.  
  1666. { Contour Attributes Collection }
  1667.  
  1668.   IVcAttributes = dispinterface
  1669.     ['{5A693220-CFEF-11CE-8410-00AA0042CB33}']
  1670.     property Count: Smallint dispid 1;
  1671.     property Item[Index: Smallint]: IDispatch readonly dispid 4;
  1672.     property _Item[Index: Smallint]: IDispatch readonly dispid 0;
  1673.     function Add(Value: Double): IDispatch; dispid 2;
  1674.     procedure Remove(Index: Smallint); dispid 3;
  1675.   end;
  1676.  
  1677. { Contour gradient from/to attributes object }
  1678.  
  1679.   IVcContourGradient = dispinterface
  1680.     ['{69032720-D303-11CE-8410-00AA0042CB33}']
  1681.     property FromBrushColor: IDispatch dispid 1;
  1682.     property ToBrushColor: IDispatch dispid 2;
  1683.     property FromPenColor: IDispatch dispid 3;
  1684.     property ToPenColor: IDispatch dispid 4;
  1685.   end;
  1686.  
  1687. { VCI First Impression Chart }
  1688.  
  1689.   TVtChartChartSelected = procedure(Sender: TObject; var MouseFlags, Cancel: Smallint) of object;
  1690.   TVtChartTitleSelected = procedure(Sender: TObject; var MouseFlags, Cancel: Smallint) of object;
  1691.   TVtChartFootnoteSelected = procedure(Sender: TObject; var MouseFlags, Cancel: Smallint) of object;
  1692.   TVtChartLegendSelected = procedure(Sender: TObject; var MouseFlags, Cancel: Smallint) of object;
  1693.   TVtChartPlotSelected = procedure(Sender: TObject; var MouseFlags, Cancel: Smallint) of object;
  1694.   TVtChartAxisSelected = procedure(Sender: TObject; var AxisId, AxisIndex, MouseFlags, Cancel: Smallint) of object;
  1695.   TVtChartAxisLabelSelected = procedure(Sender: TObject; var AxisId, AxisIndex, labelSetIndex, LabelIndex, MouseFlags, Cancel: Smallint) of object;
  1696.   TVtChartAxisTitleSelected = procedure(Sender: TObject; var AxisId, AxisIndex, MouseFlags, Cancel: Smallint) of object;
  1697.   TVtChartPointSelected = procedure(Sender: TObject; var Series, DataPoint, MouseFlags, Cancel: Smallint) of object;
  1698.   TVtChartPointLabelSelected = procedure(Sender: TObject; var Series, DataPoint, MouseFlags, Cancel: Smallint) of object;
  1699.   TVtChartSeriesSelected = procedure(Sender: TObject; var Series, MouseFlags, Cancel: Smallint) of object;
  1700.   TVtChartSeriesLabelSelected = procedure(Sender: TObject; var Series, MouseFlags, Cancel: Smallint) of object;
  1701.   TVtChartChartActivated = procedure(Sender: TObject; var MouseFlags, Cancel: Smallint) of object;
  1702.   TVtChartTitleActivated = procedure(Sender: TObject; var MouseFlags, Cancel: Smallint) of object;
  1703.   TVtChartFootnoteActivated = procedure(Sender: TObject; var MouseFlags, Cancel: Smallint) of object;
  1704.   TVtChartLegendActivated = procedure(Sender: TObject; var MouseFlags, Cancel: Smallint) of object;
  1705.   TVtChartPlotActivated = procedure(Sender: TObject; var MouseFlags, Cancel: Smallint) of object;
  1706.   TVtChartAxisActivated = procedure(Sender: TObject; var AxisId, AxisIndex, MouseFlags, Cancel: Smallint) of object;
  1707.   TVtChartAxisLabelActivated = procedure(Sender: TObject; var AxisId, AxisIndex, labelSetIndex, LabelIndex, MouseFlags, Cancel: Smallint) of object;
  1708.   TVtChartAxisTitleActivated = procedure(Sender: TObject; var AxisId, AxisIndex, MouseFlags, Cancel: Smallint) of object;
  1709.   TVtChartPointActivated = procedure(Sender: TObject; var Series, DataPoint, MouseFlags, Cancel: Smallint) of object;
  1710.   TVtChartPointLabelActivated = procedure(Sender: TObject; var Series, DataPoint, MouseFlags, Cancel: Smallint) of object;
  1711.   TVtChartSeriesActivated = procedure(Sender: TObject; var Series, MouseFlags, Cancel: Smallint) of object;
  1712.   TVtChartSeriesLabelActivated = procedure(Sender: TObject; var Series, MouseFlags, Cancel: Smallint) of object;
  1713.  
  1714.   TVtChart = class(TOleControl)
  1715.   private
  1716.     FOnChartSelected: TVtChartChartSelected;
  1717.     FOnTitleSelected: TVtChartTitleSelected;
  1718.     FOnFootnoteSelected: TVtChartFootnoteSelected;
  1719.     FOnLegendSelected: TVtChartLegendSelected;
  1720.     FOnPlotSelected: TVtChartPlotSelected;
  1721.     FOnAxisSelected: TVtChartAxisSelected;
  1722.     FOnAxisLabelSelected: TVtChartAxisLabelSelected;
  1723.     FOnAxisTitleSelected: TVtChartAxisTitleSelected;
  1724.     FOnPointSelected: TVtChartPointSelected;
  1725.     FOnPointLabelSelected: TVtChartPointLabelSelected;
  1726.     FOnSeriesSelected: TVtChartSeriesSelected;
  1727.     FOnSeriesLabelSelected: TVtChartSeriesLabelSelected;
  1728.     FOnChartActivated: TVtChartChartActivated;
  1729.     FOnTitleActivated: TVtChartTitleActivated;
  1730.     FOnFootnoteActivated: TVtChartFootnoteActivated;
  1731.     FOnLegendActivated: TVtChartLegendActivated;
  1732.     FOnPlotActivated: TVtChartPlotActivated;
  1733.     FOnAxisActivated: TVtChartAxisActivated;
  1734.     FOnAxisLabelActivated: TVtChartAxisLabelActivated;
  1735.     FOnAxisTitleActivated: TVtChartAxisTitleActivated;
  1736.     FOnPointActivated: TVtChartPointActivated;
  1737.     FOnPointLabelActivated: TVtChartPointLabelActivated;
  1738.     FOnSeriesActivated: TVtChartSeriesActivated;
  1739.     FOnSeriesLabelActivated: TVtChartSeriesLabelActivated;
  1740.     FOnApplyChanges: TNotifyEvent;
  1741.     FIntf: _DVtChart;
  1742.     function Get_GetBitmap(options: OleVariant): OLE_HANDLE;
  1743.   protected
  1744.     procedure InitControlData; override;
  1745.     procedure InitControlInterface(const Obj: IUnknown); override;
  1746.   public
  1747.     procedure EditPaste;
  1748.     procedure EditCopy;
  1749.     procedure ActivateSelectionDialog;
  1750.     procedure Layout;
  1751.     procedure ToDefaults;
  1752.     procedure PrintSetupDialog;
  1753.     procedure PrintChart;
  1754.     procedure SelectPart(part, index1, index2, index3, index4: Smallint);
  1755.     procedure GetSelectedPart(var part, index1, index2, index3, index4: Smallint);
  1756.     procedure GetDLLVersion(var major, minor: Smallint);
  1757.     procedure TwipsToChartPart(xVal, yVal: Integer; var part, index1, index2, index3, index4: Smallint);
  1758.     procedure ReadFromFile(const FileName: WideString);
  1759.     procedure WritePictureToFile(const FileName: WideString; pictureType, options: Smallint);
  1760.     procedure WriteToFile(const FileName: WideString);
  1761.     procedure ActivateFormatMenu(X, Y: Integer);
  1762.     procedure GetMetafile(options: Smallint; var Handle: OLE_HANDLE; var Width, Height: Integer);
  1763.     procedure CopyDataFromArray(Top, Left, Bottom, Right: Smallint; Array_: OleVariant);
  1764.     procedure CopyDataToArray(Top, Left, Bottom, Right: Smallint; Array_: OleVariant);
  1765.     procedure Draw(hDC: OLE_HANDLE; hDCType: Smallint; Top, Left, Bottom, Right: Integer; Layout, Stretch: WordBool);
  1766.     procedure UseWizard;
  1767.     procedure EditChartData;
  1768.     procedure Refresh;
  1769.     procedure AboutBox;
  1770.     property ControlInterface: _DVtChart read FIntf;
  1771.     property SsLinkSheet: WideString index 22 read GetWideStringProp write SetWideStringProp;
  1772.     property Handle: Integer index 24 read GetIntegerProp;
  1773.     property Picture: TPicture index 25 read GetTPictureProp;
  1774.     property GetBitmap[options: OleVariant]: OLE_HANDLE read Get_GetBitmap;
  1775.   published
  1776.     property TabStop;
  1777.     property Align;
  1778.     property DragCursor;
  1779.     property DragMode;
  1780.     property ParentShowHint;
  1781.     property PopupMenu;
  1782.     property ShowHint;
  1783.     property TabOrder;
  1784.     property Visible;
  1785.     property OnDragDrop;
  1786.     property OnDragOver;
  1787.     property OnEndDrag;
  1788.     property OnEnter;
  1789.     property OnExit;
  1790.     property OnStartDrag;
  1791.     property OnMouseUp;
  1792.     property OnMouseMove;
  1793.     property OnMouseDown;
  1794.     property OnKeyUp;
  1795.     property OnKeyPress;
  1796.     property OnKeyDown;
  1797.     property OnDblClick;
  1798.     property OnClick;
  1799.     property AutoIncrement: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  1800.     property RandomFill: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  1801.     property ChartType: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  1802.     property Column: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  1803.     property ColumnCount: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  1804.     property ColumnLabel: WideString index 6 read GetWideStringProp write SetWideStringProp stored False;
  1805.     property ColumnLabelCount: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  1806.     property ColumnLabelIndex: Smallint index 8 read GetSmallintProp write SetSmallintProp stored False;
  1807.     property Data: WideString index 9 read GetWideStringProp write SetWideStringProp stored False;
  1808.     property FootnoteText: WideString index 10 read GetWideStringProp write SetWideStringProp stored False;
  1809.     property Repaint: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  1810.     property Row: Smallint index 12 read GetSmallintProp write SetSmallintProp stored False;
  1811.     property RowCount: Smallint index 13 read GetSmallintProp write SetSmallintProp stored False;
  1812.     property RowLabel: WideString index 14 read GetWideStringProp write SetWideStringProp stored False;
  1813.     property RowLabelCount: Smallint index 15 read GetSmallintProp write SetSmallintProp stored False;
  1814.     property RowLabelIndex: Smallint index 16 read GetSmallintProp write SetSmallintProp stored False;
  1815.     property SeriesColumn: Smallint index 17 read GetSmallintProp write SetSmallintProp stored False;
  1816.     property SeriesType: Smallint index 18 read GetSmallintProp write SetSmallintProp stored False;
  1817.     property ShowLegend: WordBool index 19 read GetWordBoolProp write SetWordBoolProp stored False;
  1818.     property SsLinkMode: Smallint index 20 read GetSmallintProp write SetSmallintProp stored False;
  1819.     property SsLinkRange: WideString index 21 read GetWideStringProp write SetWideStringProp stored False;
  1820.     property DrawMode: Smallint index 23 read GetSmallintProp write SetSmallintProp stored False;
  1821.     property BorderStyle: Smallint index -504 read GetSmallintProp write SetSmallintProp stored False;
  1822.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  1823.     property hWnd: Smallint index -515 read GetSmallintProp write SetSmallintProp stored False;
  1824.     property Title: IDispatch index 26 read GetIDispatchProp write SetIDispatchProp stored False;
  1825.     property Footnote: IDispatch index 27 read GetIDispatchProp write SetIDispatchProp stored False;
  1826.     property TitleText: WideString index 28 read GetWideStringProp write SetWideStringProp stored False;
  1827.     property Stacking: WordBool index 29 read GetWordBoolProp write SetWordBoolProp stored False;
  1828.     property TextLengthType: Smallint index 30 read GetSmallintProp write SetSmallintProp stored False;
  1829.     property AllowUserChanges: WordBool index 31 read GetWordBoolProp write SetWordBoolProp stored False;
  1830.     property AllowSelections: WordBool index 32 read GetWordBoolProp write SetWordBoolProp stored False;
  1831.     property AllowSeriesSelection: WordBool index 33 read GetWordBoolProp write SetWordBoolProp stored False;
  1832.     property AllowDynamicRotation: WordBool index 34 read GetWordBoolProp write SetWordBoolProp stored False;
  1833.     property ActiveSeriesCount: Smallint index 35 read GetSmallintProp write SetSmallintProp stored False;
  1834.     property Backdrop: IDispatch index 36 read GetIDispatchProp write SetIDispatchProp stored False;
  1835.     property PrintInformation: IDispatch index 37 read GetIDispatchProp write SetIDispatchProp stored False;
  1836.     property Legend: IDispatch index 38 read GetIDispatchProp write SetIDispatchProp stored False;
  1837.     property DataGrid: IDispatch index 39 read GetIDispatchProp write SetIDispatchProp stored False;
  1838.     property Plot: IDispatch index 40 read GetIDispatchProp write SetIDispatchProp stored False;
  1839.     property TwipsWidth: Integer index 41 read GetIntegerProp write SetIntegerProp stored False;
  1840.     property TwipsHeight: Integer index 42 read GetIntegerProp write SetIntegerProp stored False;
  1841.     property AllowDithering: WordBool index 43 read GetWordBoolProp write SetWordBoolProp stored False;
  1842.     property ErrorOffset: Smallint index 44 read GetSmallintProp write SetSmallintProp stored False;
  1843.     property DoSetCursor: WordBool index 45 read GetWordBoolProp write SetWordBoolProp stored False;
  1844.     property FileName: WideString index 46 read GetWideStringProp write SetWideStringProp stored False;
  1845.     property Chart3d: WordBool index 47 read GetWordBoolProp write SetWordBoolProp stored False;
  1846.     property SsLinkBook: WideString index 48 read GetWideStringProp write SetWideStringProp stored False;
  1847.     property OnChartSelected: TVtChartChartSelected read FOnChartSelected write FOnChartSelected;
  1848.     property OnTitleSelected: TVtChartTitleSelected read FOnTitleSelected write FOnTitleSelected;
  1849.     property OnFootnoteSelected: TVtChartFootnoteSelected read FOnFootnoteSelected write FOnFootnoteSelected;
  1850.     property OnLegendSelected: TVtChartLegendSelected read FOnLegendSelected write FOnLegendSelected;
  1851.     property OnPlotSelected: TVtChartPlotSelected read FOnPlotSelected write FOnPlotSelected;
  1852.     property OnAxisSelected: TVtChartAxisSelected read FOnAxisSelected write FOnAxisSelected;
  1853.     property OnAxisLabelSelected: TVtChartAxisLabelSelected read FOnAxisLabelSelected write FOnAxisLabelSelected;
  1854.     property OnAxisTitleSelected: TVtChartAxisTitleSelected read FOnAxisTitleSelected write FOnAxisTitleSelected;
  1855.     property OnPointSelected: TVtChartPointSelected read FOnPointSelected write FOnPointSelected;
  1856.     property OnPointLabelSelected: TVtChartPointLabelSelected read FOnPointLabelSelected write FOnPointLabelSelected;
  1857.     property OnSeriesSelected: TVtChartSeriesSelected read FOnSeriesSelected write FOnSeriesSelected;
  1858.     property OnSeriesLabelSelected: TVtChartSeriesLabelSelected read FOnSeriesLabelSelected write FOnSeriesLabelSelected;
  1859.     property OnChartActivated: TVtChartChartActivated read FOnChartActivated write FOnChartActivated;
  1860.     property OnTitleActivated: TVtChartTitleActivated read FOnTitleActivated write FOnTitleActivated;
  1861.     property OnFootnoteActivated: TVtChartFootnoteActivated read FOnFootnoteActivated write FOnFootnoteActivated;
  1862.     property OnLegendActivated: TVtChartLegendActivated read FOnLegendActivated write FOnLegendActivated;
  1863.     property OnPlotActivated: TVtChartPlotActivated read FOnPlotActivated write FOnPlotActivated;
  1864.     property OnAxisActivated: TVtChartAxisActivated read FOnAxisActivated write FOnAxisActivated;
  1865.     property OnAxisLabelActivated: TVtChartAxisLabelActivated read FOnAxisLabelActivated write FOnAxisLabelActivated;
  1866.     property OnAxisTitleActivated: TVtChartAxisTitleActivated read FOnAxisTitleActivated write FOnAxisTitleActivated;
  1867.     property OnPointActivated: TVtChartPointActivated read FOnPointActivated write FOnPointActivated;
  1868.     property OnPointLabelActivated: TVtChartPointLabelActivated read FOnPointLabelActivated write FOnPointLabelActivated;
  1869.     property OnSeriesActivated: TVtChartSeriesActivated read FOnSeriesActivated write FOnSeriesActivated;
  1870.     property OnSeriesLabelActivated: TVtChartSeriesLabelActivated read FOnSeriesLabelActivated write FOnSeriesLabelActivated;
  1871.     property OnApplyChanges: TNotifyEvent read FOnApplyChanges write FOnApplyChanges;
  1872.   end;
  1873.  
  1874. procedure Register;
  1875.  
  1876. implementation
  1877.  
  1878. uses ComObj;
  1879.  
  1880. procedure TVtChart.InitControlData;
  1881. const
  1882.   CEventDispIDs: array[0..24] of Integer = (
  1883.     $00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
  1884.     $00000007, $00000008, $00000009, $0000000A, $0000000B, $0000000C,
  1885.     $0000000D, $0000000E, $0000000F, $00000010, $00000011, $00000012,
  1886.     $00000013, $00000014, $00000015, $00000016, $00000017, $00000018,
  1887.     $00000019);
  1888.   CLicenseKey: array[0..42] of Word = (
  1889.     $0043, $006F, $0070, $0079, $0072, $0069, $0067, $0068, $0074, $0020,
  1890.     $0028, $0063, $0029, $0020, $0031, $0039, $0039, $0035, $0020, $0056,
  1891.     $0069, $0073, $0075, $0061, $006C, $0020, $0043, $006F, $006D, $0070,
  1892.     $006F, $006E, $0065, $006E, $0074, $0073, $002C, $0020, $0049, $006E,
  1893.     $0063, $002E, $0000);
  1894.   CTPictureIDs: array [0..0] of Integer = (
  1895.     $00000019);
  1896.   CControlData: TControlData = (
  1897.     ClassID: '{5A721580-5AF0-11CE-8384-0020AF2337F2}';
  1898.     EventIID: '{5A721582-5AF0-11CE-8384-0020AF2337F2}';
  1899.     EventCount: 25;
  1900.     EventDispIDs: @CEventDispIDs;
  1901.     LicenseKey: @CLicenseKey;
  1902.     Flags: $00000008;
  1903.     Version: 300;
  1904.     FontCount: 0;
  1905.     FontIDs: nil;
  1906.     PictureCount: 1;
  1907.     PictureIDs: @CTPictureIDs);
  1908. begin
  1909.   ControlData := @CControlData;
  1910. end;
  1911.  
  1912. procedure TVtChart.InitControlInterface(const Obj: IUnknown);
  1913. begin
  1914.   FIntf := Obj as _DVtChart;
  1915. end;
  1916.  
  1917. procedure TVtChart.EditPaste;
  1918. begin
  1919.   ControlInterface.EditPaste;
  1920. end;
  1921.  
  1922. procedure TVtChart.EditCopy;
  1923. begin
  1924.   ControlInterface.EditCopy;
  1925. end;
  1926.  
  1927. procedure TVtChart.ActivateSelectionDialog;
  1928. begin
  1929.   ControlInterface.ActivateSelectionDialog;
  1930. end;
  1931.  
  1932. procedure TVtChart.Layout;
  1933. begin
  1934.   ControlInterface.Layout;
  1935. end;
  1936.  
  1937. procedure TVtChart.ToDefaults;
  1938. begin
  1939.   ControlInterface.ToDefaults;
  1940. end;
  1941.  
  1942. procedure TVtChart.PrintSetupDialog;
  1943. begin
  1944.   ControlInterface.PrintSetupDialog;
  1945. end;
  1946.  
  1947. procedure TVtChart.PrintChart;
  1948. begin
  1949.   ControlInterface.PrintChart;
  1950. end;
  1951.  
  1952. procedure TVtChart.SelectPart(part, index1, index2, index3, index4: Smallint);
  1953. begin
  1954.   ControlInterface.SelectPart(part, index1, index2, index3, index4);
  1955. end;
  1956.  
  1957. procedure TVtChart.GetSelectedPart(var part, index1, index2, index3, index4: Smallint);
  1958. begin
  1959.   ControlInterface.GetSelectedPart(part, index1, index2, index3, index4);
  1960. end;
  1961.  
  1962. procedure TVtChart.GetDLLVersion(var major, minor: Smallint);
  1963. begin
  1964.   ControlInterface.GetDLLVersion(major, minor);
  1965. end;
  1966.  
  1967. procedure TVtChart.TwipsToChartPart(xVal, yVal: Integer; var part, index1, index2, index3, index4: Smallint);
  1968. begin
  1969.   ControlInterface.TwipsToChartPart(xVal, yVal, part, index1, index2, index3, index4);
  1970. end;
  1971.  
  1972. procedure TVtChart.ReadFromFile(const FileName: WideString);
  1973. begin
  1974.   ControlInterface.ReadFromFile(FileName);
  1975. end;
  1976.  
  1977. procedure TVtChart.WritePictureToFile(const FileName: WideString; pictureType, options: Smallint);
  1978. begin
  1979.   ControlInterface.WritePictureToFile(FileName, pictureType, options);
  1980. end;
  1981.  
  1982. procedure TVtChart.WriteToFile(const FileName: WideString);
  1983. begin
  1984.   ControlInterface.WriteToFile(FileName);
  1985. end;
  1986.  
  1987. procedure TVtChart.ActivateFormatMenu(X, Y: Integer);
  1988. begin
  1989.   ControlInterface.ActivateFormatMenu(X, Y);
  1990. end;
  1991.  
  1992. procedure TVtChart.GetMetafile(options: Smallint; var Handle: OLE_HANDLE; var Width, Height: Integer);
  1993. begin
  1994.   ControlInterface.GetMetafile(options, Handle, Width, Height);
  1995. end;
  1996.  
  1997. procedure TVtChart.CopyDataFromArray(Top, Left, Bottom, Right: Smallint; Array_: OleVariant);
  1998. begin
  1999.   ControlInterface.CopyDataFromArray(Top, Left, Bottom, Right, Array_);
  2000. end;
  2001.  
  2002. procedure TVtChart.CopyDataToArray(Top, Left, Bottom, Right: Smallint; Array_: OleVariant);
  2003. begin
  2004.   ControlInterface.CopyDataToArray(Top, Left, Bottom, Right, Array_);
  2005. end;
  2006.  
  2007. procedure TVtChart.Draw(hDC: OLE_HANDLE; hDCType: Smallint; Top, Left, Bottom, Right: Integer; Layout, Stretch: WordBool);
  2008. begin
  2009.   ControlInterface.Draw(hDC, hDCType, Top, Left, Bottom, Right, Layout, Stretch);
  2010. end;
  2011.  
  2012. procedure TVtChart.UseWizard;
  2013. begin
  2014.   ControlInterface.UseWizard;
  2015. end;
  2016.  
  2017. procedure TVtChart.EditChartData;
  2018. begin
  2019.   ControlInterface.EditChartData;
  2020. end;
  2021.  
  2022. procedure TVtChart.Refresh;
  2023. begin
  2024.   ControlInterface.Refresh;
  2025. end;
  2026.  
  2027. procedure TVtChart.AboutBox;
  2028. begin
  2029.   ControlInterface.AboutBox;
  2030. end;
  2031.  
  2032. function TVtChart.Get_GetBitmap(options: OleVariant): OLE_HANDLE;
  2033. begin
  2034.   Result := ControlInterface.GetBitmap[options];
  2035. end;
  2036.  
  2037. procedure Register;
  2038. begin
  2039.   RegisterComponents('ActiveX', [TVtChart]);  { do not localize }
  2040. end;
  2041.  
  2042. end.
  2043.