CEF4Delphi/demos/Lazarus_Linux_GTK2/MobileBrowser/uMobileBrowser.lfm
salvadordf 7f3e3415ef Added partial GTK3 support
Converted the OSRExternalPumpBrowser demo to GTK3
Converted the TinyBrowser demo to GTK3
Converted the TinyBrowser2 demo to GTK3
Moved all Lazarus demos for Linux to the Lazarus_Linux_GTK2 directory
Fixed the Copy.CEF.DLLs tool thanks to fraurino
2022-06-25 16:41:34 +02:00

420 lines
12 KiB
Plaintext

object Form1: TForm1
Left = 482
Height = 624
Top = 348
Width = 1038
Caption = 'Initializing browser. Please wait...'
ClientHeight = 624
ClientWidth = 1038
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
OnActivate = FormActivate
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.2.0.4'
object Splitter1: TSplitter
Left = 739
Height = 624
Top = 0
Width = 5
Align = alRight
MinSize = 220
ResizeAnchor = akRight
end
object Panel1: TPanel
Left = 744
Height = 624
Top = 0
Width = 294
Align = alRight
BevelOuter = bvNone
ClientHeight = 624
ClientWidth = 294
TabOrder = 0
object LogMem: TMemo
Left = 0
Height = 258
Top = 366
Width = 294
Align = alClient
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 0
end
object Panel3: TPanel
Left = 0
Height = 57
Top = 0
Width = 294
Align = alTop
BevelOuter = bvNone
ClientHeight = 57
ClientWidth = 294
TabOrder = 1
object CanEmulateBtn: TButton
Left = 0
Height = 25
Top = 0
Width = 294
Align = alTop
Caption = 'Can emulate'
OnClick = CanEmulateBtnClick
TabOrder = 0
end
object ClearDeviceMetricsOverrideBtn: TButton
Left = 0
Height = 25
Top = 32
Width = 294
Align = alBottom
Caption = 'Clear device metrics override'
OnClick = ClearDeviceMetricsOverrideBtnClick
TabOrder = 1
end
end
object Panel4: TPanel
Left = 0
Height = 104
Top = 57
Width = 294
Align = alTop
BevelOuter = bvNone
ClientHeight = 104
ClientWidth = 294
TabOrder = 2
object GroupBox1: TGroupBox
Left = 0
Height = 75
Top = 0
Width = 294
Align = alTop
Caption = ' User agent '
ClientHeight = 60
ClientWidth = 292
TabOrder = 0
object UserAgentCb: TComboBox
Left = 0
Height = 27
Top = 0
Width = 292
Align = alTop
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'Mozilla/5.0 (Linux; Android 11; M2102K1G) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/91.0.4472.101 Mobile Safari/537.36'
'Mozilla/5.0 (iPhone; CPU iPhone OS 10_3_1 like Mac OS X) AppleWebKit/603.1.30 (KHTML, like Gecko) Version/10.0 Mobile/14E304 Safari/602.1'
'Mozilla/5.0 (Linux; U; Android 4.4.2; en-us; SCH-I535 Build/KOT49H) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30'
'Mozilla/5.0 (Linux; Android 7.0; SM-G930V Build/NRD90M) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/59.0.3071.125 Mobile Safari/537.36'
'Mozilla/5.0 (Linux; Android 7.0; SM-A310F Build/NRD90M) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/55.0.2883.91 Mobile Safari/537.36 OPR/42.7.2246.114996'
'Opera/9.80 (Android 4.1.2; Linux; Opera Mobi/ADR-1305251841) Presto/2.11.355 Version/12.10'
'Opera/9.80 (J2ME/MIDP; Opera Mini/5.1.21214/28.2725; U; ru) Presto/2.8.119 Version/11.10'
'Mozilla/5.0 (iPhone; CPU iPhone OS 7_1_2 like Mac OS X) AppleWebKit/537.51.2 (KHTML, like Gecko) OPiOS/10.2.0.93022 Mobile/11D257 Safari/9537.53'
'Mozilla/5.0 (Android 7.0; Mobile; rv:54.0) Gecko/54.0 Firefox/54.0'
'Mozilla/5.0 (iPhone; CPU iPhone OS 10_3_2 like Mac OS X) AppleWebKit/603.2.4 (KHTML, like Gecko) FxiOS/7.5b3349 Mobile/14F89 Safari/603.2.4'
'Mozilla/5.0 (Linux; U; Android 7.0; en-US; SM-G935F Build/NRD90M) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 UCBrowser/11.3.8.976 U3/0.8.0 Mobile Safari/534.30'
'Mozilla/5.0 (Linux; Android 6.0.1; SM-G920V Build/MMB29K) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/52.0.2743.98 Mobile Safari/537.36'
'Mozilla/5.0 (Linux; Android 5.1.1; SM-N750K Build/LMY47X; ko-kr) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/42.0.2311.135 Mobile Safari/537.36 Puffin/6.0.8.15804AP'
'Mozilla/5.0 (Linux; Android 5.1.1; SM-N750K Build/LMY47X; ko-kr) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/42.0.2311.135 Mobile Safari/537.36 Puffin/6.0.8.15804AP'
'Mozilla/5.0 (Linux; Android 7.0; SAMSUNG SM-G955U Build/NRD90M) AppleWebKit/537.36 (KHTML, like Gecko) SamsungBrowser/5.4 Chrome/51.0.2704.106 Mobile Safari/537.36'
'Mozilla/5.0 (Linux; Android 6.0; Lenovo K50a40 Build/MRA58K) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/57.0.2987.137 YaBrowser/17.4.1.352.00 Mobile Safari/537.36'
'Mozilla/5.0 (Linux; U; Android 7.0; en-us; MI 5 Build/NRD90M) AppleWebKit/537.36 (KHTML, like Gecko) Version/4.0 Chrome/53.0.2785.146 Mobile Safari/537.36 XiaoMi/MiuiBrowser/9.0.3'
'Mozilla/5.0 (compatible; MSIE 10.0; Windows Phone 8.0; Trident/6.0; IEMobile/10.0; ARM; Touch; Microsoft; Lumia 950)'
'Mozilla/5.0 (Windows Phone 10.0; Android 6.0.1; Microsoft; Lumia 950) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/52.0.2743.116 Mobile Safari/537.36 Edge/15.14977'
'Mozilla/5.0 (BB10; Kbd) AppleWebKit/537.35+ (KHTML, like Gecko) Version/10.3.3.2205 Mobile Safari/537.35+'
)
TabOrder = 0
Text = 'Mozilla/5.0 (Linux; Android 11; M2102K1G) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/91.0.4472.101 Mobile Safari/537.36'
end
object OverrideUserAgentBtn: TButton
Left = 0
Height = 25
Top = 35
Width = 292
Align = alBottom
Caption = 'Override user agent'
OnClick = OverrideUserAgentBtnClick
TabOrder = 1
end
end
object EmulateTouchChk: TCheckBox
Left = 0
Height = 23
Top = 81
Width = 294
Align = alBottom
Caption = 'Emulate Touch'
OnClick = EmulateTouchChkClick
TabOrder = 1
end
end
object Panel5: TPanel
Left = 0
Height = 205
Top = 161
Width = 294
Align = alTop
BevelOuter = bvNone
ClientHeight = 205
ClientWidth = 294
TabOrder = 3
object GroupBox2: TGroupBox
Left = 0
Height = 205
Top = 0
Width = 294
Align = alClient
Caption = ' Emulate device metrics '
ClientHeight = 190
ClientWidth = 292
TabOrder = 0
object Panel6: TPanel
Left = 0
Height = 27
Top = 27
Width = 292
Align = alTop
BevelOuter = bvNone
ClientHeight = 27
ClientWidth = 292
TabOrder = 0
object Label1: TLabel
Left = 0
Height = 27
Top = 0
Width = 75
Align = alLeft
AutoSize = False
Caption = 'Height'
Layout = tlCenter
end
object HeightEdt: TSpinEdit
Left = 75
Height = 27
Top = 0
Width = 217
Align = alClient
MaxValue = 10000000
TabOrder = 0
end
end
object Panel7: TPanel
Left = 0
Height = 27
Top = 0
Width = 292
Align = alTop
BevelOuter = bvNone
ClientHeight = 27
ClientWidth = 292
TabOrder = 1
object Label2: TLabel
Left = 0
Height = 27
Top = 0
Width = 75
Align = alLeft
AutoSize = False
Caption = 'Width'
Layout = tlCenter
end
object WidthEdt: TSpinEdit
Left = 75
Height = 27
Top = 0
Width = 217
Align = alClient
MaxValue = 10000000
TabOrder = 0
end
end
object OverrideDeviceMetricsBtn: TButton
Left = 0
Height = 25
Top = 165
Width = 292
Align = alBottom
Caption = 'Override device metrics'
OnClick = OverrideDeviceMetricsBtnClick
TabOrder = 2
end
object Panel8: TPanel
Left = 0
Height = 27
Top = 54
Width = 292
Align = alTop
BevelOuter = bvNone
ClientHeight = 27
ClientWidth = 292
TabOrder = 3
object Label3: TLabel
Left = 0
Height = 27
Top = 0
Width = 75
Align = alLeft
AutoSize = False
Caption = 'Scale'
Layout = tlCenter
end
object ScaleEdt: TMaskEdit
Left = 75
Height = 27
Top = 0
Width = 217
Align = alClient
MaxLength = 4
TabOrder = 0
EditMask = '#.##;1;0'
Text = '1. '
SpaceChar = '0'
end
end
object Panel9: TPanel
Left = 0
Height = 27
Top = 81
Width = 292
Align = alTop
BevelOuter = bvNone
ClientHeight = 27
ClientWidth = 292
TabOrder = 4
object Label4: TLabel
Left = 0
Height = 27
Top = 0
Width = 75
Align = alLeft
AutoSize = False
Caption = 'Orientation'
Layout = tlCenter
end
object OrientationCb: TComboBox
Left = 75
Height = 27
Top = 0
Width = 217
Align = alClient
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'Portrait Primary'
'Portrait Secondary'
'Landscape Primary'
'Landscape Secondary'
)
Style = csDropDownList
TabOrder = 0
Text = 'Portrait Primary'
end
end
object Panel10: TPanel
Left = 0
Height = 27
Top = 108
Width = 292
Align = alTop
BevelOuter = bvNone
ClientHeight = 27
ClientWidth = 292
TabOrder = 5
object Label5: TLabel
Left = 0
Height = 27
Top = 0
Width = 75
Align = alLeft
AutoSize = False
Caption = 'Angle'
Layout = tlCenter
end
object AngleEdt: TSpinEdit
Left = 75
Height = 27
Top = 0
Width = 217
Align = alClient
MaxValue = 360
TabOrder = 0
end
end
end
end
end
object Panel2: TPanel
Left = 0
Height = 624
Top = 0
Width = 739
Align = alClient
BevelOuter = bvNone
ClientHeight = 624
ClientWidth = 739
TabOrder = 1
object AddressPnl: TPanel
Left = 0
Height = 23
Top = 0
Width = 739
Align = alTop
BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 739
Enabled = False
TabOrder = 0
object AddressEdt: TEdit
Left = 0
Height = 23
Top = 0
Width = 708
Align = alClient
TabOrder = 0
Text = 'http://www.google.com'
end
object GoBtn: TButton
Left = 708
Height = 23
Top = 0
Width = 31
Align = alRight
Caption = 'Go'
OnClick = GoBtnClick
TabOrder = 1
end
end
object CEFLinkedWindowParent1: TCEFLinkedWindowParent
Left = 0
Height = 601
Top = 23
Width = 739
Align = alClient
TabOrder = 1
OnEnter = CEFLinkedWindowParent1Enter
OnExit = CEFLinkedWindowParent1Exit
Chromium = Chromium1
end
end
object Timer1: TTimer
Enabled = False
Interval = 300
OnTimer = Timer1Timer
Left = 56
Top = 88
end
object Chromium1: TChromium
OnGotFocus = Chromium1GotFocus
OnBeforePopup = Chromium1BeforePopup
OnAfterCreated = Chromium1AfterCreated
OnBeforeClose = Chromium1BeforeClose
OnClose = Chromium1Close
OnOpenUrlFromTab = Chromium1OpenUrlFromTab
OnDevToolsMethodResult = Chromium1DevToolsMethodResult
Left = 56
Top = 152
end
end