object frmFormationEditor: TfrmFormationEditor Left = 0 Height = 440 Top = 0 Width = 600 BorderIcons = [biSystemMenu, biMaximize] Caption = 'Formation Editor' ClientHeight = 440 ClientWidth = 600 Constraints.MinHeight = 300 Constraints.MinWidth = 560 Position = poMainFormCenter LCLVersion = '4.4.0.0' OnClose = FormClose OnCreate = FormCreate object gbRings: TGroupBox Left = 4 Height = 164 Top = 4 Width = 592 Align = alTop BorderSpacing.Around = 4 Caption = 'Ring sizes (NM)' ClientHeight = 144 ClientWidth = 588 TabOrder = 0 object lblMainBody: TLabel Left = 8 Height = 15 Top = 8 Width = 70 Caption = 'Main Body' end object seMainBody: TSpinEdit Left = 84 Height = 23 Top = 4 Width = 72 MaxValue = 1024 TabOrder = 0 end object lblAAW: TLabel Left = 200 Height = 15 Top = 8 Width = 70 Caption = 'AAW' end object seAAW: TSpinEdit Left = 276 Height = 23 Top = 4 Width = 72 MaxValue = 1024 TabOrder = 1 end object lblASW: TLabel Left = 392 Height = 15 Top = 8 Width = 70 Caption = 'ASW' end object seASW: TSpinEdit Left = 468 Height = 23 Top = 4 Width = 72 MaxValue = 1024 TabOrder = 2 end object lblPicket1: TLabel Left = 8 Height = 15 Top = 38 Width = 70 Caption = 'Picket 1' end object sePicket1: TSpinEdit Left = 84 Height = 23 Top = 34 Width = 72 MaxValue = 1024 TabOrder = 3 end object lblPicket2: TLabel Left = 200 Height = 15 Top = 38 Width = 70 Caption = 'Picket 2' end object sePicket2: TSpinEdit Left = 276 Height = 23 Top = 34 Width = 72 MaxValue = 1024 TabOrder = 4 end object lblPicket3: TLabel Left = 392 Height = 15 Top = 38 Width = 70 Caption = 'Picket 3' end object sePicket3: TSpinEdit Left = 468 Height = 23 Top = 34 Width = 72 MaxValue = 1024 TabOrder = 5 end object btnAddRing: TButton Left = 8 Height = 25 Top = 64 Width = 84 Caption = 'Add ring' TabOrder = 6 OnClick = btnAddRingClick end object btnRemoveRing: TButton Left = 96 Height = 25 Top = 64 Width = 96 Caption = 'Remove ring' TabOrder = 7 OnClick = btnRemoveRingClick end object chkSlowReform: TCheckBox Left = 212 Height = 19 Top = 67 Width = 220 Caption = 'Slow group while units reform' Checked = True State = cbChecked TabOrder = 8 end object sbExtRings: TScrollBox Left = 4 Height = 48 Top = 94 Width = 580 HorzScrollBar.Visible = False VertScrollBar.Increment = 30 VertScrollBar.Tracking = True Anchors = [akTop, akLeft, akRight] BorderStyle = bsNone TabOrder = 9 end end object gbItems: TGroupBox Left = 4 Height = 306 Top = 94 Width = 592 Align = alClient BorderSpacing.Left = 4 BorderSpacing.Right = 4 Caption = 'Units and patrols' ClientHeight = 286 ClientWidth = 588 TabOrder = 1 object pnlPatrolTools: TPanel Left = 0 Height = 34 Top = 252 Width = 588 Align = alBottom BevelOuter = bvNone ClientHeight = 34 ClientWidth = 588 TabOrder = 1 object lblPatrolType: TLabel Left = 8 Height = 15 Top = 10 Width = 60 Caption = 'Patrol type' end object cbPatrolType: TComboBox Left = 76 Height = 23 Top = 6 Width = 72 ItemHeight = 15 Items.Strings = ( 'ASuW' 'ASW' 'AAW' 'AEW' 'EW' ) Style = csDropDownList TabOrder = 0 end object lblPatrolCount: TLabel Left = 160 Height = 15 Top = 10 Width = 48 Caption = 'Aircraft' end object sePatrolCount: TSpinEdit Left = 212 Height = 23 Top = 6 Width = 52 MinValue = 1 MaxValue = 1 TabOrder = 1 Value = 1 end object btnAddPatrol: TButton Left = 276 Height = 25 Top = 5 Width = 96 Caption = 'Add patrol' Enabled = False TabOrder = 2 OnClick = btnAddPatrolClick end object btnCancelPatrol: TButton Left = 380 Height = 25 Top = 5 Width = 110 Caption = 'Cancel patrol' Enabled = False TabOrder = 3 OnClick = btnCancelPatrolClick end end object lvItems: TListView Left = 4 Height = 278 Top = 4 Width = 580 Align = alClient BorderSpacing.Around = 4 Columns = < item Caption = 'Name' Width = 170 end item Caption = 'Kind' Width = 130 end item Caption = 'Ring' Width = 90 end item Caption = 'Sector' Width = 90 end item Caption = 'State' Width = 120 end item Caption = 'Count' Width = 50 end> HideSelection = False ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnSelectItem = lvItemsSelectItem end end object pnlBottom: TPanel Left = 0 Height = 40 Top = 400 Width = 600 Align = alBottom BevelOuter = bvNone ClientHeight = 40 ClientWidth = 600 TabOrder = 2 object lblStatus: TLabel Left = 8 Height = 15 Top = 12 Width = 280 Caption = '' end object btnApply: TButton Left = 356 Height = 25 Top = 8 Width = 75 Anchors = [akTop, akRight] Caption = 'Apply' Enabled = False TabOrder = 1 OnClick = btnApplyClick end object btnRevert: TButton Left = 436 Height = 25 Top = 8 Width = 75 Anchors = [akTop, akRight] Caption = 'Revert' Enabled = False TabOrder = 2 OnClick = btnRevertClick end object btnClose: TButton Left = 516 Height = 25 Top = 8 Width = 75 Anchors = [akTop, akRight] Cancel = True Caption = 'Close' TabOrder = 0 OnClick = btnCloseClick end end end