home *** CD-ROM | disk | FTP | other *** search
- object DemoEdit: TDemoEdit
- Left = 182
- Top = 107
- Width = 535
- Height = 359
- Caption = 'Editing Excel file'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- OldCreateOrder = False
- PixelsPerInch = 96
- TextHeight = 13
- object TabControl: TTabControl
- Left = 0
- Top = 30
- Width = 527
- Height = 283
- Align = alClient
- TabOrder = 0
- TabPosition = tpBottom
- OnChange = TabControlChange
- object Data: TFlexCelGrid
- Left = 4
- Top = 6
- Width = 519
- Height = 255
- FlexCelImport = DemoData.FlexCelImport
- ReadOnly = False
- HideCursor = False
- FormulaReadOnly = False
- FullWorksheet = False
- Align = alClient
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- ColWidths = (
- 48
- 220
- 220
- 220
- 220)
- end
- object Panel1: TPanel
- Left = 4
- Top = 261
- Width = 519
- Height = 18
- Align = alBottom
- Alignment = taLeftJustify
- Caption =
- ' If you overwrite cell containing formulas, formulas will get lo' +
- 'st.'
- Color = 16031372
- TabOrder = 1
- end
- end
- object CoolBar1: TCoolBar
- Left = 0
- Top = 0
- Width = 527
- Height = 30
- AutoSize = True
- Bands = <
- item
- Control = ToolBar
- ImageIndex = -1
- MinHeight = 24
- Width = 93
- end
- item
- Break = False
- Control = ToolBar1
- ImageIndex = -1
- MinHeight = 26
- Width = 428
- end>
- ParentShowHint = False
- ShowHint = True
- object ToolBar: TToolBar
- Left = 9
- Top = 1
- Width = 80
- Height = 24
- AutoSize = True
- Caption = 'ToolBar'
- DisabledImages = DemoData.ImageList2
- Flat = True
- HotImages = DemoData.ImageList3
- Images = DemoData.ImageList1
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- object ToolButton7: TToolButton
- Left = 0
- Top = 0
- Action = ActionReadOnly
- end
- object BtnSave: TToolButton
- Left = 23
- Top = 0
- Action = ActionSaveAs
- end
- object BtnClose: TToolButton
- Left = 46
- Top = 0
- Action = ActionClose
- end
- end
- object ToolBar1: TToolBar
- Left = 104
- Top = 0
- Width = 415
- Height = 26
- AutoSize = True
- Caption = 'ToolBar1'
- DisabledImages = DemoData.ImageList2
- EdgeBorders = [ebTop, ebBottom]
- Flat = True
- HotImages = DemoData.ImageList3
- Images = DemoData.ImageList1
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- object ToolButton1: TToolButton
- Left = 0
- Top = 0
- Action = ActionCopyFormat
- AutoSize = True
- end
- object ToolButton2: TToolButton
- Left = 23
- Top = 0
- Action = ActionPasteFormat
- end
- object ToolButton3: TToolButton
- Left = 46
- Top = 0
- Width = 8
- Caption = 'ToolButton3'
- ImageIndex = 16
- Style = tbsSeparator
- end
- object ToolButton4: TToolButton
- Left = 54
- Top = 0
- Action = ActionCellFormat
- end
- object ToolButton5: TToolButton
- Left = 77
- Top = 0
- Action = ActionRowFormat
- end
- object ToolButton6: TToolButton
- Left = 100
- Top = 0
- Action = ActionColFormat
- end
- object ToolButton9: TToolButton
- Left = 123
- Top = 0
- Width = 8
- Caption = 'ToolButton9'
- ImageIndex = 4
- Style = tbsSeparator
- end
- object ToolButton8: TToolButton
- Left = 131
- Top = 0
- Action = ActionZoom
- DropdownMenu = MenuZoom
- Style = tbsDropDown
- end
- object TrackBarZoom: TTrackBar
- Left = 167
- Top = 0
- Width = 151
- Height = 22
- Max = 400
- Min = 10
- Orientation = trHorizontal
- Frequency = 20
- Position = 100
- SelEnd = 0
- SelStart = 0
- TabOrder = 0
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBarZoomChange
- end
- object PanelZoom: TPanel
- Left = 318
- Top = 0
- Width = 40
- Height = 22
- BevelOuter = bvNone
- Caption = '100%'
- TabOrder = 1
- end
- object ToolButton10: TToolButton
- Left = 358
- Top = 0
- Action = ActionFullWorksheet
- end
- end
- end
- object ActionList1: TActionList
- Images = DemoData.ImageList1
- Left = 28
- Top = 158
- object ActionZoom: TAction
- Category = 'View'
- Caption = 'Zoom'
- Hint = 'Toogles between zoom positions'
- ImageIndex = 3
- OnExecute = ActionZoomExecute
- end
- object Action10: TAction
- Category = 'View'
- Caption = '10%'
- OnExecute = Action10Execute
- end
- object Action25: TAction
- Category = 'View'
- Caption = '25%'
- OnExecute = Action25Execute
- end
- object ActionCopyFormat: TAction
- Category = 'Format'
- Caption = 'Copy Format'
- Hint = 'Copy Format'
- ImageIndex = 8
- OnExecute = ActionCopyFormatExecute
- end
- object ActionPasteFormat: TAction
- Category = 'Format'
- Caption = 'Paste Format'
- Hint = 'Paste Format'
- ImageIndex = 15
- OnExecute = ActionPasteFormatExecute
- end
- object ActionCellFormat: TAction
- Category = 'Format'
- Caption = 'Cell Format'
- Hint = 'Cell Format'
- ImageIndex = 16
- OnExecute = ActionCellFormatExecute
- end
- object Action50: TAction
- Category = 'View'
- Caption = '50%'
- OnExecute = Action50Execute
- end
- object ActionRowFormat: TAction
- Category = 'Format'
- Caption = 'Row Format'
- Hint = 'Row Format'
- ImageIndex = 17
- OnExecute = ActionRowFormatExecute
- end
- object ActionColFormat: TAction
- Category = 'Format'
- Caption = 'Col Format'
- Hint = 'Column Format'
- ImageIndex = 18
- OnExecute = ActionColFormatExecute
- end
- object ActionReadOnly: TAction
- Category = 'File'
- Caption = 'Read Only'
- Hint = 'Read Only'
- ImageIndex = 4
- OnExecute = ActionReadOnlyExecute
- end
- object ActionSaveAs: TAction
- Category = 'File'
- Caption = 'Save As...'
- Hint = 'Save As...'
- ImageIndex = 2
- OnExecute = ActionSaveAsExecute
- end
- object ActionClose: TAction
- Category = 'File'
- Caption = 'Close'
- Hint = 'Close'
- ImageIndex = 12
- OnExecute = ActionCloseExecute
- end
- object Action100: TAction
- Category = 'View'
- Caption = '100%'
- OnExecute = Action100Execute
- end
- object Action200: TAction
- Category = 'View'
- Caption = '200%'
- OnExecute = Action200Execute
- end
- object Action400: TAction
- Category = 'View'
- Caption = '400%'
- OnExecute = Action400Execute
- end
- object ActionFullWorksheet: TAction
- Category = 'View'
- Caption = 'Full Worksheet'
- Hint = 'Show the complete 65535 rows x 255 cols spreadsheet'
- ImageIndex = 14
- OnExecute = ActionFullWorksheetExecute
- end
- end
- object MainMenu1: TMainMenu
- Images = DemoData.ImageList1
- Left = 64
- Top = 142
- object File2: TMenuItem
- Caption = 'File'
- Hint = 'File'
- ImageIndex = 16
- object ReadOnly1: TMenuItem
- Action = ActionReadOnly
- end
- object ReadOnly2: TMenuItem
- Action = ActionSaveAs
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object Close1: TMenuItem
- Action = ActionClose
- end
- end
- object View1: TMenuItem
- Caption = 'View'
- object Zoom1: TMenuItem
- Caption = 'Zoom'
- ImageIndex = 3
- object N102: TMenuItem
- Action = Action10
- end
- object N252: TMenuItem
- Action = Action25
- end
- object N502: TMenuItem
- Action = Action50
- end
- object N1002: TMenuItem
- Action = Action100
- end
- object N2002: TMenuItem
- Action = Action200
- end
- object N4002: TMenuItem
- Action = Action400
- end
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object FullWorksheet1: TMenuItem
- Action = ActionFullWorksheet
- end
- end
- object Format1: TMenuItem
- Caption = 'Format'
- object CopyFormat1: TMenuItem
- Action = ActionCopyFormat
- end
- object PasteFormat1: TMenuItem
- Action = ActionPasteFormat
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object CellFormat1: TMenuItem
- Action = ActionCellFormat
- end
- object ColFormat1: TMenuItem
- Action = ActionRowFormat
- end
- object ColFormat2: TMenuItem
- Action = ActionColFormat
- end
- end
- end
- object MenuZoom: TPopupMenu
- Left = 48
- Top = 206
- object N101: TMenuItem
- Action = Action10
- end
- object N251: TMenuItem
- Action = Action25
- end
- object N501: TMenuItem
- Action = Action50
- end
- object N1001: TMenuItem
- Action = Action100
- end
- object N2001: TMenuItem
- Action = Action200
- end
- object N4001: TMenuItem
- Action = Action400
- end
- end
- end
-