home *** CD-ROM | disk | FTP | other *** search
- 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
-