main.dfm

一个经典的读写Excel的控件

object Form3: TForm3
  Left = 366
  Top = 119
  BorderStyle = bsDialog
  Caption = 'Write Pictures'
  ClientHeight = 164
  ClientWidth = 448
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 35
    Height = 13
    Caption = 'Column'
  end
  object Label2: TLabel
    Left = 72
    Top = 8
    Width = 21
    Height = 13
    Caption = 'Row'
  end
  object Label3: TLabel
    Left = 124
    Top = 8
    Width = 50
    Height = 13
    Caption = 'Picture file'
  end
  object Label4: TLabel
    Left = 12
    Top = 108
    Width = 42
    Height = 13
    Caption = 'Filename'
  end
  object Button1: TButton
    Left = 360
    Top = 132
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 12
    Top = 132
    Width = 75
    Height = 25
    Caption = 'Write'
    TabOrder = 1
    OnClick = Button2Click
  end
  object seColumn: TSpinEdit
    Left = 12
    Top = 24
    Width = 49
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 2
    Value = 0
  end
  object seRow: TSpinEdit
    Left = 68
    Top = 24
    Width = 49
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 3
    Value = 0
  end
  object edPictureFile: TEdit
    Left = 124
    Top = 24
    Width = 293
    Height = 21
    TabOrder = 4
  end
  object Button3: TButton
    Left = 12
    Top = 52
    Width = 75
    Height = 25
    Caption = 'Add picture'
    TabOrder = 5
    OnClick = Button3Click
  end
  object edExcelFile: TEdit
    Left = 60
    Top = 104
    Width = 229
    Height = 21
    TabOrder = 6
  end
  object Button4: TButton
    Left = 420
    Top = 24
    Width = 21
    Height = 21
    Caption = '...'
    TabOrder = 7
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 292
    Top = 104
    Width = 21
    Height = 21
    Caption = '...'
    TabOrder = 8
    OnClick = Button5Click
  end
  object XLS: TXLSReadWriteII2
    Version = xvExcel97
    Sheets = <
      item
        Name = 'Sheet1'
        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 = 128
    Top = 132
  end
  object dlgOpen: TOpenDialog
    Left = 160
    Top = 132
  end
  object dlgSave: TSaveDialog
    Filter = 'Excel files (*.xls)|*.xls|All files (*.*)|*.*'
    Left = 192
    Top = 132
  end
end