importexport.pas

来自「Delphi Component - Chart Fx」· PAS 代码 · 共 65 行

unit ImportExport;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, OleCtrls, AXCtrls, ChartfxLib_TLB;

type
  TForm1 = class(TForm)
    ChartFX1: TChartFX;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
    ChartFX1.Export(CHART_CFXOLEFILE, 'Chart.chd');
    Button2.Enabled := True

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    ChartFX1.Gallery := AREA;
    ChartFX1.Palette := 'Dark Pastels';
    ChartFX1.ToolBar := False;
    Button3.Enabled := True;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    ChartFX1.Import(CHART_CFXOLEFILE, 'Chart.chd');
end;

procedure TForm1.Button4Click(Sender: TObject);
var
   p: TPicture;
begin
    p := TPicture.Create;
    SetOlePicture(p,ChartFX1.GetPicture(CHART_METAFILE));
    Image1.Picture := p;
end;

end.