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

object Form1: TForm1
  Left = 445
  Height = 562
  Top = 178
  Width = 764
  Caption = 'fpsSpeedTest'
  ClientHeight = 562
  ClientWidth = 764
  KeyPreview = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  LCLVersion = '1.5'
  object StatusBar: TStatusBar
    Left = 0
    Height = 23
    Top = 539
    Width = 764
    Panels = <>
  end
  object Panel1: TPanel
    Left = 0
    Height = 52
    Top = 0
    Width = 764
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 52
    ClientWidth = 764
    TabOrder = 1
    object BtnWrite: TButton
      Left = 8
      Height = 29
      Top = 12
      Width = 75
      Caption = 'Write'
      OnClick = BtnWriteClick
      TabOrder = 0
    end
    object LblCancel: TLabel
      Left = 184
      Height = 39
      Top = 6
      Width = 576
      Anchors = [akTop, akLeft, akRight]
      AutoSize = False
      Caption = 'Press ESC to cancel when current file is completely written.'#13#10'This may take some time...'
      Layout = tlCenter
      ParentColor = False
      Visible = False
    end
    object BtnRead: TButton
      Left = 96
      Height = 29
      Top = 12
      Width = 75
      Caption = 'Read'
      OnClick = BtnReadClick
      TabOrder = 1
    end
  end
  object ParameterPanel: TPanel
    Left = 0
    Height = 483
    Top = 56
    Width = 182
    Align = alLeft
    BevelOuter = bvNone
    ClientHeight = 483
    ClientWidth = 182
    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 = 88
      Top = 40
      Width = 160
      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 = 68
      ClientWidth = 156
      ItemIndex = 0
      Items.Strings = (
        'Strings'
        'Numbers'
        'Mixed 50:50'
      )
      TabOrder = 1
    end
    object CgFormats: TCheckGroup
      Left = 8
      Height = 137
      Top = 140
      Width = 160
      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 = 117
      ClientWidth = 156
      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 = 160
      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 = 157
      ClientWidth = 156
      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 = 52
    Width = 764
    Align = alTop
    Shape = bsTopLine
  end
  object Memo: TMemo
    Left = 182
    Height = 483
    Top = 56
    Width = 582
    Align = alClient
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Pitch = fpFixed
    ParentFont = False
    ScrollBars = ssAutoVertical
    TabOrder = 3
  end
end