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 = '2.1.0.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)' '1000k (not for BIFF)' ) TabOrder = 3 Data = { 080000000202020202020202 } 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