home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 February
/
Chip_2001-02_cd1.bin
/
sharewar
/
argonaut
/
FILEDATA.DAT
/
argo2
/
Argonaut.exe
/
0
/
RCDATA
/
TARGOOPTDLG
/
TARGOOPTDLG.txt
Wrap
Text File
|
2000-06-30
|
16KB
|
599 lines
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