object frmMain: TfrmMain Left = 1 Height = 463 Top = 190 Width = 806 Caption = 'lazGUI' ClientHeight = 463 ClientWidth = 806 DesignTimePPI = 144 OnClose = FormClose OnDestroy = FormDestroy Position = poDefaultSizeOnly LCLVersion = '1.8.4.0' object PageControl1: TPageControl Left = 0 Height = 463 Top = 0 Width = 814 ActivePage = tshGT Anchors = [akTop, akLeft, akRight, akBottom] MultiLine = True TabIndex = 8 TabOrder = 0 Options = [nboMultiLine] object tshDLLInit: TTabSheet Caption = 'DLLInit' ClientHeight = 395 ClientWidth = 806 object memDLLInit: TMemo Left = 4 Height = 382 Top = 8 Width = 794 Anchors = [akTop, akLeft, akRight, akBottom] ScrollBars = ssAutoBoth TabOrder = 0 end end object tshUnitShowing: TTabSheet Caption = 'UnitShowing' ClientHeight = 395 ClientWidth = 806 object USckbEnabled: TCheckBox Left = 4 Height = 29 Top = 1 Width = 93 Caption = 'Enabled' TabOrder = 0 end object USlblLines: TLabel Left = 172 Height = 25 Top = 1 Width = 165 Caption = 'Keep this many lines:' ParentColor = False end object USedtLines: TSpinEdit Left = 292 Height = 33 Top = 0 Width = 90 MaxValue = 16384 MinValue = 128 TabOrder = 1 Value = 1024 end object USmemMsgLog: TMemo Left = 0 Height = 387 Top = 24 Width = 805 Anchors = [akTop, akLeft, akRight, akBottom] Font.CharSet = ANSI_CHARSET Font.Height = -13 Font.Name = 'Lucida Console' Font.Pitch = fpFixed Font.Quality = fqDraft ParentFont = False ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 2 WordWrap = False end end object tshUnitShowingSide: TTabSheet Caption = 'UnitShowingSide' ClientHeight = 395 ClientWidth = 806 object USSckbEnabled: TCheckBox Left = 4 Height = 29 Top = 1 Width = 93 Caption = 'Enabled' TabOrder = 0 end object USSlblLines: TLabel Left = 172 Height = 25 Top = 1 Width = 165 Caption = 'Keep this many lines:' ParentColor = False end object USSedtLines: TSpinEdit Left = 292 Height = 33 Top = 0 Width = 90 MaxValue = 16384 MinValue = 128 TabOrder = 1 Value = 1024 end object USSmemMsgLog: TMemo Left = 0 Height = 387 Top = 24 Width = 805 Anchors = [akTop, akLeft, akRight, akBottom] Font.CharSet = ANSI_CHARSET Font.Height = -13 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 = 395 ClientWidth = 806 object TFckbEnabled: TCheckBox Left = 4 Height = 29 Top = 1 Width = 93 Caption = 'Enabled' Checked = True State = cbChecked TabOrder = 0 end object TFlblLines: TLabel Left = 172 Height = 25 Top = 1 Width = 165 Caption = 'Keep this many lines:' ParentColor = False end object TFedtLines: TSpinEdit Left = 292 Height = 33 Top = 0 Width = 90 MaxValue = 16384 MinValue = 128 TabOrder = 1 Value = 1024 end object TFmemMsgLog: TMemo Left = 0 Height = 387 Top = 24 Width = 805 Anchors = [akTop, akLeft, akRight, akBottom] Font.CharSet = ANSI_CHARSET Font.Height = -13 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 = 395 ClientWidth = 806 object MLmemMsgLog: TMemo Left = 0 Height = 387 Top = 24 Width = 805 Anchors = [akTop, akLeft, akRight, akBottom] ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 0 WordWrap = False end object MLedtLines: TSpinEdit Left = 292 Height = 33 Top = 0 Width = 90 MaxValue = 16384 MinValue = 128 TabOrder = 1 Value = 1024 end object MLlblLines: TLabel Left = 172 Height = 25 Top = 1 Width = 165 Caption = 'Keep this many lines:' ParentColor = False end object MLckbEnabled: TCheckBox Left = 4 Height = 29 Top = 1 Width = 93 Caption = 'Enabled' TabOrder = 2 end end object tshScenLoad: TTabSheet Caption = 'ScenLoad' ClientHeight = 395 ClientWidth = 806 object SLckbEnabled: TCheckBox Left = 4 Height = 29 Top = 1 Width = 93 Caption = 'Enabled' Checked = True State = cbChecked TabOrder = 0 end object SLlblLines: TLabel Left = 172 Height = 25 Top = 1 Width = 165 Caption = 'Keep this many lines:' ParentColor = False end object SLedtLines: TSpinEdit Left = 292 Height = 33 Top = 0 Width = 90 MaxValue = 16384 MinValue = 128 TabOrder = 1 Value = 1024 end object SLmemMsgLog: TMemo Left = 0 Height = 387 Top = 24 Width = 805 Anchors = [akTop, akLeft, akRight, akBottom] ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 2 WordWrap = False end end object tshStartGroup: TTabSheet Caption = 'StartGroup' ClientHeight = 335 ClientWidth = 806 OnShow = SGButtonRefreshClick object SGckbEnabled: TCheckBox Left = 4 Height = 29 Top = 1 Width = 93 Caption = 'Enabled' Checked = True State = cbChecked TabOrder = 0 end object SGlblLines: TLabel Left = 84 Height = 25 Top = 1 Width = 165 Caption = 'Keep this many lines:' ParentColor = False end object SGedtLines: TSpinEdit Left = 204 Height = 33 Top = 0 Width = 90 MaxValue = 16384 MinValue = 128 TabOrder = 1 Value = 1024 end object SGmemMsgLog: TMemo Left = 0 Height = 307 Top = 24 Width = 108 Anchors = [akTop, akLeft, akBottom] ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 2 WordWrap = False end object SGlblDesc: TLabel Left = 340 Height = 25 Top = 1 Width = 538 Caption = 'Receives PHCGroup so you can iterate over all Groups & Units in scen.' ParentColor = False end object SGpnl1: TPanel Left = 116 Height = 308 Top = 24 Width = 690 Anchors = [akTop, akLeft, akRight, akBottom] Caption = 'SGpnl1' ClientHeight = 308 ClientWidth = 690 TabOrder = 3 object SGlblGroups: TLabel Left = 8 Height = 25 Top = 8 Width = 58 Caption = 'Groups' ParentColor = False end object SGlbxGroups: TListBox Left = 8 Height = 266 Top = 32 Width = 112 Anchors = [akTop, akLeft, akBottom] ItemHeight = 0 OnSelectionChange = SGlbxGroupsSelectionChange TabOrder = 0 end object SGlbxUnits: TListBox Left = 124 Height = 267 Top = 32 Width = 148 Anchors = [akTop, akLeft, akBottom] ItemHeight = 0 OnSelectionChange = SGlbxUnitsSelectionChange TabOrder = 1 end object SGlblUnits: TLabel Left = 184 Height = 25 Top = 10 Width = 40 Caption = 'Units' ParentColor = False end object SGpnlUnit: TPanel Left = 280 Height = 290 Top = 8 Width = 404 Anchors = [akTop, akLeft, akRight, akBottom] ClientHeight = 290 ClientWidth = 404 TabOrder = 2 object SGlblUnitIDName: TLabel Left = 14 Height = 15 Top = 16 Width = 370 Anchors = [akTop, akLeft, akRight] AutoSize = False ParentColor = False end object SGListBoxUnitInfo: TListBox Left = 14 Height = 226 Top = 64 Width = 376 Anchors = [akTop, akLeft, akRight, akBottom] ItemHeight = 0 TabOrder = 0 end object SGlblClassName: TLabel Left = 14 Height = 15 Top = 35 Width = 361 AutoSize = False ParentColor = False end end object SGButtonRefresh: TButton Left = 56 Height = 17 Top = 8 Width = 51 Caption = 'Refresh' OnClick = SGButtonRefreshClick TabOrder = 3 end end end object tshVC: TTabSheet Caption = 'VictoryConditionsList' ClientHeight = 395 ClientWidth = 806 object VCckbEnabled: TCheckBox Left = 4 Height = 29 Top = 1 Width = 93 Caption = 'Enabled' Checked = True State = cbChecked TabOrder = 0 end object VClblLines: TLabel Left = 172 Height = 25 Top = 1 Width = 165 Caption = 'Keep this many lines:' ParentColor = False end object VCedtLines: TSpinEdit Left = 292 Height = 33 Top = 0 Width = 90 MaxValue = 16384 MinValue = 128 TabOrder = 1 Value = 1024 end object VCmemMsgLog: TMemo Left = -4 Height = 367 Top = 24 Width = 212 Anchors = [akTop, akLeft, akRight, akBottom] ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 2 WordWrap = False end object VClstbxItems: TListBox Left = 219 Height = 368 Top = 26 Width = 579 Anchors = [akTop, akRight, akBottom] ItemHeight = 0 TabOrder = 3 end end object tshGT: TTabSheet Caption = 'GameTime/Investigate Structures' ClientHeight = 395 ClientWidth = 806 object GTckbPause: TCheckBox Left = 4 Height = 29 Top = 7 Width = 428 Caption = 'Pause next game second to investigate structures?' TabOrder = 0 end object GTbtnResume: TButton Left = 4 Height = 25 Top = 24 Width = 75 Caption = 'Resume' Enabled = False OnClick = GTbtnResumeClick TabOrder = 1 end object GTpctStructs: TPageControl Left = 4 Height = 333 Top = 64 Width = 802 ActivePage = GTtshHarpEvents Anchors = [akTop, akLeft, akRight, akBottom] TabIndex = 2 TabOrder = 2 object GTtshStartGroup: TTabSheet Caption = 'StartGroup' ClientHeight = 290 ClientWidth = 782 Enabled = False object Label1: TLabel Left = 4 Height = 45 Top = 8 Width = 86 Caption = 'To Do' Font.Color = clMaroon Font.Height = -32 ParentColor = False ParentFont = False end end object GTtshWeatherGroups: TTabSheet Caption = 'WeatherGroups' ClientHeight = 290 ClientWidth = 782 Enabled = False object Label2: TLabel Left = 4 Height = 45 Top = 8 Width = 86 Caption = 'To Do' Font.Color = clMaroon Font.Height = -32 ParentColor = False ParentFont = False end end object GTtshHarpEvents: TTabSheet Caption = 'HarpoonEvents' ClientHeight = 295 ClientWidth = 794 object GTHEEventList: TListBox Left = 4 Height = 284 Top = 8 Width = 346 Anchors = [akTop, akLeft, akRight, akBottom] Font.Height = -16 Font.Name = 'Courier New' ItemHeight = 0 OnSelectionChange = GTHEEventListSelectionChange ParentFont = False ScrollWidth = 500 TabOrder = 0 end object GEHEmemDetail: TMemo Left = 352 Height = 284 Top = 8 Width = 438 Anchors = [akTop, akRight, akBottom] ScrollBars = ssAutoBoth TabOrder = 1 WordWrap = False end end object GTtshSonoBuoy: TTabSheet Caption = 'SonoBuoys' ClientHeight = 290 ClientWidth = 782 Enabled = False object Label3: TLabel Left = 4 Height = 45 Top = 8 Width = 86 Caption = 'To Do' Font.Color = clMaroon Font.Height = -32 ParentColor = False ParentFont = False end end object GTtshDeadUnits: TTabSheet Caption = 'DeadUnits' ClientHeight = 290 ClientWidth = 782 object Label4: TLabel Left = 4 Height = 45 Top = 8 Width = 86 Caption = 'To Do' Font.Color = clMaroon Font.Height = -32 ParentColor = False ParentFont = False end end object GTtshDLLcalls: TTabSheet Caption = 'DLL Calls' ClientHeight = 305 ClientWidth = 794 object GTmemDLLcalls: TMemo Left = -4 Height = 297 Top = 8 Width = 794 Anchors = [akTop, akLeft, akRight, akBottom] ScrollBars = ssAutoVertical TabOrder = 0 end end end object GTlblGameTime: TLabel Left = 628 Height = 25 Top = 11 Width = 88 Caption = 'GameTime:' ParentColor = False end object GTlblGameTimeLeft: TLabel Left = 468 Height = 25 Top = 11 Width = 126 Caption = 'Time Remaining' ParentColor = False end object GTckbAutoP: TCheckBox Left = 188 Height = 29 Top = 32 Width = 115 Caption = 'AutoPause' TabOrder = 3 end object GTcklbAutoP: TCheckListBox Left = 303 Height = 55 Top = 9 Width = 141 Items.Strings = ( 'Enemy AI ' 'Intercept' 'Air Refuel' 'Aircraft Launch' 'Speed Altitude set' 'Alter Course' 'Attack Event' 'Air Attack' 'Air Patrol' 'Land/Launch' ) ItemHeight = 27 TabOrder = 4 Data = { 0A00000000000000000000000000 } end object GTlblHMS: TLabel AnchorSideLeft.Control = GTlblGameTimeLeft AnchorSideTop.Control = GTlblGameTimeLeft AnchorSideTop.Side = asrBottom Left = 468 Height = 25 Top = 39 Width = 47 Anchors = [akLeft] BorderSpacing.Top = 2 Caption = 'H:M:S' ParentColor = False end end end end