home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 192
- Top = 107
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'LAN SUITE Traffic Meter'
- ClientHeight = 374
- ClientWidth = 362
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poDefault
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 10
- Width = 40
- Height = 13
- Caption = 'Po��ta�:'
- end
- object Label3: TLabel
- Left = 144
- Top = 42
- Width = 11
- Height = 13
- Caption = 'a�'
- end
- object Label8: TLabel
- Left = 8
- Top = 42
- Width = 38
- Height = 13
- Caption = 'Obdob�:'
- end
- object Bevel1: TBevel
- Left = 0
- Top = 175
- Width = 361
- Height = 9
- Shape = bsTopLine
- end
- object Label4: TLabel
- Left = 24
- Top = 178
- Width = 297
- Height = 29
- Alignment = taCenter
- AutoSize = False
- Caption = '?'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -24
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label9: TLabel
- Left = 280
- Top = 10
- Width = 30
- Height = 13
- Cursor = crHandPoint
- Hint = 'Zobrazit HTML str�nku se statistikou'
- Caption = 'HTML'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsUnderline]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = Label9Click
- end
- object ComboBox1: TComboBox
- Left = 56
- Top = 6
- Width = 217
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- OnChange = ComboBox1Change
- Items.Strings = (
- '192.168.1.x (- kontrola IP -)'
- '192.168.1.2 (Libor)'
- '192.168.1.4 (Hub��kovi)'
- '192.168.1.5 (Prokopcovi)'
- '192.168.1.10 (Koudelkovi)'
- '192.168.1.11 (Kyli�novi)'
- '192.168.1.101 (Juha��kovi)')
- end
- object Button1: TButton
- Left = 6
- Top = 144
- Width = 84
- Height = 25
- Caption = '&Spustit'
- Default = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 280
- Top = 144
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Konec'
- TabOrder = 2
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 120
- Top = 144
- Width = 75
- Height = 25
- Caption = '&Nastaven�...'
- TabOrder = 3
- OnClick = Button3Click
- end
- object Panel1: TPanel
- Left = 0
- Top = 208
- Width = 362
- Height = 166
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 4
- object Memo1: TMemo
- Left = 0
- Top = 0
- Width = 362
- Height = 166
- Align = alClient
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 0
- WordWrap = False
- end
- end
- object CheckBox1: TCheckBox
- Left = 320
- Top = 8
- Width = 41
- Height = 17
- Caption = 'V�e'
- Checked = True
- State = cbChecked
- TabOrder = 5
- end
- object CheckBox2: TCheckBox
- Left = 248
- Top = 40
- Width = 89
- Height = 17
- Caption = 'Ulo�it v�sledky'
- Checked = True
- State = cbChecked
- TabOrder = 6
- end
- object Button4: TButton
- Left = 200
- Top = 144
- Width = 75
- Height = 25
- Caption = '&O programu...'
- TabOrder = 7
- OnClick = Button4Click
- end
- object DateTimePicker1: TDateTimePicker
- Left = 56
- Top = 38
- Width = 81
- Height = 21
- CalAlignment = dtaLeft
- Date = 37741.989660069390000000
- Time = 37741.989660069390000000
- DateFormat = dfShort
- DateMode = dmComboBox
- Kind = dtkDate
- ParseInput = False
- TabOrder = 8
- end
- object DateTimePicker2: TDateTimePicker
- Left = 160
- Top = 38
- Width = 81
- Height = 21
- CalAlignment = dtaLeft
- Date = 37741.990101851900000000
- Time = 37741.990101851900000000
- DateFormat = dfShort
- DateMode = dmComboBox
- Kind = dtkDate
- ParseInput = False
- TabOrder = 9
- end
- object GroupBox1: TGroupBox
- Left = 4
- Top = 64
- Width = 357
- Height = 70
- Caption = ' Po m��en� zobrazit '
- TabOrder = 10
- object Label6: TLabel
- Left = 216
- Top = 42
- Width = 23
- Height = 13
- Caption = 'bajt�'
- end
- object Edit3: TEdit
- Left = 120
- Top = 40
- Width = 89
- Height = 21
- TabOrder = 0
- Text = '1000000'
- end
- object CheckBox3: TCheckBox
- Left = 8
- Top = 42
- Width = 113
- Height = 17
- Caption = 'soubory v�t�� ne� '
- Checked = True
- State = cbChecked
- TabOrder = 1
- end
- object CheckBox4: TCheckBox
- Left = 8
- Top = 16
- Width = 57
- Height = 17
- Caption = 'graf po'
- Checked = True
- State = cbChecked
- TabOrder = 2
- end
- object ComboBox2: TComboBox
- Left = 64
- Top = 14
- Width = 97
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 3
- Items.Strings = (
- 'hodin�ch'
- 'p�ti minut�ch')
- end
- end
- object HttpCli1: THttpCli
- ProxyPort = '80'
- Agent = 'Mozilla/3.0 (compatible)'
- Accept = 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*'
- NoCache = False
- ContentTypePost = 'application/x-www-form-urlencoded'
- MultiThreaded = False
- Left = 8
- Top = 160
- end
- object Timer1: TTimer
- Enabled = False
- OnTimer = Timer1Timer
- Left = 40
- Top = 160
- end
- end
-