object frmMain: TfrmMain Left = 294 Height = 198 Top = 142 Width = 537 Caption = 'ActUnitReport' ClientHeight = 198 ClientWidth = 537 Position = poDefaultPosOnly LCLVersion = '1.4.0.4' object PageControl1: TPageControl Left = 0 Height = 198 Top = 0 Width = 537 ActivePage = tshActUnitMain Anchors = [akTop, akLeft, akRight, akBottom] MultiLine = True TabIndex = 4 TabOrder = 0 Options = [nboMultiLine] object tshDLLInit: TTabSheet Caption = 'DLLInit' ClientHeight = 418 ClientWidth = 791 object memDLLInit: TMemo Left = 4 Height = 430 Top = 8 Width = 779 Anchors = [akTop, akLeft, akRight, akBottom] ScrollBars = ssAutoBoth TabOrder = 0 end end object tshStartGroup: TTabSheet Caption = 'StartGroup' ClientHeight = 418 ClientWidth = 665 object SGckbEnabled: TCheckBox Left = 4 Height = 24 Top = 1 Width = 78 Caption = 'Enabled' Checked = True State = cbChecked TabOrder = 0 end object SGlblLines: TLabel Left = 84 Height = 20 Top = 1 Width = 138 Caption = 'Keep this many lines:' ParentColor = False end object SGedtLines: TSpinEdit Left = 204 Height = 28 Top = 0 Width = 90 MaxValue = 16384 MinValue = 128 TabOrder = 1 Value = 1024 end object SGmemMsgLog: TMemo Left = 0 Height = 358 Top = 56 Width = 662 Anchors = [akTop, akLeft, akRight, akBottom] ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 2 WordWrap = False end object SGlblDesc: TLabel Left = 340 Height = 20 Top = 1 Width = 448 Caption = 'Receives PHCGroup so you can iterate over all Groups & Units in scen.' ParentColor = False end object SGbtnRefresh: TButton Left = 14 Height = 25 Top = 24 Width = 75 Caption = 'Refresh' TabOrder = 3 end end object tshHH: TTabSheet Caption = 'HarpoonEventHead' ClientHeight = 418 ClientWidth = 626 object HHedtLines: TSpinEdit Left = 292 Height = 28 Top = 0 Width = 90 MaxValue = 16384 MinValue = 128 TabOrder = 0 Value = 1024 end object HHlblLines: TLabel Left = 172 Height = 20 Top = 1 Width = 138 Caption = 'Keep this many lines:' ParentColor = False end object HHckbEnabled: TCheckBox Left = 4 Height = 24 Top = 1 Width = 78 Caption = 'Enabled' Checked = True State = cbChecked TabOrder = 1 end object HHmemMsgLog: TMemo Left = 0 Height = 430 Top = 24 Width = 625 Anchors = [akTop, akLeft, akRight, akBottom] ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 2 WordWrap = False end end object tshActGroupUnit: TTabSheet Caption = 'ActGroupUnit' ClientHeight = 418 ClientWidth = 665 object GlblDesc: TLabel Left = 0 Height = 20 Top = 1 Width = 705 Caption = 'Tracks changes in ActGroupPtr and ActUnitPtr so we know which Group and/or Unit the player has selected.' ParentColor = False end object AGckbEnabled: TCheckBox Left = 4 Height = 24 Top = 25 Width = 78 Caption = 'Enabled' Checked = True State = cbChecked TabOrder = 0 end object AGlblLines: TLabel Left = 172 Height = 20 Top = 25 Width = 138 Caption = 'Keep this many lines:' ParentColor = False end object AGedtLines: TSpinEdit Left = 312 Height = 28 Top = 24 Width = 90 MaxValue = 16384 MinValue = 128 TabOrder = 1 Value = 1024 end object AGmemMsgLog: TMemo Left = 0 Height = 373 Top = 48 Width = 664 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 tshActUnitMain: TTabSheet Caption = 'Active Unit Report' ClientHeight = 165 ClientWidth = 529 object lblAUMGroupId: TLabel Left = 8 Height = 20 Top = 8 Width = 104 Caption = 'lblAUMGroupId' ParentColor = False end object lblAUMUnitId: TLabel Left = 8 Height = 20 Top = 36 Width = 90 Caption = 'lblAUMUnitId' ParentColor = False end object lblAUMName: TLabel Left = 8 Height = 20 Top = 64 Width = 90 Caption = 'lblAUMName' ParentColor = False end object lblAUMHeading: TLabel Left = 8 Height = 20 Top = 92 Width = 107 Caption = 'lblAUMHeading' ParentColor = False end object lblAUMAltitude: TLabel Left = 8 Height = 20 Top = 120 Width = 103 Caption = 'lblAUMAltitude' ParentColor = False end end end end