Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- object frmMain: TfrmMain
- Left = 0
- Top = 0
- Caption = 'frmMain'
- ClientHeight = 381
- ClientWidth = 505
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object wbClient: TWebBrowser
- Left = 8
- Top = 88
- Width = 489
- Height = 273
- TabOrder = 0
- ControlData = {
- 4C0000008A320000371C00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object btnServerSwitch: TButton
- Left = 8
- Top = 8
- Width = 75
- Height = 25
- Action = actServerSwitch
- TabOrder = 1
- end
- object btnBrowserGet: TButton
- Left = 89
- Top = 8
- Width = 75
- Height = 25
- Action = actBrowserGet
- TabOrder = 2
- end
- object btnHttpGet: TButton
- Left = 170
- Top = 8
- Width = 75
- Height = 25
- Action = actHttpGet
- TabOrder = 3
- end
- object lbledtUriAddress: TLabeledEdit
- Left = 8
- Top = 55
- Width = 489
- Height = 21
- EditLabel.Width = 52
- EditLabel.Height = 13
- EditLabel.Caption = 'UriAddress'
- TabOrder = 4
- Text = '/address something after space'
- end
- object ActionList: TActionList
- Left = 232
- Top = 96
- object actServerSwitch: TAction
- Caption = 'Server Stoped'
- OnExecute = actServerSwitchExecute
- end
- object actBrowserGet: TAction
- Caption = 'BrowserGet'
- OnExecute = actBrowserGetExecute
- end
- object actHttpGet: TAction
- Caption = 'HttpGet'
- OnExecute = actHttpGetExecute
- end
- end
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement