main.dfm

一个经典的读写Excel的控件

object frmMain: TfrmMain
  Left = 478
  Top = 114
  BorderStyle = bsDialog
  Caption = 'Read Pictures'
  ClientHeight = 346
  ClientWidth = 611
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 92
    Top = 12
    Width = 42
    Height = 13
    Caption = 'Filename'
  end
  object Image: TImage
    Left = 160
    Top = 60
    Width = 445
    Height = 281
    AutoSize = True
    Proportional = True
    Stretch = True
  end
  object Label2: TLabel
    Left = 8
    Top = 40
    Width = 134
    Height = 13
    Caption = 'Double click to show picture'
  end
  object Button1: TButton
    Left = 12
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Read'
    TabOrder = 0
    OnClick = Button1Click
  end
  object edFilename: TEdit
    Left = 140
    Top = 8
    Width = 337
    Height = 21
    TabOrder = 1
  end
  object Button2: TButton
    Left = 480
    Top = 8
    Width = 25
    Height = 21
    Caption = '...'
    TabOrder = 2
    OnClick = Button2Click
  end
  object lbPictures: TListBox
    Left = 4
    Top = 60
    Width = 149
    Height = 281
    ItemHeight = 13
    TabOrder = 3
    OnDblClick = lbPicturesDblClick
  end
  object Button3: TButton
    Left = 532
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 4
    OnClick = Button3Click
  end
  object XLS: TXLSReadWriteII2
    Version = xvExcel97
    Sheets = <
      item
        Name = 'Sheet 1'
        DefaultColWidth = 8
        DefaultRowHeight = 255
        PrintSettings.Copies = 0
        PrintSettings.FooterMargin = 0.5
        PrintSettings.HeaderMargin = 0.5
        PrintSettings.MarginBottom = -1
        PrintSettings.MarginLeft = -1
        PrintSettings.MarginRight = -1
        PrintSettings.MarginTop = -1
        PrintSettings.Options = [psoPortrait]
        PrintSettings.PaperSize = psNone
        PrintSettings.ScalingFactor = 255
        PrintSettings.StartingPage = 1
        PrintSettings.HorizPagebreaks = <>
        PrintSettings.VertPagebreaks = <>
        PrintSettings.Resolution = 0
        MergedCells = <>
        Options = [soGridlines, soRowColHeadings, soShowZeros]
        WorkspaceOptions = [woShowAutoBreaks, woRowSumsBelow, woColSumsRight, woOutlineSymbols]
        Zoom = 0
        ZoomPreview = 0
        RecalcFormulas = True
        FixedRows = 0
        FixedCols = 0
        Validations = <>
        DrawingObjects.Texts = <>
        DrawingObjects.Notes = <>
        DrawingObjects.Basics = <>
        DrawingObjects.AutoShapes = <>
        DrawingObjects.Pictures = <>
        ControlsObjects.ListBoxes = <>
        ControlsObjects.ComboBoxes = <>
        ControlsObjects.Buttons = <>
        Hyperlinks = <>
        ConditionalFormats = <>
      end>
    Workbook.Left = 100
    Workbook.Top = 100
    Workbook.Width = 10000
    Workbook.Height = 7000
    Workbook.SelectedTab = 0
    Workbook.Options = [woHScroll, woVScroll, woTabs]
    OptionsDialog.SaveExtLinkVal = False
    OptionsDialog.CalcCount = 0
    OptionsDialog.CalcMode = cmAutomatic
    OptionsDialog.ShowObjects = soShowAll
    OptionsDialog.Iteration = False
    OptionsDialog.PrecisionAsDisplayed = True
    OptionsDialog.R1C1Mode = False
    OptionsDialog.RecalcBeforeSave = False
    OptionsDialog.Uncalced = False
    OptionsDialog.SaveRecalc = False
    BookProtected = False
    Backup = False
    RefreshAll = False
    StrTRUE = 'TRUE'
    StrFALSE = 'FALSE'
    ShowFormulas = False
    IsMac = False
    PreserveMacros = True
    ComponentVersion = '2.00.00'
    MSOPictures = <>
    Left = 8
    Top = 80
  end
  object dlgOpen: TOpenDialog
    Filter = 'Excel files (*.xls)|*.xls|All files (*.*)|*.*'
    Left = 40
    Top = 80
  end
end