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

Text File | 2000-06-30 | 5.2 KB | 235 lines

object ArgoBoatSheet: TArgoBoatSheet
  Left = 113
  Top = 99
  HelpContext = 6
  BorderStyle = bsDialog
  Caption = 'Argonaut-Boatdata'
  ClientHeight = 347
  ClientWidth = 481
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnActivate = FormActivate
  TextHeight = 16
  object Label1: TLabel
    Left = 208
    Top = 32
    Width = 49
    Height = 22
    Caption = 'Speed'
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 200
    Top = 184
    Width = 63
    Height = 22
    Caption = 'Leeway'
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
  end
  object BSpeedGrid: TStringGrid
    Left = 8
    Top = 56
    Width = 465
    Height = 129
    Hint = 'Boat speed (knots) table.'
    ColCount = 6
    DefaultColWidth = 72
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = []
    GridLineWidth = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goTabs]
    ParentFont = False
    ParentShowHint = False
    RowCount = 17
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 0
    RowHeights = (
      24
      24
      24
      24
      24
      24
      24
      24
      24
      24
      24
      24
      24
      24
      24
      24
      24)
  end
  object LeewayGrid: TStringGrid
    Left = 8
    Top = 208
    Width = 465
    Height = 129
    Hint = 'Leeway (degrees) table.'
    ColCount = 6
    DefaultColWidth = 72
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Serif'
    Font.Style = []
    GridLineWidth = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goTabs]
    ParentFont = False
    ParentShowHint = False
    RowCount = 17
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 1
  end
  object FileBtn: TButton
    Left = 0
    Top = 0
    Width = 81
    Height = 33
    Hint = 'File popup menu'
    Caption = 'File'
    ParentShowHint = False
    PopupMenu = FilePopupMenu
    ShowHint = True
    TabOrder = 2
    OnClick = FileBtnClick
  end
  object GetSpBtn: TButton
    Left = 80
    Top = 0
    Width = 81
    Height = 33
    Hint = 'Get used data.'
    Caption = 'Get Speed'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = GetSpBtnClick
  end
  object SetSpBtn: TButton
    Left = 160
    Top = 0
    Width = 81
    Height = 33
    Hint = 'Use this data.'
    Caption = 'Set Speed'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = SetSpBtnClick
  end
  object GetLeBtn: TButton
    Left = 240
    Top = 0
    Width = 81
    Height = 33
    Hint = 'Get used data.'
    Caption = 'Get Leeway'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = GetLeBtnClick
  end
  object SetLeBtn: TButton
    Left = 320
    Top = 0
    Width = 81
    Height = 33
    Hint = 'Use this data.'
    Caption = 'Set Leeway'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = SetLeBtnClick
  end
  object HelpBtn: TButton
    Left = 400
    Top = 0
    Width = 81
    Height = 33
    Hint = 'Help texts.'
    Caption = 'Help'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = HelpBtnClick
  end
  object FilePopupMenu: TPopupMenu
    AutoPopup = False
    Left = 16
    Top = 24
    object Loadspeeddatafromfile1: TMenuItem
      Caption = 'Load speed data from file'
      OnClick = Loadspeeddatafromfile1Click
    end
    object Loadleewaydatafromfile1: TMenuItem
      Caption = 'Load leeway data from file'
      OnClick = Loadleewaydatafromfile1Click
    end
    object Usedefaultspeeddata1: TMenuItem
      Caption = 'Use default speed data'
      OnClick = Usedefaultspeeddata1Click
    end
    object Usedefaultleewaydata1: TMenuItem
      Caption = 'Use default leeway data'
      OnClick = Usedefaultleewaydata1Click
    end
    object Savespeeddatatofile1: TMenuItem
      Caption = 'Save speed data to file'
      OnClick = Savespeeddatatofile1Click
    end
    object Saveleewaydatatofile1: TMenuItem
      Caption = 'Save leeway data to file'
      OnClick = Saveleewaydatatofile1Click
    end
    object Closedataform1: TMenuItem
      Caption = 'Close data form'
      OnClick = Closedataform1Click
    end
  end
  object OpenDialogSp: TOpenDialog
    DefaultExt = 'spe'
    Filter = 'Speed files|*.spe'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Left = 48
    Top = 24
  end
  object OpenDialogLe: TOpenDialog
    DefaultExt = 'lee'
    Filter = 'Leeway files|*.lee'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Left = 80
    Top = 24
  end
  object SaveDialogSp: TSaveDialog
    DefaultExt = 'spe'
    Filter = 'Speed files|*.spe'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Left = 112
    Top = 24
  end
  object SaveDialogLe: TSaveDialog
    DefaultExt = 'lee'
    Filter = 'Leeway files|*.lee'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Left = 144
    Top = 24
  end
end