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.3' object StatusBar: TStatusBar Left = 0 Height = 28 Top = 534 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 = 208 Height = 40 Top = 6 Width = 385 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 = 12 Width = 75 Caption = 'Read' OnClick = BtnReadClick TabOrder = 1 end end object ParameterPanel: TPanel Left = 0 Height = 478 Top = 56 Width = 182 Align = alLeft BevelOuter = bvNone ClientHeight = 478 ClientWidth = 182 TabOrder = 2 object CbVirtualModeOnly: TCheckBox Left = 8 Height = 24 Top = 8 Width = 142 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 = 63 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 = 112 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 = 152 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 = 478 Top = 56 Width = 582 Align = alClient Font.Height = -12 Font.Name = 'Courier New' Font.Pitch = fpFixed ParentFont = False ScrollBars = ssAutoVertical TabOrder = 3 end end