simulform.lfm

object GridWatchSimulationForm: TGridWatchSimulationForm
  Left = 217
  Height = 593
  Top = 202
  Width = 989
  Caption = 'GridWatch green energy simulation V1.03'
  ClientHeight = 593
  ClientWidth = 989
  OnDestroy = FormDestroy
  OnShow = FormShow
  LCLVersion = '2.2.0.4'
  object EnergyForms: TGroupBox
    Left = 8
    Height = 182
    Top = 8
    Width = 263
    Caption = 'Choose energy forms and capacity'
    ClientHeight = 165
    ClientWidth = 261
    TabOrder = 0
    object UseWind: TCheckBox
      Left = 10
      Height = 23
      Top = 9
      Width = 57
      Caption = 'Wind'
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
    object UseHydro: TCheckBox
      Left = 10
      Height = 23
      Top = 74
      Width = 63
      Caption = 'Hydro'
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
    object WindCap: TEdit
      Left = 88
      Height = 28
      Top = 9
      Width = 48
      TabOrder = 5
      Text = '1'
    end
    object HydroCap: TEdit
      Left = 88
      Height = 28
      Top = 73
      Width = 48
      TabOrder = 7
      Text = '1'
    end
    object Label4: TLabel
      Left = 144
      Height = 16
      Top = 16
      Width = 106
      Caption = 'x current capacity'
    end
    object Label5: TLabel
      Left = 144
      Height = 16
      Top = 80
      Width = 106
      Caption = 'x current capacity'
    end
    object Label13: TLabel
      Left = 144
      Height = 16
      Top = 49
      Width = 106
      Caption = 'x current capacity'
    end
    object SolarCap: TEdit
      Left = 88
      Height = 28
      Top = 41
      Width = 48
      TabOrder = 6
      Text = '1'
    end
    object UseSolar: TCheckBox
      Left = 10
      Height = 23
      Top = 40
      Width = 57
      Caption = 'Solar'
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
    object UseBiomass: TCheckBox
      Left = 10
      Height = 23
      Top = 106
      Width = 76
      Caption = 'Biomass'
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
    object BioCap: TEdit
      Left = 88
      Height = 28
      Top = 105
      Width = 48
      TabOrder = 8
      Text = '1'
    end
    object Label14: TLabel
      Left = 144
      Height = 16
      Top = 110
      Width = 106
      Caption = 'x current capacity'
    end
    object UseNuclear: TCheckBox
      Left = 10
      Height = 23
      Top = 139
      Width = 73
      Caption = 'Nuclear'
      Checked = True
      State = cbChecked
      TabOrder = 4
    end
    object NuclearCap: TEdit
      Left = 88
      Height = 28
      Top = 138
      Width = 48
      TabOrder = 9
      Text = '1'
    end
    object Label15: TLabel
      Left = 145
      Height = 16
      Top = 143
      Width = 106
      Caption = 'x current capacity'
    end
  end
  object Storage: TGroupBox
    Left = 8
    Height = 435
    Top = 206
    Width = 264
    Anchors = [akTop, akLeft, akBottom]
    Caption = 'Energy storage'
    ClientHeight = 418
    ClientWidth = 262
    TabOrder = 1
    object Label2: TLabel
      Left = 136
      Height = 16
      Top = 36
      Width = 61
      Caption = 'x 150 MW'
    end
    object MaxBatteries: TEdit
      Left = 40
      Height = 28
      Top = 32
      Width = 88
      TabOrder = 1
      Text = '1000'
    end
    object UseTeslaBattery: TCheckBox
      Left = 11
      Height = 23
      Top = 8
      Width = 128
      Caption = 'Tesla Big Battery'
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
    object StorageEfficiency: TEdit
      Left = 80
      Height = 28
      Top = 84
      Width = 42
      TabOrder = 2
      Text = '94'
    end
    object Label7: TLabel
      Left = 129
      Height = 16
      Top = 89
      Width = 11
      Caption = '%'
    end
    object Label8: TLabel
      Left = 16
      Height = 16
      Top = 88
      Width = 59
      Caption = 'Efficiency'
    end
    object StorageStart: TRadioGroup
      Left = 16
      Height = 85
      Top = 152
      Width = 235
      AutoFill = True
      Caption = 'Capacity at start'
      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 = 68
      ClientWidth = 233
      ItemIndex = 1
      Items.Strings = (
        'Start empty'
        'Start half full'
        'Start full capacity'
      )
      TabOrder = 4
    end
    object Label11: TLabel
      Left = 16
      Height = 16
      Top = 120
      Width = 94
      Caption = 'Out of power in'
    end
    object StorageMaxHours: TEdit
      Left = 112
      Height = 28
      Top = 116
      Width = 42
      TabOrder = 3
      Text = '5'
    end
    object Label12: TLabel
      Left = 160
      Height = 16
      Top = 120
      Width = 35
      Caption = 'hours'
    end
    object Label6: TLabel
      Left = 10
      Height = 16
      Top = 61
      Width = 246
      Caption = '150 MW = Hornsdale Power Reserve AUS'
    end
  end
  object GroupBox1: TGroupBox
    Left = 280
    Height = 579
    Top = 8
    Width = 704
    Anchors = [akTop, akLeft, akRight, akBottom]
    ClientHeight = 577
    ClientWidth = 702
    TabOrder = 2
    object Label3: TLabel
      Left = 8
      Height = 16
      Top = 14
      Width = 26
      Caption = 'Year'
    end
    object Filter: TEdit
      Left = 40
      Height = 28
      Top = 9
      Width = 114
      TabOrder = 0
      Text = '2022'
    end
    object Simulate: TButton
      Left = 570
      Height = 27
      Top = 6
      Width = 120
      Anchors = [akTop, akRight]
      Caption = 'Simulate'
      Enabled = False
      OnClick = SimulateClick
      TabOrder = 1
    end
    object ShortageTreshold: TEdit
      Left = 288
      Height = 28
      Top = 8
      Width = 42
      TabOrder = 2
      Text = '100'
    end
    object Label9: TLabel
      Left = 176
      Height = 16
      Top = 14
      Width = 109
      Caption = 'Shortage treshold'
    end
    object Label10: TLabel
      Left = 336
      Height = 16
      Top = 14
      Width = 11
      Caption = '%'
    end
    object SaveResults: TButton
      Left = 570
      Height = 27
      Top = 546
      Width = 120
      Anchors = [akRight, akBottom]
      Caption = 'Save results'
      Enabled = False
      OnClick = SaveResultsClick
      TabOrder = 3
    end
    object OpenCsv: TButton
      Left = 394
      Height = 27
      Top = 6
      Width = 168
      Anchors = [akTop, akRight]
      Caption = 'Open gridwatch csv file'
      OnClick = OpenCsvClick
      TabOrder = 4
    end
    object PageControl1: TPageControl
      Left = 0
      Height = 500
      Top = 40
      Width = 698
      ActivePage = ResultsPage
      Anchors = [akTop, akLeft, akRight, akBottom]
      TabIndex = 0
      TabOrder = 5
      object ResultsPage: TTabSheet
        Caption = 'Results'
        ClientHeight = 470
        ClientWidth = 688
        object ResultsMemo: TMemo
          Left = 0
          Height = 470
          Top = 0
          Width = 688
          Align = alClient
          TabOrder = 0
        end
      end
      object ShortagesPage: TTabSheet
        Caption = 'Shortages'
        ClientHeight = 470
        ClientWidth = 688
        object ShortagesGrid: TStringGrid
          Left = 0
          Height = 470
          Top = 0
          Width = 688
          Align = alClient
          ColCount = 7
          FixedCols = 0
          RowCount = 1
          TabOrder = 0
          ColWidths = (
            163
            169
            64
            64
            64
            64
            64
          )
          Cells = (
            7
            0
            0
            'Shortage started'
            1
            0
            'Shortage ended'
            2
            0
            'Days'
            3
            0
            'Hours'
            4
            0
            'Minutes'
            5
            0
            'Seconds'
            6
            0
            'Lowest'
          )
        end
      end
    end
  end
  object FileOpenDialog: TOpenDialog
    Left = 640
    Top = 16
  end
  object FileSaveDialog: TSaveDialog
    Left = 807
    Top = 342
  end
end