object frmMain: TfrmMain Left = -8 Height = 492 Top = 302 Width = 939 Caption = 'AI Window' ClientHeight = 492 ClientWidth = 939 DesignTimePPI = 120 OnChangeBounds = SessionSzeSavingProperties SessionProperties = 'Height;Width;Left;Top' LCLVersion = '1.8.4.0' Visible = True object PageControl1: TPageControl Left = 0 Height = 492 Top = 0 Width = 951 ActivePage = tshStartGroup Anchors = [akTop, akLeft, akRight, akBottom] MultiLine = True TabIndex = 0 TabOrder = 0 Options = [nboMultiLine] object tshStartGroup: TTabSheet Caption = 'StartGroup' ClientHeight = 459 ClientWidth = 943 OnShow = SGButtonRefreshClick 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 = 419 Top = 36 Width = 947 Anchors = [akTop, akLeft, akRight, akBottom] Caption = 'SGpnl1' ClientHeight = 419 ClientWidth = 947 TabOrder = 0 object SGlblGroups: TLabel AnchorSideLeft.Control = SGlbxGroups AnchorSideLeft.Side = asrCenter AnchorSideBottom.Side = asrBottom Left = 35 Height = 20 Top = 0 Width = 47 Caption = 'Groups' Color = clMenuBar ParentColor = False Transparent = False end object SGlbxGroups: TListBox AnchorSideBottom.Side = asrBottom Left = 8 Height = 357 Top = 50 Width = 100 Anchors = [akTop, akLeft, akBottom] ItemHeight = 0 OnDblClick = SGlbxGroupsDblClick OnSelectionChange = SGlbxGroupsSelectionChange TabOrder = 0 end object SGlbxUnits: TListBox AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = SGlbxGroups AnchorSideBottom.Side = asrBottom Left = 112 Height = 357 Top = 50 Width = 206 ItemHeight = 0 OnDblClick = SGlbxUnitsDblClick 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 = 199 Height = 20 Top = 0 Width = 33 Caption = 'Units' Color = clMenuBar ParentColor = False Transparent = False end object SGpnlUnit: TPanel AnchorSideRight.Side = asrBottom Left = 324 Height = 402 Top = 5 Width = 614 Anchors = [akTop, akLeft, akRight, akBottom] ClientHeight = 402 ClientWidth = 614 TabOrder = 2 object SGlblUnitIDName: TLabel AnchorSideLeft.Control = SGListBoxUnitInfo AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 0 Height = 20 Top = 0 Width = 441 AutoSize = False ParentColor = False end object SGListBoxUnitInfo: TListBox AnchorSideTop.Control = SGlblUnitKts AnchorSideTop.Side = asrBottom Left = 0 Height = 333 Top = 69 Width = 606 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Top = 5 ItemHeight = 0 ScrollWidth = 750 TabOrder = 0 end object SGlblClassName: TLabel AnchorSideLeft.Control = SGlblUnitIDName AnchorSideTop.Control = SGlblUnitIDName AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom Left = 0 Height = 20 Top = 22 Width = 441 AutoSize = False BorderSpacing.Top = 2 ParentColor = False end object SGlblUnitKts: TLabel AnchorSideLeft.Control = SGListBoxUnitInfo AnchorSideTop.Control = SGlblClassName AnchorSideTop.Side = asrBottom Left = 0 Height = 20 Top = 44 Width = 442 AutoSize = False BorderSpacing.Top = 2 ParentColor = False end end object SGButtonRefresh: TButton AnchorSideLeft.Side = asrBottom AnchorSideTop.Side = asrCenter AnchorSideBottom.Side = asrBottom Left = 8 Height = 26 Hint = 'Refreshes Group box' Top = 24 Width = 94 Caption = 'REFRESH' OnClick = SGButtonRefreshClick ParentShowHint = False ShowHint = True TabOrder = 3 end end object SGButtonResume: TButton AnchorSideLeft.Side = asrBottom Left = 327 Height = 31 Hint = 'Resumes after auto or manual pause in GameTime' Top = 0 Width = 94 Caption = 'PAUSE' OnClick = SGButtonResumeClick ParentShowHint = False ShowHint = True TabOrder = 1 TabStop = False end end end object SessionSze: TXMLPropStorage StoredValues = < item Name = 'frmMain_Top' Value = '100' end item Name = 'frmMain_Width' Value = '1000' end item Name = 'frmMain_Height' Value = '650' end item Name = 'frmMain_Left' Value = '0' end> FileName = 'C:\Matrix Games\HCDev\LAZGExtn.xml' left = 848 top = 72 end end