object ArgoDistDlg: TArgoDistDlg
  Left = 245
  Top = 259
  HelpContext = 1
  BorderStyle = bsDialog
  Caption = 'Argonaut-distance'
  ClientHeight = 120
  ClientWidth = 311
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnActivate = FormActivate
  TextHeight = 16
  object Label1: TLabel
    Left = 104
    Top = 8
    Width = 68
    Height = 17
    Caption = 'Position A'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 224
    Top = 8
    Width = 68
    Height = 17
    Caption = 'Position B'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 8
    Top = 24
    Width = 55
    Height = 17
    Caption = 'Latitude'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 8
    Top = 56
    Width = 67
    Height = 17
    Caption = 'Longitude'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object MaskLatA: TMaskEdit
    Left = 112
    Top = 24
    Width = 73
    Height = 22
    Hint = 'Input latitude. Ex:057�30,000'
    EditMask = '000�00.000;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 10
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    Text = '   �  .   '
  end
  object MaskLonA: TMaskEdit
    Left = 112
    Top = 56
    Width = 73
    Height = 22
    Hint = 'Input longitude. Ex:019�30,000'
    EditMask = '000�00.000;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 10
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    Text = '   �  .   '
  end
  object MaskLatB: TMaskEdit
    Left = 232
    Top = 24
    Width = 73
    Height = 22
    Hint = 'Input latitude. Ex:057�30,000'
    EditMask = '000�00.000;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 10
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    Text = '   �  .   '
  end
  object MaskLonB: TMaskEdit
    Left = 232
    Top = 56
    Width = 73
    Height = 22
    Hint = 'Input longitude. Ex:019�30,000'
    EditMask = '000�00.000;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 10
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    Text = '   �  .   '
  end
  object EditAnswer: TEdit
    Left = 80
    Top = 88
    Width = 225
    Height = 25
    Hint = 'Answer.'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 9
  end
  object CalcBtn: TBitBtn
    Left = 8
    Top = 88
    Width = 65
    Height = 25
    Hint = 'Calculate distance.'
    Caption = 'Calc.'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = CalcBtnClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
      73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
      0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
      0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
      0333337F777777737F333308888888880333337F333333337F33330888888888
      03333373FFFFFFFF7333337000000000733333377777777733330000}
    NumGlyphs = 2
  end
  object MaskLatBNS: TMaskEdit
    Left = 200
    Top = 24
    Width = 25
    Height = 22
    Hint = 'Click to change.'
    EditMask = 'A;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 1
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 2
    Text = ' '
    OnClick = MaskLatBNSClick
  end
  object MaskLatANS: TMaskEdit
    Left = 80
    Top = 24
    Width = 25
    Height = 22
    Hint = 'Click to change.'
    EditMask = 'A;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 1
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 0
    Text = ' '
    OnClick = MaskLatANSClick
  end
  object MaskLonBWE: TMaskEdit
    Left = 200
    Top = 56
    Width = 25
    Height = 22
    Hint = 'Click to change.'
    EditMask = 'C;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 1
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 6
    Text = ' '
    OnClick = MaskLonBWEClick
  end
  object MaskLonAWE: TMaskEdit
    Left = 80
    Top = 56
    Width = 25
    Height = 22
    Hint = 'Click to change.'
    EditMask = 'L;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 1
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 4
    Text = ' '
    OnClick = MaskLonAWEClick
  end
end