object NetworkTest: TNetworkTest Left = 295 Top = 207 ActiveControl = ListView1 Caption = 'Test s'#237't'#283 ClientHeight = 232 ClientWidth = 486 Color = clBtnFace Constraints.MinHeight = 100 Constraints.MinWidth = 420 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnShow = FormShow DesignSize = ( 486 232) PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 232 Top = 206 Width = 13 Height = 13 Anchors = [akLeft, akBottom] Caption = 'ms' end object Button1: TButton Left = 404 Top = 201 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = 'Zav'#345#237't' TabOrder = 0 OnClick = Button1Click end object ListView1: TListView Left = 8 Top = 8 Width = 469 Height = 186 Anchors = [akLeft, akTop, akRight, akBottom] Columns = < item Caption = 'Po'#269#237'ta'#269 Width = 100 end item Caption = 'IP adresa' Width = 90 end item Caption = 'Spr'#225'vce' Width = 100 end item Caption = 'Stav' Width = 80 end> ReadOnly = True RowSelect = True TabOrder = 1 ViewStyle = vsReport end object Button2: TButton Left = 324 Top = 201 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = 'Otestovat' TabOrder = 2 OnClick = Button2Click end object SpinEdit1: TSpinEdit Left = 160 Top = 203 Width = 65 Height = 22 Anchors = [akLeft, akBottom] Increment = 10 MaxValue = 10000 MinValue = 1 TabOrder = 3 Value = 1 OnChange = SpinEdit1Change end object ComboBox1: TComboBox Left = 8 Top = 203 Width = 145 Height = 21 Style = csDropDownList Anchors = [akLeft, akBottom] ItemHeight = 13 ItemIndex = 0 TabOrder = 4 Text = 'Nejd'#367'le'#382'it'#283'j'#353#237 OnChange = ComboBox1Change Items.Strings = ( 'Nejd'#367'le'#382'it'#283'j'#353#237 'Po'#269#237'ta'#269'e' 'Za'#345#237'zen'#237 'V'#353'echny') end object IdHTTP1: TIdHTTP AllowCookies = True ProxyParams.BasicAuthentication = False ProxyParams.ProxyPort = 0 Request.ContentLength = -1 Request.ContentType = 'text/html' Request.Accept = 'text/html, */*' Request.BasicAuthentication = False Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)' HTTPOptions = [hoForceEncodeParams] Left = 17 Top = 32 end end