home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / OCX / PINNACLE / GRAPHSV3.PAS < prev   
Pascal/Delphi Source File  |  1998-06-16  |  23KB  |  739 lines
  1. unit graphsv3;
  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. { Pinnacle-BPS Graph Control }
  9. { Version 1.0 }
  10.  
  11. { Conversion log:
  12.   Warning: 'Label' is a reserved word. _DGraph.Label changed to Label_
  13.  }
  14.  
  15. interface
  16.  
  17. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  18.  
  19. const
  20.   LIBID_GraphLib: TGUID = '{0842D103-1E19-101B-9AAF-1A1626551E7C}';
  21.  
  22. const
  23.  
  24. { AutoInc constants. }
  25.  
  26. { AutoIncConstants }
  27.  
  28.   gphOff = 0;
  29.   gphOn = 1;
  30.  
  31. { Background constants. }
  32.  
  33. { BackgroundConstants }
  34.  
  35.   gphBlack = 0;
  36.   gphBlue = 1;
  37.   gphGreen = 2;
  38.   gphCyan = 3;
  39.   gphRed = 4;
  40.   gphMagenta = 5;
  41.   gphBrown = 6;
  42.   gphLightGray = 7;
  43.   gphDarkGray = 8;
  44.   gphLightBlue = 9;
  45.   gphLightGreen = 10;
  46.   gphLightCyan = 11;
  47.   gphLightRed = 12;
  48.   gphLightMagenta = 13;
  49.   gphYellow = 14;
  50.   gphWhite = 15;
  51.  
  52. { ColorData constants. }
  53.  
  54. { ColorDataConstants }
  55.  
  56. //gphBlack = 0;
  57. //gphBlue = 1;
  58. //gphGreen = 2;
  59. //gphCyan = 3;
  60. //gphRed = 4;
  61. //gphMagenta = 5;
  62. //gphBrown = 6;
  63. //gphLightGray = 7;
  64. //gphDarkGray = 8;
  65. //gphLightBlue = 9;
  66. //gphLightGreen = 10;
  67. //gphLightCyan = 11;
  68. //gphLightRed = 12;
  69. //gphLightMagenta = 13;
  70. //gphYellow = 14;
  71. //gphWhite = 15;
  72.  
  73. { DataReset constants. }
  74.  
  75. { DataResetConstants }
  76.  
  77.   gphNone = 0;
  78.   gphGraphData = 1;
  79.   gphColorData = 2;
  80.   gphExtraData = 3;
  81.   gphLabelText = 4;
  82.   gphLegendText = 5;
  83.   gphPatternData = 6;
  84.   gphSymbolData = 7;
  85.   gphXPosData = 8;
  86.   gphAllData = 9;
  87.   gphFontInfo = 10;
  88.  
  89. { DrawMode constants. }
  90.  
  91. { DrawModeConstants }
  92.  
  93.   gphNoAction = 0;
  94.   gphClear = 1;
  95.   gphDraw = 2;
  96.   gphBlit = 3;
  97.   gphCopy = 4;
  98.   gphPrint = 5;
  99.   gphWrite = 6;
  100.  
  101. { DrawStyle constants. }
  102.  
  103. { DrawStyleConstants }
  104.  
  105.   gphMonochrome = 0;
  106.   gphColor = 1;
  107.  
  108. { FontFamily constants. }
  109.  
  110. { FontFamilyConstants }
  111.  
  112.   gphRoman = 0;
  113.   gphSwiss = 1;
  114.   gphModern = 2;
  115.  
  116. { FontStyle constants. }
  117.  
  118. { FontStyleConstants }
  119.  
  120.   gphDefault = 0;
  121.   gphItalic = 1;
  122.   gphBold = 2;
  123.   gphBoldItalic = 3;
  124.   gphUnderlined = 4;
  125.   gphUnderlinedItalic = 5;
  126.   gphUnderlinedBold = 6;
  127.   gphUnderlinedBoldItalic = 7;
  128.  
  129. { FontUse constants. }
  130.  
  131. { FontUseConstants }
  132.  
  133.   gphGraphTitle = 0;
  134.   gphOtherTitles = 1;
  135.   gphLabels = 2;
  136.   gphLegend = 3;
  137.   gphAllText = 4;
  138.  
  139. { Foreground constants. }
  140.  
  141. { ForegroundConstants }
  142.  
  143. //gphBlack = 0;
  144. //gphBlue = 1;
  145. //gphGreen = 2;
  146. //gphCyan = 3;
  147. //gphRed = 4;
  148. //gphMagenta = 5;
  149. //gphBrown = 6;
  150. //gphLightGray = 7;
  151. //gphDarkGray = 8;
  152. //gphLightBlue = 9;
  153. //gphLightGreen = 10;
  154. //gphLightCyan = 11;
  155. //gphLightRed = 12;
  156. //gphLightMagenta = 13;
  157. //gphYellow = 14;
  158. //gphWhite = 15;
  159.   gphAutoBlackWhite = 16;
  160.  
  161. { GraphType constants. }
  162.  
  163. { GraphTypeConstants }
  164.  
  165. //gphNone = 0;
  166.   gphPie2D = 1;
  167.   gphPie3D = 2;
  168.   gphBar2D = 3;
  169.   gphBar3D = 4;
  170.   gphGantt = 5;
  171.   gphLine = 6;
  172.   gphLogLin = 7;
  173.   gphArea = 8;
  174.   gphScatter = 9;
  175.   gphPolar = 10;
  176.   gphHLC = 11;
  177.  
  178. { GridStyle constants. }
  179.  
  180. { GridStyleConstants }
  181.  
  182. //gphNone = 0;
  183.   gphHorizontal = 1;
  184.   gphVertical = 2;
  185.   gphBoth = 3;
  186.  
  187. { IndexStyle constants. }
  188.  
  189. { IndexStyleConstants }
  190.  
  191.   gphStandard = 0;
  192.   gphEnhanced = 1;
  193.  
  194. { Labels constants. }
  195.  
  196. { LabelsConstants }
  197.  
  198. //gphOff = 0;
  199. //gphOn = 1;
  200.   gphXAxisLabelsOnly = 2;
  201.   gphYAxisLabelsOnly = 3;
  202.  
  203. { LegendStyle constants. }
  204.  
  205. { LegendStyleConstants }
  206.  
  207. //gphMonochrome = 0;
  208. //gphColor = 1;
  209.  
  210. { LineStats constants. }
  211.  
  212. { LineStatsConstants }
  213.  
  214. //gphNone = 0;
  215.   gphMean = 1;
  216.   gphMinmax = 2;
  217.   gphMeanMinmax = 3;
  218.   gphStddev = 4;
  219.   gphStddevMean = 5;
  220.   gphStddevMinmax = 6;
  221.   gphStddevMinmaxMean = 7;
  222.   gphBestfit = 8;
  223.   gphBestfitMean = 9;
  224.   gphBestfitMinmax = 10;
  225.   gphBestfitMinmaxMean = 11;
  226.   gphBestfitStddev = 12;
  227.   gphBestfitStddevMean = 13;
  228.   gphBestfitStddevMinmax = 14;
  229.   gphAll = 15;
  230.  
  231. { Palette constants. }
  232.  
  233. { PaletteConstants }
  234.  
  235. //gphDefault = 0;
  236.   gphPastel = 1;
  237.   gphGrayscale = 2;
  238.  
  239. { PatternLines constants. }
  240.  
  241. { PatternedLinesConstants }
  242.  
  243.   gphPatternOff = 0;
  244.   gphPatternOn = 1;
  245.  
  246. { PrintSyle constants. }
  247.  
  248. { PrintStyleConstants }
  249.  
  250. //gphMonochrome = 0;
  251. //gphColor = 1;
  252.   gphMonochromeWithBorder = 2;
  253.   gphColorWithBorder = 3;
  254.  
  255. { RandomData constants. }
  256.  
  257. { RandomDataConstants }
  258.  
  259. //gphOff = 0;
  260. //gphOn = 1;
  261.  
  262. { SymbolData constants. }
  263.  
  264. { SymbolDataConstants }
  265.  
  266.   gphCrossPlus = 0;
  267.   gphCrossTimes = 1;
  268.   gphTriangleUp = 2;
  269.   gphSolidTriangleUp = 3;
  270.   gphTriangleDown = 4;
  271.   gphSolidTriangleDown = 5;
  272.   gphSquare = 6;
  273.   gphSolidSquare = 7;
  274.   gphDiamond = 8;
  275.   gphSolidDiamond = 9;
  276.  
  277. { ThickLines constants. }
  278.  
  279. { ThickLinesConstants }
  280.  
  281.   gphLinesOff = 0;
  282.   gphLinesOn = 1;
  283.  
  284. { Ticks constants. }
  285.  
  286. { TicksConstants }
  287.  
  288.   gphTicksOff = 0;
  289.   gphTicksOn = 1;
  290.   gphXAxisTicksOnly = 2;
  291.   gphYAxisTicksOnly = 3;
  292.  
  293. { YAxisPos constants. }
  294.  
  295. { YAxisPosConstants }
  296.  
  297. //gphDefault = 0;
  298.   gphAlignLeft = 1;
  299.   gphAlignRight = 2;
  300.  
  301. { YAxisStyle constants. }
  302.  
  303. { YAxisStyleConstants }
  304.  
  305. //gphDefault = 0;
  306.   gphVariableOrigin = 1;
  307.   gphUserDefined = 2;
  308.  
  309. { BorderStyle constants. }
  310.  
  311. { BorderStyleConstants }
  312.  
  313. //gphNone = 0;
  314.   gphFixedSingle = 1;
  315.  
  316. const
  317.  
  318. { Component class GUIDs }
  319.   Class_Graph: TGUID = '{0842D100-1E19-101B-9AAF-1A1626551E7C}';
  320.  
  321. type
  322.  
  323. { Forward declarations }
  324. { Forward declarations: Interfaces }
  325.   _DGraph = dispinterface;
  326.   _DGraphEvents = dispinterface;
  327.  
  328. { Forward declarations: CoClasses }
  329.   Graph = _DGraph;
  330.  
  331. { Forward declarations: Enums }
  332.   AutoIncConstants = TOleEnum;
  333.   BackgroundConstants = TOleEnum;
  334.   ColorDataConstants = TOleEnum;
  335.   DataResetConstants = TOleEnum;
  336.   DrawModeConstants = TOleEnum;
  337.   DrawStyleConstants = TOleEnum;
  338.   FontFamilyConstants = TOleEnum;
  339.   FontStyleConstants = TOleEnum;
  340.   FontUseConstants = TOleEnum;
  341.   ForegroundConstants = TOleEnum;
  342.   GraphTypeConstants = TOleEnum;
  343.   GridStyleConstants = TOleEnum;
  344.   IndexStyleConstants = TOleEnum;
  345.   LabelsConstants = TOleEnum;
  346.   LegendStyleConstants = TOleEnum;
  347.   LineStatsConstants = TOleEnum;
  348.   PaletteConstants = TOleEnum;
  349.   PatternedLinesConstants = TOleEnum;
  350.   PrintStyleConstants = TOleEnum;
  351.   RandomDataConstants = TOleEnum;
  352.   SymbolDataConstants = TOleEnum;
  353.   ThickLinesConstants = TOleEnum;
  354.   TicksConstants = TOleEnum;
  355.   YAxisPosConstants = TOleEnum;
  356.   YAxisStyleConstants = TOleEnum;
  357.   BorderStyleConstants = TOleEnum;
  358.  
  359.   _DGraph = dispinterface
  360.     ['{0842D101-1E19-101B-9AAF-1A1626551E7C}']
  361.     property AutoInc: AutoIncConstants dispid 1;
  362.     property Background: BackgroundConstants dispid 2;
  363.     property BottomTitle: WideString dispid 3;
  364.     property ColorData: ColorDataConstants dispid 4;
  365.     property CtlVersion: WideString dispid 5;
  366.     property DataReset: DataResetConstants dispid 6;
  367.     property DrawMode: DrawModeConstants dispid 7;
  368.     property DrawStyle: DrawStyleConstants dispid 8;
  369.     property ExtraData: Smallint dispid 9;
  370.     property FontFamily: FontFamilyConstants dispid 10;
  371.     property FontSize: Smallint dispid 11;
  372.     property FontStyle: FontStyleConstants dispid 12;
  373.     property FontUse: FontUseConstants dispid 13;
  374.     property Foreground: ForegroundConstants dispid 14;
  375.     property GraphCaption: WideString dispid 15;
  376.     property GraphData: Single dispid 16;
  377.     property GraphStyle: Smallint dispid 17;
  378.     property GraphTitle: WideString dispid 18;
  379.     property GraphType: GraphTypeConstants dispid 19;
  380.     property GridStyle: GridStyleConstants dispid 20;
  381.     property ImageFile: WideString dispid 21;
  382.     property IndexStyle: IndexStyleConstants dispid 22;
  383.     property LabelEvery: Smallint dispid 23;
  384.     property Labels: LabelsConstants dispid 24;
  385.     property LabelText: WideString dispid 25;
  386.     property LeftTitle: WideString dispid 26;
  387.     property LegendStyle: LegendStyleConstants dispid 27;
  388.     property LegendText: WideString dispid 28;
  389.     property LineStats: LineStatsConstants dispid 29;
  390.     property NumPoints: Smallint dispid 30;
  391.     property NumSets: Smallint dispid 31;
  392.     property Palette: PaletteConstants dispid 32;
  393.     property PatternData: Smallint dispid 33;
  394.     property PatternedLines: PatternedLinesConstants dispid 34;
  395.     property Picture: IPictureDisp dispid 35;
  396.     property PrintStyle: PrintStyleConstants dispid 36;
  397.     property QuickData: WideString dispid 37;
  398.     property RandomData: RandomDataConstants dispid 38;
  399.     property SeeThru: Smallint dispid 39;
  400.     property SymbolData: SymbolDataConstants dispid 40;
  401.     property ThickLines: ThickLinesConstants dispid 41;
  402.     property ThisPoint: Smallint dispid 42;
  403.     property ThisSet: Smallint dispid 43;
  404.     property TickEvery: Smallint dispid 44;
  405.     property Ticks: TicksConstants dispid 45;
  406.     property XPosData: Single dispid 46;
  407.     property YAxisMax: Single dispid 47;
  408.     property YAxisMin: Single dispid 48;
  409.     property YAxisPos: YAxisPosConstants dispid 49;
  410.     property YAxisStyle: YAxisStyleConstants dispid 50;
  411.     property YAxisTicks: Smallint dispid 51;
  412.     property Enabled: WordBool dispid -514;
  413.     property BorderStyle: BorderStyleConstants dispid -504;
  414.     property hWnd: OLE_HANDLE dispid -515;
  415.     property _QuickData: WideString dispid 0;
  416.     property Color[index: Smallint]: Smallint dispid 52;
  417.     property Data[index: Smallint]: Single dispid 53;
  418.     property Extra[index: Smallint]: Smallint dispid 54;
  419.     property FFamily[index: Smallint]: Smallint dispid 55;
  420.     property FSize[index: Smallint]: Smallint dispid 56;
  421.     property FStyle[index: Smallint]: Smallint dispid 57;
  422.     property Label_[index: Smallint]: WideString dispid 58;
  423.     property Legend[index: Smallint]: WideString dispid 59;
  424.     property Pattern[index: Smallint]: Smallint dispid 60;
  425.     property Symbol[index: Smallint]: Smallint dispid 61;
  426.     property XPos[index: Smallint]: Single dispid 62;
  427.     procedure Refresh; dispid -550;
  428.     procedure AboutBox; dispid -552;
  429.   end;
  430.  
  431.   _DGraphEvents = dispinterface
  432.     ['{0842D102-1E19-101B-9AAF-1A1626551E7C}']
  433.     procedure Click; dispid -600;
  434.     procedure DblClick; dispid -601;
  435.     procedure KeyDown(var KeyCode: Smallint; Shift: Smallint); dispid -602;
  436.     procedure KeyPress(var KeyAscii: Smallint); dispid -603;
  437.     procedure KeyUp(var KeyCode: Smallint; Shift: Smallint); dispid -604;
  438.     procedure MouseDown(Button, Shift: Smallint; X: OLE_XPOS_PIXELS; Y: OLE_YPOS_PIXELS); dispid -605;
  439.     procedure MouseMove(Button, Shift: Smallint; X: OLE_XPOS_PIXELS; Y: OLE_YPOS_PIXELS); dispid -606;
  440.     procedure MouseUp(Button, Shift: Smallint; X: OLE_XPOS_PIXELS; Y: OLE_YPOS_PIXELS); dispid -607;
  441.   end;
  442.  
  443. { Pinnacle-BPS Graph Control }
  444.  
  445.   TGraph = class(TOleControl)
  446.   private
  447.     FIntf: _DGraph;
  448.     function Get_hWnd: OLE_HANDLE;
  449.     procedure Set_hWnd(var Value: OLE_HANDLE);
  450.     function Get_Color(index: Smallint): Smallint;
  451.     procedure Set_Color(index: Smallint; Value: Smallint);
  452.     function Get_Data(index: Smallint): Single;
  453.     procedure Set_Data(index: Smallint; Value: Single);
  454.     function Get_Extra(index: Smallint): Smallint;
  455.     procedure Set_Extra(index: Smallint; Value: Smallint);
  456.     function Get_FFamily(index: Smallint): Smallint;
  457.     procedure Set_FFamily(index: Smallint; Value: Smallint);
  458.     function Get_FSize(index: Smallint): Smallint;
  459.     procedure Set_FSize(index: Smallint; Value: Smallint);
  460.     function Get_FStyle(index: Smallint): Smallint;
  461.     procedure Set_FStyle(index: Smallint; Value: Smallint);
  462.     function Get_Label_(index: Smallint): WideString;
  463.     procedure Set_Label_(index: Smallint; const Value: WideString);
  464.     function Get_Legend(index: Smallint): WideString;
  465.     procedure Set_Legend(index: Smallint; const Value: WideString);
  466.     function Get_Pattern(index: Smallint): Smallint;
  467.     procedure Set_Pattern(index: Smallint; Value: Smallint);
  468.     function Get_Symbol(index: Smallint): Smallint;
  469.     procedure Set_Symbol(index: Smallint; Value: Smallint);
  470.     function Get_XPos(index: Smallint): Single;
  471.     procedure Set_XPos(index: Smallint; Value: Single);
  472.   protected
  473.     procedure InitControlData; override;
  474.     procedure InitControlInterface(const Obj: IUnknown); override;
  475.   public
  476.     procedure Refresh;
  477.     procedure AboutBox;
  478.     property ControlInterface: _DGraph read FIntf;
  479.     property Picture: TPicture index 35 read GetTPictureProp write SetTPictureProp;
  480.     property QuickData: WideString index 37 read GetWideStringProp write SetWideStringProp;
  481.     property SeeThru: Smallint index 39 read GetSmallintProp write SetSmallintProp;
  482.     property _QuickData: WideString index 0 read GetWideStringProp write SetWideStringProp;
  483.     property Color[index: Smallint]: Smallint read Get_Color write Set_Color;
  484.     property Data[index: Smallint]: Single read Get_Data write Set_Data;
  485.     property Extra[index: Smallint]: Smallint read Get_Extra write Set_Extra;
  486.     property FFamily[index: Smallint]: Smallint read Get_FFamily write Set_FFamily;
  487.     property FSize[index: Smallint]: Smallint read Get_FSize write Set_FSize;
  488.     property FStyle[index: Smallint]: Smallint read Get_FStyle write Set_FStyle;
  489.     property Label_[index: Smallint]: WideString read Get_Label_ write Set_Label_;
  490.     property Legend[index: Smallint]: WideString read Get_Legend write Set_Legend;
  491.     property Pattern[index: Smallint]: Smallint read Get_Pattern write Set_Pattern;
  492.     property Symbol[index: Smallint]: Smallint read Get_Symbol write Set_Symbol;
  493.     property XPos[index: Smallint]: Single read Get_XPos write Set_XPos;
  494.   published
  495.     property TabStop;
  496.     property Align;
  497.     property DragCursor;
  498.     property DragMode;
  499.     property ParentShowHint;
  500.     property PopupMenu;
  501.     property ShowHint;
  502.     property TabOrder;
  503.     property Visible;
  504.     property OnDragDrop;
  505.     property OnDragOver;
  506.     property OnEndDrag;
  507.     property OnEnter;
  508.     property OnExit;
  509.     property OnStartDrag;
  510.     property OnMouseUp;
  511.     property OnMouseMove;
  512.     property OnMouseDown;
  513.     property OnKeyUp;
  514.     property OnKeyPress;
  515.     property OnKeyDown;
  516.     property OnDblClick;
  517.     property OnClick;
  518.     property AutoInc: AutoIncConstants index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  519.     property Background: BackgroundConstants index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  520.     property BottomTitle: WideString index 3 read GetWideStringProp write SetWideStringProp stored False;
  521.     property ColorData: ColorDataConstants index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  522.     property CtlVersion: WideString index 5 read GetWideStringProp write SetWideStringProp stored False;
  523.     property DataReset: DataResetConstants index 6 read GetTOleEnumProp write SetTOleEnumProp stored False;
  524.     property DrawMode: DrawModeConstants index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  525.     property DrawStyle: DrawStyleConstants index 8 read GetTOleEnumProp write SetTOleEnumProp stored False;
  526.     property ExtraData: Smallint index 9 read GetSmallintProp write SetSmallintProp stored False;
  527.     property FontFamily: FontFamilyConstants index 10 read GetTOleEnumProp write SetTOleEnumProp stored False;
  528.     property FontSize: Smallint index 11 read GetSmallintProp write SetSmallintProp stored False;
  529.     property FontStyle: FontStyleConstants index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  530.     property FontUse: FontUseConstants index 13 read GetTOleEnumProp write SetTOleEnumProp stored False;
  531.     property Foreground: ForegroundConstants index 14 read GetTOleEnumProp write SetTOleEnumProp stored False;
  532.     property GraphCaption: WideString index 15 read GetWideStringProp write SetWideStringProp stored False;
  533.     property GraphData: Single index 16 read GetSingleProp write SetSingleProp stored False;
  534.     property GraphStyle: Smallint index 17 read GetSmallintProp write SetSmallintProp stored False;
  535.     property GraphTitle: WideString index 18 read GetWideStringProp write SetWideStringProp stored False;
  536.     property GraphType: GraphTypeConstants index 19 read GetTOleEnumProp write SetTOleEnumProp stored False;
  537.     property GridStyle: GridStyleConstants index 20 read GetTOleEnumProp write SetTOleEnumProp stored False;
  538.     property ImageFile: WideString index 21 read GetWideStringProp write SetWideStringProp stored False;
  539.     property IndexStyle: IndexStyleConstants index 22 read GetTOleEnumProp write SetTOleEnumProp stored False;
  540.     property LabelEvery: Smallint index 23 read GetSmallintProp write SetSmallintProp stored False;
  541.     property Labels: LabelsConstants index 24 read GetTOleEnumProp write SetTOleEnumProp stored False;
  542.     property LabelText: WideString index 25 read GetWideStringProp write SetWideStringProp stored False;
  543.     property LeftTitle: WideString index 26 read GetWideStringProp write SetWideStringProp stored False;
  544.     property LegendStyle: LegendStyleConstants index 27 read GetTOleEnumProp write SetTOleEnumProp stored False;
  545.     property LegendText: WideString index 28 read GetWideStringProp write SetWideStringProp stored False;
  546.     property LineStats: LineStatsConstants index 29 read GetTOleEnumProp write SetTOleEnumProp stored False;
  547.     property NumPoints: Smallint index 30 read GetSmallintProp write SetSmallintProp stored False;
  548.     property NumSets: Smallint index 31 read GetSmallintProp write SetSmallintProp stored False;
  549.     property Palette: PaletteConstants index 32 read GetTOleEnumProp write SetTOleEnumProp stored False;
  550.     property PatternData: Smallint index 33 read GetSmallintProp write SetSmallintProp stored False;
  551.     property PatternedLines: PatternedLinesConstants index 34 read GetTOleEnumProp write SetTOleEnumProp stored False;
  552.     property PrintStyle: PrintStyleConstants index 36 read GetTOleEnumProp write SetTOleEnumProp stored False;
  553.     property RandomData: RandomDataConstants index 38 read GetTOleEnumProp write SetTOleEnumProp stored False;
  554.     property SymbolData: SymbolDataConstants index 40 read GetTOleEnumProp write SetTOleEnumProp stored False;
  555.     property ThickLines: ThickLinesConstants index 41 read GetTOleEnumProp write SetTOleEnumProp stored False;
  556.     property ThisPoint: Smallint index 42 read GetSmallintProp write SetSmallintProp stored False;
  557.     property ThisSet: Smallint index 43 read GetSmallintProp write SetSmallintProp stored False;
  558.     property TickEvery: Smallint index 44 read GetSmallintProp write SetSmallintProp stored False;
  559.     property Ticks: TicksConstants index 45 read GetTOleEnumProp write SetTOleEnumProp stored False;
  560.     property XPosData: Single index 46 read GetSingleProp write SetSingleProp stored False;
  561.     property YAxisMax: Single index 47 read GetSingleProp write SetSingleProp stored False;
  562.     property YAxisMin: Single index 48 read GetSingleProp write SetSingleProp stored False;
  563.     property YAxisPos: YAxisPosConstants index 49 read GetTOleEnumProp write SetTOleEnumProp stored False;
  564.     property YAxisStyle: YAxisStyleConstants index 50 read GetTOleEnumProp write SetTOleEnumProp stored False;
  565.     property YAxisTicks: Smallint index 51 read GetSmallintProp write SetSmallintProp stored False;
  566.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  567.     property BorderStyle: BorderStyleConstants index -504 read GetTOleEnumProp write SetTOleEnumProp stored False;
  568.     property hWnd: OLE_HANDLE read Get_hWnd write Set_hWnd stored False;
  569.   end;
  570.  
  571. procedure Register;
  572.  
  573. implementation
  574.  
  575. uses ComObj;
  576.  
  577. procedure TGraph.InitControlData;
  578. const
  579.   CTPictureIDs: array [0..0] of Integer = (
  580.     $00000023);
  581.   CControlData: TControlData = (
  582.     ClassID: '{0842D100-1E19-101B-9AAF-1A1626551E7C}';
  583.     EventIID: '{0842D102-1E19-101B-9AAF-1A1626551E7C}';
  584.     EventCount: 0;
  585.     EventDispIDs: nil;
  586.     LicenseKey: nil;
  587.     Flags: $00000008;
  588.     Version: 300;
  589.     FontCount: 0;
  590.     FontIDs: nil;
  591.     PictureCount: 1;
  592.     PictureIDs: @CTPictureIDs);
  593. begin
  594.   ControlData := @CControlData;
  595. end;
  596.  
  597. procedure TGraph.InitControlInterface(const Obj: IUnknown);
  598. begin
  599.   FIntf := Obj as _DGraph;
  600. end;
  601.  
  602. procedure TGraph.Refresh;
  603. begin
  604.   ControlInterface.Refresh;
  605. end;
  606.  
  607. procedure TGraph.AboutBox;
  608. begin
  609.   ControlInterface.AboutBox;
  610. end;
  611.  
  612. function TGraph.Get_hWnd: OLE_HANDLE;
  613. begin
  614.   Result := ControlInterface.hWnd;
  615. end;
  616.  
  617. procedure TGraph.Set_hWnd(var Value: OLE_HANDLE);
  618. begin
  619.   ControlInterface.hWnd := Value;
  620. end;
  621.  
  622. function TGraph.Get_Color(index: Smallint): Smallint;
  623. begin
  624.   Result := ControlInterface.Color[index];
  625. end;
  626.  
  627. procedure TGraph.Set_Color(index: Smallint; Value: Smallint);
  628. begin
  629.   ControlInterface.Color[index] := Value;
  630. end;
  631.  
  632. function TGraph.Get_Data(index: Smallint): Single;
  633. begin
  634.   Result := ControlInterface.Data[index];
  635. end;
  636.  
  637. procedure TGraph.Set_Data(index: Smallint; Value: Single);
  638. begin
  639.   ControlInterface.Data[index] := Value;
  640. end;
  641.  
  642. function TGraph.Get_Extra(index: Smallint): Smallint;
  643. begin
  644.   Result := ControlInterface.Extra[index];
  645. end;
  646.  
  647. procedure TGraph.Set_Extra(index: Smallint; Value: Smallint);
  648. begin
  649.   ControlInterface.Extra[index] := Value;
  650. end;
  651.  
  652. function TGraph.Get_FFamily(index: Smallint): Smallint;
  653. begin
  654.   Result := ControlInterface.FFamily[index];
  655. end;
  656.  
  657. procedure TGraph.Set_FFamily(index: Smallint; Value: Smallint);
  658. begin
  659.   ControlInterface.FFamily[index] := Value;
  660. end;
  661.  
  662. function TGraph.Get_FSize(index: Smallint): Smallint;
  663. begin
  664.   Result := ControlInterface.FSize[index];
  665. end;
  666.  
  667. procedure TGraph.Set_FSize(index: Smallint; Value: Smallint);
  668. begin
  669.   ControlInterface.FSize[index] := Value;
  670. end;
  671.  
  672. function TGraph.Get_FStyle(index: Smallint): Smallint;
  673. begin
  674.   Result := ControlInterface.FStyle[index];
  675. end;
  676.  
  677. procedure TGraph.Set_FStyle(index: Smallint; Value: Smallint);
  678. begin
  679.   ControlInterface.FStyle[index] := Value;
  680. end;
  681.  
  682. function TGraph.Get_Label_(index: Smallint): WideString;
  683. begin
  684.   Result := ControlInterface.Label_[index];
  685. end;
  686.  
  687. procedure TGraph.Set_Label_(index: Smallint; const Value: WideString);
  688. begin
  689.   ControlInterface.Label_[index] := Value;
  690. end;
  691.  
  692. function TGraph.Get_Legend(index: Smallint): WideString;
  693. begin
  694.   Result := ControlInterface.Legend[index];
  695. end;
  696.  
  697. procedure TGraph.Set_Legend(index: Smallint; const Value: WideString);
  698. begin
  699.   ControlInterface.Legend[index] := Value;
  700. end;
  701.  
  702. function TGraph.Get_Pattern(index: Smallint): Smallint;
  703. begin
  704.   Result := ControlInterface.Pattern[index];
  705. end;
  706.  
  707. procedure TGraph.Set_Pattern(index: Smallint; Value: Smallint);
  708. begin
  709.   ControlInterface.Pattern[index] := Value;
  710. end;
  711.  
  712. function TGraph.Get_Symbol(index: Smallint): Smallint;
  713. begin
  714.   Result := ControlInterface.Symbol[index];
  715. end;
  716.  
  717. procedure TGraph.Set_Symbol(index: Smallint; Value: Smallint);
  718. begin
  719.   ControlInterface.Symbol[index] := Value;
  720. end;
  721.  
  722. function TGraph.Get_XPos(index: Smallint): Single;
  723. begin
  724.   Result := ControlInterface.XPos[index];
  725. end;
  726.  
  727. procedure TGraph.Set_XPos(index: Smallint; Value: Single);
  728. begin
  729.   ControlInterface.XPos[index] := Value;
  730. end;
  731.  
  732.  
  733. procedure Register;
  734. begin
  735.   RegisterComponents('ActiveX', [TGraph]);  { do not localize }
  736. end;
  737.  
  738. end.
  739.