lazarus-ccr/applications/foobot/latest_stable/umainform.lfm

object mainform: Tmainform
  Left = 918
  Height = 377
  Top = 191
  Width = 510
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'mainform'
  ClientHeight = 357
  ClientWidth = 510
  DefaultMonitor = dmDesktop
  Menu = MainMenu1
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.7'
  Scaled = True
  object GroupBox3: TGroupBox
    Left = 0
    Height = 209
    Top = 0
    Width = 510
    Align = alTop
    Caption = 'Your Foobots'
    ClientHeight = 189
    ClientWidth = 506
    TabOrder = 0
    object tv_Identity: TTreeView
      Left = 0
      Height = 136
      Top = 53
      Width = 506
      Align = alBottom
      AutoExpand = True
      DefaultItemHeight = 18
      ExpandSignType = tvestPlusMinus
      MultiSelectStyle = [msVisibleOnly]
      ReadOnly = True
      RowSelect = True
      ShowLines = False
      ShowRoot = False
      TabOrder = 0
      OnClick = tv_IdentityClick
      Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRowSelect, tvoShowButtons, tvoToolTips, tvoThemedDraw]
    end
    object cmd_GetIdentity: TButton
      Left = 8
      Height = 30
      Hint = 'Click to fetch your Foobot details'
      Top = 8
      Width = 128
      Caption = 'Fetch all Foobots'
      OnClick = cmd_GetIdentityClick
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object cmd_FetchData: TButton
      Left = 144
      Height = 30
      Top = 8
      Width = 248
      Caption = 'Fetch data from selected Foobot'
      Enabled = False
      OnClick = cmd_FetchDataClick
      ParentFont = False
      TabOrder = 2
    end
    object cmd_Close: TBitBtn
      Left = 422
      Height = 30
      Top = 8
      Width = 75
      Anchors = []
      DefaultCaption = True
      Kind = bkClose
      ModalResult = 11
      OnClick = mnu_fileExitClick
      TabOrder = 3
    end
  end
  object sb: TStatusBar
    Left = 0
    Height = 23
    Top = 334
    Width = 510
    Panels = <>
  end
  object rg_interval: TRadioGroup
    Left = 264
    Height = 105
    Top = 216
    Width = 96
    AutoFill = True
    Caption = 'Previous...'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 85
    ClientWidth = 92
    Enabled = False
    ItemIndex = 0
    Items.Strings = (
      'Now'
      'Hour'
      '2 Hours'
      '4 Hours'
      '8 Hours'
    )
    OnSelectionChanged = rg_intervalSelectionChanged
    TabOrder = 2
  end
  object rg_intervalAverageBy: TRadioGroup
    Left = 360
    Height = 105
    Top = 216
    Width = 145
    AutoFill = True
    Caption = 'Average by..'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 85
    ClientWidth = 141
    Enabled = False
    ItemIndex = 0
    Items.Strings = (
      'No average'
      'Hourly average'
      '8-Hourly average'
      '24-Hourly average'
      'Total average'
    )
    OnSelectionChanged = rg_intervalAverageBySelectionChanged
    TabOrder = 3
  end
  object rg_mode: TRadioGroup
    Left = 8
    Height = 105
    Top = 216
    Width = 112
    AutoFill = True
    Caption = 'Mode'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 85
    ClientWidth = 108
    Enabled = False
    ItemIndex = 0
    Items.Strings = (
      'Previous'
      'Date Range'
    )
    OnSelectionChanged = rg_modeSelectionChanged
    TabOrder = 4
  end
  object grp_daterange: TGroupBox
    Left = 128
    Height = 105
    Top = 216
    Width = 129
    Caption = 'Date Range'
    ClientHeight = 85
    ClientWidth = 125
    Enabled = False
    TabOrder = 5
    object lbl_fromdate: TLabel
      Left = 8
      Height = 15
      Top = 12
      Width = 55
      Caption = 'From Date'
      ParentColor = False
    end
    object lbl_to: TLabel
      Left = 8
      Height = 15
      Top = 36
      Width = 11
      Caption = 'to'
      ParentColor = False
    end
    object lbl_toDate: TLabel
      Left = 8
      Height = 15
      Top = 60
      Width = 39
      Caption = 'To date'
      ParentColor = False
    end
    object spd_fromdate: TSpeedButton
      Left = 88
      Height = 22
      Top = 8
      Width = 23
      Caption = '...'
      OnClick = spd_fromdateClick
    end
    object spd_todate: TSpeedButton
      Left = 88
      Height = 22
      Top = 56
      Width = 23
      Caption = '...'
      OnClick = spd_todateClick
    end
  end
  object Button1: TButton
    Left = 0
    Height = 25
    Top = 312
    Width = 75
    Caption = 'Button1'
    OnClick = Button1Click
    TabOrder = 6
    Visible = False
  end
  object MainMenu1: TMainMenu
    Left = 304
    Top = 24
    object mnu_file: TMenuItem
      Caption = '&File'
      object mnu_fileExit: TMenuItem
        Caption = 'E&xit'
        OnClick = mnu_fileExitClick
      end
    end
    object mnu_help: TMenuItem
      Caption = '&Help'
      object mnu_helpAbout: TMenuItem
        Caption = '&About...'
        OnClick = mnu_helpAboutClick
      end
    end
  end
  object ApplicationProperties1: TApplicationProperties
    ExceptionDialog = aedOkMessageBox
    OnHint = ApplicationProperties1Hint
    Left = 264
    Top = 16
  end
  object CalendarDialog1: TCalendarDialog
    Date = 42730
    OKCaption = '&OK'
    CancelCaption = 'Cancel'
    Left = 373
    Top = 25
  end
end