home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Ocx / Chartfx / chartfx3.pas < prev   
Pascal/Delphi Source File  |  1999-08-11  |  38KB  |  977 lines
  1. unit chartfx3;
  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. { ChartFX 2.0 OLE Custom Control }
  9. { Version 2.0 }
  10.  
  11. { Conversion log:
  12.   Warning: 'Type' is a reserved word. _DChartfx.Type changed to Type_
  13.   Warning: 'Const' is a reserved word. _DChartfx.Const changed to Const_
  14.  }
  15.  
  16. interface
  17.  
  18. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  19.  
  20. const
  21.   LIBID_ChartfxLib: TGUID = '{8996B0A4-D7BE-101B-8650-00AA003A5593}';
  22.  
  23. const
  24.  
  25. { PointType Property settings }
  26.  
  27. { PointTypeConstants }
  28.  
  29.   CHART_NONEMK = 0;
  30.   CHART_RECTMK = 1;
  31.   CHART_CIRCLEMK = 2;
  32.   CHART_TRIANGLEMK = 3;
  33.   CHART_MARBLEMK = 4;
  34.   CHART_CUBEMK = 5;
  35.   CHART_MANYMK = 6;
  36.  
  37. { Scheme Property settings }
  38.  
  39. { SchemeConstants }
  40.  
  41.   CHART_CSSOLID = 0;
  42.   CHART_CSBWPATTERN = 1;
  43.   CHART_CSPATTERN = 2;
  44.  
  45. { Stacked Property settings }
  46.  
  47. { StackedConstants }
  48.  
  49.   CHART_NOSTACKED = 0;
  50.   CHART_STACKED = 1;
  51.   CHART_STACKED100 = 2;
  52.  
  53. { Grid Property settings }
  54.  
  55. { GridConstants }
  56.  
  57.   CHART_NOGRID = 0;
  58.   CHART_HORZGRID = 1;
  59.   CHART_VERTGRID = 2;
  60.   CHART_BOTHGRID = 3;
  61.   CHART_GRIDY2 = 4;
  62.  
  63. { ChartType and Type Properties settings }
  64.  
  65. { GalleryConstants }
  66.  
  67.   LINES = 1;
  68.   BAR = 2;
  69.   SPLINE = 3;
  70.   MARK = 4;
  71.   PIE = 5;
  72.   AREA = 6;
  73.   PARETO = 7;
  74.   SCATTER = 8;
  75.   HILOW = 9;
  76.  
  77. { ConstType Property settings }
  78.  
  79. { ConstTypeConstants }
  80.  
  81.   CC_HIDETEXT = 1;
  82.   CC_HIDE = 2;
  83.  
  84. { LegendStyle Property settings }
  85.  
  86. { LegendStyleConstants }
  87.  
  88.   CL_NOTCLIPPED = 1;
  89.   CL_NOTCHANGECOLOR = 2;
  90.   CL_HIDE = 4;
  91.   CL_HIDEXLEG = 4;
  92.   CL_FORCESERLEG = 8;
  93.   CL_GETLEGEND = 16;
  94.   CL_HIDEYLEG = 32;
  95.  
  96. { Flags for OpenData,OpenDataEx and CloseData Methods }
  97.  
  98. { OpenDataConstants }
  99.  
  100.   COD_VALUES = 1;
  101.   COD_CONSTANTS = 2;
  102.   COD_COLORS = 3;
  103.   COD_STRIPES = 4;
  104.   COD_INIVALUES = 5;
  105.   COD_XVALUES = 6;
  106.   COD_STATUSITEMS = 7;
  107.   COD_UNKNOWN = -1;
  108.   COD_UNCHANGE = 0;
  109.  
  110. { Values for DblClk and RigClk Methods }
  111.  
  112. { ClickConstants }
  113.  
  114.   CHART_BALLOONCLK = 0;
  115.   CHART_DIALOGCLK = 1;
  116.   CHART_NONECLK = 2;
  117.   CHART_MENUCLK = 3;
  118.  
  119. { Values for ShowDialog Method }
  120.  
  121. { DialogConstants }
  122.  
  123.   CDIALOG_EXPORTFILE = 14;
  124.   CDIALOG_IMPORTFILE = 15;
  125.   CDIALOG_WRITETEMPLATE = 8;
  126.   CDIALOG_READTEMPLATE = 9;
  127.   CDIALOG_PAGESETUP = 4;
  128.   CDIALOG_ABOUT = 11;
  129.   CDIALOG_OPTIONS = 12;
  130.   CDIALOG_EDITTITLES = 35;
  131.   CDIALOG_FONTS = 39;
  132.   CDIALOG_ROTATE = 52;
  133.  
  134. { Values for Adm Property }
  135.  
  136. { AdmConstants }
  137.  
  138.   CSA_MIN = 0;
  139.   CSA_MAX = 1;
  140.   CSA_GAP = 2;
  141.   CSA_SCALE = 3;
  142.   CSA_YLEGGAP = 4;
  143.   CSA_PIXXVALUE = 5;
  144.   CSA_XMIN = 6;
  145.   CSA_XMAX = 7;
  146.   CSA_XGAP = 8;
  147.   CSA_LOGBASE = 9;
  148.  
  149. { Values for Title Property }
  150.  
  151. { TitleConstants }
  152.  
  153.   CHART_LEFTTIT = 0;
  154.   CHART_RIGHTTIT = 1;
  155.   CHART_TOPTIT = 2;
  156.   CHART_BOTTOMTIT = 3;
  157.  
  158. { Values for Fonts Property }
  159.  
  160. { FontConstants }
  161.  
  162.   CHART_LEFTFT = 0;
  163.   CHART_RIGHTFT = 1;
  164.   CHART_TOPFT = 2;
  165.   CHART_BOTTOMFT = 3;
  166.   CHART_XLEGFT = 4;
  167.   CHART_YLEGFT = 5;
  168.   CHART_FIXEDFT = 6;
  169.   CHART_LEGENDFT = 7;
  170.  
  171. { ItemStyle,ItemWidth,ItemColor Property indexes }
  172.  
  173. { ItemConstants }
  174.  
  175.   CI_HORZGRID = 0;
  176.   CI_VERTGRID = 1;
  177.  
  178. { DecimalsNum Property indexes }
  179.  
  180. { DecimalConstants }
  181.  
  182.   CD_ALL = 0;
  183.   CD_VALUES = 1;
  184.   CD_YLEG = 2;
  185.   CD_XLEG = 3;
  186.  
  187. const
  188.  
  189. { Component class GUIDs }
  190.   Class_Chartfx: TGUID = '{8996B0A1-D7BE-101B-8650-00AA003A5593}';
  191.  
  192. type
  193.  
  194. { Forward declarations }
  195. { Forward declarations: Interfaces }
  196.   _DChartfx = dispinterface;
  197.   _DChartfxEvents = dispinterface;
  198.  
  199. { Forward declarations: CoClasses }
  200.   Chartfx = _DChartfx;
  201.  
  202. { Forward declarations: Enums }
  203.   PointTypeConstants = TOleEnum;
  204.   SchemeConstants = TOleEnum;
  205.   StackedConstants = TOleEnum;
  206.   GridConstants = TOleEnum;
  207.   GalleryConstants = TOleEnum;
  208.   ConstTypeConstants = TOleEnum;
  209.   LegendStyleConstants = TOleEnum;
  210.   OpenDataConstants = TOleEnum;
  211.   ClickConstants = TOleEnum;
  212.   DialogConstants = TOleEnum;
  213.   AdmConstants = TOleEnum;
  214.   TitleConstants = TOleEnum;
  215.   FontConstants = TOleEnum;
  216.   ItemConstants = TOleEnum;
  217.   DecimalConstants = TOleEnum;
  218.  
  219. { Dispatch interface for ChartFX Control }
  220.  
  221.   _DChartfx = dispinterface
  222.     ['{2DC488B0-D891-101B-8652-00AA003A5593}']
  223.     property DesignDraw: Smallint dispid 4;
  224.     property ThisSerie: Smallint dispid 1;
  225.     property ThisPoint: Smallint dispid 2;
  226.     property AutoInvalidate: WordBool dispid 3;
  227.     property Type_: Integer dispid 5;
  228.     property Style: Integer dispid 6;
  229.     property NSeries: Smallint dispid 7;
  230.     property NValues: Smallint dispid 8;
  231.     property ThisColor: TColor dispid 9;
  232.     property ThisBkColor: TColor dispid 10;
  233.     property LeftGap: Smallint dispid 11;
  234.     property RightGap: Smallint dispid 12;
  235.     property TopGap: Smallint dispid 13;
  236.     property BottomGap: Smallint dispid 14;
  237.     property Decimals: Smallint dispid 15;
  238.     property PointType: Smallint dispid 16;
  239.     property Scheme: Smallint dispid 17;
  240.     property Stacked: Smallint dispid 18;
  241.     property Grid: Smallint dispid 19;
  242.     property WallWidth: Smallint dispid 20;
  243.     property BarHorzGap: Smallint dispid 21;
  244.     property View3D: WordBool dispid 22;
  245.     property Angles3D: Integer dispid 23;
  246.     property PixFactor: Smallint dispid 24;
  247.     property LineWidth: Smallint dispid 25;
  248.     property LineStyle: Smallint dispid 26;
  249.     property LineColor: TColor dispid 27;
  250.     property LineBkColor: TColor dispid 28;
  251.     property FixedWidth: Smallint dispid 29;
  252.     property FixedStyle: Smallint dispid 30;
  253.     property FixedColor: TColor dispid 31;
  254.     property FixedBkColor: TColor dispid 32;
  255.     property FixedGap: Smallint dispid 33;
  256.     property RGBBarHorz: TColor dispid 34;
  257.     property RGBBk: TColor dispid 35;
  258.     property RGB2DBk: TColor dispid 36;
  259.     property RGB3DBk: TColor dispid 37;
  260.     property ShowStatus: WordBool dispid 38;
  261.     property HText: WideString dispid 39;
  262.     property ChartStatus: Smallint dispid 40;
  263.     property Edit: Smallint dispid 41;
  264.     property ChartType: Smallint dispid 42;
  265.     property Chart3D: WordBool dispid 43;
  266.     property ToolBar: WordBool dispid 44;
  267.     property PaletteBar: WordBool dispid 45;
  268.     property PatternBar: WordBool dispid 46;
  269.     property CustTool: Integer dispid 47;
  270.     property ReturnValue: Integer dispid 48;
  271.     property AutoIncrement: WordBool dispid 49;
  272.     property ThisValue: Double dispid 50;
  273.     property VertGridGap: Smallint dispid 51;
  274.     property XLegType: Smallint dispid 52;
  275.     property ConstType: Smallint dispid 53;
  276.     property LeftFont: IFontDisp dispid 54;
  277.     property RightFont: IFontDisp dispid 55;
  278.     property TopFont: IFontDisp dispid 56;
  279.     property BottomFont: IFontDisp dispid 57;
  280.     property XLegFont: IFontDisp dispid 58;
  281.     property YLegFont: IFontDisp dispid 59;
  282.     property FixedFont: IFontDisp dispid 60;
  283.     property LegendFont: IFontDisp dispid 61;
  284.     property LegendWidth: Smallint dispid 62;
  285.     property Enabled: WordBool dispid -514;
  286.     property hWnd: OLE_HANDLE dispid -515;
  287.     property BorderStyle: Smallint dispid -504;
  288.     property hCtlWnd: Integer dispid 63;
  289.     property Value[index: Smallint]: Double dispid 82;
  290.     property XValue[index: Smallint]: Double dispid 83;
  291.     property IniValue[index: Smallint]: Double dispid 84;
  292.     property Const_[index: Smallint]: Double dispid 85;
  293.     property Color[index: Smallint]: TColor dispid 86;
  294.     property BkColor[index: Smallint]: TColor dispid 87;
  295.     property Adm[index: Smallint]: Double dispid 88;
  296.     property Pattern[index: Smallint]: Smallint dispid 89;
  297.     property Fonts[index: Smallint]: Integer dispid 90;
  298.     property Title[index: Smallint]: WideString dispid 91;
  299.     property Legend[index: Smallint]: WideString dispid 92;
  300.     property SerLeg[index: Smallint]: WideString dispid 93;
  301.     property KeyLeg[index: Smallint]: WideString dispid 94;
  302.     property FixLeg[index: Smallint]: WideString dispid 95;
  303.     property YLeg[index: Smallint]: WideString dispid 96;
  304.     property KeySer[index: Smallint]: WideString dispid 97;
  305.     property StatusText[index: Smallint]: WideString dispid 98;
  306.     property RGBFont[index: Smallint]: TColor dispid 99;
  307.     property HFont[index: Smallint]: Smallint dispid 100;
  308.     property ItemWidth[index: Smallint]: Smallint dispid 101;
  309.     property ItemStyle[index: Smallint]: Smallint dispid 102;
  310.     property ItemColor[index: Smallint]: TColor dispid 103;
  311.     property DecimalsNum[index: Smallint]: Smallint dispid 104;
  312.     function OpenDataEx(nType: Smallint; n1, n2: Integer): Integer; dispid 64;
  313.     function CloseData(nType: Smallint): WordBool; dispid 65;
  314.     function DblClk(nType: Smallint; lExtra: Integer): Integer; dispid 66;
  315.     function RigClk(nType: Smallint; lExtra: Integer): Integer; dispid 67;
  316.     function Status(nItems: Smallint; lpStatus: Integer): Integer; dispid 68;
  317.     function ShowDialog(nDialog: Smallint; lExtra: Integer): Integer; dispid 69;
  318.     function PrintIt: Integer; dispid 70;
  319.     function Scroll(wParam, lParam: Integer): Integer; dispid 71;
  320.     function SetStatusItem(index: Smallint; bText: WordBool; nID: Smallint; bFrame: WordBool; nWidth, nMin, nDesp: Smallint; dwStyle: Integer): Integer; dispid 72;
  321.     function Paint(hDC: Integer; nLeft, nTop, nRight, nBottom, wAction: Smallint; lps: Integer): Integer; dispid 73;
  322.     function SetStripe(index: Smallint; dMin, dMax: Double; rgb: TColor): Integer; dispid 74;
  323.     function Language(const sResource: WideString): Integer; dispid 75;
  324.     function ExportFile(const lpszNewValue: WideString): Integer; dispid 76;
  325.     function ImportFile(const lpszNewValue: WideString): Integer; dispid 77;
  326.     function WriteTemplate(const lpszNewValue: WideString): Integer; dispid 78;
  327.     function ReadTemplate(const lpszNewValue: WideString): Integer; dispid 79;
  328.     function CopyData: Integer; dispid 80;
  329.     function CopyBitmap: Integer; dispid 81;
  330.     procedure Refresh; dispid -550;
  331.     procedure AboutBox; dispid -552;
  332.   end;
  333.  
  334. { Event interface for ChartFX Control }
  335.  
  336.   _DChartfxEvents = dispinterface
  337.     ['{2DC488B1-D891-101B-8652-00AA003A5593}']
  338.     procedure LButtonDblClk(x, y, nSerie: Smallint; nPoint: Integer; var nRes: Smallint); dispid 1;
  339.     procedure RButtonDown(x, y, nSerie: Smallint; nPoint: Integer; var nRes: Smallint); dispid 2;
  340.     procedure ChangeValue(dValue: Double; nSerie: Smallint; nPoint: Integer; var nRes: Smallint); dispid 3;
  341.     procedure ChangeString(nType: Smallint; nIndex: Integer; var nRes: Smallint); dispid 4;
  342.     procedure ChangeColor(nType, nIndex: Smallint; var nRes: Smallint); dispid 5;
  343.     procedure Destroy; dispid 6;
  344.     procedure ReadFile; dispid 7;
  345.     procedure ChangePalette(nIndex: Smallint; var nRes: Smallint); dispid 8;
  346.     procedure ChangeFont(nIndex: Smallint; var nRes: Smallint); dispid 9;
  347.     procedure ReadTemplate; dispid 10;
  348.     procedure ChangePattern(nType, nIndex: Smallint; var nRes: Smallint); dispid 11;
  349.     procedure ChangePattPal(nIndex: Smallint; var nRes: Smallint); dispid 12;
  350.     procedure Menu(wParam: Integer; nSerie: Smallint; nPoint: Integer; var nRes: Smallint); dispid 13;
  351.     procedure ChangeType(nType: Smallint; var nRes: Smallint); dispid 14;
  352.     procedure UserScroll(wScrollMsg, wScrollParam: Integer; var nRes: Smallint); dispid 15;
  353.     procedure GetLegend(nType: Smallint; var nRes: Smallint); dispid 16;
  354.   end;
  355.  
  356. { ChartFX Control }
  357.  
  358.   TChartfxLButtonDblClk = procedure(Sender: TObject; x, y, nSerie: Smallint; nPoint: Integer; var nRes: Smallint) of object;
  359.   TChartfxRButtonDown = procedure(Sender: TObject; x, y, nSerie: Smallint; nPoint: Integer; var nRes: Smallint) of object;
  360.   TChartfxChangeValue = procedure(Sender: TObject; dValue: Double; nSerie: Smallint; nPoint: Integer; var nRes: Smallint) of object;
  361.   TChartfxChangeString = procedure(Sender: TObject; nType: Smallint; nIndex: Integer; var nRes: Smallint) of object;
  362.   TChartfxChangeColor = procedure(Sender: TObject; nType, nIndex: Smallint; var nRes: Smallint) of object;
  363.   TChartfxChangePalette = procedure(Sender: TObject; nIndex: Smallint; var nRes: Smallint) of object;
  364.   TChartfxChangeFont = procedure(Sender: TObject; nIndex: Smallint; var nRes: Smallint) of object;
  365.   TChartfxChangePattern = procedure(Sender: TObject; nType, nIndex: Smallint; var nRes: Smallint) of object;
  366.   TChartfxChangePattPal = procedure(Sender: TObject; nIndex: Smallint; var nRes: Smallint) of object;
  367.   TChartfxMenu = procedure(Sender: TObject; wParam: Integer; nSerie: Smallint; nPoint: Integer; var nRes: Smallint) of object;
  368.   TChartfxChangeType = procedure(Sender: TObject; nType: Smallint; var nRes: Smallint) of object;
  369.   TChartfxUserScroll = procedure(Sender: TObject; wScrollMsg, wScrollParam: Integer; var nRes: Smallint) of object;
  370.   TChartfxGetLegend = procedure(Sender: TObject; nType: Smallint; var nRes: Smallint) of object;
  371.  
  372.   TChartfx = class(TOleControl)
  373.   private
  374.     FOnLButtonDblClk: TChartfxLButtonDblClk;
  375.     FOnRButtonDown: TChartfxRButtonDown;
  376.     FOnChangeValue: TChartfxChangeValue;
  377.     FOnChangeString: TChartfxChangeString;
  378.     FOnChangeColor: TChartfxChangeColor;
  379.     FOnDestroy: TNotifyEvent;
  380.     FOnReadFile: TNotifyEvent;
  381.     FOnChangePalette: TChartfxChangePalette;
  382.     FOnChangeFont: TChartfxChangeFont;
  383.     FOnReadTemplate: TNotifyEvent;
  384.     FOnChangePattern: TChartfxChangePattern;
  385.     FOnChangePattPal: TChartfxChangePattPal;
  386.     FOnMenu: TChartfxMenu;
  387.     FOnChangeType: TChartfxChangeType;
  388.     FOnUserScroll: TChartfxUserScroll;
  389.     FOnGetLegend: TChartfxGetLegend;
  390.     FIntf: _DChartfx;
  391.     function Get_hWnd: OLE_HANDLE;
  392.     procedure Set_hWnd(var Value: OLE_HANDLE);
  393.     function Get_Value(index: Smallint): Double;
  394.     procedure Set_Value(index: Smallint; Value: Double);
  395.     function Get_XValue(index: Smallint): Double;
  396.     procedure Set_XValue(index: Smallint; Value: Double);
  397.     function Get_IniValue(index: Smallint): Double;
  398.     procedure Set_IniValue(index: Smallint; Value: Double);
  399.     function Get_Const_(index: Smallint): Double;
  400.     procedure Set_Const_(index: Smallint; Value: Double);
  401.     function Get_Color(index: Smallint): TColor;
  402.     procedure Set_Color(index: Smallint; Value: TColor);
  403.     function Get_BkColor(index: Smallint): TColor;
  404.     procedure Set_BkColor(index: Smallint; Value: TColor);
  405.     function Get_Adm(index: Smallint): Double;
  406.     procedure Set_Adm(index: Smallint; Value: Double);
  407.     function Get_Pattern(index: Smallint): Smallint;
  408.     procedure Set_Pattern(index: Smallint; Value: Smallint);
  409.     function Get_Fonts(index: Smallint): Integer;
  410.     procedure Set_Fonts(index: Smallint; Value: Integer);
  411.     function Get_Title(index: Smallint): WideString;
  412.     procedure Set_Title(index: Smallint; const Value: WideString);
  413.     function Get_Legend(index: Smallint): WideString;
  414.     procedure Set_Legend(index: Smallint; const Value: WideString);
  415.     function Get_SerLeg(index: Smallint): WideString;
  416.     procedure Set_SerLeg(index: Smallint; const Value: WideString);
  417.     function Get_KeyLeg(index: Smallint): WideString;
  418.     procedure Set_KeyLeg(index: Smallint; const Value: WideString);
  419.     function Get_FixLeg(index: Smallint): WideString;
  420.     procedure Set_FixLeg(index: Smallint; const Value: WideString);
  421.     function Get_YLeg(index: Smallint): WideString;
  422.     procedure Set_YLeg(index: Smallint; const Value: WideString);
  423.     function Get_KeySer(index: Smallint): WideString;
  424.     procedure Set_KeySer(index: Smallint; const Value: WideString);
  425.     function Get_StatusText(index: Smallint): WideString;
  426.     procedure Set_StatusText(index: Smallint; const Value: WideString);
  427.     function Get_RGBFont(index: Smallint): TColor;
  428.     procedure Set_RGBFont(index: Smallint; Value: TColor);
  429.     function Get_HFont(index: Smallint): Smallint;
  430.     procedure Set_HFont(index: Smallint; Value: Smallint);
  431.     function Get_ItemWidth(index: Smallint): Smallint;
  432.     procedure Set_ItemWidth(index: Smallint; Value: Smallint);
  433.     function Get_ItemStyle(index: Smallint): Smallint;
  434.     procedure Set_ItemStyle(index: Smallint; Value: Smallint);
  435.     function Get_ItemColor(index: Smallint): TColor;
  436.     procedure Set_ItemColor(index: Smallint; Value: TColor);
  437.     function Get_DecimalsNum(index: Smallint): Smallint;
  438.     procedure Set_DecimalsNum(index: Smallint; Value: Smallint);
  439.   protected
  440.     procedure InitControlData; override;
  441.     procedure InitControlInterface(const Obj: IUnknown); override;
  442.   public
  443.     function OpenDataEx(nType: Smallint; n1, n2: Integer): Integer;
  444.     function CloseData(nType: Smallint): WordBool;
  445.     function DblClk(nType: Smallint; lExtra: Integer): Integer;
  446.     function RigClk(nType: Smallint; lExtra: Integer): Integer;
  447.     function Status(nItems: Smallint; lpStatus: Integer): Integer;
  448.     function ShowDialog(nDialog: Smallint; lExtra: Integer): Integer;
  449.     function PrintIt: Integer;
  450.     function Scroll(wParam, lParam: Integer): Integer;
  451.     function SetStatusItem(index: Smallint; bText: WordBool; nID: Smallint; bFrame: WordBool; nWidth, nMin, nDesp: Smallint; dwStyle: Integer): Integer;
  452.     function Paint(hDC: Integer; nLeft, nTop, nRight, nBottom, wAction: Smallint; lps: Integer): Integer;
  453.     function SetStripe(index: Smallint; dMin, dMax: Double; rgb: TColor): Integer;
  454.     function Language(const sResource: WideString): Integer;
  455.     function ExportFile(const lpszNewValue: WideString): Integer;
  456.     function ImportFile(const lpszNewValue: WideString): Integer;
  457.     function WriteTemplate(const lpszNewValue: WideString): Integer;
  458.     function ReadTemplate(const lpszNewValue: WideString): Integer;
  459.     function CopyData: Integer;
  460.     function CopyBitmap: Integer;
  461.     procedure Refresh;
  462.     procedure AboutBox;
  463.     property ControlInterface: _DChartfx read FIntf;
  464.     property Value[index: Smallint]: Double read Get_Value write Set_Value;
  465.     property XValue[index: Smallint]: Double read Get_XValue write Set_XValue;
  466.     property IniValue[index: Smallint]: Double read Get_IniValue write Set_IniValue;
  467.     property Const_[index: Smallint]: Double read Get_Const_ write Set_Const_;
  468.     property Color[index: Smallint]: TColor read Get_Color write Set_Color;
  469.     property BkColor[index: Smallint]: TColor read Get_BkColor write Set_BkColor;
  470.     property Adm[index: Smallint]: Double read Get_Adm write Set_Adm;
  471.     property Pattern[index: Smallint]: Smallint read Get_Pattern write Set_Pattern;
  472.     property Fonts[index: Smallint]: Integer read Get_Fonts write Set_Fonts;
  473.     property Title[index: Smallint]: WideString read Get_Title write Set_Title;
  474.     property Legend[index: Smallint]: WideString read Get_Legend write Set_Legend;
  475.     property SerLeg[index: Smallint]: WideString read Get_SerLeg write Set_SerLeg;
  476.     property KeyLeg[index: Smallint]: WideString read Get_KeyLeg write Set_KeyLeg;
  477.     property FixLeg[index: Smallint]: WideString read Get_FixLeg write Set_FixLeg;
  478.     property YLeg[index: Smallint]: WideString read Get_YLeg write Set_YLeg;
  479.     property KeySer[index: Smallint]: WideString read Get_KeySer write Set_KeySer;
  480.     property StatusText[index: Smallint]: WideString read Get_StatusText write Set_StatusText;
  481.     property RGBFont[index: Smallint]: TColor read Get_RGBFont write Set_RGBFont;
  482.     property HFont[index: Smallint]: Smallint read Get_HFont write Set_HFont;
  483.     property ItemWidth[index: Smallint]: Smallint read Get_ItemWidth write Set_ItemWidth;
  484.     property ItemStyle[index: Smallint]: Smallint read Get_ItemStyle write Set_ItemStyle;
  485.     property ItemColor[index: Smallint]: TColor read Get_ItemColor write Set_ItemColor;
  486.     property DecimalsNum[index: Smallint]: Smallint read Get_DecimalsNum write Set_DecimalsNum;
  487.   published
  488.     property TabStop;
  489.     property Align;
  490.     property DragCursor;
  491.     property DragMode;
  492.     property ParentShowHint;
  493.     property PopupMenu;
  494.     property ShowHint;
  495.     property TabOrder;
  496.     property Visible;
  497.     property OnDragDrop;
  498.     property OnDragOver;
  499.     property OnEndDrag;
  500.     property OnEnter;
  501.     property OnExit;
  502.     property OnStartDrag;
  503.     property DesignDraw: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  504.     property ThisSerie: Smallint index 1 read GetSmallintProp write SetSmallintProp stored False;
  505.     property ThisPoint: Smallint index 2 read GetSmallintProp write SetSmallintProp stored False;
  506.     property AutoInvalidate: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  507.     property Type_: Integer index 5 read GetIntegerProp write SetIntegerProp stored False;
  508.     property Style: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
  509.     property NSeries: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  510.     property NValues: Smallint index 8 read GetSmallintProp write SetSmallintProp stored False;
  511.     property ThisColor: TColor index 9 read GetTColorProp write SetTColorProp stored False;
  512.     property ThisBkColor: TColor index 10 read GetTColorProp write SetTColorProp stored False;
  513.     property LeftGap: Smallint index 11 read GetSmallintProp write SetSmallintProp stored False;
  514.     property RightGap: Smallint index 12 read GetSmallintProp write SetSmallintProp stored False;
  515.     property TopGap: Smallint index 13 read GetSmallintProp write SetSmallintProp stored False;
  516.     property BottomGap: Smallint index 14 read GetSmallintProp write SetSmallintProp stored False;
  517.     property Decimals: Smallint index 15 read GetSmallintProp write SetSmallintProp stored False;
  518.     property PointType: Smallint index 16 read GetSmallintProp write SetSmallintProp stored False;
  519.     property Scheme: Smallint index 17 read GetSmallintProp write SetSmallintProp stored False;
  520.     property Stacked: Smallint index 18 read GetSmallintProp write SetSmallintProp stored False;
  521.     property Grid: Smallint index 19 read GetSmallintProp write SetSmallintProp stored False;
  522.     property WallWidth: Smallint index 20 read GetSmallintProp write SetSmallintProp stored False;
  523.     property BarHorzGap: Smallint index 21 read GetSmallintProp write SetSmallintProp stored False;
  524.     property View3D: WordBool index 22 read GetWordBoolProp write SetWordBoolProp stored False;
  525.     property Angles3D: Integer index 23 read GetIntegerProp write SetIntegerProp stored False;
  526.     property PixFactor: Smallint index 24 read GetSmallintProp write SetSmallintProp stored False;
  527.     property LineWidth: Smallint index 25 read GetSmallintProp write SetSmallintProp stored False;
  528.     property LineStyle: Smallint index 26 read GetSmallintProp write SetSmallintProp stored False;
  529.     property LineColor: TColor index 27 read GetTColorProp write SetTColorProp stored False;
  530.     property LineBkColor: TColor index 28 read GetTColorProp write SetTColorProp stored False;
  531.     property FixedWidth: Smallint index 29 read GetSmallintProp write SetSmallintProp stored False;
  532.     property FixedStyle: Smallint index 30 read GetSmallintProp write SetSmallintProp stored False;
  533.     property FixedColor: TColor index 31 read GetTColorProp write SetTColorProp stored False;
  534.     property FixedBkColor: TColor index 32 read GetTColorProp write SetTColorProp stored False;
  535.     property FixedGap: Smallint index 33 read GetSmallintProp write SetSmallintProp stored False;
  536.     property RGBBarHorz: TColor index 34 read GetTColorProp write SetTColorProp stored False;
  537.     property RGBBk: TColor index 35 read GetTColorProp write SetTColorProp stored False;
  538.     property RGB2DBk: TColor index 36 read GetTColorProp write SetTColorProp stored False;
  539.     property RGB3DBk: TColor index 37 read GetTColorProp write SetTColorProp stored False;
  540.     property ShowStatus: WordBool index 38 read GetWordBoolProp write SetWordBoolProp stored False;
  541.     property HText: WideString index 39 read GetWideStringProp write SetWideStringProp stored False;
  542.     property ChartStatus: Smallint index 40 read GetSmallintProp write SetSmallintProp stored False;
  543.     property Edit: Smallint index 41 read GetSmallintProp write SetSmallintProp stored False;
  544.     property ChartType: Smallint index 42 read GetSmallintProp write SetSmallintProp stored False;
  545.     property Chart3D: WordBool index 43 read GetWordBoolProp write SetWordBoolProp stored False;
  546.     property ToolBar: WordBool index 44 read GetWordBoolProp write SetWordBoolProp stored False;
  547.     property PaletteBar: WordBool index 45 read GetWordBoolProp write SetWordBoolProp stored False;
  548.     property PatternBar: WordBool index 46 read GetWordBoolProp write SetWordBoolProp stored False;
  549.     property CustTool: Integer index 47 read GetIntegerProp write SetIntegerProp stored False;
  550.     property ReturnValue: Integer index 48 read GetIntegerProp write SetIntegerProp stored False;
  551.     property AutoIncrement: WordBool index 49 read GetWordBoolProp write SetWordBoolProp stored False;
  552.     property ThisValue: Double index 50 read GetDoubleProp write SetDoubleProp stored False;
  553.     property VertGridGap: Smallint index 51 read GetSmallintProp write SetSmallintProp stored False;
  554.     property XLegType: Smallint index 52 read GetSmallintProp write SetSmallintProp stored False;
  555.     property ConstType: Smallint index 53 read GetSmallintProp write SetSmallintProp stored False;
  556.     property LeftFont: TFont index 54 read GetTFontProp write SetTFontProp stored False;
  557.     property RightFont: TFont index 55 read GetTFontProp write SetTFontProp stored False;
  558.     property TopFont: TFont index 56 read GetTFontProp write SetTFontProp stored False;
  559.     property BottomFont: TFont index 57 read GetTFontProp write SetTFontProp stored False;
  560.     property XLegFont: TFont index 58 read GetTFontProp write SetTFontProp stored False;
  561.     property YLegFont: TFont index 59 read GetTFontProp write SetTFontProp stored False;
  562.     property FixedFont: TFont index 60 read GetTFontProp write SetTFontProp stored False;
  563.     property LegendFont: TFont index 61 read GetTFontProp write SetTFontProp stored False;
  564.     property LegendWidth: Smallint index 62 read GetSmallintProp write SetSmallintProp stored False;
  565.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  566.     property hWnd: OLE_HANDLE read Get_hWnd write Set_hWnd stored False;
  567.     property BorderStyle: Smallint index -504 read GetSmallintProp write SetSmallintProp stored False;
  568.     property hCtlWnd: Integer index 63 read GetIntegerProp write SetIntegerProp stored False;
  569.     property OnLButtonDblClk: TChartfxLButtonDblClk read FOnLButtonDblClk write FOnLButtonDblClk;
  570.     property OnRButtonDown: TChartfxRButtonDown read FOnRButtonDown write FOnRButtonDown;
  571.     property OnChangeValue: TChartfxChangeValue read FOnChangeValue write FOnChangeValue;
  572.     property OnChangeString: TChartfxChangeString read FOnChangeString write FOnChangeString;
  573.     property OnChangeColor: TChartfxChangeColor read FOnChangeColor write FOnChangeColor;
  574.     property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
  575.     property OnReadFile: TNotifyEvent read FOnReadFile write FOnReadFile;
  576.     property OnChangePalette: TChartfxChangePalette read FOnChangePalette write FOnChangePalette;
  577.     property OnChangeFont: TChartfxChangeFont read FOnChangeFont write FOnChangeFont;
  578.     property OnReadTemplate: TNotifyEvent read FOnReadTemplate write FOnReadTemplate;
  579.     property OnChangePattern: TChartfxChangePattern read FOnChangePattern write FOnChangePattern;
  580.     property OnChangePattPal: TChartfxChangePattPal read FOnChangePattPal write FOnChangePattPal;
  581.     property OnMenu: TChartfxMenu read FOnMenu write FOnMenu;
  582.     property OnChangeType: TChartfxChangeType read FOnChangeType write FOnChangeType;
  583.     property OnUserScroll: TChartfxUserScroll read FOnUserScroll write FOnUserScroll;
  584.     property OnGetLegend: TChartfxGetLegend read FOnGetLegend write FOnGetLegend;
  585.   end;
  586.  
  587. procedure Register;
  588.  
  589. implementation
  590.  
  591. uses ComObj;
  592.  
  593. procedure TChartfx.InitControlData;
  594. const
  595.   CEventDispIDs: array[0..15] of Integer = (
  596.     $00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
  597.     $00000007, $00000008, $00000009, $0000000A, $0000000B, $0000000C,
  598.     $0000000D, $0000000E, $0000000F, $00000010);
  599.   CLicenseKey: array[0..71] of Word = (
  600.     $0043, $0068, $0061, $0072, $0074, $0020, $0046, $0058, $0020, $0032,
  601.     $002E, $0030, $0020, $004F, $0043, $0058, $0033, $0032, $0020, $0028,
  602.     $0033, $0032, $0020, $0042, $0069, $0074, $0073, $0029, $002E, $0020,
  603.     $0043, $006F, $0070, $0079, $0072, $0069, $0067, $0068, $0074, $0020,
  604.     $0028, $0063, $0029, $0020, $0031, $0039, $0039, $0034, $0020, $0053,
  605.     $006F, $0066, $0074, $0077, $0061, $0072, $0065, $0020, $0046, $0058,
  606.     $002C, $0020, $0049, $006E, $0063, $002E, $002D, $0031, $0039, $0039,
  607.     $0035, $0000);
  608.   CTFontIDs: array [0..7] of Integer = (
  609.     $00000036, $00000037, $00000038, $00000039, $0000003A, $0000003B,
  610.     $0000003C, $0000003D);
  611.   CControlData: TControlData = (
  612.     ClassID: '{8996B0A1-D7BE-101B-8650-00AA003A5593}';
  613.     EventIID: '{2DC488B1-D891-101B-8652-00AA003A5593}';
  614.     EventCount: 16;
  615.     EventDispIDs: @CEventDispIDs;
  616.     LicenseKey: @CLicenseKey;
  617.     Flags: $00000008;
  618.     Version: 300;
  619.     FontCount: 8;
  620.     FontIDs: @CTFontIDs);
  621. begin
  622.   ControlData := @CControlData;
  623. end;
  624.  
  625. procedure TChartfx.InitControlInterface(const Obj: IUnknown);
  626. begin
  627.   FIntf := Obj as _DChartfx;
  628. end;
  629.  
  630. function TChartfx.OpenDataEx(nType: Smallint; n1, n2: Integer): Integer;
  631. begin
  632.   Result := ControlInterface.OpenDataEx(nType, n1, n2);
  633. end;
  634.  
  635. function TChartfx.CloseData(nType: Smallint): WordBool;
  636. begin
  637.   Result := ControlInterface.CloseData(nType);
  638. end;
  639.  
  640. function TChartfx.DblClk(nType: Smallint; lExtra: Integer): Integer;
  641. begin
  642.   Result := ControlInterface.DblClk(nType, lExtra);
  643. end;
  644.  
  645. function TChartfx.RigClk(nType: Smallint; lExtra: Integer): Integer;
  646. begin
  647.   Result := ControlInterface.RigClk(nType, lExtra);
  648. end;
  649.  
  650. function TChartfx.Status(nItems: Smallint; lpStatus: Integer): Integer;
  651. begin
  652.   Result := ControlInterface.Status(nItems, lpStatus);
  653. end;
  654.  
  655. function TChartfx.ShowDialog(nDialog: Smallint; lExtra: Integer): Integer;
  656. begin
  657.   Result := ControlInterface.ShowDialog(nDialog, lExtra);
  658. end;
  659.  
  660. function TChartfx.PrintIt: Integer;
  661. begin
  662.   Result := ControlInterface.PrintIt;
  663. end;
  664.  
  665. function TChartfx.Scroll(wParam, lParam: Integer): Integer;
  666. begin
  667.   Result := ControlInterface.Scroll(wParam, lParam);
  668. end;
  669.  
  670. function TChartfx.SetStatusItem(index: Smallint; bText: WordBool; nID: Smallint; bFrame: WordBool; nWidth, nMin, nDesp: Smallint; dwStyle: Integer): Integer;
  671. begin
  672.   Result := ControlInterface.SetStatusItem(index, bText, nID, bFrame, nWidth, nMin, nDesp, dwStyle);
  673. end;
  674.  
  675. function TChartfx.Paint(hDC: Integer; nLeft, nTop, nRight, nBottom, wAction: Smallint; lps: Integer): Integer;
  676. begin
  677.   Result := ControlInterface.Paint(hDC, nLeft, nTop, nRight, nBottom, wAction, lps);
  678. end;
  679.  
  680. function TChartfx.SetStripe(index: Smallint; dMin, dMax: Double; rgb: TColor): Integer;
  681. begin
  682.   Result := ControlInterface.SetStripe(index, dMin, dMax, rgb);
  683. end;
  684.  
  685. function TChartfx.Language(const sResource: WideString): Integer;
  686. begin
  687.   Result := ControlInterface.Language(sResource);
  688. end;
  689.  
  690. function TChartfx.ExportFile(const lpszNewValue: WideString): Integer;
  691. begin
  692.   Result := ControlInterface.ExportFile(lpszNewValue);
  693. end;
  694.  
  695. function TChartfx.ImportFile(const lpszNewValue: WideString): Integer;
  696. begin
  697.   Result := ControlInterface.ImportFile(lpszNewValue);
  698. end;
  699.  
  700. function TChartfx.WriteTemplate(const lpszNewValue: WideString): Integer;
  701. begin
  702.   Result := ControlInterface.WriteTemplate(lpszNewValue);
  703. end;
  704.  
  705. function TChartfx.ReadTemplate(const lpszNewValue: WideString): Integer;
  706. begin
  707.   Result := ControlInterface.ReadTemplate(lpszNewValue);
  708. end;
  709.  
  710. function TChartfx.CopyData: Integer;
  711. begin
  712.   Result := ControlInterface.CopyData;
  713. end;
  714.  
  715. function TChartfx.CopyBitmap: Integer;
  716. begin
  717.   Result := ControlInterface.CopyBitmap;
  718. end;
  719.  
  720. procedure TChartfx.Refresh;
  721. begin
  722.   ControlInterface.Refresh;
  723. end;
  724.  
  725. procedure TChartfx.AboutBox;
  726. begin
  727.   ControlInterface.AboutBox;
  728. end;
  729.  
  730. function TChartfx.Get_hWnd: OLE_HANDLE;
  731. begin
  732.   Result := ControlInterface.hWnd;
  733. end;
  734.  
  735. procedure TChartfx.Set_hWnd(var Value: OLE_HANDLE);
  736. begin
  737.   ControlInterface.hWnd := Value;
  738. end;
  739.  
  740. function TChartfx.Get_Value(index: Smallint): Double;
  741. begin
  742.   Result := ControlInterface.Value[index];
  743. end;
  744.  
  745. procedure TChartfx.Set_Value(index: Smallint; Value: Double);
  746. begin
  747.   ControlInterface.Value[index] := Value;
  748. end;
  749.  
  750. function TChartfx.Get_XValue(index: Smallint): Double;
  751. begin
  752.   Result := ControlInterface.XValue[index];
  753. end;
  754.  
  755. procedure TChartfx.Set_XValue(index: Smallint; Value: Double);
  756. begin
  757.   ControlInterface.XValue[index] := Value;
  758. end;
  759.  
  760. function TChartfx.Get_IniValue(index: Smallint): Double;
  761. begin
  762.   Result := ControlInterface.IniValue[index];
  763. end;
  764.  
  765. procedure TChartfx.Set_IniValue(index: Smallint; Value: Double);
  766. begin
  767.   ControlInterface.IniValue[index] := Value;
  768. end;
  769.  
  770. function TChartfx.Get_Const_(index: Smallint): Double;
  771. begin
  772.   Result := ControlInterface.Const_[index];
  773. end;
  774.  
  775. procedure TChartfx.Set_Const_(index: Smallint; Value: Double);
  776. begin
  777.   ControlInterface.Const_[index] := Value;
  778. end;
  779.  
  780. function TChartfx.Get_Color(index: Smallint): TColor;
  781. begin
  782.   Result := ControlInterface.Color[index];
  783. end;
  784.  
  785. procedure TChartfx.Set_Color(index: Smallint; Value: TColor);
  786. begin
  787.   ControlInterface.Color[index] := Value;
  788. end;
  789.  
  790. function TChartfx.Get_BkColor(index: Smallint): TColor;
  791. begin
  792.   Result := ControlInterface.BkColor[index];
  793. end;
  794.  
  795. procedure TChartfx.Set_BkColor(index: Smallint; Value: TColor);
  796. begin
  797.   ControlInterface.BkColor[index] := Value;
  798. end;
  799.  
  800. function TChartfx.Get_Adm(index: Smallint): Double;
  801. begin
  802.   Result := ControlInterface.Adm[index];
  803. end;
  804.  
  805. procedure TChartfx.Set_Adm(index: Smallint; Value: Double);
  806. begin
  807.   ControlInterface.Adm[index] := Value;
  808. end;
  809.  
  810. function TChartfx.Get_Pattern(index: Smallint): Smallint;
  811. begin
  812.   Result := ControlInterface.Pattern[index];
  813. end;
  814.  
  815. procedure TChartfx.Set_Pattern(index: Smallint; Value: Smallint);
  816. begin
  817.   ControlInterface.Pattern[index] := Value;
  818. end;
  819.  
  820. function TChartfx.Get_Fonts(index: Smallint): Integer;
  821. begin
  822.   Result := ControlInterface.Fonts[index];
  823. end;
  824.  
  825. procedure TChartfx.Set_Fonts(index: Smallint; Value: Integer);
  826. begin
  827.   ControlInterface.Fonts[index] := Value;
  828. end;
  829.  
  830. function TChartfx.Get_Title(index: Smallint): WideString;
  831. begin
  832.   Result := ControlInterface.Title[index];
  833. end;
  834.  
  835. procedure TChartfx.Set_Title(index: Smallint; const Value: WideString);
  836. begin
  837.   ControlInterface.Title[index] := Value;
  838. end;
  839.  
  840. function TChartfx.Get_Legend(index: Smallint): WideString;
  841. begin
  842.   Result := ControlInterface.Legend[index];
  843. end;
  844.  
  845. procedure TChartfx.Set_Legend(index: Smallint; const Value: WideString);
  846. begin
  847.   ControlInterface.Legend[index] := Value;
  848. end;
  849.  
  850. function TChartfx.Get_SerLeg(index: Smallint): WideString;
  851. begin
  852.   Result := ControlInterface.SerLeg[index];
  853. end;
  854.  
  855. procedure TChartfx.Set_SerLeg(index: Smallint; const Value: WideString);
  856. begin
  857.   ControlInterface.SerLeg[index] := Value;
  858. end;
  859.  
  860. function TChartfx.Get_KeyLeg(index: Smallint): WideString;
  861. begin
  862.   Result := ControlInterface.KeyLeg[index];
  863. end;
  864.  
  865. procedure TChartfx.Set_KeyLeg(index: Smallint; const Value: WideString);
  866. begin
  867.   ControlInterface.KeyLeg[index] := Value;
  868. end;
  869.  
  870. function TChartfx.Get_FixLeg(index: Smallint): WideString;
  871. begin
  872.   Result := ControlInterface.FixLeg[index];
  873. end;
  874.  
  875. procedure TChartfx.Set_FixLeg(index: Smallint; const Value: WideString);
  876. begin
  877.   ControlInterface.FixLeg[index] := Value;
  878. end;
  879.  
  880. function TChartfx.Get_YLeg(index: Smallint): WideString;
  881. begin
  882.   Result := ControlInterface.YLeg[index];
  883. end;
  884.  
  885. procedure TChartfx.Set_YLeg(index: Smallint; const Value: WideString);
  886. begin
  887.   ControlInterface.YLeg[index] := Value;
  888. end;
  889.  
  890. function TChartfx.Get_KeySer(index: Smallint): WideString;
  891. begin
  892.   Result := ControlInterface.KeySer[index];
  893. end;
  894.  
  895. procedure TChartfx.Set_KeySer(index: Smallint; const Value: WideString);
  896. begin
  897.   ControlInterface.KeySer[index] := Value;
  898. end;
  899.  
  900. function TChartfx.Get_StatusText(index: Smallint): WideString;
  901. begin
  902.   Result := ControlInterface.StatusText[index];
  903. end;
  904.  
  905. procedure TChartfx.Set_StatusText(index: Smallint; const Value: WideString);
  906. begin
  907.   ControlInterface.StatusText[index] := Value;
  908. end;
  909.  
  910. function TChartfx.Get_RGBFont(index: Smallint): TColor;
  911. begin
  912.   Result := ControlInterface.RGBFont[index];
  913. end;
  914.  
  915. procedure TChartfx.Set_RGBFont(index: Smallint; Value: TColor);
  916. begin
  917.   ControlInterface.RGBFont[index] := Value;
  918. end;
  919.  
  920. function TChartfx.Get_HFont(index: Smallint): Smallint;
  921. begin
  922.   Result := ControlInterface.HFont[index];
  923. end;
  924.  
  925. procedure TChartfx.Set_HFont(index: Smallint; Value: Smallint);
  926. begin
  927.   ControlInterface.HFont[index] := Value;
  928. end;
  929.  
  930. function TChartfx.Get_ItemWidth(index: Smallint): Smallint;
  931. begin
  932.   Result := ControlInterface.ItemWidth[index];
  933. end;
  934.  
  935. procedure TChartfx.Set_ItemWidth(index: Smallint; Value: Smallint);
  936. begin
  937.   ControlInterface.ItemWidth[index] := Value;
  938. end;
  939.  
  940. function TChartfx.Get_ItemStyle(index: Smallint): Smallint;
  941. begin
  942.   Result := ControlInterface.ItemStyle[index];
  943. end;
  944.  
  945. procedure TChartfx.Set_ItemStyle(index: Smallint; Value: Smallint);
  946. begin
  947.   ControlInterface.ItemStyle[index] := Value;
  948. end;
  949.  
  950. function TChartfx.Get_ItemColor(index: Smallint): TColor;
  951. begin
  952.   Result := ControlInterface.ItemColor[index];
  953. end;
  954.  
  955. procedure TChartfx.Set_ItemColor(index: Smallint; Value: TColor);
  956. begin
  957.   ControlInterface.ItemColor[index] := Value;
  958. end;
  959.  
  960. function TChartfx.Get_DecimalsNum(index: Smallint): Smallint;
  961. begin
  962.   Result := ControlInterface.DecimalsNum[index];
  963. end;
  964.  
  965. procedure TChartfx.Set_DecimalsNum(index: Smallint; Value: Smallint);
  966. begin
  967.   ControlInterface.DecimalsNum[index] := Value;
  968. end;
  969.  
  970.  
  971. procedure Register;
  972. begin
  973.   RegisterComponents('ActiveX', [TChartfx]);  { do not localize }
  974. end;
  975.  
  976. end.
  977.