import & export.frm

Delphi Component - Chart Fx

VERSION 5.00
Object = "{8996B0A4-D7BE-101B-8650-00AA003A5593}#4.0#0"; "CFX4032.OCX"
Begin VB.Form Form1 
   Caption         =   "Chart FX.Importing and Exporting charts"
   ClientHeight    =   5850
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8565
   LinkTopic       =   "Form1"
   ScaleHeight     =   5850
   ScaleWidth      =   8565
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command4 
      Caption         =   "Make some changes ->"
      Enabled         =   0   'False
      Height          =   375
      Left            =   2280
      TabIndex        =   5
      Top             =   5280
      Width           =   2055
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Export to picture"
      Height          =   375
      Left            =   6840
      TabIndex        =   4
      Top             =   120
      Width           =   1575
   End
   Begin VB.PictureBox Picture1 
      Height          =   1455
      Left            =   6840
      ScaleHeight     =   1395
      ScaleWidth      =   1515
      TabIndex        =   3
      Top             =   600
      Width           =   1575
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Import from file (restore)"
      Enabled         =   0   'False
      Height          =   375
      Left            =   4800
      TabIndex        =   2
      Top             =   5280
      Width           =   1935
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Export to file ->"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   5280
      Width           =   1575
   End
   Begin ChartfxLibCtl.ChartFX ChartFX1 
      Height          =   5055
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6615
      _cx             =   2011042776
      _cy             =   2011042776
      _Version        =   262144
      TypeMask        =   109708546
      View3D          =   1
      AngleX          =   6
      AngleY          =   9
      View3DDepth     =   100
      CylSides        =   32
      nColors         =   2
      Pallete         =   "import & export.frx":0000
      Colors          =   "import & export.frx":00E4
      _Data_          =   "import & export.frx":0114
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    ChartFX1.Export CHART_CFXOLEFILE, App.Path & "\Chart.chd"
    Command4.Enabled = True
End Sub

Private Sub Command2_Click()
    ChartFX1.Import CHART_CFXOLEFILE, App.Path & "\Chart.chd"
End Sub

Private Sub Command3_Click()
    Picture1.Picture = ChartFX1.GetPicture(CHART_METAFILE)
End Sub

Private Sub Command4_Click()
    ChartFX1.Gallery = AREA
    ChartFX1.Palette = "Dark Pastels"
    ChartFX1.ToolBar = False
    Command2.Enabled = True
End Sub