home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 200
- Top = 108
- Width = 454
- Height = 196
- Caption = 'DayTime Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- PixelsPerInch = 96
- TextHeight = 13
- object Label3: TLabel
- Left = 85
- Top = 87
- Width = 148
- Height = 13
- Caption = 'The Current Date and Time is : '
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 446
- Height = 81
- Align = alTop
- TabOrder = 0
- object Label1: TLabel
- Left = 131
- Top = 15
- Width = 28
- Height = 13
- Caption = 'Host: '
- end
- object Label2: TLabel
- Left = 133
- Top = 43
- Width = 25
- Height = 13
- Caption = 'Port: '
- end
- object Edit1: TEdit
- Left = 161
- Top = 11
- Width = 121
- Height = 21
- TabOrder = 0
- Text = '192.43.244.18'
- end
- object Edit2: TEdit
- Left = 161
- Top = 39
- Width = 24
- Height = 21
- TabOrder = 1
- Text = '13'
- end
- object Button1: TButton
- Left = 224
- Top = 48
- Width = 97
- Height = 25
- Caption = 'Get Date/Time'
- TabOrder = 2
- OnClick = Button1Click
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 150
- Width = 446
- Height = 19
- Panels = <>
- SimplePanel = True
- end
- object NMDayTime1: TNMDayTime
- Port = 13
- TimeOut = 10000
- ReportLevel = 0
- OnDisconnect = NMDayTime1Disconnect
- OnConnect = NMDayTime1Connect
- OnInvalidHost = NMDayTime1InvalidHost
- OnHostResolved = NMDayTime1HostResolved
- OnStatus = NMDayTime1Status
- OnConnectionFailed = NMDayTime1ConnectionFailed
- Left = 8
- Top = 8
- end
- end
-