home *** CD-ROM | disk | FTP | other *** search
- inherited Main: TMain
- OldCreateOrder = True
- PixelsPerInch = 96
- TextHeight = 13
- inherited ToolBar: TToolBar
- Height = 40
- EdgeBorders = [ebTop, ebBottom]
- inherited btnOpen: TToolButton
- Action = ActionOpen
- end
- inherited btnSaveAs: TToolButton
- Action = ActionSaveAs
- end
- end
- inherited ListRecords: TListView
- Top = 67
- Height = 275
- OnGetImageIndex = ListRecordsGetImageIndex
- end
- inherited edHex: TRichEdit
- TabOrder = 3
- end
- object Panel1: TPanel [5]
- Left = 0
- Top = 40
- Width = 752
- Height = 27
- Align = alTop
- BevelOuter = bvLowered
- TabOrder = 4
- object Label1: TLabel
- Left = 8
- Top = 8
- Width = 36
- Height = 13
- Caption = 'Stream:'
- end
- object cbStream: TComboBox
- Left = 49
- Top = 3
- Width = 680
- Height = 21
- Style = csDropDownList
- Anchors = [akLeft, akTop, akRight]
- ItemHeight = 13
- TabOrder = 0
- OnChange = cbStreamChange
- end
- end
- inherited ActionList: TActionList
- object ActionOpen: TAction
- Category = 'File'
- Caption = '&Open'
- Hint = 'Open a new excel file'
- ImageIndex = 0
- ShortCut = 16463
- OnExecute = ActionOpenExecute
- end
- object ActionSaveAs: TAction
- Category = 'File'
- Caption = 'Save As'
- Hint = 'Save the changes as another excel file'
- ImageIndex = 2
- ShortCut = 16467
- OnExecute = ActionSaveAsExecute
- OnUpdate = ActionSaveAsUpdate
- end
- end
- object OpenDialog: TOpenDialog [8]
- Filter = 'Excel files|*.xls'
- Title = 'Open Excel file'
- Left = 88
- Top = 120
- end
- object SaveDialog: TSaveDialog [9]
- DefaultExt = 'xls'
- Filter = 'Biff8 Excel files|*.xls'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
- Title = 'Export data to file'
- Left = 216
- Top = 120
- end
- end
-