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