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

Text File | 2000-06-30 | 7KB | 322 lines

object ArgoSourDlg: TArgoSourDlg
  Left = 184
  Top = 75
  HelpContext = 12
  ActiveControl = OKBtn
  BorderStyle = bsDialog
  Caption = 'Argonaut - datasource'
  ClientHeight = 273
  ClientWidth = 402
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  Position = poScreenCenter
  OnActivate = FormActivate
  TextHeight = 13
  object OKBtn: TBitBtn
    Left = 300
    Top = 16
    Width = 93
    Height = 27
    Hint = 'Close window and set values.'
    Caption = 'OK (=set)'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = OKBtnClick
    Kind = bkOK
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 300
    Top = 48
    Width = 93
    Height = 27
    TabOrder = 1
    OnClick = HelpBtnClick
    Kind = bkHelp
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object LatRadioGroup: TRadioGroup
    Left = 16
    Top = 8
    Width = 153
    Height = 33
    Caption = 'Latitude'
    Columns = 2
    Items.Strings = (
      'Manual'
      'via GPS')
    TabOrder = 2
    TabStop = True
  end
  object LonRadioGroup: TRadioGroup
    Left = 16
    Top = 40
    Width = 153
    Height = 33
    Caption = 'Longitude'
    Columns = 2
    Items.Strings = (
      'Manual'
      'via GPS')
    TabOrder = 5
    TabStop = True
  end
  object DirRadioGroup: TRadioGroup
    Left = 16
    Top = 72
    Width = 153
    Height = 33
    Caption = 'Course'
    Columns = 2
    Items.Strings = (
      'Manual'
      'via GPS')
    TabOrder = 8
    TabStop = True
  end
  object SpeRadioGroup: TRadioGroup
    Left = 16
    Top = 104
    Width = 153
    Height = 33
    Caption = 'Speed'
    Columns = 2
    Items.Strings = (
      'Manual'
      'via GPS')
    TabOrder = 10
    TabStop = True
  end
  object CurDirRadioGroup: TRadioGroup
    Left = 16
    Top = 136
    Width = 153
    Height = 33
    Caption = 'Current Direction'
    Items.Strings = (
      'Manual')
    TabOrder = 12
    TabStop = True
    OnClick = CurDirRadioGroupClick
  end
  object CurSpeRadioGroup: TRadioGroup
    Left = 16
    Top = 168
    Width = 153
    Height = 33
    Caption = 'Current Speed'
    Items.Strings = (
      'Manual')
    TabOrder = 14
    TabStop = True
    OnClick = CurSpeRadioGroupClick
  end
  object WindDirRadioGroup: TRadioGroup
    Left = 16
    Top = 200
    Width = 153
    Height = 33
    Caption = 'Wind Direction'
    Columns = 2
    Items.Strings = (
      'Manual')
    TabOrder = 16
    TabStop = True
    OnClick = WindDirRadioGroupClick
  end
  object WindSpeRadioGroup: TRadioGroup
    Left = 16
    Top = 232
    Width = 153
    Height = 33
    Caption = 'Wind Speed'
    Columns = 2
    Items.Strings = (
      'Manual')
    TabOrder = 18
    TabStop = True
    OnClick = WindSpeRadioGroupClick
  end
  object MaskLat: TMaskEdit
    Left = 208
    Top = 19
    Width = 73
    Height = 21
    Hint = 'Check manual to set this value.'
    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 = 4
    Text = '   �  .   '
    OnMouseMove = MaskLatMouseMove
  end
  object MaskLatNS: TMaskEdit
    Left = 176
    Top = 20
    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 = 3
    Text = 'N'
    OnClick = MaskLatNSClick
  end
  object MaskLonWE: TMaskEdit
    Left = 176
    Top = 52
    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 = 6
    Text = 'W'
    OnClick = MaskLonWEClick
  end
  object MaskLon: TMaskEdit
    Left = 208
    Top = 51
    Width = 73
    Height = 21
    Hint = 'Check manual to set this value.'
    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 = 7
    Text = '   �  .   '
    OnMouseMove = MaskLonMouseMove
  end
  object MaskDir: TMaskEdit
    Left = 176
    Top = 82
    Width = 33
    Height = 20
    Hint = 'Input course 0-360. Check manual to set this value.'
    EditMask = '000;1;_'
    MaxLength = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    Text = '   '
    OnMouseMove = MaskDirMouseMove
  end
  object MaskSpe: TMaskEdit
    Left = 176
    Top = 114
    Width = 33
    Height = 20
    Hint = 'Input speed in knots. Check manual to set this value.'
    EditMask = '000;1;_'
    MaxLength = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    Text = '   '
    OnMouseMove = MaskSpeMouseMove
  end
  object MaskCurSpe: TMaskEdit
    Left = 176
    Top = 178
    Width = 33
    Height = 20
    Hint = 'Input speed in knots. Check manual to set this value.'
    EditMask = '000;1;_'
    MaxLength = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 15
    Text = '   '
    OnMouseMove = MaskCurSpeMouseMove
  end
  object MaskWindSpe: TMaskEdit
    Left = 176
    Top = 242
    Width = 33
    Height = 20
    Hint = 'Input speed in knots. Check manual to set this value.'
    EditMask = '000;1;_'
    MaxLength = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 19
    Text = '   '
    OnMouseMove = MaskWindSpeMouseMove
  end
  object MaskCurDir: TMaskEdit
    Left = 176
    Top = 146
    Width = 33
    Height = 20
    Hint = 'Input direction 0-360. Check manual to set this value.'
    EditMask = '000;1;_'
    MaxLength = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    Text = '   '
    OnMouseMove = MaskCurDirMouseMove
  end
  object MaskWindDir: TMaskEdit
    Left = 176
    Top = 210
    Width = 33
    Height = 20
    Hint = 'Input direction 0-360. Check manual to set this value.'
    EditMask = '000;1;_'
    MaxLength = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 17
    Text = '   '
    OnMouseMove = MaskWindDirMouseMove
  end
  object Panel1: TPanel
    Left = 302
    Top = 80
    Width = 91
    Height = 25
    Hint = 'Present value on mouse move.'
    BevelInner = bvLowered
    ParentShowHint = False
    ShowHint = True
    TabOrder = 20
  end
end