initform.dfm

基于USB接口的GPS应用程序

object InitializeForm: TInitializeForm
  Left = 265
  Top = 138
  BorderStyle = bsDialog
  Caption = 'Initialize system settings to estimate GPS satellite visibility'
  ClientHeight = 349
  ClientWidth = 533
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 376
    Top = 32
    Width = 38
    Height = 13
    Caption = 'Latitude'
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 16
    Width = 513
    Height = 52
    Hint = 
      'Choose current rough location in long,lat,alt format. This infor' +
      'mation can be get from your local map. '
    Caption = 'Current Rough Location'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 38
      Height = 13
      Caption = 'Latitude'
    end
    object Label2: TLabel
      Left = 184
      Top = 24
      Width = 47
      Height = 13
      Caption = 'Longitude'
    end
    object Label4: TLabel
      Left = 368
      Top = 24
      Width = 35
      Height = 13
      Caption = 'Altitude'
    end
    object Edit1: TEdit
      Left = 64
      Top = 18
      Width = 80
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = ' '
    end
    object Edit2: TEdit
      Left = 240
      Top = 17
      Width = 80
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Text = ' '
    end
    object Edit3: TEdit
      Left = 416
      Top = 17
      Width = 80
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Text = ' '
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 80
    Width = 513
    Height = 52
    Hint = 'Choose almanac file . File format is YUMA.'
    Caption = 'Almanac File'
    TabOrder = 1
    object Edit4: TEdit
      Left = 16
      Top = 18
      Width = 385
      Height = 24
      Hint = 'Choose almanac file '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object Button1: TButton
      Left = 416
      Top = 18
      Width = 57
      Height = 25
      Caption = 'Open'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object RadioGroup1: TRadioGroup
    Left = 8
    Top = 152
    Width = 513
    Height = 73
    Hint = 'choose time setting for estimating satellite'#39's visibility'
    Caption = 'Time Setting'
    Items.Strings = (
      'Using System Time Automatically'
      'Input UTC Time Manually')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = RadioGroup1Click
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 240
    Width = 513
    Height = 57
    Hint = 'Input time in UTC format'
    Caption = 'Input UTC Time Manually'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    object Label6: TLabel
      Left = 16
      Top = 24
      Width = 22
      Height = 13
      Caption = 'Year'
    end
    object Label5: TLabel
      Left = 112
      Top = 24
      Width = 21
      Height = 13
      Caption = 'Mon'
    end
    object Label7: TLabel
      Left = 208
      Top = 24
      Width = 19
      Height = 13
      Caption = 'Day'
    end
    object Label8: TLabel
      Left = 304
      Top = 24
      Width = 23
      Height = 13
      Caption = 'Hour'
    end
    object Label9: TLabel
      Left = 416
      Top = 24
      Width = 17
      Height = 13
      Caption = 'Min'
    end
    object YearComboBox: TComboBox
      Left = 40
      Top = 20
      Width = 65
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = '2000'
      Items.Strings = (
        '2000'
        '2001'
        '2002'
        '2003'
        '2004'
        '2005'
        '2006'
        '2007'
        '2008'
        '2009'
        '2010'
        '2011'
        '2012'
        '2013'
        '2014'
        '2015'
        '2016'
        '2017'
        '2018'
        '2019'
        '2020')
    end
    object MonComboBox: TComboBox
      Left = 136
      Top = 20
      Width = 65
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12')
    end
    object DayComboBox: TComboBox
      Left = 232
      Top = 20
      Width = 65
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16'
        '17'
        '18'
        '19'
        '20'
        '21'
        '22'
        '23'
        '24'
        '25'
        '26'
        '27'
        '28'
        '29'
        '30'
        '31')
    end
    object HourComboBox: TComboBox
      Left = 336
      Top = 20
      Width = 65
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = '00'
      Items.Strings = (
        '00'
        '01'
        '02'
        '03'
        '04'
        '05'
        '06'
        '07'
        '08'
        '09'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16'
        '17'
        '18'
        '19'
        '20'
        '21'
        '22'
        '23')
    end
    object MinComboBox: TComboBox
      Left = 440
      Top = 20
      Width = 65
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Text = '00'
      Items.Strings = (
        '00'
        '01'
        '02'
        '03'
        '04'
        '05'
        '06'
        '07'
        '08'
        '09'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16'
        '17'
        '18'
        '19'
        '20'
        '21'
        '22'
        '23'
        '24'
        '25'
        '26'
        '27'
        '28'
        '29'
        '30'
        '31'
        '32'
        '33'
        '34'
        '35'
        '36'
        '37'
        '38'
        '39'
        '40'
        '41'
        '42'
        '43'
        '44'
        '45'
        '46'
        '47'
        '48'
        '49'
        '50'
        '51'
        '52'
        '53'
        '54'
        '55'
        '56'
        '57'
        '58'
        '59')
    end
  end
  object BitBtn1: TBitBtn
    Left = 216
    Top = 312
    Width = 75
    Height = 25
    TabOrder = 4
    OnClick = BitBtn1Click
    Kind = bkYes
  end
  object OpenDialog1: TOpenDialog
    Left = 40
    Top = 312
  end
end