home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 February / Chip_2001-02_cd1.bin / sharewar / argonaut / FILEDATA.DAT / argo2 / Argonaut.exe / 0 / RCDATA / TARGODISTDLG / TARGODISTDLG.txt
Text File  |  2000-06-30  |  6KB  |  264 lines
  1. object ArgoDistDlg: TArgoDistDlg
  2.   Left = 245
  3.   Top = 259
  4.   HelpContext = 1
  5.   BorderStyle = bsDialog
  6.   Caption = 'Argonaut-distance'
  7.   ClientHeight = 120
  8.   ClientWidth = 311
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   OnActivate = FormActivate
  15.   TextHeight = 16
  16.   object Label1: TLabel
  17.     Left = 104
  18.     Top = 8
  19.     Width = 68
  20.     Height = 17
  21.     Caption = 'Position A'
  22.     Font.Color = clBlack
  23.     Font.Height = -15
  24.     Font.Name = 'Times New Roman'
  25.     Font.Style = [fsBold]
  26.     ParentFont = False
  27.   end
  28.   object Label2: TLabel
  29.     Left = 224
  30.     Top = 8
  31.     Width = 68
  32.     Height = 17
  33.     Caption = 'Position B'
  34.     Font.Color = clBlack
  35.     Font.Height = -15
  36.     Font.Name = 'Times New Roman'
  37.     Font.Style = [fsBold]
  38.     ParentFont = False
  39.   end
  40.   object Label3: TLabel
  41.     Left = 8
  42.     Top = 24
  43.     Width = 55
  44.     Height = 17
  45.     Caption = 'Latitude'
  46.     Font.Color = clBlack
  47.     Font.Height = -15
  48.     Font.Name = 'Times New Roman'
  49.     Font.Style = [fsBold]
  50.     ParentFont = False
  51.   end
  52.   object Label4: TLabel
  53.     Left = 8
  54.     Top = 56
  55.     Width = 67
  56.     Height = 17
  57.     Caption = 'Longitude'
  58.     Font.Color = clBlack
  59.     Font.Height = -15
  60.     Font.Name = 'Times New Roman'
  61.     Font.Style = [fsBold]
  62.     ParentFont = False
  63.   end
  64.   object MaskLatA: TMaskEdit
  65.     Left = 112
  66.     Top = 24
  67.     Width = 73
  68.     Height = 22
  69.     Hint = 'Input latitude. Ex:057∩┐╜30,000'
  70.     EditMask = '000∩┐╜00.000;1;_'
  71.     Font.Color = clBlack
  72.     Font.Height = -13
  73.     Font.Name = 'Times New Roman'
  74.     Font.Style = [fsBold]
  75.     MaxLength = 10
  76.     ParentFont = False
  77.     ParentShowHint = False
  78.     ShowHint = True
  79.     TabOrder = 1
  80.     Text = '   ∩┐╜  .   '
  81.   end
  82.   object MaskLonA: TMaskEdit
  83.     Left = 112
  84.     Top = 56
  85.     Width = 73
  86.     Height = 22
  87.     Hint = 'Input longitude. Ex:019∩┐╜30,000'
  88.     EditMask = '000∩┐╜00.000;1;_'
  89.     Font.Color = clBlack
  90.     Font.Height = -13
  91.     Font.Name = 'Times New Roman'
  92.     Font.Style = [fsBold]
  93.     MaxLength = 10
  94.     ParentFont = False
  95.     ParentShowHint = False
  96.     ShowHint = True
  97.     TabOrder = 5
  98.     Text = '   ∩┐╜  .   '
  99.   end
  100.   object MaskLatB: TMaskEdit
  101.     Left = 232
  102.     Top = 24
  103.     Width = 73
  104.     Height = 22
  105.     Hint = 'Input latitude. Ex:057∩┐╜30,000'
  106.     EditMask = '000∩┐╜00.000;1;_'
  107.     Font.Color = clBlack
  108.     Font.Height = -13
  109.     Font.Name = 'Times New Roman'
  110.     Font.Style = [fsBold]
  111.     MaxLength = 10
  112.     ParentFont = False
  113.     ParentShowHint = False
  114.     ShowHint = True
  115.     TabOrder = 3
  116.     Text = '   ∩┐╜  .   '
  117.   end
  118.   object MaskLonB: TMaskEdit
  119.     Left = 232
  120.     Top = 56
  121.     Width = 73
  122.     Height = 22
  123.     Hint = 'Input longitude. Ex:019∩┐╜30,000'
  124.     EditMask = '000∩┐╜00.000;1;_'
  125.     Font.Color = clBlack
  126.     Font.Height = -13
  127.     Font.Name = 'Times New Roman'
  128.     Font.Style = [fsBold]
  129.     MaxLength = 10
  130.     ParentFont = False
  131.     ParentShowHint = False
  132.     ShowHint = True
  133.     TabOrder = 7
  134.     Text = '   ∩┐╜  .   '
  135.   end
  136.   object EditAnswer: TEdit
  137.     Left = 80
  138.     Top = 88
  139.     Width = 225
  140.     Height = 25
  141.     Hint = 'Answer.'
  142.     Font.Color = clBlack
  143.     Font.Height = -15
  144.     Font.Name = 'Times New Roman'
  145.     Font.Style = [fsBold]
  146.     ParentFont = False
  147.     ParentShowHint = False
  148.     ReadOnly = True
  149.     ShowHint = True
  150.     TabOrder = 9
  151.   end
  152.   object CalcBtn: TBitBtn
  153.     Left = 8
  154.     Top = 88
  155.     Width = 65
  156.     Height = 25
  157.     Hint = 'Calculate distance.'
  158.     Caption = 'Calc.'
  159.     Font.Color = clBlack
  160.     Font.Height = -15
  161.     Font.Name = 'Times New Roman'
  162.     Font.Style = [fsBold]
  163.     ParentFont = False
  164.     ParentShowHint = False
  165.     ShowHint = True
  166.     TabOrder = 8
  167.     OnClick = CalcBtnClick
  168.     Glyph.Data = {
  169.       78010000424D7801000000000000760000002800000020000000100000000100
  170.       04000000000000000000120B0000120B00000000000000000000000000000000
  171.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  172.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
  173.       73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
  174.       0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
  175.       0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
  176.       0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
  177.       0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
  178.       0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
  179.       0333337F777777737F333308888888880333337F333333337F33330888888888
  180.       03333373FFFFFFFF7333337000000000733333377777777733330000}
  181.     NumGlyphs = 2
  182.   end
  183.   object MaskLatBNS: TMaskEdit
  184.     Left = 200
  185.     Top = 24
  186.     Width = 25
  187.     Height = 22
  188.     Hint = 'Click to change.'
  189.     EditMask = 'A;1;_'
  190.     Font.Color = clBlack
  191.     Font.Height = -13
  192.     Font.Name = 'Times New Roman'
  193.     Font.Style = [fsBold]
  194.     MaxLength = 1
  195.     ParentFont = False
  196.     ParentShowHint = False
  197.     ReadOnly = True
  198.     ShowHint = True
  199.     TabOrder = 2
  200.     Text = ' '
  201.     OnClick = MaskLatBNSClick
  202.   end
  203.   object MaskLatANS: TMaskEdit
  204.     Left = 80
  205.     Top = 24
  206.     Width = 25
  207.     Height = 22
  208.     Hint = 'Click to change.'
  209.     EditMask = 'A;1;_'
  210.     Font.Color = clBlack
  211.     Font.Height = -13
  212.     Font.Name = 'Times New Roman'
  213.     Font.Style = [fsBold]
  214.     MaxLength = 1
  215.     ParentFont = False
  216.     ParentShowHint = False
  217.     ReadOnly = True
  218.     ShowHint = True
  219.     TabOrder = 0
  220.     Text = ' '
  221.     OnClick = MaskLatANSClick
  222.   end
  223.   object MaskLonBWE: TMaskEdit
  224.     Left = 200
  225.     Top = 56
  226.     Width = 25
  227.     Height = 22
  228.     Hint = 'Click to change.'
  229.     EditMask = 'C;1;_'
  230.     Font.Color = clBlack
  231.     Font.Height = -13
  232.     Font.Name = 'Times New Roman'
  233.     Font.Style = [fsBold]
  234.     MaxLength = 1
  235.     ParentFont = False
  236.     ParentShowHint = False
  237.     ReadOnly = True
  238.     ShowHint = True
  239.     TabOrder = 6
  240.     Text = ' '
  241.     OnClick = MaskLonBWEClick
  242.   end
  243.   object MaskLonAWE: TMaskEdit
  244.     Left = 80
  245.     Top = 56
  246.     Width = 25
  247.     Height = 22
  248.     Hint = 'Click to change.'
  249.     EditMask = 'L;1;_'
  250.     Font.Color = clBlack
  251.     Font.Height = -13
  252.     Font.Name = 'Times New Roman'
  253.     Font.Style = [fsBold]
  254.     MaxLength = 1
  255.     ParentFont = False
  256.     ParentShowHint = False
  257.     ReadOnly = True
  258.     ShowHint = True
  259.     TabOrder = 4
  260.     Text = ' '
  261.     OnClick = MaskLonAWEClick
  262.   end
  263. end
  264.