uformatdialog.dfm

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

object FormatDialog: TFormatDialog
  Left = 242
  Top = 198
  BorderStyle = bsDialog
  Caption = 'Choose Format:'
  ClientHeight = 203
  ClientWidth = 415
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 73
    Height = 13
    Caption = 'Format number:'
  end
  object Bevel1: TBevel
    Left = 152
    Top = 0
    Width = 1
    Height = 161
    Anchors = [akLeft, akTop, akBottom]
    Shape = bsLeftLine
  end
  object BorderL: TShape
    Left = 161
    Top = 32
    Width = 4
    Height = 89
    Anchors = [akLeft, akTop, akRight]
  end
  object BorderT: TShape
    Left = 161
    Top = 29
    Width = 235
    Height = 4
    Anchors = [akLeft, akTop, akRight]
  end
  object BorderB: TShape
    Left = 161
    Top = 120
    Width = 235
    Height = 4
    Anchors = [akLeft, akTop, akRight]
  end
  object BorderR: TShape
    Left = 392
    Top = 32
    Width = 4
    Height = 89
    Anchors = [akLeft, akTop, akRight]
  end
  object DemoCell2: TPanel
    Left = 165
    Top = 33
    Width = 227
    Height = 87
    BevelOuter = bvNone
    TabOrder = 3
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 165
    Width = 415
    Height = 38
    Align = alBottom
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 54
    Caption = 'ToolBar'
    DisabledImages = DemoData.ImageList2
    Flat = True
    HotImages = DemoData.ImageList3
    Images = DemoData.ImageList1
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 0
    object BtnSave: TToolButton
      Left = 0
      Top = 0
      Caption = '      Ok     '
      ImageIndex = 11
      OnClick = BtnSaveClick
    end
    object BtnClose: TToolButton
      Left = 54
      Top = 0
      Caption = 'Cancel'
      ImageIndex = 12
      OnClick = BtnCloseClick
    end
  end
  object cbFormat: TListBox
    Left = 8
    Top = 32
    Width = 137
    Height = 121
    Anchors = [akLeft, akTop, akBottom]
    ItemHeight = 13
    TabOrder = 1
    OnClick = cbFormatClick
  end
  object DemoCell: TPanel
    Left = 176
    Top = 33
    Width = 201
    Height = 46
    BevelOuter = bvNone
    Caption = 'Demo Cell'
    TabOrder = 2
  end
end