ufldemoedit.dfm

Delphi/BCB 各种版本都支持的Excel 读写控件.一成功应用在N个项目中 .

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