home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 459
- Top = 127
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'WinDGPS'
- ClientHeight = 127
- ClientWidth = 302
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 16
- Top = 8
- Width = 31
- Height = 13
- Caption = '&Server'
- FocusControl = Server
- end
- object Label2: TLabel
- Left = 152
- Top = 8
- Width = 19
- Height = 13
- Caption = '&Port'
- FocusControl = IPPort
- end
- object Label3: TLabel
- Left = 16
- Top = 56
- Width = 61
- Height = 13
- Caption = 'Data-Monitor'
- end
- object Button1: TButton
- Left = 216
- Top = 22
- Width = 72
- Height = 25
- Caption = 'Connect'
- Default = True
- TabOrder = 0
- OnClick = ConnectMenuItemClick
- end
- object StatusBar: TStatusBar
- Left = 0
- Top = 108
- Width = 302
- Height = 19
- Panels = <
- item
- Width = 50
- end
- item
- Width = 70
- end
- item
- Width = 50
- end>
- SimplePanel = False
- SizeGrip = False
- end
- object Server: TEdit
- Left = 16
- Top = 24
- Width = 121
- Height = 21
- TabOrder = 2
- Text = 'dgps.wsrcc.com'
- end
- object IPPort: TFloatEdit
- Left = 152
- Top = 24
- Width = 49
- Height = 21
- MaxLength = 4
- TabOrder = 3
- Text = '2101'
- Precision = 0
- Value = 2101.000000000000000000
- MinValue_ = 0.000000000000000000
- end
- object DataMonitor: TPanel
- Left = 16
- Top = 72
- Width = 273
- Height = 25
- Alignment = taLeftJustify
- BevelInner = bvLowered
- Color = clWindow
- TabOrder = 4
- end
- object MainMenu: TMainMenu
- Left = 200
- Top = 65512
- object FileMenu: TMenuItem
- Caption = '&File'
- object CaptureDGPSDataMenuItem: TMenuItem
- Caption = '&Capture &DGPS Data'
- OnClick = CaptureDGPSDataMenuItemClick
- end
- object CaptureNMEADataMenuItem: TMenuItem
- Caption = 'Capture &NMEA Data'
- OnClick = CaptureNMEADataMenuItemClick
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object ExitMenuItem: TMenuItem
- Caption = 'E&xit'
- OnClick = ExitMenuItemClick
- end
- end
- object ComPortMenu: TMenuItem
- Caption = '&Com-Port'
- object Com1MenuItem: TMenuItem
- Tag = 1
- Caption = 'COM&1:'
- GroupIndex = 1
- RadioItem = True
- OnClick = ComPortMenuItemClick
- end
- object Com2MenuItem: TMenuItem
- Tag = 2
- Caption = 'COM&2:'
- GroupIndex = 1
- RadioItem = True
- OnClick = ComPortMenuItemClick
- end
- object COM3MenuItem: TMenuItem
- Tag = 3
- Caption = 'COM&3:'
- GroupIndex = 1
- RadioItem = True
- OnClick = ComPortMenuItemClick
- end
- object COM4MenuItem: TMenuItem
- Tag = 4
- Caption = 'COM&4:'
- GroupIndex = 1
- RadioItem = True
- OnClick = ComPortMenuItemClick
- end
- object N1: TMenuItem
- Caption = '-'
- GroupIndex = 1
- end
- object N9600BaudMenuItem: TMenuItem
- Tag = 9600
- Caption = '&9600 Baud'
- GroupIndex = 2
- RadioItem = True
- OnClick = BaudRateClick
- end
- object N4800BaudMenuItem: TMenuItem
- Tag = 4800
- Caption = '4&800 Baud'
- GroupIndex = 2
- RadioItem = True
- OnClick = BaudRateClick
- end
- object N1200BaudMenuItem: TMenuItem
- Tag = 1200
- Caption = '12&00 Baud'
- GroupIndex = 2
- RadioItem = True
- OnClick = BaudRateClick
- end
- end
- object InternetMenu: TMenuItem
- Caption = '&Internet'
- object ConnectMenuItem: TMenuItem
- Caption = '&Connect'
- OnClick = ConnectMenuItemClick
- end
- object DefaultServerMenuItem: TMenuItem
- Caption = 'Default &Server'
- OnClick = DefaultServerMenuItemClick
- end
- end
- object InfoMenu: TMenuItem
- Caption = 'I&nfo'
- OnClick = InfoMenuClick
- end
- end
- object PollTimer: TTimer
- Interval = 100
- OnTimer = PollTimerTimer
- Left = 256
- Top = 65512
- end
- object SaveDialog: TSaveDialog
- Options = [ofOverwritePrompt, ofHideReadOnly, ofFileMustExist, ofNoReadOnlyReturn]
- Left = 88
- Top = 65512
- end
- end
-