getera5_code.lfm

object frmmain: Tfrmmain
  Left = 452
  Height = 628
  Top = 53
  Width = 642
  HorzScrollBar.Page = 624
  HorzScrollBar.Range = 624
  VertScrollBar.Page = 576
  VertScrollBar.Range = 576
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Get ERA5'
  ClientHeight = 628
  ClientWidth = 642
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '3.6.0.0'
  object GroupBox2: TGroupBox
    Left = 16
    Height = 73
    Top = 8
    Width = 520
    Caption = 'Dataset'
    ClientHeight = 53
    ClientWidth = 516
    TabOrder = 0
    object cbDataset: TComboBox
      Left = 16
      Height = 23
      Top = 10
      Width = 488
      ItemHeight = 15
      Items.Strings = (
        'ERA5 monthly averaged data on single levels'
        'ERA5 monthly averaged data on pressure levels'
        'ERA5 hourly data on single levels'
        'ERA5 hourly data on pressure levels'
      )
      ParentFont = False
      Style = csDropDownList
      TabOrder = 0
      OnChange = cbDatasetChange
    end
  end
  object PageControl1: TPageControl
    Left = 16
    Height = 443
    Top = 168
    Width = 608
    ActivePage = TabSheet1
    Anchors = [akTop, akLeft, akBottom]
    Enabled = False
    TabIndex = 0
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'Parameter'
      ClientHeight = 415
      ClientWidth = 600
      ParentFont = False
      object GroupBox3: TGroupBox
        Left = 8
        Height = 383
        Top = 8
        Width = 576
        Anchors = [akTop, akLeft, akBottom]
        Caption = 'Parameter [Units]'
        ClientHeight = 363
        ClientWidth = 572
        ParentFont = False
        TabOrder = 0
        object cgParameter: TCheckListBox
          Left = 4
          Height = 327
          Top = 32
          Width = 564
          Anchors = [akTop, akLeft, akBottom]
          BorderStyle = bsNone
          Columns = 1
          ItemHeight = 0
          ParentFont = False
          TabOrder = 0
        end
        object cgParamaterFilter: TListFilterEdit
          Left = 4
          Height = 23
          Top = 0
          Width = 564
          ButtonWidth = 23
          NumGlyphs = 1
          MaxLength = 0
          ParentFont = False
          TabOrder = 1
        end
      end
      object lbAllParameters: TLabel
        Cursor = crHandPoint
        Left = 536
        Height = 15
        Top = 391
        Width = 48
        Anchors = [akLeft, akBottom]
        Caption = 'Select All'
        Font.Color = clNavy
        Font.Style = [fsUnderline]
        ParentColor = False
        ParentFont = False
        OnClick = lbAllParametersClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Level, Region and Grid'
      ClientHeight = 415
      ClientWidth = 600
      ParentFont = False
      object GroupBox4: TGroupBox
        Left = 8
        Height = 112
        Top = 104
        Width = 576
        Caption = 'Level, hPa'
        ClientHeight = 92
        ClientWidth = 572
        ParentFont = False
        TabOrder = 0
        object cgLevel: TCheckListBox
          Left = 4
          Height = 88
          Top = 0
          Width = 564
          BorderStyle = bsNone
          Columns = 10
          ItemHeight = 0
          ParentFont = False
          TabOrder = 0
        end
      end
      object lbAllLevels: TLabel
        Cursor = crHandPoint
        Left = 536
        Height = 15
        Top = 216
        Width = 48
        Caption = 'Select All'
        Font.Color = clNavy
        Font.Style = [fsUnderline]
        ParentColor = False
        ParentFont = False
        OnClick = lbAllLevelsClick
      end
      object GroupBox12: TGroupBox
        Left = 8
        Height = 89
        Top = 8
        Width = 248
        Caption = 'Region'
        ClientHeight = 69
        ClientWidth = 244
        ParentFont = False
        TabOrder = 1
        object seymin: TSpinEdit
          Left = 96
          Height = 23
          Top = 32
          Width = 58
          MaxValue = 90
          MinValue = -90
          ParentFont = False
          TabOrder = 0
          Value = -90
        end
        object seymax: TSpinEdit
          Left = 96
          Height = 23
          Top = 0
          Width = 58
          MaxValue = 90
          MinValue = -90
          ParentFont = False
          TabOrder = 1
          Value = 90
        end
        object sexmin: TSpinEdit
          Left = 16
          Height = 23
          Top = 16
          Width = 58
          MaxValue = 180
          MinValue = -180
          ParentFont = False
          TabOrder = 2
          Value = -180
        end
        object sexmax: TSpinEdit
          Left = 176
          Height = 23
          Top = 16
          Width = 58
          MaxValue = 180
          MinValue = -180
          ParentFont = False
          TabOrder = 3
          Value = 180
        end
      end
      object rgGrid: TRadioGroup
        Left = 272
        Height = 89
        Top = 8
        Width = 312
        AutoFill = True
        Caption = 'Grid'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclTopToBottomThenLeftToRight
        ChildSizing.ControlsPerLine = 3
        ClientHeight = 69
        ClientWidth = 308
        ColumnLayout = clVerticalThenHorizontal
        Columns = 3
        ItemIndex = 0
        Items.Strings = (
          '0.25'
          '0.5'
          '0.75'
          '1.0'
          '1.5'
          '2.0'
          '2.5'
          '3.0'
          '5.0'
        )
        ParentFont = False
        TabOrder = 2
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Date'
      ClientHeight = 415
      ClientWidth = 600
      ParentFont = False
      object gbYear: TGroupBox
        Left = 8
        Height = 376
        Top = 8
        Width = 256
        Anchors = [akTop, akLeft, akBottom]
        Caption = 'Year'
        ClientHeight = 356
        ClientWidth = 252
        ParentFont = False
        TabOrder = 0
        object cgYear: TCheckListBox
          Left = 0
          Height = 356
          Top = 0
          Width = 252
          Align = alClient
          Anchors = [akTop, akLeft, akBottom]
          BorderStyle = bsNone
          Columns = 5
          ItemHeight = 0
          ParentFont = False
          TabOrder = 0
        end
      end
      object gbMonth: TGroupBox
        Left = 280
        Height = 96
        Top = 8
        Width = 304
        Caption = 'Month'
        ClientHeight = 76
        ClientWidth = 300
        ParentFont = False
        TabOrder = 1
        object cgMonth: TCheckListBox
          Left = 0
          Height = 76
          Top = 0
          Width = 300
          Align = alClient
          Anchors = [akLeft]
          BorderStyle = bsNone
          Columns = 3
          ItemHeight = 0
          ParentFont = False
          TabOrder = 0
        end
      end
      object gbMonth2: TGroupBox
        Left = 280
        Height = 128
        Top = 120
        Width = 304
        Caption = 'Day'
        ClientHeight = 108
        ClientWidth = 300
        ParentFont = False
        TabOrder = 2
        object cgDay: TCheckListBox
          Left = 0
          Height = 108
          Top = 0
          Width = 300
          Align = alClient
          Anchors = [akLeft]
          BorderStyle = bsNone
          Columns = 6
          ItemHeight = 0
          ParentFont = False
          TabOrder = 0
        end
      end
      object gbMonth1: TGroupBox
        Left = 280
        Height = 120
        Top = 264
        Width = 304
        Caption = 'Time'
        ClientHeight = 100
        ClientWidth = 300
        ParentFont = False
        TabOrder = 3
        object cgTime: TCheckListBox
          Left = 0
          Height = 100
          Top = 0
          Width = 300
          Align = alClient
          Anchors = [akLeft]
          BorderStyle = bsNone
          Columns = 6
          ItemHeight = 0
          ParentFont = False
          TabOrder = 0
        end
      end
      object lbAllYears: TLabel
        Cursor = crHandPoint
        Left = 8
        Height = 15
        Top = 384
        Width = 48
        Anchors = [akLeft, akBottom]
        Caption = 'Select All'
        Font.Color = clNavy
        Font.Style = [fsUnderline]
        ParentColor = False
        ParentFont = False
        OnClick = lbAllYearsClick
      end
      object lbAllMonth: TLabel
        Cursor = crHandPoint
        Left = 280
        Height = 15
        Top = 104
        Width = 48
        Caption = 'Select All'
        Font.Color = clNavy
        Font.Style = [fsUnderline]
        ParentColor = False
        ParentFont = False
        OnClick = lbAllMonthClick
      end
      object lbAllDays: TLabel
        Cursor = crHandPoint
        Left = 280
        Height = 15
        Top = 248
        Width = 48
        Caption = 'Select All'
        Font.Color = clNavy
        Font.Style = [fsUnderline]
        ParentColor = False
        ParentFont = False
        OnClick = lbAllDaysClick
      end
      object lbAllHours: TLabel
        Cursor = crHandPoint
        Left = 280
        Height = 15
        Top = 384
        Width = 48
        Caption = 'Select All'
        Font.Color = clNavy
        Font.Style = [fsUnderline]
        ParentColor = False
        ParentFont = False
        OnClick = lbAllHoursClick
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Get data'
      ClientHeight = 415
      ClientWidth = 600
      ParentFont = False
      object mLog: TMemo
        Left = 10
        Height = 351
        Top = 48
        Width = 576
        Anchors = [akTop, akLeft, akBottom]
        Lines.Strings = (
          'mLog'
        )
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
      object btnScript: TBitBtn
        Left = 448
        Height = 24
        Hint = 'Show script'
        Top = 15
        Width = 29
        Enabled = False
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000232E0000232E00000000000000000000FDFDFDF0E5D2
          D9B87FD3AE6ACB9F50D3AE69D3AE69D3AE69D3AE69D3AD69D3AE69D3AE69D3AE
          69D3AE6BE3CCA4FDFDFDF2E8D7C38F2ED9BA78DDC186CCA150D9BB7EDCC084DA
          BC7DDABA7ADABA7ADABA7ADABA7ADABA7AD9B978CBA24CE6D2B0DBBD88DBBD7E
          DDC188DEC289DDC188C99B49DABB7DE3CD9FE0C899E0C899E0CA99E0C899E0CA
          99E3CCA1D9BB7CD7B578D0A961C38F2DC1902FC49233C79B44C59338D8B875EC
          DFC3EAD9B7E9D9B7E9D9B7E9D9B7E9D7B7EDE0C5DBBE82D4B06EF7F2EAFFFFFF
          FFFFFFFFFFFFF4EEE6CEA456DBC086F8F6F0F5EFE1F4EFE3F4EFE3F4EFE3F4EF
          E3F9F5EED6B672DBBC86FDFDFDFDFFFFFFFFFFFFFFFFCDA45CD6B46ED3AF68D2
          AC61D0A85AD0A85AD0A859D0A95BD3AE64D7B672C29130F2E8D7FDFDFDFEFEFF
          FFFFFFE9D7BCCB9D47E1CB98FBFCFAF9F8F3F9F8F3FBF8F5F9F8F3FCFAFAF8F7
          F1D3AD63D7B57EFDFDFDFDFDFDFFFFFFFEFFFFC29033D8B878E7D4ADE1CA9EE1
          C998E1C998E1C998E1CA99E3CEA2D4B068C49237FFFFFFFDFDFDFDFDFDFFFFFF
          C69946D5B26ADABE82E3CC9DE1C998DFC798E1C997E2CB9BE5D0A4E4CFA1C290
          31FBFAFBFFFFFFFDFDFDFDFDFDE5D0B0CEA655E1CB9AFDFFFFFAFAF8F9F9F5FB
          F9F7F9F9F5FCFBFAEFE1C8D3AD62D9BA84FFFFFFFEFFFFFDFDFDFDFDFDC5943E
          DABA7AD7B673D5B16AD3AE65D4AF66D4AF67D4AF67D5B16AD8B876C18D2DFFFF
          FFFFFFFFFDFFFFFDFDFDF7F1E8C28E2CDCBE83DABB7DDABB7DDCBE83D7B574D7
          B876D6B674D8B674D7B877CFA55EFFFFFFFFFFFFFFFFFFF7F2E9F0E5D2C99D44
          DCBF84DABB7DDABC7FDBC185BC8421CEA456CBA151CBA151CDA252C79C46C696
          3BC1902FC18F2DD0A961F8F3EBC08B29DCBE82DABB7DDCBF83D1AA61D4B26DDE
          C28ADCC085DCC085DCC085DCC085DCC085DDC188DBBD7EDBBD88FDFDFDC79A47
          D9B977DCBF83DFC48CC59238DFC48CDCBF84DCBE83DCBE83DCBE83DCBE82DBBD
          80D9B978C38E2EF2E8D7FDFDFDF8F4ECD8B67BD3AE69CB9F51D1AA63D3AE69D3
          AE69D3AE69D3AE69D3AE69D3AE69D3AE6AD9B97EF0E5D2FDFDFD
        }
        OnClick = btnScriptClick
        ParentFont = False
        TabOrder = 1
      end
      object btnDownload: TButton
        Left = 482
        Height = 24
        Hint = 'Download data'
        Top = 15
        Width = 104
        Caption = 'Download'
        Enabled = False
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = btnDownloadClick
      end
    end
  end
  object rgStream: TRadioGroup
    Left = 16
    Height = 65
    Top = 88
    Width = 608
    AutoFill = True
    Caption = 'Product'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 2
    Columns = 2
    OnClick = rgStreamClick
    TabOrder = 2
  end
  object btnSettings: TButton
    Left = 549
    Height = 25
    Top = 34
    Width = 75
    Caption = 'Settings'
    ParentFont = False
    TabOrder = 3
    OnClick = btnSettingsClick
  end
end