ufldemo.dfm

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

object Main: TMain
  Left = 75
  Top = 106
  Width = 845
  Height = 529
  Caption = 'FlexCel Component Suite Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 837
    Height = 483
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 233
      Top = 38
      Height = 445
    end
    object ListDemos: TTreeView
      Left = 0
      Top = 38
      Width = 233
      Height = 445
      Align = alLeft
      HideSelection = False
      Indent = 19
      ReadOnly = True
      TabOrder = 0
      OnChange = ListDemosChange
      Items.Data = {
        020000001E0000000000000000000000FFFFFFFFFFFFFFFF0000000002000000
        0544656D6F731F0000000100000001000000FFFFFFFFFFFFFFFF000000000D00
        0000065265706F7274310000000300000003000000FFFFFFFFFFFFFFFF000000
        000000000018566572792073696D706C652064656D6F20284E6F204442293300
        00000300000003000000FFFFFFFFFFFFFFFF00000000000000001A4172726179
        206F662076617269616E74732020284E6F204442292B00000003000000030000
        00FFFFFFFFFFFFFFFF000000000000000012496D6167652044656D6F20284E6F
        20444229220000000300000000000000FFFFFFFFFFFFFFFF0000000000000000
        094462207265706F72742F0000000300000003000000FFFFFFFFFFFFFFFF0000
        000000000000164D756C7469706C65204D61737465722D44657461696C280000
        000300000003000000FFFFFFFFFFFFFFFF00000000000000000F4D756C746970
        6C6520736865657473240000000300000003000000FFFFFFFFFFFFFFFF000000
        00000000000B5069766F74205461626C651F0000000300000003000000FFFFFF
        FFFFFFFFFF0000000000000000064368617274732C0000000300000003000000
        FFFFFFFFFFFFFFFF000000000000000013496D6167657320616E6420636F6D6D
        656E7473330000000300000003000000FFFFFFFFFFFFFFFF0000000000000000
        1A496D6167657320616E64206D756C7469706C65207368656574732400000003
        00000003000000FFFFFFFFFFFFFFFF00000000000000000B437573746F6D2064
        6174612D0000000300000003000000FFFFFFFFFFFFFFFF000000000000000014
        53696465206279205369646520436F6C756D6E73300000000000000000000000
        FFFFFFFFFFFFFFFF0000000000000000174D656D6F7279204461746173657473
        20284E6F204442291F0000000200000002000000FFFFFFFFFFFFFFFF00000000
        0200000006496D706F7274220000000400000004000000FFFFFFFFFFFFFFFF00
        0000000000000009526561642066696C65240000000400000004000000FFFFFF
        FFFFFFFFFF00000000000000000B4372656174652066696C6531000000050000
        0005000000FFFFFFFFFFFFFFFF000000000000000018536F6D6520776F726473
        2061626F757420466C657843656C}
    end
    object Tabs: TPageControl
      Left = 236
      Top = 38
      Width = 601
      Height = 445
      ActivePage = TabSheet5
      Align = alClient
      TabOrder = 1
      TabPosition = tpBottom
      object TabSheet1: TTabSheet
        Caption = '1'
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 593
          Height = 419
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TxtWelcome: TRichEdit
            Left = 1
            Top = 1
            Width = 591
            Height = 417
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 0
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = '2'
        ImageIndex = 1
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 593
          Height = 419
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 591
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label3: TLabel
              Left = 9
              Top = 8
              Width = 41
              Height = 16
              Caption = 'Report'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtReport: TRichEdit
            Left = 1
            Top = 33
            Width = 591
            Height = 385
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object TabSheet3: TTabSheet
        Tag = 1
        Caption = '3'
        ImageIndex = 2
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 593
          Height = 419
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 591
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label2: TLabel
              Left = 9
              Top = 8
              Width = 162
              Height = 16
              Caption = 'Very simple demo (no DB)'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtSimpleDemo: TRichEdit
            Left = 1
            Top = 33
            Width = 591
            Height = 385
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
        end
      end
      object TabSheet4: TTabSheet
        Tag = 2
        Caption = '4'
        ImageIndex = 3
        object Panel5: TPanel
          Left = 0
          Top = 0
          Width = 593
          Height = 419
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 591
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label1: TLabel
              Left = 9
              Top = 8
              Width = 153
              Height = 16
              Caption = 'Array of variants (No DB)'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtVarArr: TRichEdit
            Left = 1
            Top = 33
            Width = 591
            Height = 217
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
          object Panel6: TPanel
            Left = 1
            Top = 250
            Width = 591
            Height = 168
            Align = alBottom
            BevelOuter = bvNone
            Color = 10672861
            TabOrder = 2
            object Label4: TLabel
              Left = 16
              Top = 8
              Width = 203
              Height = 13
              Caption = 'Fill in the values you want to send to Excel:'
            end
            object PageControl1: TPageControl
              Left = 16
              Top = 24
              Width = 561
              Height = 137
              ActivePage = TabSheet15
              Anchors = [akLeft, akTop, akRight]
              TabOrder = 0
              TabPosition = tpBottom
              object TabSheet15: TTabSheet
                Caption = 'Sheet 1'
                object GridVarArray1: TStringGrid
                  Left = 8
                  Top = 0
                  Width = 329
                  Height = 105
                  DefaultRowHeight = 18
                  Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
                  ScrollBars = ssNone
                  TabOrder = 0
                end
              end
              object TabSheet16: TTabSheet
                Caption = 'Sheet2'
                ImageIndex = 1
                object GridVarArray2: TStringGrid
                  Left = 8
                  Top = 0
                  Width = 329
                  Height = 105
                  DefaultRowHeight = 18
                  Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
                  ScrollBars = ssNone
                  TabOrder = 0
                end
              end
            end
          end
        end
      end
      object TabSheet14: TTabSheet
        Tag = 3
        Caption = '5'
        ImageIndex = 5
        object Panel18: TPanel
          Left = 0
          Top = 0
          Width = 593
          Height = 419
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 591
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label17: TLabel
              Left = 9
              Top = 8
              Width = 127
              Height = 16
              Caption = 'Image demo (No DB)'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtImgDemo: TRichEdit
            Left = 1
            Top = 33
            Width = 591
            Height = 329
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
          object Panel19: TPanel
            Left = 1
            Top = 362
            Width = 591
            Height = 56
            Align = alBottom
            BevelOuter = bvNone
            Color = 10672861
            TabOrder = 2
            object Label18: TLabel
              Left = 16
              Top = 8
              Width = 98
              Height = 13
              Caption = 'File to send to Excel:'
            end
            object edMyImage: TEdit
              Left = 16
              Top = 24
              Width = 574
              Height = 21
              Anchors = [akLeft, akTop, akRight]
              TabOrder = 0
            end
            object btnOpenMyImage: TButton
              Left = 602
              Top = 23
              Width = 25
              Height = 25
              Anchors = [akTop, akRight]
              Caption = '...'
              TabOrder = 1
              OnClick = btnOpenMyImageClick
            end
          end
        end
      end
      object TabSheet5: TTabSheet
        Tag = 4
        Caption = '6'
        ImageIndex = 4
        object Panel7: TPanel
          Left = 0
          Top = 0
          Width = 593
          Height = 419
          Align = alClient
          BevelOuter = bvLowered
          Color = clWindow
          TabOrder = 0
          object TPanel
            Left = 1
            Top = 1
            Width = 591
            Height = 32
            Align = alTop
            Color = clHighlight
            TabOrder = 0
            object Label5: TLabel
              Left = 9
              Top = 8
              Width = 58
              Height = 16
              Caption = 'Db report'
              Color = clHighlight
              Font.Charset = ANSI_CHARSET
              Font.Color = clHighlightText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = [fsBold, fsItalic]
              ParentColor = False
              ParentFont = False
            end
          end
          object TxtDbDemo: TRichEdit
            Left = 1
            Top = 33
            Width = 591
            Height = 326
            Align = alClient
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 1
          end
          object Panel8: TPanel
            Left = 1
            Top = 359
            Width = 591
            Height = 59
            Align = alBottom
            BevelOuter = bvNone
            Color = 10672861
            TabOrder = 2
            object Label6: TLabel
              Left = 16
              Top = 8
              Width = 79
              Height = 13
              Caption = 'Select customer:'
            end
            object LookupCust: TDBLookupComboBox
              Left = 16
              Top = 24
              Width = 281
              Height = 21
              KeyField = 'CustNo'
              ListField = 'Company'
              ListSource = DemoData.DsCust
              TabOrder = 0
            end
          end
        end
      end
      object TabSheet6: TTabSheet
        Tag = 5