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