object frmMain: TfrmMain
  Left = -10
  Height = 633
  Top = 128
  Width = 1586
  Caption = 'Vision'
  ClientHeight = 633
  ClientWidth = 1586
  DesignTimePPI = 120
  OnActivate = FormShow
  LCLVersion = '1.8.4.0'
  Visible = True
  object PageControl1: TPageControl
    Left = 0
    Height = 633
    Top = 0
    Width = 1598
    ActivePage = tshStartGroup
    Anchors = [akTop, akLeft, akRight, akBottom]
    MultiLine = True
    TabIndex = 0
    TabOrder = 0
    Options = [nboMultiLine]
    object tshStartGroup: TTabSheet
      Caption = 'StartGroup'
      ClientHeight = 600
      ClientWidth = 1590
      OnEnter = FormShow
      object SGlblDesc: TLabel
        Left = 1
        Height = 20
        Top = 8
        Width = 306
        BorderSpacing.Left = 5
        Caption = 'Select group of interest, then unit to show info'
        ParentColor = False
      end
      object SGpnl1: TPanel
        Left = -4
        Height = 549
        Top = 36
        Width = 1594
        Anchors = [akTop, akLeft, akRight, akBottom]
        Caption = 'SGpnl1'
        ClientHeight = 549
        ClientWidth = 1594
        TabOrder = 0
        OnEnter = SGButtonRefreshClick
        object SGlblGroups: TLabel
          AnchorSideLeft.Control = SGlbxGroups
          AnchorSideLeft.Side = asrCenter
          AnchorSideBottom.Side = asrBottom
          Left = 98
          Height = 20
          Top = 0
          Width = 69
          Caption = 'Groups-''G'''
          Color = clMenuBar
          ParentColor = False
          Transparent = False
        end
        object SGlbxGroups: TListBox
          AnchorSideBottom.Side = asrBottom
          Left = 8
          Height = 510
          Top = 32
          Width = 248
          Anchors = [akTop, akLeft, akBottom]
          ClickOnSelChange = False
          ExtendedSelect = False
          ItemHeight = 0
          OnKeyPress = SGlbxGroupsKeyPress
          OnSelectionChange = SGlbxGroupsSelectionChange
          TabOrder = 0
        end
        object SGlbxUnits: TListBox
          AnchorSideLeft.Control = SGlbxGroups
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = SGlbxGroups
          AnchorSideRight.Side = asrBottom
          AnchorSideBottom.Side = asrBottom
          Left = 256
          Height = 510
          Top = 32
          Width = 256
          Anchors = [akTop, akLeft, akBottom]
          ExtendedSelect = False
          ItemHeight = 0
          OnDblClick = SGlbxUnitsDblClick
          OnEnter = SGlbxUnitsUpdate
          OnKeyPress = SGlbxUnitsKeyPress
          OnSelectionChange = SGlbxUnitsSelectionChange
          ScrollWidth = 500
          TabOrder = 1
        end
        object SGlblUnits: TLabel
          AnchorSideLeft.Control = SGlbxUnits
          AnchorSideLeft.Side = asrCenter
          AnchorSideTop.Control = SGlblGroups
          AnchorSideTop.Side = asrCenter
          AnchorSideBottom.Side = asrBottom
          Left = 368
          Height = 20
          Top = 0
          Width = 33
          Caption = 'Units'
          Color = clMenuBar
          ParentColor = False
          Transparent = False
        end
        object SGListBoxUnitInfo: TListBox
          AnchorSideLeft.Control = SGlbxEUnits
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = PatRad
          AnchorSideTop.Side = asrBottom
          Left = 1010
          Height = 153
          Top = 127
          Width = 575
          Anchors = [akTop, akLeft, akRight, akBottom]
          BorderSpacing.Left = 2
          BorderSpacing.Top = 2
          ItemHeight = 0
          OnKeyPress = SGListBoxUnitInfoKeyPress
          ScrollWidth = 750
          TabOrder = 11
        end
        object SGlbxEGroup: TListBox
          AnchorSideLeft.Control = SGlbxUnits
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = SGlbxGroups
          AnchorSideBottom.Side = asrBottom
          Left = 514
          Height = 511
          Top = 32
          Width = 240
          Anchors = [akTop, akLeft, akBottom]
          BorderSpacing.Left = 2
          Items.Strings = (
            'Enemy Groups'
          )
          ItemHeight = 20
          OnKeyPress = SGlbxEGroupKeyPress
          OnSelectionChange = SGlbxEGroupSelectionChange
          TabOrder = 2
        end
        object SGlblEGroup: TLabel
          AnchorSideLeft.Control = SGlbxEGroup
          AnchorSideLeft.Side = asrCenter
          AnchorSideTop.Control = SGlblGroups
          Left = 608
          Height = 20
          Top = 0
          Width = 53
          Caption = 'E Group'
          ParentColor = False
        end
        object SGlbxEUnits: TListBox
          AnchorSideLeft.Control = SGlbxEGroup
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = SGlbxGroups
          Left = 755
          Height = 258
          Top = 32
          Width = 253
          Anchors = [akTop, akLeft, akBottom]
          BorderSpacing.Left = 1
          ItemHeight = 0
          OnEnter = SGlbxEUnitsEnter
          OnKeyPress = SGlbxEUnitsKeyPress
          OnSelectionChange = SGlbxEUnitsSelectionChange
          TabOrder = 3
        end
        object SGlblEUnits: TLabel
          AnchorSideLeft.Control = SGlbxEUnits
          AnchorSideLeft.Side = asrCenter
          AnchorSideTop.Control = SGlblGroups
          Left = 859
          Height = 20
          Top = 0
          Width = 45
          Caption = 'E Units'
          ParentColor = False
        end
        object SGbtnCover: TButton
          AnchorSideLeft.Control = SGlbxEUnits
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = LegDistance
          AnchorSideTop.Side = asrBottom
          Left = 1010
          Height = 31
          Top = 64
          Width = 94
          BorderSpacing.Left = 2
          BorderSpacing.Top = 2
          Caption = 'CoverUnit -''C'''
          OnClick = AtkBtnCoverClick
          OnKeyPress = SGbtnCoverKeyPress
          TabOrder = 9
        end
        object SetCourse: TButton
          AnchorSideLeft.Control = Direct
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = Direct
          Left = 1121
          Height = 31
          Top = 34
          Width = 94
          BorderSpacing.Left = 2
          Caption = 'NewCrse '
          OnClick = SetCourseClick
          OnKeyPress = SetCourseKeyPress
          TabOrder = 6
        end
        object LegDistance: TSpinEdit
          AnchorSideLeft.Control = SGlbxEUnits
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = SGlbxEUnits
          Left = 1009
          Height = 28
          Top = 34
          Width = 63
          BorderSpacing.Left = 1
          BorderSpacing.Top = 2
          Increment = 10
          MaxValue = 500
          MinValue = 1
          TabOrder = 4
          Value = 25
        end
        object Direct: TLabeledEdit
          AnchorSideLeft.Control = LegDistance
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = LegDistance
          Left = 1073
          Height = 28
          Top = 34
          Width = 46
          AutoSize = False
          BorderSpacing.Left = 1
          EditLabel.AnchorSideLeft.Control = Direct
          EditLabel.AnchorSideRight.Control = Direct
          EditLabel.AnchorSideRight.Side = asrBottom
          EditLabel.AnchorSideBottom.Control = Direct
          EditLabel.Left = 1073
          EditLabel.Height = 20
          EditLabel.Top = 11
          EditLabel.Width = 46
          EditLabel.Caption = 'Direct'
          EditLabel.ParentColor = False
          TabOrder = 5
          Text = 'NE'
          OnEditingDone = DirectChange
        end
        object InsertLeg: TButton
          AnchorSideLeft.Control = SetCourse
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = SetCourse
          Left = 1217
          Height = 31
          Top = 34
          Width = 94
          BorderSpacing.Left = 2
          Caption = 'Insert Leg'
          OnClick = InsertLegClick
          OnKeyPress = InsertLegKeyPress
          TabOrder = 7
        end
        object AddLeg: TButton
          AnchorSideLeft.Control = InsertLeg
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = SetCourse
          Left = 1313
          Height = 31
          Top = 34
          Width = 94
          BorderSpacing.Left = 2
          Caption = 'AddLeg'
          OnClick = AddLegClick
          OnKeyPress = AddLegKeyPress
          TabOrder = 8
        end
        object AirSplit: TButton
          AnchorSideLeft.Control = SetCourse
          AnchorSideTop.Control = SGbtnCover
          Left = 1121
          Height = 31
          Top = 64
          Width = 94
          Caption = 'SplitUnit - ''N'''
          OnClick = AirSplitClick
          OnKeyPress = AirSplitKeyPress
          TabOrder = 10
        end
        object Messages: TMemo
          AnchorSideLeft.Control = SGListBoxUnitInfo
          AnchorSideTop.Control = SGListBoxUnitInfo
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Side = asrBottom
          AnchorSideBottom.Side = asrBottom
          Left = 1010
          Height = 262
          Top = 282
          Width = 574
          Anchors = [akTop, akLeft, akRight, akBottom]
          BorderSpacing.Top = 2
          Lines.Strings = (
            'Messages'
          )
          OnKeyPress = MessagesKeyPress
          ReadOnly = True
          ScrollBars = ssAutoVertical
          TabOrder = 12
        end
        object PatRad: TSpinEdit
          AnchorSideLeft.Control = SGbtnCover
          AnchorSideTop.Control = SGbtnCover
          AnchorSideTop.Side = asrBottom
          Left = 1010
          Height = 28
          Top = 97
          Width = 50
          AutoSize = False
          BorderSpacing.Top = 2
          Increment = 5
          MaxValue = 99
          TabOrder = 14
          Value = 15
        end
        object ASWbtn: TButton
          AnchorSideLeft.Control = PatRad
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = PatRad
          Left = 1062
          Height = 28
          Top = 97
          Width = 60
          BorderSpacing.Left = 2
          Caption = 'ASW'
          OnClick = ASWbtnClick
          TabOrder = 15
        end
        object CAPbtn: TButton
          AnchorSideLeft.Control = ASWbtn
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = PatRad
          Left = 1124
          Height = 28
          Top = 97
          Width = 60
          BorderSpacing.Left = 2
          Caption = 'CAP'
          OnClick = CAPbtnClick
          TabOrder = 16
        end
        object AEWbtn: TButton
          AnchorSideLeft.Control = CAPbtn
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = PatRad
          Left = 1186
          Height = 28
          Top = 97
          Width = 60
          BorderSpacing.Left = 2
          Caption = 'AEW'
          OnClick = AEWbtnClick
          TabOrder = 17
        end
        object EWbtn: TButton
          AnchorSideLeft.Control = AEWbtn
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = PatRad
          Left = 1248
          Height = 28
          Top = 97
          Width = 60
          BorderSpacing.Left = 2
          Caption = 'EW'
          OnClick = EWbtnClick
          TabOrder = 18
        end
        object PressKeyList: TListBox
          AnchorSideLeft.Control = SGlbxEUnits
          AnchorSideTop.Control = SGlbxEUnits
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = SGlbxEUnits
          AnchorSideRight.Side = asrBottom
          AnchorSideBottom.Side = asrBottom
          Left = 755
          Height = 249
          Top = 292
          Width = 253
          Anchors = [akTop, akLeft, akRight, akBottom]
          BorderSpacing.Top = 2
          Items.Strings = (
            'g: player group list'
            'e: enemy group list'
            'd: distance of course leg to create'
            'r: radius of ac group patrol to create'
            's: select as active group/unit in game'
            'f: reFresh the content'
            'p: pause / resume game processes'
            'c: move group to Cover selected unit'
            'm: go to messages'
            'u: go to unit info or player unit list if in unit info'
          )
          ItemHeight = 20
          OnKeyPress = SGlbxGroupsKeyPress
          TabOrder = 13
        end
      end
      object SGButtonResume: TButton
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = SGlblDesc
        AnchorSideRight.Side = asrBottom
        Left = 1487
        Height = 31
        Hint = 'Resumes after auto or manual pause in GameTime'
        Top = 8
        Width = 94
        Anchors = [akTop, akRight]
        BorderSpacing.Right = 3
        Caption = 'PAUSE'
        OnClick = SGButtonResumeClick
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        TabStop = False
      end
      object SGButtonRefresh: TButton
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = SGButtonResume
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = SGButtonResume
        AnchorSideBottom.Side = asrBottom
        Left = 1390
        Height = 30
        Hint = 'Refreshes Group box'
        Top = 8
        Width = 94
        Anchors = [akTop, akRight]
        BorderSpacing.Left = 2
        BorderSpacing.Right = 3
        Caption = 'REFRESH'
        OnClick = SGButtonRefreshClick
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object SGButtonDepthChk: TButton
        AnchorSideTop.Control = SGButtonRefresh
        AnchorSideRight.Control = SGButtonRefresh
        AnchorSideBottom.Side = asrBottom
        Left = 1293
        Height = 29
        Top = 8
        Width = 94
        Anchors = [akTop, akRight]
        BorderSpacing.Right = 3
        Caption = 'DepthChk'
        OnClick = SGButtonDepthChkClick
        TabOrder = 2
      end
      object PlotDepths: TButton
        AnchorSideTop.Control = SGButtonDepthChk
        AnchorSideRight.Control = SGButtonDepthChk
        Left = 1169
        Height = 30
        Top = 8
        Width = 122
        Anchors = [akTop, akRight]
        AutoSize = True
        BorderSpacing.Right = 2
        Caption = 'PlotDpths - ''D'''
        OnClick = PlotDepthsClick
        TabOrder = 1
      end
    end
    object tshAirFormPat: TTabSheet
      Caption = 'Air Formation Patrol'
      ClientHeight = 600
      ClientWidth = 1590
      object AFPbtnList: TButton
        Left = 11
        Height = 31
        Top = 8
        Width = 94
        Caption = 'List Air Pats'
        OnClick = AFPbtnListClick
        TabOrder = 0
      end
      object AFPlbxAirPatList: TListBox
        AnchorSideTop.Side = asrBottom
        Left = 3
        Height = 476
        Top = 120
        Width = 893
        Anchors = [akTop, akLeft, akBottom]
        ItemHeight = 0
        OnKeyPress = AFPlbxAirPatListKeyPress
        OnSelectionChange = AFPlbxAirPatListSelectionChange
        Sorted = True
        TabOrder = 1
      end
      object AFPspnedRng: TSpinEdit
        AnchorSideTop.Control = AFPbtnList
        Left = 325
        Height = 28
        Top = 8
        Width = 63
        MaxValue = 64
        OnEditingDone = AFPspnedRngEditingDone
        TabOrder = 2
      end
      object AFPspnedSct: TSpinEdit
        AnchorSideLeft.Control = AFPspnedRng
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = AFPbtnList
        Left = 391
        Height = 28
        Top = 8
        Width = 63
        BorderSpacing.Left = 3
        MaxValue = 256
        OnEditingDone = AFPspnedSctEditingDone
        OnKeyPress = AFPspnedSctKeyPress
        TabOrder = 3
      end
      object AFPlblRng: TLabel
        AnchorSideLeft.Control = AFPspnedRng
        AnchorSideLeft.Side = asrCenter
        AnchorSideTop.Control = AFPspnedRng
        AnchorSideTop.Side = asrBottom
        Left = 339
        Height = 20
        Top = 38
        Width = 34
        BorderSpacing.Top = 2
        Caption = 'RING'
        ParentColor = False
      end
      object AFPlblSct: TLabel
        AnchorSideLeft.Control = AFPspnedSct
        AnchorSideLeft.Side = asrCenter
        AnchorSideTop.Control = AFPspnedSct
        AnchorSideTop.Side = asrBottom
        Left = 396
        Height = 20
        Top = 39
        Width = 52
        BorderSpacing.Top = 3
        Caption = 'SECTOR'
        ParentColor = False
      end
      object AFPbtnFinish: TButton
        AnchorSideTop.Control = AFPbtnList
        Left = 503
        Height = 31
        Top = 8
        Width = 94
        Caption = 'FINISH'
        Enabled = False
        OnClick = AFPbtnFinishClick
        TabOrder = 4
      end
      object AFPmemRngDesc: TMemo
        AnchorSideTop.Control = AFPlblRng
        AnchorSideTop.Side = asrBottom
        Left = 3
        Height = 52
        Top = 60
        Width = 351
        BorderSpacing.Top = 2
        Lines.Strings = (
          'Rings: 1 centre then AA 2 ASW 4  Pickets 8,16,32; '
          'to occupy multi rings add values'
        )
        ReadOnly = True
        TabOrder = 5
        WordWrap = False
      end
      object AFPmemSctDesc: TMemo
        AnchorSideLeft.Control = AFPmemRngDesc
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = AFPmemRngDesc
        Left = 358
        Height = 52
        Top = 60
        Width = 488
        BorderSpacing.Left = 4
        Lines.Strings = (
          'Sectors from 1am clockwise 1,2,4,8, from 6am clockwise 16,32,64,128'
          'Nth = 129, East = 6, Sth = 24, West = 96'
        )
        ReadOnly = True
        TabOrder = 6
      end
    end
  end
end