u_tedsdatagenerator.lfm

object Form1: TForm1
  Left = 681
  Height = 533
  Top = 185
  Width = 589
  Caption = 'Teds Tremendous Data Generator, v1.0.0 by Ted Smith (c) 2017-2018'
  ClientHeight = 533
  ClientWidth = 589
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '1.6.4.0'
  object PageControl1: TPageControl
    Left = 16
    Height = 489
    Top = 23
    Width = 560
    ActivePage = TabSheet2
    Anchors = [akTop, akLeft, akRight, akBottom]
    TabIndex = 1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Text Generator'
      ClientHeight = 463
      ClientWidth = 552
      object memTextOutput: TMemo
        Left = 8
        Height = 279
        Top = 136
        Width = 478
        Anchors = [akTop, akLeft, akRight, akBottom]
        Lines.Strings = (
          ''
        )
        ScrollBars = ssAutoBoth
        TabOrder = 0
      end
      object btnGenerateStringData: TButton
        Left = 112
        Height = 25
        Top = 104
        Width = 112
        Caption = 'Generate Data'
        OnClick = btnGenerateStringDataClick
        TabOrder = 1
      end
      object lbledtHowManyLines: TLabeledEdit
        Left = 8
        Height = 21
        Top = 24
        Width = 216
        EditLabel.AnchorSideLeft.Control = lbledtHowManyLines
        EditLabel.AnchorSideRight.Control = lbledtHowManyLines
        EditLabel.AnchorSideRight.Side = asrBottom
        EditLabel.AnchorSideBottom.Control = lbledtHowManyLines
        EditLabel.Left = 8
        EditLabel.Height = 13
        EditLabel.Top = 8
        EditLabel.Width = 216
        EditLabel.Caption = 'How many lines of text?'
        EditLabel.ParentColor = False
        TabOrder = 2
        Text = '1000'
      end
      object cbStringType: TComboBox
        Left = 8
        Height = 21
        Top = 64
        Width = 216
        ItemHeight = 13
        Items.Strings = (
          'My own string'
          'Random strings'
          'Just line numbers'
        )
        OnChange = cbStringTypeChange
        TabOrder = 3
        Text = 'cbStringType'
      end
      object ledtOwnString: TLabeledEdit
        Left = 248
        Height = 21
        Top = 64
        Width = 238
        Anchors = [akTop, akLeft, akRight]
        EditLabel.AnchorSideLeft.Control = ledtOwnString
        EditLabel.AnchorSideRight.Control = ledtOwnString
        EditLabel.AnchorSideRight.Side = asrBottom
        EditLabel.AnchorSideBottom.Control = ledtOwnString
        EditLabel.Left = 248
        EditLabel.Height = 13
        EditLabel.Top = 48
        EditLabel.Width = 238
        EditLabel.Caption = 'Enter your own string:'
        EditLabel.ParentColor = False
        TabOrder = 4
        Visible = False
      end
      object lblStatus: TLabel
        Left = 8
        Height = 13
        Top = 104
        Width = 12
        Caption = '...'
        ParentColor = False
      end
      object btnSaveTextToFile: TButton
        Left = 133
        Height = 25
        Top = 431
        Width = 91
        Anchors = [akLeft, akBottom]
        Caption = 'Save to file...'
        Enabled = False
        OnClick = btnSaveTextToFileClick
        TabOrder = 5
      end
      object btnClear: TButton
        Left = 8
        Height = 25
        Top = 431
        Width = 88
        Anchors = [akLeft, akBottom]
        Caption = 'Clear'
        OnClick = btnClearClick
        TabOrder = 6
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'File Generator'
      ClientHeight = 463
      ClientWidth = 552
      object lbledtNoOfFiles: TLabeledEdit
        Left = 16
        Height = 21
        Top = 38
        Width = 192
        EditLabel.AnchorSideLeft.Control = lbledtNoOfFiles
        EditLabel.AnchorSideRight.Control = lbledtNoOfFiles
        EditLabel.AnchorSideRight.Side = asrBottom
        EditLabel.AnchorSideBottom.Control = lbledtNoOfFiles
        EditLabel.Left = 16
        EditLabel.Height = 13
        EditLabel.Top = 22
        EditLabel.Width = 192
        EditLabel.Caption = 'How many files to generate?'
        EditLabel.ParentColor = False
        TabOrder = 0
        Text = '100'
      end
      object lbledtFileSize: TLabeledEdit
        Left = 16
        Height = 21
        Top = 88
        Width = 192
        EditLabel.AnchorSideLeft.Control = lbledtFileSize
        EditLabel.AnchorSideRight.Control = lbledtFileSize
        EditLabel.AnchorSideRight.Side = asrBottom
        EditLabel.AnchorSideBottom.Control = lbledtFileSize
        EditLabel.Left = 16
        EditLabel.Height = 13
        EditLabel.Top = 72
        EditLabel.Width = 192
        EditLabel.Caption = 'How big should the files be?'
        EditLabel.ParentColor = False
        TabOrder = 1
        Text = '1'
        OnChange = cbFileSizeChange
      end
      object cbFileSize: TComboBox
        Left = 216
        Height = 21
        Top = 88
        Width = 112
        ItemHeight = 13
        Items.Strings = (
          'Bytes (B)'
          'Kilobytes (Kb)'
          'Megabytes (Mb)'
          'Gigabytes (Gb)'
          'Terabytes (Tb)'
        )
        OnChange = cbFileSizeChange
        Style = csDropDownList
        TabOrder = 2
      end
      object Label1: TLabel
        Left = 344
        Height = 13
        Top = 98
        Width = 31
        Caption = 'Label1'
        ParentColor = False
      end
      object lbledtOutputPath: TLabeledEdit
        Left = 16
        Height = 21
        Top = 151
        Width = 360
        EditLabel.AnchorSideLeft.Control = lbledtOutputPath
        EditLabel.AnchorSideRight.Control = lbledtOutputPath
        EditLabel.AnchorSideRight.Side = asrBottom
        EditLabel.AnchorSideBottom.Control = lbledtOutputPath
        EditLabel.Left = 16
        EditLabel.Height = 13
        EditLabel.Top = 135
        EditLabel.Width = 360
        EditLabel.Caption = 'Output files to:'
        EditLabel.ParentColor = False
        TabOrder = 3
      end
      object btnOutputFolder: TButton
        Left = 393
        Height = 25
        Top = 151
        Width = 144
        Caption = 'Change Output Folder'
        OnClick = btnOutputFolderClick
        TabOrder = 4
      end
      object btnGenerateFiles: TButton
        Left = 16
        Height = 25
        Top = 256
        Width = 152
        Caption = 'Generate Data Files'
        OnClick = btnGenerateFilesClick
        TabOrder = 5
      end
      object lblFilesCreated: TLabel
        Left = 16
        Height = 13
        Top = 192
        Width = 12
        Caption = '...'
        ParentColor = False
      end
      object btnFilesStop: TButton
        Left = 232
        Height = 25
        Top = 256
        Width = 144
        Caption = 'Stop!'
        OnClick = btnFilesStopClick
        TabOrder = 6
      end
      object RadioGroup1: TRadioGroup
        Left = 224
        Height = 64
        Top = 8
        Width = 144
        AutoFill = True
        Caption = 'Data Output'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 46
        ClientWidth = 140
        Items.Strings = (
          'Non-Random'
          'Random'
        )
        TabOrder = 7
      end
      object pbFiles: TProgressBar
        Left = 16
        Height = 20
        Top = 219
        Width = 356
        TabOrder = 8
      end
      object Panel1: TPanel
        Left = 16
        Height = 106
        Top = 306
        Width = 362
        ClientHeight = 106
        ClientWidth = 362
        TabOrder = 9
        object Label2: TLabel
          Left = 16
          Height = 13
          Top = 16
          Width = 56
          Caption = 'Started at :'
          ParentColor = False
        end
        object Label3: TLabel
          Left = 16
          Height = 13
          Top = 48
          Width = 50
          Caption = 'Ended at :'
          ParentColor = False
        end
        object Label4: TLabel
          Left = 16
          Height = 13
          Top = 80
          Width = 61
          Caption = 'Time Taken :'
          ParentColor = False
        end
        object lblStartTime: TLabel
          Left = 125
          Height = 13
          Top = 16
          Width = 12
          Caption = '...'
          ParentColor = False
        end
        object lblEndTime: TLabel
          Left = 125
          Height = 13
          Top = 48
          Width = 12
          Caption = '...'
          ParentColor = False
        end
        object lblTimeTaken: TLabel
          Left = 125
          Height = 13
          Top = 80
          Width = 12
          Caption = '...'
          ParentColor = False
        end
      end
    end
  end
  object SelectOutputFolder: TSelectDirectoryDialog
    left = 442
    top = 328
  end
  object StopCheckTimer: TTimer
    OnTimer = StopCheckTimerTimer
    left = 442
    top = 246
  end
  object sdSaveText: TSaveDialog
    left = 67
    top = 260
  end
end