uasgdemo.dfm

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

object MainForm: TMainForm
  Left = 192
  Top = 107
  Width = 695
  Height = 504
  Caption = 'XLS demo'
  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 TabControl: TTabControl
    Left = 0
    Top = 209
    Width = 687
    Height = 268
    Align = alClient
    TabOrder = 0
    TabPosition = tpBottom
    OnChange = TabControlChange
    object AdvStringGrid1: TAdvStringGrid
      Left = 4
      Top = 4
      Width = 679
      Height = 260
      Cursor = crDefault
      Align = alClient
      ColCount = 5
      Ctl3D = True
      DefaultRowHeight = 21
      DefaultDrawing = False
      FixedCols = 1
      RowCount = 5
      FixedRows = 1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      GridLineWidth = 1
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSizing, goColSizing, goEditing]
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      GridLineColor = clSilver
      ActiveCellShow = False
      ActiveCellFont.Charset = DEFAULT_CHARSET
      ActiveCellFont.Color = clWindowText
      ActiveCellFont.Height = -11
      ActiveCellFont.Name = 'MS Sans Serif'
      ActiveCellFont.Style = [fsBold]
      ActiveCellColor = clGray
      Bands.PrimaryColor = clInfoBk
      Bands.PrimaryLength = 1
      Bands.SecondaryColor = clWindow
      Bands.SecondaryLength = 1
      Bands.Print = False
      AutoNumAlign = False
      AutoSize = False
      VAlignment = vtaBottom
      EnhTextSize = True
      EnhRowColMove = False
      SizeWithForm = False
      Multilinecells = True
      DragDropSettings.OleAcceptFiles = True
      DragDropSettings.OleAcceptText = True
      SortSettings.AutoColumnMerge = False
      SortSettings.Column = 0
      SortSettings.Show = False
      SortSettings.IndexShow = False
      SortSettings.IndexColor = clYellow
      SortSettings.Full = True
      SortSettings.SingleColumn = False
      SortSettings.IgnoreBlanks = False
      SortSettings.BlankPos = blFirst
      SortSettings.AutoFormat = True
      SortSettings.Direction = sdAscending
      SortSettings.InitSortDirection = sdAscending
      SortSettings.FixedCols = False
      SortSettings.NormalCellsOnly = False
      SortSettings.Row = 0
      SortSettings.UndoSort = False
      FloatingFooter.Color = clBtnFace
      FloatingFooter.Column = 0
      FloatingFooter.FooterStyle = fsFixedLastRow
      FloatingFooter.Visible = False
      ControlLook.Color = clBlack
      ControlLook.CheckSize = 15
      ControlLook.RadioSize = 10
      ControlLook.ControlStyle = csClassic
      ControlLook.DropDownAlwaysVisible = False
      ControlLook.FlatButton = False
      ControlLook.ProgressMarginX = 2
      ControlLook.ProgressMarginY = 2
      ControlLook.ProgressXP = False
      EnableBlink = False
      EnableHTML = True
      EnableWheel = True
      Flat = False
      Look = glXP
      HintColor = clInfoBk
      SelectionColor = clHighlight
      SelectionTextColor = clHighlightText
      SelectionRectangle = False
      SelectionResizer = False
      SelectionRTFKeep = False
      HintShowCells = False
      HintShowLargeText = True
      HintShowSizing = True
      PrintSettings.FooterSize = 0
      PrintSettings.HeaderSize = 0
      PrintSettings.Time = ppNone
      PrintSettings.Date = ppNone
      PrintSettings.DateFormat = 'dd/mm/yyyy'
      PrintSettings.PageNr = ppNone
      PrintSettings.Title = ppNone
      PrintSettings.Font.Charset = DEFAULT_CHARSET
      PrintSettings.Font.Color = clWindowText
      PrintSettings.Font.Height = -11
      PrintSettings.Font.Name = 'MS Sans Serif'
      PrintSettings.Font.Style = []
      PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
      PrintSettings.FixedFont.Color = clWindowText
      PrintSettings.FixedFont.Height = -11
      PrintSettings.FixedFont.Name = 'MS Sans Serif'
      PrintSettings.FixedFont.Style = []
      PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
      PrintSettings.HeaderFont.Color = clWindowText
      PrintSettings.HeaderFont.Height = -11
      PrintSettings.HeaderFont.Name = 'MS Sans Serif'
      PrintSettings.HeaderFont.Style = []
      PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
      PrintSettings.FooterFont.Color = clWindowText
      PrintSettings.FooterFont.Height = -11
      PrintSettings.FooterFont.Name = 'MS Sans Serif'
      PrintSettings.FooterFont.Style = []
      PrintSettings.Borders = pbNoborder
      PrintSettings.BorderStyle = psSolid
      PrintSettings.Centered = False
      PrintSettings.RepeatFixedRows = False
      PrintSettings.RepeatFixedCols = False
      PrintSettings.LeftSize = 0
      PrintSettings.RightSize = 0
      PrintSettings.ColumnSpacing = 0
      PrintSettings.RowSpacing = 0
      PrintSettings.TitleSpacing = 0
      PrintSettings.Orientation = poPortrait
      PrintSettings.PageNumberOffset = 0
      PrintSettings.MaxPagesOffset = 0
      PrintSettings.FixedWidth = 0
      PrintSettings.FixedHeight = 0
      PrintSettings.UseFixedHeight = False
      PrintSettings.UseFixedWidth = False
      PrintSettings.FitToPage = fpNever
      PrintSettings.PageNumSep = '/'
      PrintSettings.NoAutoSize = False
      PrintSettings.NoAutoSizeRow = False
      PrintSettings.PrintGraphics = False
      PrintSettings.UseDisplayFont = True
      HTMLSettings.Width = 100
      HTMLSettings.XHTML = False
      Navigation.AdvanceDirection = adLeftRight
      Navigation.InsertPosition = pInsertBefore
      Navigation.HomeEndKey = heFirstLastColumn
      Navigation.TabToNextAtEnd = False
      Navigation.TabAdvanceDirection = adLeftRight
      ColumnSize.Location = clRegistry
      CellNode.Color = clSilver
      CellNode.ExpandOne = False
      CellNode.NodeColor = clBlack
      CellNode.NodeIndent = 12
      CellNode.ShowTree = False
      MaxEditLength = 0
      MouseActions.RangeSelectAndEdit = True
      Grouping.HeaderColor = clNone
      Grouping.HeaderColorTo = clNone
      Grouping.HeaderTextColor = clNone
      Grouping.MergeHeader = False
      Grouping.MergeSummary = False
      Grouping.Summary = False
      Grouping.SummaryColor = clNone
      Grouping.SummaryColorTo = clNone
      Grouping.SummaryTextColor = clNone
      IntelliPan = ipVertical
      URLColor = clBlue
      URLShow = False
      URLFull = False
      URLEdit = False
      ScrollType = ssNormal
      ScrollColor = clNone
      ScrollWidth = 16
      ScrollSynch = False
      ScrollProportional = False
      ScrollHints = shNone
      OemConvert = False
      FixedFooters = 0
      FixedRightCols = 0
      FixedColWidth = 64
      FixedRowHeight = 21
      FixedFont.Charset = DEFAULT_CHARSET
      FixedFont.Color = clWindowText
      FixedFont.Height = -11
      FixedFont.Name = 'Tahoma'
      FixedFont.Style = []
      FixedAsButtons = False
      FloatFormat = '%.2f'
      IntegralHeight = False
      WordWrap = False
      Lookup = False
      LookupCaseSensitive = False
      LookupHistory = False
      BackGround.Top = 0
      BackGround.Left = 0
      BackGround.Display = bdTile
      BackGround.Cells = bcNormal
      Filter = <>
      ColWidths = (
        64
        64
        64
        64
        420)
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 687
    Height = 209
    Align = alTop
    Color = 16759225
    TabOrder = 1
    object cbAutoResize: TCheckBox
      Left = 336
      Top = 36
      Width = 145
      Height = 17
      Caption = 'Auto Resize Grid'
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
    object cbUnicode: TCheckBox
      Left = 336
      Top = 12
      Width = 97
      Height = 17
      Caption = 'Use Unicode'
      TabOrder = 1
    end
    object cbExcelFormat: TCheckBox
      Left = 336
      Top = 60
      Width = 121
      Height = 17
      Caption = 'Keep Excel format'
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
    object Panel2: TPanel
      Left = 128
      Top = 8
      Width = 177
      Height = 129
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = 16092052
      TabOrder = 3
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 62
        Height = 13
        Caption = 'Start Grid Col'
      end
      object Label2: TLabel
        Left = 16
        Top = 48
        Width = 69
        Height = 13
        Caption = 'Start Grid Row'
      end
      object Label3: TLabel
        Left = 16
        Top = 104
        Width = 70
        Height = 13
        Caption = 'Start XLS Row'
      end
      object Label4: TLabel
        Left = 16
        Top = 80
        Width = 63
        Height = 13
        Caption = 'Start XLS Col'
      end
      object edStartGridCol: TEdit
        Left = 96
        Top = 16
        Width = 57
        Height = 21
        TabOrder = 0
        Text = '1'
      end
      object edStartGridRow: TEdit
        Left = 96
        Top = 40
        Width = 57
        Height = 21
        TabOrder = 1
        Text = '1'
      end
      object edStartXLSCol: TEdit
        Left = 96
        Top = 72
        Width = 57
        Height = 21
        TabOrder = 2
        Text = '1'
      end
      object edStartXLSRow: TEdit
        Left = 96
        Top = 96
        Width = 57
        Height = 21
        TabOrder = 3
        Text = '1'
      end
    end
    object cbLoadImages: TCheckBox
      Left = 336
      Top = 84
      Width = 97
      Height = 17
      Caption = 'Load Images'
      Checked = True
      State = cbChecked
      TabOrder = 4
    end
    object Panel3: TPanel
      Left = 8
      Top = 8
      Width = 113
      Height = 129
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = 16092052
      TabOrder = 5
      object btnLoadNative: TButton
        Left = 8
        Top = 8
        Width = 97
        Height = 25
        Caption = 'Load File (Native)'
        TabOrder = 0
        OnClick = btnLoadNativeClick
      end
      object btnLoadOle: TButton
        Left = 8
        Top = 32
        Width = 97
        Height = 25
        Caption = 'Load File (Ole)'
        TabOrder = 1
        OnClick = btnLoadOleClick
      end
      object btnSaveNative: TButton
        Left = 8
        Top = 64
        Width = 97
        Height = 25
        Caption = 'Save File (Native)'
        TabOrder = 2
        OnClick = btnSaveNativeClick
      end
      object btnSaveOle: TButton
        Left = 8
        Top = 88
        Width = 97
        Height = 25
        Caption = 'Save File (Ole)'
        TabOrder = 3
        OnClick = btnSaveOleClick
      end
    end
    object Panel4: TPanel
      Left = 488
      Top = 8
      Width = 177
      Height = 129
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = 16092052
      TabOrder = 6
      object Label5: TLabel
        Left = 56
        Top = 48
        Width = 27
        Height = 13
        Caption = 'Zoom'
      end
      object Label6: TLabel
        Left = 16
        Top = 80
        Width = 125
        Height = 13
        Caption = 'Name generated sheet as:'
      end
      object edZoom: TEdit
        Left = 88
        Top = 40
        Width = 57
        Height = 21
        Enabled = False
        TabOrder = 0
        Text = '100'
      end
      object cbZoomSaved: TCheckBox
        Left = 16
        Top = 16
        Width = 153
        Height = 17
        Caption = 'Use sheet saved zoom'
        Checked = True
        State = cbChecked
        TabOrder = 1
        OnClick = cbZoomSavedClick
      end
      object edSheetName: TEdit
        Left = 16
        Top = 96
        Width = 121
        Height = 21
        TabOrder = 2
        Text = 'Sheet1'
      end
    end
    object Panel5: TPanel
      Left = 8
      Top = 144
      Width = 657
      Height = 57
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = 16092052
      TabOrder = 7
      object Label7: TLabel
        Left = 8
        Top = 8
        Width = 221
        Height = 13
        Caption = 'Date Format (empty uses ShortDateFormat var)'
      end
      object TimeFormat: TLabel
        Left = 248
        Top = 8
        Width = 221
        Height = 13
        Caption = 'Time Format (empty uses ShortTimeFormat var)'
      end
      object edDateFormat: TEdit
        Left = 8
        Top = 24
        Width = 225
        Height = 21
        TabOrder = 0
      end
      object edTimeFormat: TEdit
        Left = 248
        Top = 24
        Width = 225
        Height = 21
        TabOrder = 1
      end
      object edDateTimeEvent: TCheckBox
        Left = 488
        Top = 24
        Width = 161
        Height = 17
        Caption = 'Use Event to set Date/Time'
        TabOrder = 2
        OnClick = edDateTimeEventClick
      end
    end
  end
  object XLSAdapter: TXLSAdapter
    Left = 120
    Top = 184
  end
  object FlxAdvSg: TFlxAdvSg
    Adapter = XLSAdapter
    AdvStringGrid = AdvStringGrid1
    KeepExcelCellFormat = False
    UseUnicode = False
    MergeEmptyRightCells = False
    OnDateTimeFormat = FlxAdvSgDateTimeFormat
    Left = 160
    Top = 184
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'xls'
    Filter = 'All known formats|*.xls;*.txt;*.csv'
    Options = [ofHideReadOnly, ofExtensionDifferent, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Select a file to load'
    Left = 196
    Top = 183
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '*.xls'
    Filter = 'Excel Files|*.xls'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 236
    Top = 181
  end
end