Chip 2001 February/Chip_2001-02_cd1.bin/sharewar/argonaut/FILEDATA.DAT/argo2/Argonaut.exe/0/RCDATA/TARGOLARMDLG/TARGOLARMDLG.txt

Text File | 2000-06-30 | 13.7 KB | 690 lines

object ArgoLarmDlg: TArgoLarmDlg
  Left = 77
  Top = 60
  HelpContext = 2
  ActiveControl = OKBtn
  BorderStyle = bsDialog
  Caption = 'Argonaut - Alarm'
  ClientHeight = 374
  ClientWidth = 505
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  Position = poScreenCenter
  OnActivate = FormActivate
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 393
    Height = 353
    Shape = bsFrame
    IsControl = True
  end
  object Label1: TLabel
    Left = 16
    Top = 232
    Width = 154
    Height = 13
    Caption = 'Divergence from waypoints'
  end
  object Label2: TLabel
    Left = 16
    Top = 264
    Width = 98
    Height = 13
    Caption = 'Latitude passage'
  end
  object Label3: TLabel
    Left = 16
    Top = 296
    Width = 108
    Height = 13
    Caption = 'Longitude passage'
  end
  object Label4: TLabel
    Left = 16
    Top = 104
    Width = 89
    Height = 13
    Caption = 'Change of wind'
  end
  object Label5: TLabel
    Left = 16
    Top = 136
    Width = 118
    Height = 13
    Caption = 'Change of windforce'
  end
  object Label6: TLabel
    Left = 16
    Top = 40
    Width = 101
    Height = 13
    Caption = 'Change of course'
  end
  object Label7: TLabel
    Left = 16
    Top = 72
    Width = 101
    Height = 13
    Caption = 'Change of speed '
  end
  object Label8: TLabel
    Left = 16
    Top = 200
    Width = 115
    Height = 13
    Caption = 'Communication GPS'
  end
  object Label9: TLabel
    Left = 16
    Top = 328
    Width = 159
    Height = 13
    Caption = 'Position outside detail-chart'
  end
  object Label10: TLabel
    Left = 184
    Top = 24
    Width = 17
    Height = 13
    Caption = 'On'
  end
  object TLabel
    Left = 208
    Top = 24
    Width = 37
    Height = 13
    Caption = 'Active'
  end
  object Label11: TLabel
    Left = 344
    Top = 40
    Width = 48
    Height = 13
    Caption = 'Degrees'
  end
  object Label13: TLabel
    Left = 344
    Top = 72
    Width = 33
    Height = 13
    Caption = 'Knots'
  end
  object Label14: TLabel
    Left = 344
    Top = 104
    Width = 48
    Height = 13
    Caption = 'Degrees'
  end
  object Label15: TLabel
    Left = 344
    Top = 136
    Width = 33
    Height = 17
    Caption = 'Knots'
  end
  object Label16: TLabel
    Left = 344
    Top = 200
    Width = 50
    Height = 13
    Caption = 'Seconds'
  end
  object Label17: TLabel
    Left = 344
    Top = 232
    Width = 33
    Height = 13
    Caption = 'Meter'
  end
  object Label18: TLabel
    Left = 352
    Top = 264
    Width = 19
    Height = 13
    Caption = 'Lat'
  end
  object TLabel
    Left = 289
    Top = 184
    Width = 5
    Height = 13
  end
  object Label19: TLabel
    Left = 352
    Top = 296
    Width = 25
    Height = 13
    Caption = 'Lon'
  end
  object Shape1: TShape
    Left = 16
    Top = 168
    Width = 377
    Height = 2
  end
  object Label12: TLabel
    Left = 304
    Top = 24
    Width = 24
    Height = 13
    Caption = 'Max'
  end
  object Limit: TLabel
    Left = 272
    Top = 184
    Width = 27
    Height = 13
    Caption = 'Limit'
  end
  object Label20: TLabel
    Left = 264
    Top = 24
    Width = 21
    Height = 13
    Caption = 'Min'
  end
  object OKBtn: TBitBtn
    Left = 408
    Top = 8
    Width = 89
    Height = 27
    Hint = 'Close window. '
    Caption = 'Close'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = OKBtnClick
    Kind = bkOK
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 408
    Top = 40
    Width = 89
    Height = 27
    TabOrder = 1
    OnClick = HelpBtnClick
    Kind = bkHelp
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object ChDirOnBox: TCheckBox
    Left = 184
    Top = 40
    Width = 17
    Height = 17
    Hint = 'Alarmchecking on/off.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = ChDirOnBoxClick
  end
  object ChSpeedOnBox: TCheckBox
    Left = 184
    Top = 72
    Width = 17
    Height = 17
    Hint = 'Alarmchecking on/off.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = ChSpeedOnBoxClick
  end
  object ChWindOnBox: TCheckBox
    Left = 184
    Top = 104
    Width = 17
    Height = 17
    Hint = 'Alarmchecking on/off.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = ChWindOnBoxClick
  end
  object ChWindForceOnBox: TCheckBox
    Left = 184
    Top = 136
    Width = 17
    Height = 17
    Hint = 'Alarmchecking on/off.'
    Caption = 'ChWindForceOnBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 15
    OnClick = ChWindForceOnBoxClick
  end
  object CommGPSOnBox: TCheckBox
    Left = 184
    Top = 200
    Width = 17
    Height = 17
    Hint = 'Alarmchecking on/off.'
    Caption = 'CommGPSOnBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 19
    OnClick = CommGPSOnBoxClick
  end
  object DivWaypOnBox: TCheckBox
    Left = 184
    Top = 232
    Width = 15
    Height = 17
    Hint = 'Alarmchecking on/off.'
    Caption = 'DivWaypOnBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 22
    OnClick = DivWaypOnBoxClick
  end
  object LatPassOnBox: TCheckBox
    Left = 184
    Top = 264
    Width = 17
    Height = 17
    Hint = 'Alarmchecking on/off.'
    Caption = 'LatPassOnBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 25
    OnClick = LatPassOnBoxClick
  end
  object LonPassOnBox: TCheckBox
    Left = 184
    Top = 296
    Width = 17
    Height = 17
    Hint = 'Alarmchecking on/off.'
    Caption = 'LonPassOnBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 29
    OnClick = LonPassOnBoxClick
  end
  object PosOutDetOnBox: TCheckBox
    Left = 184
    Top = 328
    Width = 17
    Height = 17
    Hint = 'Alarmchecking on/off.'
    Caption = 'PosOutDetOnBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 33
    OnClick = PosOutDetOnBoxClick
  end
  object ChDirActiveBox: TCheckBox
    Left = 216
    Top = 40
    Width = 17
    Height = 17
    Hint = 'Checked when alarm.'
    Caption = 'ChDirActiveBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = ChDirActiveBoxClick
  end
  object ChSpeedActiveBox: TCheckBox
    Left = 216
    Top = 72
    Width = 17
    Height = 17
    Hint = 'Checked when alarm.'
    Caption = 'ChSpeedActiveBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = ChSpeedActiveBoxClick
  end
  object ChWindActiveBox: TCheckBox
    Left = 216
    Top = 104
    Width = 17
    Height = 17
    Hint = 'Checked when alarm.'
    Caption = 'ChWindActiveBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    OnClick = ChWindActiveBoxClick
  end
  object ChWindForceActiveBox: TCheckBox
    Left = 216
    Top = 136
    Width = 17
    Height = 17
    Hint = 'Checked when alarm.'
    Caption = 'ChWindForceActiveBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 16
    OnClick = ChWindForceActiveBoxClick
  end
  object CommGPSActiveBox: TCheckBox
    Left = 216
    Top = 200
    Width = 17
    Height = 17
    Hint = 'Checked when alarm.'
    Caption = 'CommGPSActiveBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 20
    OnClick = CommGPSActiveBoxClick
  end
  object DivWaypActiveBox: TCheckBox
    Left = 216
    Top = 232
    Width = 17
    Height = 17
    Hint = 'Checked when alarm.'
    Caption = 'DivWaypActiveBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 23
    OnClick = DivWaypActiveBoxClick
  end
  object LatPassActiveBox: TCheckBox
    Left = 216
    Top = 264
    Width = 17
    Height = 17
    Hint = 'Checked when alarm.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 26
    OnClick = LatPassActiveBoxClick
  end
  object LonPassActiveBox: TCheckBox
    Left = 216
    Top = 296
    Width = 17
    Height = 17
    Hint = 'Checked when alarm.'
    Caption = 'LonPassActiveBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 30
    OnClick = LonPassActiveBoxClick
  end
  object PosOutDetActiveBox: TCheckBox
    Left = 216
    Top = 328
    Width = 17
    Height = 17
    Hint = 'Checked when alarm.'
    Caption = 'PosOutDetActiveBox'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 34
    OnClick = PosOutDetActiveBoxClick
  end
  object MaskLat: TMaskEdit
    Left = 272
    Top = 264
    Width = 73
    Height = 21
    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 = 28
    Text = '057�00.000'
    OnMouseMove = MaskLatMouseMove
  end
  object MaskLon: TMaskEdit
    Left = 272
    Top = 296
    Width = 73
    Height = 21
    Hint = 'Input longitude. Ex:018�00,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 = 32
    Text = '020�00.000'
    OnMouseMove = MaskLonMouseMove
  end
  object MaskMeter: TMaskEdit
    Left = 272
    Top = 232
    Width = 49
    Height = 20
    Hint = 'Input distance in meter.'
    EditMask = '00000;1;_'
    MaxLength = 5
    ParentShowHint = False
    ShowHint = True
    TabOrder = 24
    Text = '00100'
    OnMouseMove = MaskMeterMouseMove
  end
  object MaskSeconds: TMaskEdit
    Left = 272
    Top = 200
    Width = 33
    Height = 22
    Hint = 'Input time in seconds.'
    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 = 21
    Text = '010'
    OnMouseMove = MaskSecondsMouseMove
  end
  object MaskMaxDirBox: TMaskEdit
    Left = 304
    Top = 40
    Width = 33
    Height = 20
    Hint = 'Input max direction (boat).'
    EditMask = '000;1;_'
    MaxLength = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    Text = '090'
    OnMouseMove = MaskMaxDirBoxMouseMove
  end
  object MaskMaxSpeBox: TMaskEdit
    Left = 304
    Top = 72
    Width = 33
    Height = 20
    Hint = 'input max speed (boat).'
    EditMask = '00;1;_'
    MaxLength = 2
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
    Text = '09'
    OnMouseMove = MaskMaxSpeBoxMouseMove
  end
  object MaskMaxWindBox: TMaskEdit
    Left = 304
    Top = 104
    Width = 33
    Height = 20
    Hint = 'Input max winddirection 0-360.'
    EditMask = '000;1;_'
    MaxLength = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    Text = '090'
    OnMouseMove = MaskMaxWindBoxMouseMove
  end
  object MaskMaxWindforceBox: TMaskEdit
    Left = 304
    Top = 136
    Width = 33
    Height = 20
    Hint = 'Input max windforce.'
    EditMask = '000;1;_'
    MaxLength = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 18
    Text = '007'
    OnMouseMove = MaskMaxWindforceBoxMouseMove
  end
  object MaskMinDirBox: TMaskEdit
    Left = 256
    Top = 40
    Width = 33
    Height = 20
    Hint = 'Input min direction (boat).'
    EditMask = '000;1;_'
    MaxLength = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    Text = '000'
    OnMouseMove = MaskMinDirBoxMouseMove
  end
  object MaskMinSpeBox: TMaskEdit
    Left = 256
    Top = 72
    Width = 33
    Height = 20
    Hint = 'Input min speed (boat).'
    EditMask = '00;1;_'
    MaxLength = 2
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    Text = '05'
    OnMouseMove = MaskMinSpeBoxMouseMove
  end
  object MaskMinWindBox: TMaskEdit
    Left = 256
    Top = 104
    Width = 33
    Height = 20
    Hint = 'Input min winddirection 0-360.'
    EditMask = '000;1;_'
    MaxLength = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    Text = '000'
    OnMouseMove = MaskMinWindBoxMouseMove
  end
  object MaskMinWindForceBox: TMaskEdit
    Left = 256
    Top = 136
    Width = 33
    Height = 20
    Hint = 'Input min windforce. '
    EditMask = '000;1;_'
    MaxLength = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 17
    Text = '002'
    OnMouseMove = MaskMinWindForceBoxMouseMove
  end
  object MaskLatNS: TMaskEdit
    Left = 240
    Top = 264
    Width = 25
    Height = 20
    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 = 27
    Text = 'N'
    OnClick = MaskLatNSClick
  end
  object MaskLonWE: TMaskEdit
    Left = 240
    Top = 296
    Width = 25
    Height = 20
    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 = 31
    Text = 'W'
    OnClick = MaskLonWEClick
  end
  object Panel1: TPanel
    Left = 408
    Top = 72
    Width = 89
    Height = 25
    Hint = 'Present value on mouse move.'
    BevelInner = bvLowered
    ParentShowHint = False
    ShowHint = True
    TabOrder = 35
  end
  object SpinEdit1: TSpinEdit
    Left = 408
    Top = 104
    Width = 89
    Height = 22
    Hint = 'Set time between alarm checkings (seconds).'
    AutoSize = False
    EditorEnabled = False
    Increment = 2
    MaxValue = 30
    MinValue = 4
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    Value = 4
    OnChange = SpinEdit1Change
  end
  object Timer1: TTimer
    Interval = 4000
    OnTimer = Timer1Timer
    Left = 432
    Top = 232
  end
end