object frmMain: TfrmMain Left = 2 Height = 162 Top = 460 Width = 553 Anchors = [akLeft, akBottom] Caption = 'ToolBox' ClientHeight = 162 ClientWidth = 553 LCLVersion = '1.1' object PageControl1: TPageControl Left = 4 Height = 157 Top = 5 Width = 547 ActivePage = AirGrpForm Anchors = [akTop, akLeft, akRight, akBottom] TabIndex = 0 TabOrder = 0 object AirGrpForm: TTabSheet Caption = 'AirGrpForm' ClientHeight = 129 ClientWidth = 539 OnShow = AGFbtnSrchEnter object AGFlbxGroup: TListBox Left = 0 Height = 129 Top = 3 Width = 88 Anchors = [akTop, akLeft, akBottom] ItemHeight = 0 OnSelectionChange = AGFlbxGroupSelectionChange TabOrder = 1 end object AGFlbxUnit: TListBox Left = 144 Height = 129 Top = 3 Width = 288 Anchors = [akTop, akLeft, akRight, akBottom] ExtendedSelect = False ItemHeight = 0 OnSelectionChange = AGFlbxUnitSelectionChange ScrollWidth = 60 TabOrder = 2 end object AGFlblUnitAlt: TLabel Left = 440 Height = 30 Top = 0 Width = 40 Alignment = taCenter Anchors = [akTop, akRight] AutoSize = False Caption = '15-VH'#13#10' 11-VL' ParentColor = False end object AGFspnbxLon: TSpinEdit Left = 480 Height = 18 Top = 53 Width = 42 Anchors = [akTop, akRight] AutoSize = False MaxValue = 25 OnEditingDone = AGFspnbxLonEditingDone TabOrder = 3 end object AGFspnbxLat: TSpinEdit Left = 480 Height = 18 Top = 27 Width = 42 Anchors = [akTop, akRight] AutoSize = False MaxValue = 25 OnEditingDone = AGFspnbxLonEditingDone TabOrder = 4 end object AGFlblS: TLabel Left = 528 Height = 15 Top = 27 Width = 11 Anchors = [akTop, akRight] AutoSize = False Caption = 'N' ParentColor = False OnClick = AGFlblSClick end object AGFlblE: TLabel Left = 528 Height = 15 Top = 56 Width = 11 Anchors = [akTop, akRight] AutoSize = False Caption = 'E' ParentColor = False OnClick = AGFlblEClick end object AGFbtnGrp1: TButton Left = 90 Height = 17 Top = 88 Width = 48 Anchors = [akLeft, akBottom] Caption = 'Grp1' OnClick = AGFbtnGrp1Enter OnEnter = AGFbtnGrp1Enter TabOrder = 6 end object AGFbtnGrp2: TButton Left = 89 Height = 17 Top = 109 Width = 49 Anchors = [akLeft, akBottom] Caption = 'Grp2' OnClick = AGFbtnGrp2Enter OnEnter = AGFbtnGrp2Enter TabOrder = 7 end object AGFbtnMeet: TButton Left = 92 Height = 18 Top = 66 Width = 46 Anchors = [akLeft, akBottom] Caption = 'Meet' OnClick = AGFbtnMeetEnter OnEnter = AGFbtnMeetEnter TabOrder = 8 end object AGFbtnSqPat: TButton Left = 90 Height = 18 Top = 4 Width = 48 Caption = 'SqPatrl' OnEnter = AGFbtnSqPatEnter TabOrder = 10 end object AGFspnbxPatrl: TSpinEdit Left = 90 Height = 17 Top = 27 Width = 48 AutoSelect = False AutoSize = False Increment = 10 MaxValue = 200 MinValue = 5 TabOrder = 9 Value = 10 end object AGFspnbxUnitAlt: TSpinEdit Left = 480 Height = 18 Hint = 'Altitude Band' Top = 4 Width = 44 Anchors = [akTop, akRight] AutoSize = False MaxValue = 15 MinValue = 11 OnEditingDone = AGFspnbxUnitAltEditingDone ParentShowHint = False ShowHint = True TabOrder = 5 Value = 11 end object AGFbtnSrch: TButton Left = 481 Height = 17 Top = 109 Width = 43 Anchors = [akRight, akBottom] Caption = 'Search' OnEnter = AGFbtnSrchEnter TabOrder = 0 end end object MessgLog: TTabSheet Caption = 'MessageLog' ClientHeight = 116 ClientWidth = 539 object MLtmemLog: TMemo Left = 0 Height = 114 Top = 0 Width = 533 Anchors = [akTop, akLeft, akRight, akBottom] HideSelection = False Lines.Strings = ( 'Message Log' ) ScrollBars = ssVertical TabOrder = 0 TabStop = False end end object Settings: TTabSheet Caption = 'Settings' ClientHeight = 116 ClientWidth = 539 object SETlblMLcount: TLabel Left = 9 Height = 15 Top = 10 Width = 130 Caption = 'Message Log Line Count' ParentColor = False end object SETspnMLC: TSpinEdit Left = 152 Height = 23 Top = 10 Width = 50 AutoSelect = False AutoSize = False MaxValue = 1000 MinValue = 25 TabOrder = 0 Value = 250 end object SETmemHelp: TMemo Left = 232 Height = 107 Top = 8 Width = 304 Anchors = [akTop, akRight, akBottom] Lines.Strings = ( 'Basic Help' 'The toolbox window can be sized so as to replace ' 'the normal message log window if you need extra ' 'space, then use the tool box message log.' 'The main Air Group Formation tab, when clicked to ' 'bring into view, will automatically search for all your ' 'groups and list them with their current speeds in the ' 'left pane. If a group is selected then any aircraft in ' 'that group will be listed in the larger right pane.' 'If an air unit is selected then two functions area ' 'available: altitude band and location offset (form ' 'the group centre). These items are changed by their ' 'respective spin box - set the desired number then ' 'press the return(enter) key to make the change. In ' 'the case of the position offset you can click the N/S ' 'and E/W labels to change the offset directions.' 'The unit offset is not designed to be used for air ' 'units in formation in a base or surface group but for ' 'qa multi unit air group - eg you can set a fighter ' 'unit out in front of a strike unit within the one ' 'group and can select their respective altitude band ' 'at the same time.' 'With a group selected (including surface groups) ' 'you can enter a square based patrol path by clicking ' 'the ''sqrPatrl'' button. First set the base size (approx ' 'nautical miles). The group should be moving (not ' 'loitering or stationary). A square basedpatrol will be ' 'set centred about the current postion or if the group ' 'has a course set, about its first course point, ' 'subsequent points (legs) will be discarded.' 'By this function an air group that has been sent to ' '''patrol'' using the ''launch'' function can be quickly ' 'set to perform a 2-D patrol rather than loiter/hover ' 'in the one location.' 'Selected groups can be set one by one to the ' '''Grp1''nand ''Grp2'' variables (by pressing theh ' 'respective buttons) then by pressing ''meet'' key they ' 'will have their course set to meet at a mid point ' '(time wise). At the time of ''meet'' function you can ' 'go straight to the normal course editer for either ' 'group and add a F10 reminder (eg to join the ' 'groups) and your order for the next leg eg attack. ' 'The groups shouldn''t be stationary or loitering ' 'when pressing the ''meet'' button.' ) ReadOnly = True ScrollBars = ssVertical TabOrder = 1 end end object PathEvent: TTabSheet Caption = 'Path Event' ClientHeight = 129 ClientWidth = 539 object Button1: TButton Left = 488 Height = 25 Top = 3 Width = 51 Caption = 'show' OnClick = Button1Click TabOrder = 0 end object Memo1: TMemo Left = 0 Height = 128 Top = 3 Width = 482 Lines.Strings = ( 'Memo1' ) ScrollBars = ssVertical TabOrder = 1 end end end end