myflexcel.dfm

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

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 618
  Height = 220
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 610
    Height = 25
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'API DEMO'
    Color = clGray
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object Memo1: TMemo
    Left = 0
    Top = 25
    Width = 610
    Height = 135
    Align = alClient
    Lines.Strings = (
      'This is a little demo on how to use FlexCelImport to'
      '    * Read an existing file, modify it and save it back'
      
        '    * Create a file from scratch. (even when I continue to recom' +
        'mend you to go with FlexcelReport to do this) :-('
      ''
      
        'First button will load all files at a given folder, modify cell ' +
        'A1 so it gets blue background, red font and other properties , a' +
        'nd save them to a second folder'
      
        'Second button will create a new file with pictures, formulas and' +
        ' cell formats ')
    TabOrder = 1
  end
  object Panel2: TPanel
    Left = 0
    Top = 160
    Width = 610
    Height = 33
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = clGray
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object btnModify: TButton
      Left = 204
      Top = 5
      Width = 97
      Height = 25
      Anchors = [akBottom]
      Caption = 'Modify Files!'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = btnModifyClick
    end
    object btnCreate: TButton
      Left = 308
      Top = 5
      Width = 97
      Height = 25
      Anchors = [akBottom]
      Caption = 'Create File!'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = btnCreateClick
    end
  end
  object XLSAdapter: TXLSAdapter
    Left = 56
    Top = 128
  end
  object Fi: TFlexCelImport
    Adapter = XLSAdapter
    Left = 16
    Top = 128
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '*.xls'
    Filter = 'Excel Files|*.xls'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 104
    Top = 128
  end
end