object frmUSNI: TfrmUSNI Left = 0 Top = 0 Anchors = [akLeft, akTop, akRight] BorderIcons = [biMinimize, biMaximize] BorderWidth = 2 Caption = 'USNI Promotion Integration' ClientHeight = 98 ClientWidth = 978 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesigned Visible = True OnCreate = FormCreate OnDestroy = FormDestroy DesignSize = ( 978 98) PixelsPerInch = 96 TextHeight = 13 object lbxInformation: THTMListBox Left = 0 Top = 2 Width = 436 Height = 95 Hint = 'Double-click to toggle auto-scrolling' Anchors = [akLeft, akTop, akBottom] BorderStyle = bsNone Color = clBtnFace Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] Items.Strings = ( 'Please join the developers of Harpoon Classic in furthering the ' + 'cause of the United States Naval Institute (USNI).' 'The USNI promotes open discourse on all matters naval related an' + 'd has played key roles in the history of Harpoon.' 'Click the Links to the right for more context and information.') Multiline = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True Sorted = False TabOrder = 0 OnDblClick = lbxInformationDblClick Version = '2.4.1.0' end object lblUSNI: THTMLStaticText Left = 724 Top = 2 Width = 250 Height = 20 Anchors = [akTop, akRight] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] HTMLText.Strings = ( '
Additional USNI Information
') ParentFont = False TabOrder = 1 Version = '1.5.1.0' end object lblUSNIRelated: THTMLStaticText Left = 724 Top = 19 Width = 250 Height = 20 Anchors = [akTop, akRight] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] HTMLText.Strings = ( '') ParentFont = False TabOrder = 2 OnAnchorClick = lblUSNIRelatedAnchorClick Version = '1.5.1.0' end object Button1: TButton Left = 891 Top = 60 Width = 75 Height = 25 Anchors = [akTop, akRight] Caption = 'Button1' TabOrder = 3 Visible = False OnClick = Button1Click end object lbxUnits: THTMListBox Left = 442 Top = 3 Width = 271 Height = 94 Anchors = [akLeft, akTop, akRight, akBottom] AnchorHint = True AutoItemHeight = False BorderStyle = bsNone Color = clBtnFace Ctl3D = False ExtendedSelect = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] Items.Strings = ( 'Please join the developers of Harpoon Classic' 'in furthering the cause of the United States Naval Institute (US' + 'NI).' 'The USNI promotes open discourse on all matters naval related an' + 'd has played key roles in the history of Harpoon.' 'Click the Links to the right for more context and information.') Multiline = True ParentCtl3D = False ParentFont = False ParentShowHint = False ScrollHorizontal = True ShowFocus = False ShowHint = True ShowSelection = False Sorted = False TabOrder = 4 OnAnchorClick = lbxUnitsAnchorClick Version = '2.4.1.0' end object Timer1: TTimer Interval = 100 OnTimer = Timer1Timer Left = 228 Top = 16 end object Timer2: TTimer Enabled = False Interval = 15000 OnTimer = Timer2Timer Left = 192 Top = 32 end end