ufldemo.dfm

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

            Height = 129
            Anchors = [akLeft, akTop, akRight, akBottom]
            ColCount = 4
            DefaultRowHeight = 18
            RowCount = 15
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
            ScrollBars = ssVertical
            TabOrder = 0
            ColWidths = (
              64
              158
              148
              64)
          end
        end
      end
      object TabSheet12: TTabSheet
        Caption = '-'
        ImageIndex = 11
        object Panel17: TPanel
          Left = 0
          Top = 0
          Width = 593
          Height = 419
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 591
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label16: TLabel
              Left = 9
              Top = 8
              Width = 40
              Height = 16
              Caption = 'Import'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtImport: TRichEdit
            Left = 1
            Top = 33
            Width = 591
            Height = 385
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object TabSheet13: TTabSheet
        Tag = 100
        Caption = '100'
        ImageIndex = 12
        object Panel15: TPanel
          Left = 0
          Top = 0
          Width = 593
          Height = 419
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 591
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label14: TLabel
              Left = 9
              Top = 8
              Width = 54
              Height = 16
              Caption = 'Read file'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtReadFile: TRichEdit
            Left = 1
            Top = 33
            Width = 591
            Height = 385
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object TabSheet20: TTabSheet
        Tag = 101
        Caption = '101'
        ImageIndex = 18
        object Panel22: TPanel
          Left = 0
          Top = 0
          Width = 593
          Height = 419
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 591
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label23: TLabel
              Left = 9
              Top = 8
              Width = 62
              Height = 16
              Caption = 'Create file'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtCreateFile: TRichEdit
            Left = 1
            Top = 33
            Width = 591
            Height = 385
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object about: TTabSheet
        Caption = 'About'
        ImageIndex = 16
        object Panel20: TPanel
          Left = 0
          Top = 0
          Width = 593
          Height = 419
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 591
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label20: TLabel
              Left = 9
              Top = 8
              Width = 134
              Height = 16
              Caption = 'Some boring words...'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtAbout: TRichEdit
            Left = 1
            Top = 33
            Width = 591
            Height = 385
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
    end
    object ToolBar: TToolBar
      Left = 0
      Top = 0
      Width = 837
      Height = 38
      AutoSize = True
      ButtonHeight = 36
      ButtonWidth = 82
      Caption = 'ToolBar'
      DisabledImages = DemoData.ImageList2
      Flat = True
      HotImages = DemoData.ImageList3
      Images = DemoData.ImageList1
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 2
      object BtnUseNative: TToolButton
        Left = 0
        Top = 0
        Action = ActionUseNative
        Down = True
        Grouped = True
        Style = tbsCheck
      end
      object BtnUseOle: TToolButton
        Left = 82
        Top = 0
        Action = ActionUseOle
        Grouped = True
        Style = tbsCheck
      end
      object ToolButton5: TToolButton
        Left = 164
        Top = 0
        Width = 8
        Caption = 'ToolButton5'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object ToolButton3: TToolButton
        Left = 172
        Top = 0
        Action = ActionFastCount
        Style = tbsCheck
      end
      object BtnHTML: TToolButton
        Left = 254
        Top = 0
        Action = ActionHtml
        Style = tbsCheck
      end
      object BtnProtect: TToolButton
        Left = 336
        Top = 0
        Action = ActionProtect
        Style = tbsCheck
      end
      object BtnUseTStore: TToolButton
        Left = 418
        Top = 0
        Action = ActionUseTStore
        Style = tbsCheck
      end
      object ToolButton2: TToolButton
        Left = 500
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 14
        Style = tbsSeparator
      end
      object BtnReport: TToolButton
        Left = 508
        Top = 0
        Action = ActionReport
        DropdownMenu = PopReport
        Style = tbsDropDown
      end
      object BtnViewTemplate: TToolButton
        Left = 603
        Top = 0
        Action = ActionViewTemplateExcel
        DropdownMenu = PopViewTemplate
        Style = tbsDropDown
      end
      object ToolButton1: TToolButton
        Left = 698
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object BtnClose: TToolButton
        Left = 706
        Top = 0
        Action = ActionClose
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 483
    Width = 837
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object ActionList: TActionList
    Images = DemoData.ImageList1
    Left = 248
    Top = 88
    object ActionUseNative: TAction
      Category = 'Adapter'
      Caption = 'Native Adapter'
      ImageIndex = 6
      OnExecute = ActionUseNativeExecute
    end
    object ActionAutoPrint: TAction
      Category = 'File'
      Caption = 'Print...'
      ImageIndex = 13
      OnExecute = ActionAutoPrintExecute
      OnUpdate = ActionHtmlUpdate
    end
    object ActionReportToStream: TAction
      Category = 'File'
      Caption = 'Report to stream'
      Hint = 'Runs the selected report to a file stream.'
      ImageIndex = 13
      OnExecute = ActionReportToStreamExecute
      OnUpdate = ActionReportToStreamUpdate
    end
    object ActionClose: TAction
      Category = 'File'
      Caption = 'Close'
      Hint = 'Quits the Application'
      ImageIndex = 12
      OnExecute = ActionCloseExecute
    end
    object ActionReport: TAction
      Category = 'File'
      Caption = 'Report !'
      Hint = 'Runs the selected report'
      ImageIndex = 13
      ShortCut = 120
      OnExecute = ActionReportExecute
      OnUpdate = ActionReportUpdate
    end
    object ActionUseOle: TAction
      Category = 'Adapter'
      Caption = 'Ole Adapter'
      ImageIndex = 5
      OnExecute = ActionUseOleExecute
    end
    object ActionHtml: TAction
      Category = 'Options'
      Caption = 'Export to HTML'
      ImageIndex = 9
      OnUpdate = ActionHtmlUpdate
    end
    object ActionProtect: TAction
      Category = 'Options'
      Caption = 'Protect'
      ImageIndex = 4
      OnUpdate = ActionHtmlUpdate
    end
    object ActionViewTemplateExcel: TAction
      Category = 'File'
      Caption = 'View Template'
      ImageIndex = 3
      OnExecute = ActionViewTemplateExcelExecute
      OnUpdate = ActionViewTemplateExcelUpdate
    end
    object ActionUseTStore: TAction
      Category = 'Options'
      Caption = 'Template Store'
      ImageIndex = 7
      OnExecute = ActionUseTStoreExecute
    end
    object ActionPreview: TAction
      Category = 'Options'
      Caption = 'Preview'
      ImageIndex = 14
      OnExecute = ActionPreviewExecute
      OnUpdate = ActionPreviewUpdate
    end
    object ActionViewTemplateInternal: TAction
      Category = 'File'
      Caption = 'Edit Template'
      ImageIndex = 14
      OnExecute = ActionViewTemplateInternalExecute
    end
    object ActionTestAll: TAction
      Category = 'File'
      Caption = 'Test All...'
      ImageIndex = 15
      OnExecute = ActionTestAllExecute
    end
    object ActionFastCount: TAction
      Category = 'Options'
      Caption = 'Fast Count'
      ImageIndex = 19
      OnExecute = ActionFastCountExecute
    end
  end
  object PopViewTemplate: TPopupMenu
    Left = 640
    Top = 212
    object VievwithExcel1: TMenuItem
      Action = ActionViewTemplateExcel
    end
    object Openwithinternaleditor1: TMenuItem
      Action = ActionViewTemplateInternal
    end
  end
  object PopReport: TPopupMenu
    Left = 248
    Top = 124
    object MenuItem1: TMenuItem
      Action = ActionReport
    end
    object MenuItem2: TMenuItem
      Action = ActionPreview
    end
    object Reporttostream1: TMenuItem
      Action = ActionReportToStream
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object PrintWARNING1: TMenuItem
      Action = ActionAutoPrint
    end
    object TestAll1: TMenuItem
      Action = ActionTestAll
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 248
    Top = 164
    object MenuItem3: TMenuItem
      Action = ActionViewTemplateExcel
    end
    object MenuItem4: TMenuItem
      Action = ActionViewTemplateInternal
    end
  end
end