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