uxlsviewer.xfm

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

object Main: TMain
  Left = 180
  Top = 167
  Width = 696
  Height = 480
  VertScrollBar.Range = 29
  ActiveControl = TabControl
  Caption = 'XlsViewer'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 0
  Menu = MainMenu1
  ParentFont = False
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 75
  object TabControl: TTabControl
    Left = 0
    Top = 29
    Width = 696
    Height = 423
    Align = alClient
    TabOrder = 0
    Tabs = <>
    OnChange = TabControlChange
    object Data: TFlexCelGrid
      Left = 4
      Top = 28
      Width = 688
      Height = 391
      FlexCelImport = FlexCelImport
      ReadOnly = False
      HideCursor = False
      FormulaReadOnly = False
      FullWorksheet = False
      Align = alClient
      Font.Color = clText
      Font.Height = 11
      Font.Name = 'Arial'
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 0
      ParentFont = False
      TabOrder = 0
      OnSelectCell = DataSelectCell
      OnSetEditText = DataSetEditText
      ColWidths = (
        48
        220
        220
        220
        220)
    end
    object Panel1: TPanel
      Left = 4
      Top = 4
      Width = 688
      Height = 24
      Align = alTop
      TabOrder = 1
      object PanelCellVal: TPanel
        Left = 0
        Top = 0
        Width = 97
        Height = 23
        Caption = 'Cell Value:'
        TabOrder = 0
      end
      object EdCell: TEdit
        Left = 97
        Top = 1
        Width = 588
        Height = 26
        TabOrder = 1
        OnChange = EdCellChange
      end
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 696
    Height = 29
    AutoSize = True
    ButtonHeight = 23
    Caption = 'ToolBar1'
    DisabledImages = ImageList2
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    HotImages = ImageList3
    Images = ImageList1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object ToolButton13: TToolButton
      Left = 9
      Top = 4
      Height = 23
      Action = ActionOpen
      Caption = 'Open...'
    end
    object ToolButton15: TToolButton
      Left = 32
      Top = 4
      Height = 23
      Action = ActionSaveAs
      Caption = 'Save As...'
    end
    object ToolButton16: TToolButton
      Left = 55
      Top = 4
      Height = 23
      Action = ActionReadOnly
      Caption = 'Read Only'
    end
    object ToolButton14: TToolButton
      Left = 78
      Top = 4
      Height = 23
      Action = ActionClose
      Caption = 'Close'
    end
    object ToolButton17: TToolButton
      Left = 101
      Top = 4
      Width = 23
      Height = 23
      Style = tbsSeparator
      Caption = 'ToolButton17'
    end
    object ToolButton7: TToolButton
      Left = 124
      Top = 4
      Height = 23
      Action = ActionPrint
      Caption = 'Print'
    end
    object ToolButton11: TToolButton
      Left = 147
      Top = 4
      Width = 23
      Height = 23
      Style = tbsSeparator
      Caption = 'ToolButton11'
    end
    object ToolButton12: TToolButton
      Left = 170
      Top = 4
      Height = 23
      Action = ActionCopy
      Caption = 'Copy'
    end
    object ToolButton18: TToolButton
      Left = 193
      Top = 4
      Height = 23
      Action = ActionPaste
      Caption = 'Paste'
    end
    object ToolButton19: TToolButton
      Left = 1
      Top = 4
      Width = 8
      Height = 23
      Style = tbsSeparator
      Caption = 'ToolButton19'
      ImageIndex = 15
    end
    object ToolButton1: TToolButton
      Left = 216
      Top = 4
      Height = 23
      Action = ActionCopyFormat
      AutoSize = True
      Caption = 'Copy Format'
    end
    object ToolButton2: TToolButton
      Left = 239
      Top = 4
      Height = 23
      Action = ActionPasteFormat
      Caption = 'Paste Format'
    end
    object ToolButton3: TToolButton
      Left = 262
      Top = 4
      Width = 8
      Height = 23
      Style = tbsSeparator
      Caption = 'ToolButton3'
      ImageIndex = 16
    end
    object ToolButton4: TToolButton
      Left = 270
      Top = 4
      Height = 23
      Action = ActionCellFormat
      Caption = 'Cell Format'
    end
    object ToolButton5: TToolButton
      Left = 293
      Top = 4
      Height = 23
      Action = ActionRowFormat
      Caption = 'Row Format'
    end
    object ToolButton6: TToolButton
      Left = 316
      Top = 4
      Height = 23
      Action = ActionColFormat
      Caption = 'Col Format'
    end
    object ToolButton9: TToolButton
      Left = 339
      Top = 4
      Width = 8
      Height = 23
      Style = tbsSeparator
      Caption = 'ToolButton9'