lazarus-ccr/applications/fpbrowser/mod_testhttp.lfm
sekelsenmat 57c396316d fpbrowser: minor fix
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2794 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2013-09-17 09:54:44 +00:00

121 lines
2.6 KiB
Plaintext

object formTestHttp: TformTestHttp
Left = 241
Height = 401
Top = 145
Width = 462
Caption = 'formTestHttp'
ClientHeight = 401
ClientWidth = 462
LCLVersion = '1.1'
object buttonHttpTest: TButton
Left = 120
Height = 25
Top = 120
Width = 195
Caption = 'Test HTTP'
OnClick = buttonHttpTestClick
TabOrder = 0
end
object memoTestHttpDebug: TMemo
Left = 8
Height = 242
Top = 152
Width = 448
Lines.Strings = (
'memoTestHttpDebug'
)
ScrollBars = ssVertical
TabOrder = 1
end
object Label1: TLabel
Left = 10
Height = 15
Top = 11
Width = 25
Caption = 'URL:'
ParentColor = False
end
object comboURL: TComboBox
Left = 40
Height = 21
Top = 8
Width = 416
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'http://file31.content-video.ru/Volume18/mp4/2013/08/20/2013_08_20_RIAMERCEDESmix1_mwyitzcc.0il.mp4'
)
TabOrder = 2
Text = 'http://file31.content-video.ru/Volume18/mp4/2013/08/20/2013_08_20_RIAMERCEDESmix1_mwyitzcc.0il.mp4'
end
object Label2: TLabel
Left = 10
Height = 15
Top = 36
Width = 66
Caption = 'User Agent:'
ParentColor = False
end
object comboUserAgent: TComboBox
Left = 80
Height = 21
Top = 32
Width = 376
ItemHeight = 0
ItemIndex = 3
Items.Strings = (
'FPBrowser/1.0 (Mobile; U; en-GB)'
'Opera/9.80 (iPhone; Opera Mini/6.5.1.23995/27.1227; U; pt) Presto/2.8.119 Version/11.10'
'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.12) Gecko/20060101 Firefox/1.0.8'
'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/29.0.1547.66 Safari/537.36'
)
TabOrder = 3
Text = 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/29.0.1547.66 Safari/537.36'
end
object Label3: TLabel
Left = 10
Height = 15
Top = 64
Width = 33
Caption = 'Proxy:'
ParentColor = False
end
object editProxy: TEdit
Left = 160
Height = 21
Top = 58
Width = 168
TabOrder = 4
end
object checkProxy: TCheckBox
Left = 72
Height = 26
Top = 62
Width = 82
Caption = 'Use Proxy'
TabOrder = 5
end
object Label4: TLabel
Left = 10
Height = 15
Top = 93
Width = 51
Caption = 'Request:'
ParentColor = False
end
object comboRequest: TComboBox
Left = 80
Height = 21
Top = 88
Width = 100
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'GET'
'HEAD'
)
TabOrder = 6
Text = 'GET'
end
end