object frmMain: TfrmMain Left = 2 Height = 383 Top = 379 Width = 795 Caption = 'AI Window' ClientHeight = 383 ClientWidth = 795 DesignTimePPI = 144 OnChangeBounds = SessionSzeSavingProperties SessionProperties = 'Height;Left;StoreExpLst.Lines;Top;Width;SLTLblThisUUID.Caption' LCLVersion = '1.8.4.0' Visible = True object PageControl1: TPageControl Left = 0 Height = 383 Top = 0 Width = 807 ActivePage = tshGT Anchors = [akTop, akLeft, akRight, akBottom] MultiLine = True TabIndex = 7 TabOrder = 0 Options = [nboMultiLine] object tshDLLInit: TTabSheet Caption = 'DLLInit' ClientHeight = 315 ClientWidth = 799 object memDLLInit: TMemo Left = 6 Height = 353 Top = 4 Width = 799 Anchors = [akTop, akLeft, akRight, akBottom] ScrollBars = ssAutoBoth TabOrder = 0 end end object tshUnitShowing: TTabSheet Caption = 'UnitShowing' ClientHeight = 409 ClientWidth = 924 Enabled = False TabVisible = False object USckbEnabled: TCheckBox Left = 6 Height = 24 Top = 2 Width = 78 Caption = 'Enabled' TabOrder = 0 end object USlblLines: TLabel Left = 258 Height = 20 Top = 2 Width = 138 Caption = 'Keep this many lines:' ParentColor = False end object USedtLines: TSpinEdit Left = 438 Height = 28 Top = 0 Width = 135 MaxValue = 16384 MinValue = 128 TabOrder = 1 Value = 1024 end object USmemMsgLog: TMemo Left = 0 Height = 447 Top = 36 Width = 940 Anchors = [akTop, akLeft, akRight, akBottom] Font.CharSet = ANSI_CHARSET Font.Height = -20 Font.Name = 'Lucida Console' Font.Pitch = fpFixed Font.Quality = fqDraft ParentFont = False ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 2 WordWrap = False end end object tshTimeFactor: TTabSheet Caption = 'TimeFactor' ClientHeight = 409 ClientWidth = 924 object TFckbEnabled: TCheckBox Left = 6 Height = 24 Top = 2 Width = 78 Caption = 'Enabled' TabOrder = 0 end object TFlblLines: TLabel Left = 258 Height = 20 Top = 2 Width = 138 Caption = 'Keep this many lines:' ParentColor = False end object TFedtLines: TSpinEdit Left = 438 Height = 28 Top = 0 Width = 135 MaxValue = 16384 MinValue = 128 TabOrder = 1 Value = 1024 end object TFmemMsgLog: TMemo Left = 0 Height = 447 Top = 36 Width = 940 Anchors = [akTop, akLeft, akRight, akBottom] Font.CharSet = ANSI_CHARSET Font.Height = -20 Font.Name = 'Lucida Console' Font.Pitch = fpFixed Font.Quality = fqDraft ParentFont = False ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 2 WordWrap = False end end object tshMsgLog: TTabSheet Caption = 'MsgLog' ClientHeight = 274 ClientWidth = 785 object MLmemMsgLog: TMemo Left = 0 Height = 312 Top = 36 Width = 807 Anchors = [akTop, akLeft, akRight, akBottom] ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 0 WordWrap = False end object MLedtLines: TSpinEdit Left = 438 Height = 28 Top = 0 Width = 135 MaxValue = 16384 MinValue = 128 TabOrder = 1 Value = 1024 end object MLlblLines: TLabel Left = 258 Height = 20 Top = 2 Width = 138 Caption = 'Keep this many lines:' ParentColor = False end object MLckbEnabled: TCheckBox Left = 6 Height = 24 Top = 2 Width = 78 Caption = 'Enabled' TabOrder = 2 end end object tshScenLoad: TTabSheet Caption = 'ScenLoad' ClientHeight = 409 ClientWidth = 924 object SLmemMsgLog: TMemo AnchorSideRight.Side = asrBottom Left = 0 Height = 419 Top = 40 Width = 939 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 1 BorderSpacing.Right = 1 ReadOnly = True ScrollBars = ssHorizontal TabOrder = 0 WordWrap = False end object SLTLblThisUUID: TLabel AnchorSideLeft.Control = SLTLblThsID AnchorSideLeft.Side = asrBottom AnchorSideBottom.Control = SLTLblThsID AnchorSideBottom.Side = asrCenter Left = 95 Height = 20 Top = 17 Width = 66 Anchors = [akLeft, akBottom] BorderSpacing.Left = 3 Caption = 'ScenUUID' ParentColor = False end object SLTLblLastUUID: TLabel AnchorSideLeft.Control = SLTLblPrvID AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SLTLblThisUUID AnchorSideTop.Side = asrCenter Left = 513 Height = 20 Top = 17 Width = 61 BorderSpacing.Left = 3 Caption = 'LastUUID' ParentColor = False end object SLTLblThsID: TLabel AnchorSideLeft.Control = SLmemMsgLog AnchorSideBottom.Control = SLmemMsgLog Left = 0 Height = 20 Top = 17 Width = 92 Anchors = [akLeft, akBottom] BorderSpacing.Bottom = 3 Caption = 'ThisScenUUID' ParentColor = False end object SLTLblPrvID: TLabel AnchorSideTop.Control = SLTLblThsID Left = 416 Height = 20 Top = 17 Width = 94 Caption = 'ScenPrevUUID' ParentColor = False end end object tshVC: TTabSheet Caption = 'VictoryConditionsList' ClientHeight = 409 ClientWidth = 924 object VCckbEnabled: TCheckBox Left = 6 Height = 24 Top = 2 Width = 78 Caption = 'Enabled' Enabled = False TabOrder = 0 Visible = False end object VClblLines: TLabel Left = 258 Height = 20 Top = 2 Width = 138 Caption = 'Keep this many lines:' ParentColor = False end object VCedtLines: TSpinEdit Left = 438 Height = 28 Top = 0 Width = 135 MaxValue = 16384 MinValue = 128 TabOrder = 1 Value = 1024 end object VClstbxItems: TListBox Left = 133 Height = 418 Top = 39 Width = 797 Anchors = [akTop, akRight, akBottom] ItemHeight = 0 TabOrder = 2 end end object tshStartGroup: TTabSheet Caption = 'StartGroup' ClientHeight = 315 ClientWidth = 799 OnShow = SGButtonRefreshClick object SGlblDesc: TLabel Left = 0 Height = 50 Top = 0 Width = 194 BorderSpacing.Left = 5 Caption = 'Select group of interest, '#13#10'then unit to show info' ParentColor = False end object SGpnl1: TPanel Left = -4 Height = 259 Top = 56 Width = 803 Anchors = [akTop, akLeft, akRight, akBottom] Caption = 'SGpnl1' ClientHeight = 259 ClientWidth = 803 TabOrder = 0 object SGlblGroups: TLabel AnchorSideLeft.Control = SGlbxGroups AnchorSideLeft.Side = asrCenter AnchorSideBottom.Side = asrBottom Left = 29 Height = 25 Top = 0 Width = 58 Caption = 'Groups' Color = clMenuBar ParentColor = False Transparent = False end object SGlbxGroups: TListBox AnchorSideBottom.Side = asrBottom Left = 8 Height = 209 Top = 49 Width = 100 Anchors = [akTop, akLeft, akBottom] ItemHeight = 0 OnDblClick = SGlbxGroupsDblClick OnSelectionChange = SGlbxGroupsSelectionChange TabOrder = 0 end object SGlbxUnits: TListBox AnchorSideLeft.Control = SGlbxGroups AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SGlbxGroups AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = SGlbxGroups AnchorSideBottom.Side = asrBottom Left = 110 Height = 209 Top = 49 Width = 206 Anchors = [akTop, akLeft, akBottom] BorderSpacing.Left = 2 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 = 193 Height = 25 Top = 0 Width = 40 Caption = 'Units' Color = clMenuBar ParentColor = False Transparent = False end object SGpnlUnit: TPanel AnchorSideRight.Side = asrBottom Left = 324 Height = 250 Top = 5 Width = 470 Anchors = [akTop, akLeft, akRight, akBottom] ClientHeight = 250 ClientWidth = 470 TabOrder = 2 object SGlblUnitIDName: TLabel AnchorSideLeft.Control = SGListBoxUnitInfo AnchorSideRight.Control = SGListBoxUnitInfo AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 0 Height = 20 Top = 0 Width = 462 Anchors = [akTop, akLeft, akRight] AutoSize = False ParentColor = False end object SGListBoxUnitInfo: TListBox AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SGlblUnitKts AnchorSideTop.Side = asrBottom Left = 0 Height = 145 Top = 113 Width = 462 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.Control = SGListBoxUnitInfo AnchorSideRight.Side = asrBottom Left = 0 Height = 20 Top = 22 Width = 462 Anchors = [akTop, akLeft, akRight] AutoSize = False BorderSpacing.Top = 2 ParentColor = False end object SGlblUnitShowing: TLabel AnchorSideLeft.Control = SGlblClassName AnchorSideTop.Control = SGlblClassName AnchorSideTop.Side = asrBottom AnchorSideRight.Control = SGListBoxUnitInfo AnchorSideRight.Side = asrBottom Left = 0 Height = 20 Top = 44 Width = 462 Anchors = [akTop, akLeft, akRight] AutoSize = False BorderSpacing.Top = 2 ParentColor = False end object SGlblUnitKts: TLabel AnchorSideLeft.Control = SGListBoxUnitInfo AnchorSideTop.Control = SGlblDetQual AnchorSideTop.Side = asrBottom AnchorSideRight.Control = SGListBoxUnitInfo AnchorSideRight.Side = asrBottom Left = 0 Height = 20 Top = 88 Width = 462 Anchors = [akTop, akLeft, akRight] AutoSize = False BorderSpacing.Top = 2 ParentColor = False end object SGlblDetQual: TLabel AnchorSideLeft.Control = SGlblClassName AnchorSideTop.Control = SGlblUnitShowing AnchorSideTop.Side = asrBottom AnchorSideRight.Control = SGListBoxUnitInfo AnchorSideRight.Side = asrBottom Left = 0 Height = 20 Top = 66 Width = 462 Anchors = [akTop, akLeft, akRight] AutoSize = False BorderSpacing.Top = 2 ParentColor = False end end object SGBtnGrpRem: TButton AnchorSideLeft.Control = SGlbxGroups Left = 8 Height = 35 Hint = 'Remove Group from game'#13#10'Save game before use!' Top = 20 Width = 88 AutoSize = True Caption = 'Destroy' Enabled = False OnClick = SGBtnGrpRemClick ParentShowHint = False ShowHint = True TabOrder = 3 end object SGBtnUntRem: TButton AnchorSideRight.Control = SGlbxUnits AnchorSideRight.Side = asrBottom Left = 228 Height = 35 Hint = 'Remove Unit from game'#13#10'Save game before use' Top = 20 Width = 88 Anchors = [akTop, akRight] AutoSize = True Caption = 'Destroy' Enabled = False OnClick = SGBtnUntRemClick ParentShowHint = False ShowHint = True TabOrder = 4 end object SGButtonRefresh: TButton AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SGBtnGrpRem AnchorSideTop.Side = asrCenter AnchorSideBottom.Side = asrBottom Left = 112 Height = 30 Hint = 'Refreshes Group box' Top = 22 Width = 94 Caption = 'REFRESH' OnClick = SGButtonRefreshClick ParentShowHint = False ShowHint = True TabOrder = 5 end end object SGButtonResume: TButton AnchorSideLeft.Control = SGlblDesc AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SGlblDesc Left = 196 Height = 31 Hint = 'Resumes after auto or manual pause in GameTime' Top = 0 Width = 78 BorderSpacing.Left = 2 Caption = 'RESUME' Enabled = False OnClick = SGButtonResumeClick ParentShowHint = False ShowHint = True TabOrder = 1 TabStop = False end object SGButtonSD: TButton AnchorSideLeft.Control = SGButtonResume AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SGButtonResume AnchorSideTop.Side = asrCenter Left = 279 Height = 31 Hint = 'Platforms (not aircraft, missiles) applies max damage points' Top = 0 Width = 81 BorderSpacing.Left = 5 Caption = 'SCUTTLE' OnClick = SGButtonSDClick ParentShowHint = False ShowHint = True TabOrder = 2 TabStop = False end object SGTButDrone: TButton AnchorSideLeft.Control = SGButtonSD AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SGButtonSD Left = 362 Height = 31 Hint = 'Use with HCDB2'#13#10'Apply to group with surface and or sub units'#13#10'changes unit characteristics and weapons' Top = 0 Width = 70 BorderSpacing.Left = 2 Caption = 'DRONE' OnClick = SGSizeSpnEdChange ParentShowHint = False ShowHint = True TabOrder = 3 end object SGTButKing: TButton AnchorSideLeft.Control = SGTButDrone AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SGTButDrone Left = 434 Height = 31 Hint = 'must be used HCDB2 and Hobart class DDG selected in start group unit list. Modifies ammunition' Top = 0 Width = 86 BorderSpacing.Left = 2 Caption = 'KingF Unit' OnClick = SGTButKingClick ParentShowHint = False ShowHint = True TabOrder = 4 end object SGChkBxRTU: TCheckBox AnchorSideLeft.Control = SGbtnURep AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SGTButKing AnchorSideRight.Side = asrBottom Left = 618 Height = 29 Hint = 'real time update unit info' Top = 0 Width = 62 BorderSpacing.Left = 2 Caption = 'RTU' TabOrder = 5 end object SGbtnURep: TButton AnchorSideLeft.Control = SGTButKing AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SGButtonResume Left = 522 Height = 31 Top = 0 Width = 94 BorderSpacing.Left = 2 Caption = 'RepairUnit' OnClick = SGbtnURepClick TabOrder = 6 end end object tshGT: TTabSheet Caption = 'GameTime/Investigate Structures' ClientHeight = 315 ClientWidth = 799 object GTckbPause: TCheckBox Left = 6 Height = 29 Top = 10 Width = 428 Caption = 'Pause next game second to investigate structures?' TabOrder = 0 end object GTbtnResume: TButton Left = 6 Height = 35 Top = 48 Width = 110 Caption = 'Resume' Enabled = False OnClick = GTbtnResumeClick TabOrder = 1 end object GTlblGameTime: TLabel Left = 128 Height = 25 Top = 72 Width = 88 Caption = 'GameTime:' ParentColor = False end object GTlblGameTimeLeft: TLabel Left = 128 Height = 25 Top = 40 Width = 126 Caption = 'Time Remaining' ParentColor = False end object GTckbAutoP: TCheckBox AnchorSideRight.Control = GTcklbAutoP Left = 466 Height = 29 Top = 64 Width = 115 Anchors = [akTop, akRight] Caption = 'AutoPause' TabOrder = 2 end object GTcklbAutoP: TCheckListBox AnchorSideRight.Side = asrBottom Left = 581 Height = 112 Top = 0 Width = 203 Anchors = [akTop, akRight] Items.Strings = ( 'Enemy AI ' 'Intercept' 'Air Refuel' 'Aircraft Launch' 'Speed Altitude set' 'Alter Course' 'Attack Event' 'Air Attack' 'Air Patrol' 'Land/Launch' 'ReadyAircraft' 'Aircraft Land' 'Group Join' 'Group Split' 'Sink Event' 'Reload Event' 'Grp Formation ' ) ItemHeight = 27 TabOrder = 3 Data = { 110000000000000000000000000000000000000000 } end object GTHEEventList: TListBox AnchorSideBottom.Side = asrBottom Left = 2 Height = 192 Top = 120 Width = 262 Anchors = [akTop, akLeft, akBottom] ItemHeight = 0 OnSelectionChange = GTHEEventListSelectionChange ScrollWidth = 500 TabOrder = 4 end object GEHEmemDetail: TMemo AnchorSideLeft.Control = GTHEEventList AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = GTHEEventList AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = GTHEEventList AnchorSideBottom.Side = asrBottom Left = 266 Height = 192 Top = 120 Width = 516 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 2 ScrollBars = ssAutoBoth TabOrder = 5 WordWrap = False end object GTSpnEdSctr: TSpinEdit AnchorSideLeft.Control = GTSpnEdRng Left = 260 Height = 33 Top = 64 Width = 63 MaxValue = 256 OnEditingDone = GTSpnEdSctrEditingDone TabOrder = 6 end object GTSpnEdRng: TSpinEdit AnchorSideLeft.Control = GTlblGameTimeLeft AnchorSideLeft.Side = asrBottom Left = 260 Height = 33 Top = 32 Width = 63 BorderSpacing.Left = 6 MaxValue = 64 OnEditingDone = GTSpnEdRngEditingDone TabOrder = 7 end object GTlblRng: TLabel AnchorSideLeft.Control = GTSpnEdRng AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = GTSpnEdRng Left = 324 Height = 25 Top = 32 Width = 36 BorderSpacing.Left = 1 Caption = 'Ring' ParentColor = False end object GTlblSctr: TLabel AnchorSideLeft.Control = GTSpnEdSctr AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = GTSpnEdSctr Left = 324 Height = 25 Top = 64 Width = 50 BorderSpacing.Left = 1 Caption = 'Sector' ParentColor = False end object GTbtnRepair: TButton AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = GTbtnCheck AnchorSideTop.Side = asrBottom AnchorSideRight.Control = GTbtnCheck AnchorSideRight.Side = asrCenter Left = 501 Height = 29 Hint = 'Repair formation and air patrol events with wrong group ' Top = 33 Width = 56 Anchors = [akTop, akRight] BorderSpacing.Top = 1 Caption = 'Repair' OnClick = GTbtnRepairClick TabOrder = 8 end object GTbtnCheck: TButton AnchorSideRight.Control = GTcklbAutoP Left = 477 Height = 29 Top = 3 Width = 104 Anchors = [akTop, akRight] Caption = 'Check' OnClick = GTbtnCheckClick TabOrder = 9 end end object tshUN: TTabSheet Caption = 'New Unit' ClientHeight = 274 ClientWidth = 785 object UNckbEnabled: TCheckBox Left = 24 Height = 24 Top = 13 Width = 122 Caption = 'Tick = Enabled' TabOrder = 0 end object UNmemMsgLog: TMemo AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 8 Height = 233 Top = 48 Width = 845 Anchors = [akTop, akLeft, akRight, akBottom] TabOrder = 1 end object UNedtLines: TSpinEdit AnchorSideLeft.Control = UNckbEnabled AnchorSideLeft.Side = asrBottom Left = 156 Height = 28 Top = 13 Width = 63 BorderSpacing.Left = 10 MaxValue = 250 MinValue = 5 TabOrder = 2 Value = 25 end object UNedtLabel: TLabel AnchorSideLeft.Control = UNedtLines AnchorSideLeft.Side = asrBottom Left = 229 Height = 20 Top = 16 Width = 199 BorderSpacing.Left = 10 Caption = 'Max Number of Lines to Show' ParentColor = False end end object tshStoreExpend: TTabSheet Caption = 'StoresExpended' ClientHeight = 274 ClientWidth = 785 object StoreExpLst: TMemo AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 0 Height = 42 Top = 0 Width = 359 Anchors = [akTop, akLeft, akRight, akBottom] ScrollBars = ssAutoVertical TabOrder = 0 end object StoreExpAccumLst: TMemo AnchorSideLeft.Control = StoreExpLst AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = StoreExpLst AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrCenter Left = 358 Height = 140 Top = 0 Width = 422 Anchors = [akTop, akRight, akBottom] BorderSpacing.Left = 3 DragMode = dmAutomatic Lines.Strings = ( 'StoreExpAccumLst' ) ScrollBars = ssVertical TabOrder = 1 end object StoreExpRedLst: TMemo AnchorSideLeft.Control = StoreExpAccumLst AnchorSideTop.Control = StoreExpAccumLst AnchorSideTop.Side = asrBottom AnchorSideRight.Control = StoreExpAccumLst AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 358 Height = 133 Top = 141 Width = 422 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Top = 1 Lines.Strings = ( 'StoreExpRedLst' ) ScrollBars = ssVertical TabOrder = 2 end object StrExpAirBlTally: TMemo AnchorSideLeft.Control = StoreExpLst AnchorSideTop.Control = StoreExpLst AnchorSideTop.Side = asrBottom AnchorSideRight.Control = StoreExpLst AnchorSideRight.Side = asrBottom Left = 0 Height = 107 Top = 42 Width = 359 Anchors = [akTop, akLeft, akRight] Lines.Strings = ( 'StrExpAirBlTally' ) TabOrder = 3 end object StrExpAirRdTally: TMemo AnchorSideLeft.Control = StrExpAirBlTally AnchorSideRight.Control = StrExpAirBlTally AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 0 Height = 120 Top = 154 Width = 359 Anchors = [akLeft, akRight, akBottom] Lines.Strings = ( 'StrExpAirRdTally' ) TabOrder = 4 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