main.~dfm

对于初学者很实用的实力开发程序

object Form1: TForm1
  Left = 222
  Top = 232
  Width = 665
  Height = 307
  Caption = 'GPS'#25480#26102
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000000000000A80C00001600000028000000200000004000
    00000100180000000000800C0000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000007575755A5A5A585858434343757575000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000005B5B5BF1F1F1D3D3D3AFAFAF282828000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000005B5B5BE6E6E6CFCFCFB7B7B7282828000000000000000000
    0000000000000000000000000000000000000000000000004882932A4D570000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000777777F1F1F1D8D8D8D0D0D0CFCFCFAFAFAF282828000000000000
    0000000000000000000000004646462828280000004882937FBDCF2A4D570000
    0000000000000000000000000000000043434328282800000000000000000000
    00000000005B5B5BECECECCACACAC0C0C0CACACAABABAB282828000000000000
    000000000000000000464646D4D4D4C3C3C32828285293A62A4D570000000000
    00000000000000000000000000464646C2C2C28D8D8D28282800000000000000
    00000000005B5B5B9696968181816969698282827A7A7A636363434343686868
    000000434343464646D6D6D6C6C6C6B3B3B3ABABAB2828280000000000000000
    00000000000000000000464646E6E6E6E5E5E5C9C9C98D8D8D2626264242427F
    7F7F282828F8F8F8F8F8F8E6E6E6DDDDDDDFDFDFDEDEDED4D4D4C9C9C99E9E9E
    4F4F4F696969CECECEC2C2C2B4B4B4ACACAC9898987575752727270000000000
    000000000000004A4A4AFFFFFFF4F4F4E6E6E6E2E2E2C6C6C66C6C6C9F9F9FF0
    F0F0F8F8F8E4E4E4C9C9C9693D204F32184F32184F3218693D20CECECED1D1D1
    C8C8C89F9F9F414141898989ADADAD9898987575752424240000000000000000
    00000000000000A6A6A65A5A5AFFFFFFF4F4F4D4D4D4626262ABABABFDFDFDE6
    E6E6A6A6A6693D203222134F32184E3A2931393A3849382129361E1E1E693D20
    CFCFCFB9B9B9BEBEBE4343438989897D7D7D2525250000000000000000000000
    00000000000000000000A6A6A6757575FFFFFF797979BCBCBCF9F9F9CECECE69
    3D205F3E1E8C622B7F532C674F2C743D1939462931423535463539463E1C2D2C
    3C2A23693D20BEBEBEB9B9B90000005858587474740000000000000000000000
    000000000000000000000000004242428F8F8FB7B7B7F8F8F8CCCCCC693D207B
    532492622F92622F9C672FA56826665A4144697945565A35415839463E384938
    1D292C32221B693D20BEBEBEB1B1B12828280000000000000000000000000000
    00000000000000000000000000000000737373F8F8F8F2F2F2693D208C622BAA
    773BB47C3FB76A32B46E3FB057213B7C984C9293447E7F435D682D4E46374B52
    3033302E2A213A2217693D20D4D4D48383832828280000000000000000000000
    000000000000000000000000005A5A5AD6D6D6F8F8F88A8A8A774B24AA773BAF
    7D42BF7E43C48047D9884BC46B293A99C1509397508193446D7B416166345967
    4636294A3121422E2519221EC2C2C2D4D4D42828280000000000000000000000
    000000000000000000000000005A5A5AFAFAFAD1D1D1693D20A86E2FC48C4FD6
    8B4ED78F4FDA9C59D89F5BCD863A4784A44F9FA64F9FA6547D97446979374B52
    673B1A56381D422E2526261D693D20D4D4D47B7B7B2828280000000000000000
    00000000000000444444282828959595FEFEFE9B9B9B6B3A1BC27A3FDC9257D7
    9452D89F5BE5A45EE5A45ED28541A69E7D609AA34B9EB061908C435D68984F27
    8E4B1F683F1E4A31213C2A23361911C2C2C2ACACAC2828280000000000005454
    54545454545454D1D1D1BFBFBF8B8B8BFEFEFE693D20AD6E36D79452D79452D8
    9F5BE5A45EE18F46B2A17B6FB2AB928A79A37F587276618A7B51B56632B56632
    AD582098471F5B3A1C4A31212E2619693D202828280000000000000000007575
    75BFBFBFD4D4D4E6E6E6F0F0F08F8F8FFEFEFE693D20C8884FD08B53D89F5BD2
    9253CD884A79D4E274CBC874CBC8DB8444E58F4AC78647DD7C3CC97C3EB87437
    B15A2AA64D1F793E1B4F3218422E252E26190000000000000000000000007575
    75F4F4F4F4F4F4F4F4F4F4F4F4979797FEFEFE693D20D08A4BD28E51DFA05CBC
    905DBFD8D86FC1DCA69E7DC49C57DDB178AF916AED8E4ED28E51D97E42C9793B
    BA682FAB54248C461C6439194831253229290000000000000000000000007575
    75FFFFFFFFFFFFFFFFFFFEFEFEB1B1B1FEFEFE693D20DD914EDF9B58E4BF7FCD
    D9DEC5E9FF94D0EF9AA59EC49C5793ABB4759194EC8B43D28E51DB8444D48042
    C27238B5632C98471F743D193033301D292C0000000000000000000000008585
    85848484757575B9B9B9FFFFFFB6B6B6FEFEFE693D20C78647ED9B52DAC5B9E5
    F1FEE5F1FECDE1FA97D5F87FC6E480B9D7819AA4D08C49DD8B4EDB8444D37F42
    BF7037BA612FA3491F693D20112E361D292C0000000000000000000000000000
    000000000000007E7E7E4C4C4C8F8F8FFEFEFE693D20AC7437E4AC639CC9D3E1
    EDFEEEF5FDEEF5FDBDDEF273C3E091D5F25BB9D8628584D57D42DD7D3DCA7A3C
    B96A35B35D2C914B21693D201D292C1D26260000000000000000000000000000
    00000000000000000000000000636363F7F7F7E2D3C3693D20E0B05BC1DAD2EE
    F5FDEEF9FDEEF5FDD3E9F8A2D5DD8CCCE780BFCF5BB9D8657B85B57537BF7133
    B56632AE57288F481E613A242E2A210000000000000000000000000000000000
    000000000000000000000000006B6B6BC9C9C9F8F8F8693D20DF9246A5C6BAD5
    E5FEE1EDFEEEF5FDC9E1EE88CDE3A2D5DD73C6D866B3B756A0C35E918FAC7437
    B76A32A54E1E84421B4F32182E26150000000000000000000000000000000000
    00000000000000000000000000A5A5A5707070F8F8F8E2D3C39C672FBEBE9DC9
    E1EECDE5F6CDDDF6D3E9F89CE3EF79CADE82C0CF68A9B34BABB4618E7F9C623B
    B5632C944B1F743D193A32210000000000000000000000000000000000000000
    00000000000000000000000000454545AAAAAAE6E6E6FDFDFD693D20C89E6391
    D5F2B5DDFFC1E2F6ACDEE790CED787C5ECB2AA95AF97685BBED060A9A3936658
    AD58207C421F5B361A322A110000000000000000000000000000000000000000
    00000000000000000000A6A6A6858585D4D4D4858585F4F4F4FDFDFD693D2092
    9D9A73C6E879CADE80D8D97BD6E484BBAFC48C4F70A38A68BFB0BD7032B95B22
    A54E1E5B3A1C432E140000000000000000000000000000000000000000000000
    00000000000000A6A6A6434343D4D4D4F4F4F4F4F4F4898989F4F4F4FDFDFD24
    5A693A8DBD5EC8F96DC2EA6DC2EA82C0CF91AEAEF67935C5783AA9632A4D6162
    5F42204A3E210000000000000000000000000000000000000000000000000000
    000000000000004A4A4AFFFFFFF4F4F4F4F4F4F4F4F4D4D4D4898989E6E6E6F8
    F8F8FBFBFB388283245A6979797685A6A260A9A3C27A3F7F724C3E3A31191E15
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000464646FFFFFFF4F4F4D4D4D4B9B9B97373735252525F
    5F5FB9B9B9F8F8F8F8F8F8331A04696A514566665962453D564E000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000004882937FBDCF464646FFFFFFB9B9B95A5A5A00000000000000
    0000424242575757434343000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000488293BDE5EF36637000000046464655555500000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000007FBDCF36637000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFC
    1FFFFFFC1FFFFFFC1FFCFFF80FC8FCF80F81F8780203F0000001E0000003E000
    0007F0000007F800000FFC000007F8000007F8000003E0000003000000070000
    000F0000000F0000000F0000000FE000000FF800001FF800001FF800003FF800
    003FF000007FE00000FFE00003FFF0000FFFE071FFFFC4FFFFFFCFFFFFFF}
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 193
    Height = 185
    Caption = #24037#20316#21442#25968#21306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TabStop = True
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 32
      Height = 16
      Caption = #31471#21475
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 56
      Width = 48
      Height = 16
      Caption = #27874#29305#29575
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 16
      Top = 80
      Width = 64
      Height = 16
      Caption = #25968#25454#20301#25968
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 16
      Top = 104
      Width = 48
      Height = 16
      Caption = #20572#27490#20301
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 16
      Top = 128
      Width = 64
      Height = 16
      Caption = #22855#20598#25928#39564
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Button1: TButton
      Left = 16
      Top = 152
      Width = 75
      Height = 25
      Caption = #25171#24320#20018#21475
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #26032#23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TabStop = False
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 104
      Top = 152
      Width = 75
      Height = 25
      Caption = #20851#38381#20018#21475
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #26032#23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button2Click
    end
    object ComComboBox1: TComComboBox
      Left = 88
      Top = 24
      Width = 89
      Height = 24
      ComPort = ComPort1
      ComProperty = cpPort
      Text = 'COM1'
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ItemIndex = 0
      ParentFont = False
      TabOrder = 2
      OnChange = ComComboBox1Change
    end
    object ComComboBox2: TComComboBox
      Left = 88
      Top = 48
      Width = 89
      Height = 24
      ComPort = ComPort1
      ComProperty = cpBaudRate
      Text = '4800'
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ItemIndex = 6
      ParentFont = False
      TabOrder = 3
      OnChange = ComComboBox2Change
    end
    object ComComboBox3: TComComboBox
      Left = 88
      Top = 72
      Width = 89
      Height = 24
      ComPort = ComPort1
      ComProperty = cpDataBits
      Text = '8'
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ItemIndex = 3
      ParentFont = False
      TabOrder = 4
      OnChange = ComComboBox3Change
    end
    object ComComboBox4: TComComboBox
      Left = 88
      Top = 96
      Width = 89
      Height = 24
      ComPort = ComPort1
      ComProperty = cpStopBits
      Text = '1'
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ItemIndex = 0
      ParentFont = False
      TabOrder = 5
      OnChange = ComComboBox4Change
    end
    object ComComboBox5: TComComboBox
      Left = 88
      Top = 120
      Width = 89
      Height = 24
      ComPort = ComPort1
      ComProperty = cpParity
      Text = 'None'
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ItemIndex = 0
      ParentFont = False
      TabOrder = 6
      OnChange = ComComboBox5Change
    end
  end
  object GroupBox2: TGroupBox
    Left = 200
    Top = 8
    Width = 209
    Height = 185
    Caption = #25968#25454#26174#31034#21306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label6: TLabel
      Left = 16
      Top = 32
      Width = 72
      Height = 16
      Caption = #21271#20140#26102#38388':'
      Font.Charset = ANSI_CHARSET