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

object Form1: TForm1
  Left = 445
  Height = 676
  Top = 178
  Width = 785
  Caption = 'fpsSpeedTest'
  ClientHeight = 676
  ClientWidth = 785
  KeyPreview = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  LCLVersion = '1.8.4.0'
  object StatusBar: TStatusBar
    Left = 0
    Height = 23
    Top = 653
    Width = 785
    Panels = <>
  end
  object Panel1: TPanel
    Left = 0
    Height = 52
    Top = 0
    Width = 785
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 52
    ClientWidth = 785
    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 = 493
      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
    object BtnSaveResults: TButton
      Left = 685
      Height = 29
      Top = 12
      Width = 91
      Anchors = [akTop, akRight]
      Caption = 'Save results'
      OnClick = BtnSaveResultsClick
      TabOrder = 2
    end
  end
  object ParameterPanel: TPanel
    Left = 0
    Height = 597
    Top = 56
    Width = 182
    Align = alLeft
    BevelOuter = bvNone
    ClientHeight = 597
    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 = 156
      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 = 136
      ClientWidth = 156
      Items.Strings = (
        'ods'
        'xlsx'
        'xls (BIFF 8)'
        'xls (BIFF 5)'
        'xls (BIFF 2)'
        'csv'
      )
      TabOrder = 2
      Data = {
        06000000020202020202
      }
    end
    object CgRowCount: TCheckGroup
      Left = 8
      Height = 177
      Top = 312
      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
    object RgColCount: TRadioGroup
      Left = 8
      Height = 80
      Top = 504
      Width = 160
      AutoFill = True
      Caption = 'Column count'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 60
      ClientWidth = 156
      ItemIndex = 2
      Items.Strings = (
        '1'
        '10'
        '100'
      )
      TabOrder = 4
    end
  end
  object Bevel1: TBevel
    Left = 0
    Height = 4
    Top = 52
    Width = 785
    Align = alTop
    Shape = bsTopLine
  end
  object Memo: TMemo
    Left = 182
    Height = 597
    Top = 56
    Width = 603
    Align = alClient
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Pitch = fpFixed
    ParentFont = False
    ScrollBars = ssAutoVertical
    TabOrder = 3
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '.txt'
    Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*'
    Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing, ofViewDetail]
    left = 708
    top = 65
  end
end