object ArgoOptDlg: TArgoOptDlg
  Left = 46
  Top = 247
  HelpContext = 6
  BorderStyle = bsDialog
  Caption = 'Argonaut-Evaluate/modify data'
  ClientHeight = 105
  ClientWidth = 538
  Color = clSilver
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnActivate = FormActivate
  TextHeight = 16
  object Label1: TLabel
    Left = 8
    Top = 24
    Width = 56
    Height = 15
    Caption = 'Direction:'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 72
    Top = 0
    Width = 37
    Height = 15
    Caption = 'Geogr.'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 304
    Top = 0
    Width = 30
    Height = 15
    Caption = 'Steer'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 248
    Top = 0
    Width = 30
    Height = 15
    Caption = 'Wind'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 360
    Top = 0
    Width = 40
    Height = 15
    Caption = 'Leeway'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 184
    Top = 0
    Width = 45
    Height = 15
    Caption = 'Current'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 408
    Top = 0
    Width = 36
    Height = 15
    Caption = 'Result'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label8: TLabel
    Left = 8
    Top = 56
    Width = 36
    Height = 15
    Caption = 'Speed:'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label9: TLabel
    Left = 120
    Top = 0
    Width = 55
    Height = 15
    Caption = 'True wind'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Gauge1: TGauge
    Left = 456
    Top = 80
    Width = 73
    Height = 17
    Color = clNavy
    ForeColor = clNavy
    BackColor = clSilver
    MaxValue = 360
    ParentColor = False
    Progress = 0
    Visible = False
  end
  object SpinWindDir: TSpinButton
    Left = 152
    Top = 16
    Width = 17
    Height = 25
    Hint = '+/- 10'
    DownGlyph.Data = {
      A6000000424DA600000000000000760000002800000009000000060000000100
      0400000000003000000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
      0000333303333000000033300033300000003300000330000000300000003000
      00003333333330000000}
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    UpGlyph.Data = {
      A6000000424DA600000000000000760000002800000009000000060000000100
      0400000000003000000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
      0000300000003000000033000003300000003330003330000000333303333000
      00003333333330000000}
    OnDownClick = SpinWindDirDownClick
    OnUpClick = SpinWindDirUpClick
  end
  object MaskWindDir: TMaskEdit
    Left = 120
    Top = 16
    Width = 33
    Height = 25
    Hint = 'Wind direction 0-359�'
    EditMask = '000;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    Text = '000'
  end
  object EditGeoDir: TEdit
    Left = 72
    Top = 16
    Width = 33
    Height = 25
    Hint = 'Geographical direction'
    TabStop = False
    AutoSize = False
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 10
    Text = '000'
    OnChange = EditGeoDirChange
  end
  object SpinWindSp: TSpinButton
    Left = 152
    Top = 48
    Width = 17
    Height = 25
    Hint = '+/- 1 knots'
    DownGlyph.Data = {
      A6000000424DA600000000000000760000002800000009000000060000000100
      0400000000003000000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
      0000333303333000000033300033300000003300000330000000300000003000
      00003333333330000000}
    ParentShowHint = False
    ShowHint = True
    TabOrder = 17
    UpGlyph.Data = {
      A6000000424DA600000000000000760000002800000009000000060000000100
      0400000000003000000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
      0000300000003000000033000003300000003330003330000000333303333000
      00003333333330000000}
    OnDownClick = SpinWindSpDownClick
    OnUpClick = SpinWindSpUpClick
  end
  object MaskWindSp: TMaskEdit
    Left = 120
    Top = 48
    Width = 33
    Height = 25
    Hint = 'Wind speed 1-20 knots.'
    EditMask = '000;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    Text = '000'
  end
  object EditResultDir: TEdit
    Left = 408
    Top = 16
    Width = 33
    Height = 25
    Hint = 'True course'
    TabStop = False
    AutoSize = False
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 16
  end
  object EditResultSp: TEdit
    Left = 408
    Top = 48
    Width = 33
    Height = 25
    Hint = 'True speed'
    TabStop = False
    AutoSize = False
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 18
    Text = ' '
  end
  object SpinCurrDir: TSpinButton
    Left = 216
    Top = 16
    Width = 17
    Height = 25
    Hint = '+/- 10'
    DownGlyph.Data = {
      A6000000424DA600000000000000760000002800000009000000060000000100
      0400000000003000000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
      0000333303333000000033300033300000003300000330000000300000003000
      00003333333330000000}
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    UpGlyph.Data = {
      A6000000424DA600000000000000760000002800000009000000060000000100
      0400000000003000000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
      0000300000003000000033000003300000003330003330000000333303333000
      00003333333330000000}
    OnDownClick = SpinCurrDirDownClick
    OnUpClick = SpinCurrDirUpClick
  end
  object MaskCurrDir: TMaskEdit
    Left = 184
    Top = 16
    Width = 33
    Height = 25
    Hint = 'Current direction 0-359�'
    EditMask = '000;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    TabOrder = 1
    Text = '000'
  end
  object SpinCurrSp: TSpinButton
    Left = 216
    Top = 48
    Width = 17
    Height = 25
    Hint = '+/- 1 knots'
    DownGlyph.Data = {
      A6000000424DA600000000000000760000002800000009000000060000000100
      0400000000003000000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
      0000333303333000000033300033300000003300000330000000300000003000
      00003333333330000000}
    ParentShowHint = False
    ShowHint = True
    TabOrder = 19
    UpGlyph.Data = {
      A6000000424DA600000000000000760000002800000009000000060000000100
      0400000000003000000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
      0000300000003000000033000003300000003330003330000000333303333000
      00003333333330000000}
    OnDownClick = SpinCurrSpDownClick
    OnUpClick = SpinCurrSpUpClick
  end
  object MaskCurrSp: TMaskEdit
    Left = 184
    Top = 48
    Width = 33
    Height = 25
    Hint = 'Current speed 1-20 knots'
    EditMask = '000;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    TabOrder = 4
    Text = '000'
  end
  object SpinSteerDir: TSpinButton
    Left = 328
    Top = 16
    Width = 17
    Height = 25
    Hint = '+/- 10'
    DownGlyph.Data = {
      A6000000424DA600000000000000760000002800000009000000060000000100
      0400000000003000000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
      0000333303333000000033300033300000003300000330000000300000003000
      00003333333330000000}
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    UpGlyph.Data = {
      A6000000424DA600000000000000760000002800000009000000060000000100
      0400000000003000000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
      0000300000003000000033000003300000003330003330000000333303333000
      00003333333330000000}
    OnDownClick = SpinSteerDirDownClick
    OnUpClick = SpinSteerDirUpClick
  end
  object MaskSteerDir: TMaskEdit
    Left = 296
    Top = 16
    Width = 33
    Height = 25
    Hint = 'Compass course'
    EditMask = '000;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    Text = '000'
  end
  object EditSteerSp: TEdit
    Left = 296
    Top = 48
    Width = 33
    Height = 25
    Hint = 'Calculated speed.'
    TabStop = False
    AutoSize = False
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 20
    Text = ' '
  end
  object EditLeewDir: TEdit
    Left = 360
    Top = 16
    Width = 33
    Height = 25
    Hint = 'Interpolated leeway.'
    TabStop = False
    AutoSize = False
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 15
  end
  object BitBtn1: TBitBtn
    Left = 456
    Top = 48
    Width = 73
    Height = 25
    Hint = 'Calculate result.'
    Caption = 'Calc'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = BitBtn1Click
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
      73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
      0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
      0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
      0333337F777777737F333308888888880333337F333333337F33330888888888
      03333373FFFFFFFF7333337000000000733333377777777733330000}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 456
    Top = 16
    Width = 73
    Height = 25
    Hint = 'Geogr = Result ?'
    Caption = 'Steer?'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = BitBtn2Click
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
      73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
      0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
      0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
      0333337F777777737F333308888888880333337F333333337F33330888888888
      03333373FFFFFFFF7333337000000000733333377777777733330000}
    NumGlyphs = 2
  end
  object PanelSpeed: TPanel
    Left = 328
    Top = 48
    Width = 65
    Height = 25
    Hint = 'Red indicates low speed.'
    BevelOuter = bvLowered
    Color = clGreen
    ParentShowHint = False
    ShowHint = True
    TabOrder = 21
  end
  object WindGlUpdate: TButton
    Left = 120
    Top = 80
    Width = 49
    Height = 17
    Hint = 'Store this wind.'
    Caption = 'Use'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = WindGlUpdateClick
  end
  object CurrGlUpdate: TButton
    Left = 184
    Top = 80
    Width = 49
    Height = 17
    Hint = 'Store this current.'
    Caption = 'Use'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = CurrGlUpdateClick
  end
  object EditFalseWDir: TEdit
    Left = 248
    Top = 16
    Width = 33
    Height = 25
    Hint = 'Wind compensated for current.'
    TabStop = False
    AutoSize = False
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 13
    Text = ' '
  end
  object EditFalseWSp: TEdit
    Left = 248
    Top = 48
    Width = 33
    Height = 25
    Hint = 'Windforce compensated for current.'
    TabStop = False
    AutoSize = False
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 22
    Text = ' '
  end
  object SpLeeBtn: TButton
    Left = 296
    Top = 80
    Width = 97
    Height = 17
    Hint = 'Open boat-data tables.'
    Caption = 'Boat Data'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = SpLeeBtnClick
  end
end