home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / FastNet / Time / TIMEDEM.DFM / TIMEDEM.txt
Encoding:
Text File  |  1999-08-11  |  2.1 KB  |  109 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 108
  4.   Width = 524
  5.   Height = 195
  6.   Caption = 'Time Demo'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -14
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = True
  14.   PixelsPerInch = 120
  15.   TextHeight = 16
  16.   object Label3: TLabel
  17.     Left = 134
  18.     Top = 107
  19.     Width = 125
  20.     Height = 16
  21.     Caption = 'The Current Time is : '
  22.   end
  23.   object Panel1: TPanel
  24.     Left = 0
  25.     Top = 0
  26.     Width = 516
  27.     Height = 100
  28.     Align = alTop
  29.     TabOrder = 0
  30.     object Label1: TLabel
  31.       Left = 161
  32.       Top = 18
  33.       Width = 34
  34.       Height = 16
  35.       Caption = 'Host: '
  36.     end
  37.     object Label2: TLabel
  38.       Left = 164
  39.       Top = 53
  40.       Width = 30
  41.       Height = 16
  42.       Caption = 'Port: '
  43.     end
  44.     object Edit2: TEdit
  45.       Left = 198
  46.       Top = 48
  47.       Width = 30
  48.       Height = 24
  49.       TabOrder = 0
  50.       Text = '37'
  51.     end
  52.     object Button1: TButton
  53.       Left = 276
  54.       Top = 59
  55.       Width = 119
  56.       Height = 31
  57.       Caption = 'Get Time'
  58.       TabOrder = 1
  59.       OnClick = Button1Click
  60.     end
  61.   end
  62.   object StatusBar1: TStatusBar
  63.     Left = 0
  64.     Top = 144
  65.     Width = 516
  66.     Height = 24
  67.     Panels = <>
  68.     SimplePanel = True
  69.   end
  70.   object cbHost: TComboBox
  71.     Left = 197
  72.     Top = 16
  73.     Width = 209
  74.     Height = 24
  75.     Hint = 'Server to use with the "Get Time" button'
  76.     ItemHeight = 16
  77.     Items.Strings = (
  78.       'bitsy.mit.edu'
  79.       'kuhub.cc.ukans.edu'
  80.       'time.nist.gov'
  81.       'time-a.nist.gov'
  82.       'time-a.timefreq.bldrdoc.gov'
  83.       'time-b.nist.gov'
  84.       'time-b.timefreq.bldrdoc.gov'
  85.       'time-nw.nist.gov'
  86.       'timex.cs.columbia.edu'
  87.       'tmc.edu'
  88.       'tycho.usno.navy.mil'
  89.       'utcnist.colorado.edu')
  90.     MaxLength = 34
  91.     Sorted = True
  92.     TabOrder = 2
  93.     Text = 'time.nist.gov'
  94.   end
  95.   object NMTime1: TNMTime
  96.     Port = 37
  97.     TimeOut = 500
  98.     ReportLevel = 0
  99.     OnDisconnect = NMTime1Disconnect
  100.     OnConnect = NMTime1Connect
  101.     OnInvalidHost = NMTime1InvalidHost
  102.     OnHostResolved = NMTime1HostResolved
  103.     OnStatus = NMTime1Status
  104.     OnConnectionFailed = NMTime1ConnectionFailed
  105.     Left = 16
  106.     Top = 16
  107.   end
  108. end
  109.