94 lines
1.9 KiB
Plaintext
94 lines
1.9 KiB
Plaintext
object Form1: TForm1
|
|
Left = 414
|
|
Height = 384
|
|
Top = 178
|
|
Width = 774
|
|
Caption = 'TWebBrowser Test'
|
|
ClientHeight = 384
|
|
ClientWidth = 774
|
|
Color = clMenu
|
|
OnCreate = FormCreate
|
|
LCLVersion = '1.1'
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Height = 24
|
|
Top = 0
|
|
Width = 774
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
ClientHeight = 24
|
|
ClientWidth = 774
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
object Edit1: TEdit
|
|
Left = 0
|
|
Height = 24
|
|
Top = 0
|
|
Width = 279
|
|
Align = alLeft
|
|
OnKeyDown = Edit1KeyDown
|
|
TabOrder = 0
|
|
Text = 'http://adf.ly/Kgy17'
|
|
end
|
|
object SpeedButton1: TSpeedButton
|
|
Left = 279
|
|
Height = 24
|
|
Top = 0
|
|
Width = 23
|
|
Align = alLeft
|
|
Caption = '>>'
|
|
Flat = True
|
|
Font.Style = [fsBold]
|
|
OnClick = Button1Click
|
|
ParentFont = False
|
|
end
|
|
object SpeedButton2: TSpeedButton
|
|
Left = 302
|
|
Height = 24
|
|
Top = 0
|
|
Width = 23
|
|
Align = alLeft
|
|
Caption = '<>'
|
|
Flat = True
|
|
OnClick = SpeedButton2Click
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Height = 21
|
|
Top = 363
|
|
Width = 774
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
ClientHeight = 21
|
|
ClientWidth = 774
|
|
TabOrder = 1
|
|
object Label1: TLabel
|
|
Left = 0
|
|
Height = 21
|
|
Top = 0
|
|
Width = 9
|
|
Align = alLeft
|
|
Caption = '...'
|
|
ParentColor = False
|
|
end
|
|
end
|
|
object WebBrowser1: TWebBrowser
|
|
Left = 0
|
|
Height = 339
|
|
Top = 24
|
|
Width = 774
|
|
Align = alClient
|
|
TabOrder = 2
|
|
UseDockManager = False
|
|
OnResize = WebBrowser1Resize
|
|
Active = True
|
|
OnStatusTextChange = WebBrowser1StatusTextChange
|
|
OnProgressChange = WebBrowser1ProgressChange
|
|
OnNavigateError = WebBrowser1NavigateError
|
|
OnUpdatePageStatus = WebBrowser1UpdatePageStatus
|
|
OnSetPhishingFilterStatus = WebBrowser1SetPhishingFilterStatus
|
|
OnNewProcess = WebBrowser1NewProcess
|
|
end
|
|
end
|