object CompassForm: TCompassForm Left = 624 Top = 447 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Navigation Compass' ClientHeight = 159 ClientWidth = 235 Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False OnHide = FormHide OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object North: TButton Left = 80 Top = 0 Width = 75 Height = 25 Caption = 'North' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = NorthClick end object Northeast: TButton Left = 160 Top = 0 Width = 75 Height = 25 Caption = 'Northeast' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = NortheastClick end object Northwest: TButton Left = 0 Top = 0 Width = 75 Height = 25 Caption = 'Northwest' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = NorthwestClick end object West: TButton Left = 0 Top = 32 Width = 75 Height = 25 Caption = 'West' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = WestClick end object East: TButton Left = 160 Top = 32 Width = 75 Height = 25 Caption = 'East' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = EastClick end object South: TButton Left = 80 Top = 64 Width = 75 Height = 25 Caption = 'South' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = SouthClick end object Southwest: TButton Left = 0 Top = 64 Width = 75 Height = 25 Caption = 'Southwest' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 6 OnClick = SouthwestClick end object Southeast: TButton Left = 160 Top = 64 Width = 75 Height = 25 Caption = 'Southeast' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 7 OnClick = SoutheastClick end object Up: TButton Left = 32 Top = 96 Width = 75 Height = 25 Caption = 'Up' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 8 OnClick = UpClick end object Down: TButton Left = 32 Top = 128 Width = 75 Height = 25 Caption = 'Down' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 9 OnClick = DownClick end object In: TButton Left = 128 Top = 96 Width = 75 Height = 25 Caption = 'In' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 10 OnClick = InClick end object Out: TButton Left = 128 Top = 128 Width = 75 Height = 25 Caption = 'Out' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 11 OnClick = OutClick end end