home *** CD-ROM | disk | FTP | other *** search
- object FormVirtual: TFormVirtual
- Left = 123
- Top = 100
- Width = 604
- Height = 411
- ActiveControl = FileListBox1
- Caption = 'TeeChart Pro v4 --- Saving and Loading Charts Example'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 596
- Height = 57
- Align = alTop
- TabOrder = 0
- object Label1: TLabel
- Left = 16
- Top = 40
- Width = 362
- Height = 13
- Caption =
- 'Select and double-click a *.TEE file below... Double click the' +
- ' Chart to edit...'
- end
- object Button1: TButton
- Left = 16
- Top = 8
- Width = 75
- Height = 25
- Caption = '&Edit...'
- TabOrder = 0
- OnClick = Button1Click
- end
- object ButtonSave: TButton
- Left = 112
- Top = 8
- Width = 75
- Height = 25
- Caption = '&Save'
- Enabled = False
- TabOrder = 1
- OnClick = ButtonSaveClick
- end
- object ButtonSaveAs: TButton
- Left = 208
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Save &As...'
- Enabled = False
- TabOrder = 2
- OnClick = ButtonSaveAsClick
- end
- object Button3: TButton
- Left = 504
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Close'
- TabOrder = 3
- OnClick = Button3Click
- end
- object ButtonUnZoom: TButton
- Left = 304
- Top = 8
- Width = 75
- Height = 25
- Caption = '&UnZoom'
- TabOrder = 4
- OnClick = ButtonUnZoomClick
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 57
- Width = 217
- Height = 327
- Align = alLeft
- TabOrder = 1
- object FileListBox1: TFileListBox
- Left = 1
- Top = 137
- Width = 215
- Height = 189
- Align = alClient
- ItemHeight = 13
- Mask = '*.tee'
- TabOrder = 0
- OnDblClick = FileListBox1DblClick
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = 1
- Top = 1
- Width = 215
- Height = 128
- Align = alTop
- FileList = FileListBox1
- ItemHeight = 16
- TabOrder = 1
- end
- object Panel3: TPanel
- Left = 1
- Top = 129
- Width = 215
- Height = 8
- Align = alTop
- TabOrder = 2
- end
- end
- object Chart1: TChart
- Left = 217
- Top = 57
- Width = 379
- Height = 327
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- Title.Text.Strings = (
- 'TChart')
- OnScroll = Chart1Scroll
- OnZoom = Chart1Zoom
- BottomAxis.EndPosition = 100.000000000000000000
- LeftAxis.EndPosition = 100.000000000000000000
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.EndPosition = 100.000000000000000000
- Align = alClient
- TabOrder = 2
- OnDblClick = Chart1DblClick
- end
- end
-