1 | object NetworkTest: TNetworkTest
|
---|
2 | Left = 295
|
---|
3 | Top = 207
|
---|
4 | ActiveControl = ListView1
|
---|
5 | Caption = 'Test s'#237't'#283
|
---|
6 | ClientHeight = 232
|
---|
7 | ClientWidth = 486
|
---|
8 | Color = clBtnFace
|
---|
9 | Constraints.MinHeight = 100
|
---|
10 | Constraints.MinWidth = 420
|
---|
11 | Font.Charset = DEFAULT_CHARSET
|
---|
12 | Font.Color = clWindowText
|
---|
13 | Font.Height = -11
|
---|
14 | Font.Name = 'MS Sans Serif'
|
---|
15 | Font.Style = []
|
---|
16 | OldCreateOrder = False
|
---|
17 | Position = poScreenCenter
|
---|
18 | OnClose = FormClose
|
---|
19 | OnCreate = FormCreate
|
---|
20 | OnShow = FormShow
|
---|
21 | DesignSize = (
|
---|
22 | 486
|
---|
23 | 232)
|
---|
24 | PixelsPerInch = 96
|
---|
25 | TextHeight = 13
|
---|
26 | object Label1: TLabel
|
---|
27 | Left = 232
|
---|
28 | Top = 206
|
---|
29 | Width = 13
|
---|
30 | Height = 13
|
---|
31 | Anchors = [akLeft, akBottom]
|
---|
32 | Caption = 'ms'
|
---|
33 | end
|
---|
34 | object Button1: TButton
|
---|
35 | Left = 404
|
---|
36 | Top = 201
|
---|
37 | Width = 75
|
---|
38 | Height = 25
|
---|
39 | Anchors = [akRight, akBottom]
|
---|
40 | Caption = 'Zav'#345#237't'
|
---|
41 | TabOrder = 0
|
---|
42 | OnClick = Button1Click
|
---|
43 | end
|
---|
44 | object ListView1: TListView
|
---|
45 | Left = 8
|
---|
46 | Top = 8
|
---|
47 | Width = 469
|
---|
48 | Height = 186
|
---|
49 | Anchors = [akLeft, akTop, akRight, akBottom]
|
---|
50 | Columns = <
|
---|
51 | item
|
---|
52 | Caption = 'Po'#269#237'ta'#269
|
---|
53 | Width = 100
|
---|
54 | end
|
---|
55 | item
|
---|
56 | Caption = 'IP adresa'
|
---|
57 | Width = 90
|
---|
58 | end
|
---|
59 | item
|
---|
60 | Caption = 'Spr'#225'vce'
|
---|
61 | Width = 100
|
---|
62 | end
|
---|
63 | item
|
---|
64 | Caption = 'Stav'
|
---|
65 | Width = 80
|
---|
66 | end>
|
---|
67 | ReadOnly = True
|
---|
68 | RowSelect = True
|
---|
69 | TabOrder = 1
|
---|
70 | ViewStyle = vsReport
|
---|
71 | end
|
---|
72 | object Button2: TButton
|
---|
73 | Left = 324
|
---|
74 | Top = 201
|
---|
75 | Width = 75
|
---|
76 | Height = 25
|
---|
77 | Anchors = [akRight, akBottom]
|
---|
78 | Caption = 'Otestovat'
|
---|
79 | TabOrder = 2
|
---|
80 | OnClick = Button2Click
|
---|
81 | end
|
---|
82 | object SpinEdit1: TSpinEdit
|
---|
83 | Left = 160
|
---|
84 | Top = 203
|
---|
85 | Width = 65
|
---|
86 | Height = 22
|
---|
87 | Anchors = [akLeft, akBottom]
|
---|
88 | Increment = 10
|
---|
89 | MaxValue = 10000
|
---|
90 | MinValue = 1
|
---|
91 | TabOrder = 3
|
---|
92 | Value = 1
|
---|
93 | OnChange = SpinEdit1Change
|
---|
94 | end
|
---|
95 | object ComboBox1: TComboBox
|
---|
96 | Left = 8
|
---|
97 | Top = 203
|
---|
98 | Width = 145
|
---|
99 | Height = 21
|
---|
100 | Style = csDropDownList
|
---|
101 | Anchors = [akLeft, akBottom]
|
---|
102 | ItemHeight = 13
|
---|
103 | ItemIndex = 0
|
---|
104 | TabOrder = 4
|
---|
105 | Text = 'Nejd'#367'le'#382'it'#283'j'#353#237
|
---|
106 | OnChange = ComboBox1Change
|
---|
107 | Items.Strings = (
|
---|
108 | 'Nejd'#367'le'#382'it'#283'j'#353#237
|
---|
109 | 'Po'#269#237'ta'#269'e'
|
---|
110 | 'Za'#345#237'zen'#237
|
---|
111 | 'V'#353'echny')
|
---|
112 | end
|
---|
113 | object IdHTTP1: TIdHTTP
|
---|
114 | AllowCookies = True
|
---|
115 | ProxyParams.BasicAuthentication = False
|
---|
116 | ProxyParams.ProxyPort = 0
|
---|
117 | Request.ContentLength = -1
|
---|
118 | Request.ContentType = 'text/html'
|
---|
119 | Request.Accept = 'text/html, */*'
|
---|
120 | Request.BasicAuthentication = False
|
---|
121 | Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
|
---|
122 | HTTPOptions = [hoForceEncodeParams]
|
---|
123 | Left = 17
|
---|
124 | Top = 32
|
---|
125 | end
|
---|
126 | end
|
---|