lazarus-ccr/components/fpspreadsheet/examples/db_import_export/main.lfm

object Form1: TForm1
  Left = 340
  Height = 229
  Top = 154
  Width = 404
  Caption = 'Form1'
  ClientHeight = 229
  ClientWidth = 404
  OnCreate = FormCreate
  LCLVersion = '1.3'
  object PageControl: TPageControl
    Left = 4
    Height = 221
    Top = 4
    Width = 396
    ActivePage = TabSheet1
    Align = alClient
    BorderSpacing.Around = 4
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '1 - Create database'
      ClientHeight = 193
      ClientWidth = 388
      object Label2: TLabel
        Left = 4
        Height = 15
        Top = 4
        Width = 380
        Align = alTop
        BorderSpacing.Around = 4
        Caption = 'Create a database with random records'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Panel1: TPanel
        Left = 0
        Height = 170
        Top = 23
        Width = 388
        Align = alClient
        BevelOuter = bvNone
        ClientHeight = 170
        ClientWidth = 388
        TabOrder = 0
        object HeaderLabel1: TLabel
          Left = 8
          Height = 15
          Top = 11
          Width = 71
          Caption = 'Record count'
          ParentColor = False
        end
        object EdRecordCount: TEdit
          Left = 107
          Height = 23
          Top = 8
          Width = 64
          Alignment = taRightJustify
          TabOrder = 0
          Text = '10000'
        end
        object BtnCreateDbf: TButton
          Left = 280
          Height = 25
          Top = 116
          Width = 99
          Anchors = [akRight, akBottom]
          Caption = 'Run'
          OnClick = BtnCreateDbfClick
          TabOrder = 1
        end
        object Bevel1: TBevel
          Left = 0
          Height = 3
          Top = 0
          Width = 388
          Align = alTop
          Shape = bsTopLine
        end
        object InfoLabel1: TLabel
          Left = 4
          Height = 15
          Top = 151
          Width = 380
          Align = alBottom
          BorderSpacing.Around = 4
          Caption = 'InfoLabe1'
          ParentColor = False
        end
        object Label1: TLabel
          Left = 8
          Height = 15
          Top = 40
          Width = 324
          Caption = 'Please note: the binary xls files can handle only 65536 records.'
          ParentColor = False
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '2 - Write to spreadsheet'
      ClientHeight = 193
      ClientWidth = 388
      object HeaderLabel2: TLabel
        Left = 4
        Height = 15
        Top = 4
        Width = 380
        Align = alTop
        BorderSpacing.Around = 4
        Caption = 'Export database table to spreadsheet file'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Bevel2: TBevel
        Left = 0
        Height = 3
        Top = 23
        Width = 388
        Align = alTop
        Shape = bsTopLine
      end
      object InfoLabel2: TLabel
        Left = 4
        Height = 15
        Top = 174
        Width = 380
        Align = alBottom
        BorderSpacing.Around = 4
        Caption = 'InfoLabel2'
        ParentColor = False
      end
      object RgFileFormat: TRadioGroup
        Left = 8
        Height = 134
        Top = 32
        Width = 185
        AutoFill = True
        Caption = 'Spreadsheet file format'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 116
        ClientWidth = 181
        ItemIndex = 2
        Items.Strings = (
          'xls (Excel 2)'
          'xls (Excel5)'
          'xls (Excel 97-2003)'
          'xlsx (Excel 2007 and later)'
          'ods'
        )
        TabOrder = 0
      end
      object BtnExport: TButton
        Left = 280
        Height = 25
        Top = 140
        Width = 99
        Anchors = [akRight, akBottom]
        Caption = 'Run'
        OnClick = BtnExportClick
        TabOrder = 1
      end
    end
  end
end