You've already forked CEF4Delphi
mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-08-04 21:32:54 +02:00
Added VirtualUI demos for Delphi and Lazarus
Added Delphi_VCL/VirtualUIBrowser Added Delphi_FMX_Windows/FMXVirtualUIBrowser Added Lazarus_Windows/VirtualUIBrowser
This commit is contained in:
142
demos/Lazarus_Windows/VirtualUIBrowser/uVirtualUIBrowser.lfm
Normal file
142
demos/Lazarus_Windows/VirtualUIBrowser/uVirtualUIBrowser.lfm
Normal file
@ -0,0 +1,142 @@
|
||||
object Form1: TForm1
|
||||
Left = 284
|
||||
Height = 565
|
||||
Top = 44
|
||||
Width = 800
|
||||
Caption = 'VirtualUI Browser - Initializing browser. Please wait...'
|
||||
ClientHeight = 565
|
||||
ClientWidth = 800
|
||||
Color = clBtnFace
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
OnCloseQuery = FormCloseQuery
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnHide = FormHide
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '2.2.4.0'
|
||||
object NavControlPnl: TPanel
|
||||
Left = 0
|
||||
Height = 21
|
||||
Top = 0
|
||||
Width = 800
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 21
|
||||
ClientWidth = 800
|
||||
Enabled = False
|
||||
TabOrder = 0
|
||||
object ComboBox1: TComboBox
|
||||
Left = 0
|
||||
Height = 21
|
||||
Top = 0
|
||||
Width = 731
|
||||
Align = alClient
|
||||
ItemHeight = 13
|
||||
Items.Strings = (
|
||||
'https://www.google.co'
|
||||
'https://www.w3schools.com/tags/tryit.asp?filename=tryhtml5_select_form'
|
||||
'https://www.briskbard.com'
|
||||
'https://frames-per-second.appspot.com/'
|
||||
)
|
||||
OnEnter = ComboBox1Enter
|
||||
TabOrder = 0
|
||||
Text = 'https://www.google.com'
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 731
|
||||
Height = 21
|
||||
Top = 0
|
||||
Width = 69
|
||||
Align = alRight
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 21
|
||||
ClientWidth = 69
|
||||
TabOrder = 1
|
||||
object GoBtn: TButton
|
||||
Left = 4
|
||||
Height = 21
|
||||
Top = 0
|
||||
Width = 31
|
||||
Caption = 'Go'
|
||||
OnClick = GoBtnClick
|
||||
OnEnter = GoBtnEnter
|
||||
TabOrder = 0
|
||||
end
|
||||
object SnapshotBtn: TButton
|
||||
Left = 38
|
||||
Height = 21
|
||||
Hint = 'Take snapshot'
|
||||
Top = 0
|
||||
Width = 31
|
||||
Caption = 'µ'
|
||||
Font.CharSet = SYMBOL_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -24
|
||||
Font.Name = 'Webdings'
|
||||
OnClick = SnapshotBtnClick
|
||||
OnEnter = SnapshotBtnEnter
|
||||
ParentFont = False
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
end
|
||||
object Panel1: TBufferPanel
|
||||
Left = 0
|
||||
Height = 544
|
||||
Top = 21
|
||||
Width = 800
|
||||
OnIMECancelComposition = Panel1IMECancelComposition
|
||||
OnIMECommitText = Panel1IMECommitText
|
||||
OnIMESetComposition = Panel1IMESetComposition
|
||||
Align = alClient
|
||||
OnUTF8KeyPress = Panel1UTF8KeyPress
|
||||
Caption = 'Panel1'
|
||||
TabOrder = 1
|
||||
TabStop = True
|
||||
OnClick = Panel1Click
|
||||
OnEnter = Panel1Enter
|
||||
OnExit = Panel1Exit
|
||||
OnMouseDown = Panel1MouseDown
|
||||
OnMouseMove = Panel1MouseMove
|
||||
OnMouseUp = Panel1MouseUp
|
||||
OnMouseWheel = Panel1MouseWheel
|
||||
OnKeyDown = Panel1KeyDown
|
||||
OnKeyUp = Panel1KeyUp
|
||||
OnResize = Panel1Resize
|
||||
end
|
||||
object chrmosr: TChromium
|
||||
OnTooltip = chrmosrTooltip
|
||||
OnCursorChange = chrmosrCursorChange
|
||||
OnBeforePopup = chrmosrBeforePopup
|
||||
OnAfterCreated = chrmosrAfterCreated
|
||||
OnBeforeClose = chrmosrBeforeClose
|
||||
OnGetViewRect = chrmosrGetViewRect
|
||||
OnGetScreenPoint = chrmosrGetScreenPoint
|
||||
OnGetScreenInfo = chrmosrGetScreenInfo
|
||||
OnPopupShow = chrmosrPopupShow
|
||||
OnPopupSize = chrmosrPopupSize
|
||||
OnPaint = chrmosrPaint
|
||||
OnIMECompositionRangeChanged = chrmosrIMECompositionRangeChanged
|
||||
Left = 24
|
||||
Top = 56
|
||||
end
|
||||
object SaveDialog1: TSaveDialog
|
||||
Title = 'Save snapshot'
|
||||
DefaultExt = '.bmp'
|
||||
Filter = 'Bitmap files (*.bmp)|*.BMP'
|
||||
Left = 24
|
||||
Top = 200
|
||||
end
|
||||
object Timer1: TTimer
|
||||
Enabled = False
|
||||
Interval = 300
|
||||
OnTimer = Timer1Timer
|
||||
Left = 24
|
||||
Top = 128
|
||||
end
|
||||
end
|
Reference in New Issue
Block a user