lazarus-ccr/components/fpspreadsheet/examples/fpsspeedtest/mainform.lfm

object Form1: TForm1
  Left = 445
  Height = 546
  Top = 178
  Width = 739
  Caption = 'fpsSpeedTest'
  ClientHeight = 546
  ClientWidth = 739
  KeyPreview = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  LCLVersion = '1.2.4.0'
  object StatusBar: TStatusBar
    Left = 0
    Height = 23
    Top = 523
    Width = 739
    Panels = <>
  end
  object Panel1: TPanel
    Left = 0
    Height = 42
    Top = 0
    Width = 739
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 42
    ClientWidth = 739
    TabOrder = 1
    object BtnWrite: TButton
      Left = 8
      Height = 29
      Top = 8
      Width = 75
      Caption = 'Write'
      OnClick = BtnWriteClick
      TabOrder = 0
    end
    object LblCancel: TLabel
      Left = 208
      Height = 30
      Top = 6
      Width = 309
      Caption = 'Press ESC to cancel when current file is completely written.'#13#10'This may take some time...'
      ParentColor = False
      Visible = False
    end
    object BtnRead: TButton
      Left = 96
      Height = 29
      Top = 8
      Width = 75
      Caption = 'Read'
      OnClick = BtnReadClick
      TabOrder = 1
    end
  end
  object ParameterPanel: TPanel
    Left = 0
    Height = 477
    Top = 46
    Width = 150
    Align = alLeft
    BevelOuter = bvNone
    ClientHeight = 477
    ClientWidth = 150
    TabOrder = 2
    object CbVirtualModeOnly: TCheckBox
      Left = 8
      Height = 19
      Top = 8
      Width = 114
      Caption = 'Virtual mode only'
      TabOrder = 0
    end
    object RgContent: TRadioGroup
      Left = 8
      Height = 84
      Top = 40
      Width = 136
      AutoFill = True
      Caption = 'Content'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 66
      ClientWidth = 132
      ItemIndex = 0
      Items.Strings = (
        'Strings'
        'Numbers'
        'Mixed 50:50'
      )
      TabOrder = 1
    end
    object CgFormats: TCheckGroup
      Left = 8
      Height = 137
      Top = 140
      Width = 136
      AutoFill = True
      Caption = 'File formats: '
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 119
      ClientWidth = 132
      Items.Strings = (
        'ods'
        'xlsx'
        'xls (BIFF 8)'
        'xls (BIFF 5)'
        'xls (BIFF 2)'
      )
      TabOrder = 2
      Data = {
        050000000202020202
      }
    end
    object CgRowCount: TCheckGroup
      Left = 8
      Height = 177
      Top = 295
      Width = 136
      AutoFill = True
      Caption = 'Row count'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 159
      ClientWidth = 132
      Items.Strings = (
        '10k'
        '20k'
        '30k'
        '40k'
        '50k'
        '60k'
        '100k (not for BIFF)'
      )
      TabOrder = 3
      Data = {
        0700000002020202020202
      }
    end
  end
  object Bevel1: TBevel
    Left = 0
    Height = 4
    Top = 42
    Width = 739
    Align = alTop
    Shape = bsTopLine
  end
  object Memo: TMemo
    Left = 150
    Height = 477
    Top = 46
    Width = 589
    Align = alClient
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Pitch = fpFixed
    ParentFont = False
    ScrollBars = ssAutoVertical
    TabOrder = 3
  end
end