mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2024-12-14 09:42:54 +02:00
26c6f6696d
- New TCEFServerComponent. The new CEF3 includes a http and websockets server for communication between applications in localhost. - New JSDialogBrowser demo to showhow to use custom forms in javascript dialogs. - New SimpleServer demo which uses TCEFServerComponent. - Removed all the code that could be removed from the DPR files and moved to another units. - Now the GlogalCEFApp checks all the CEF3 binaries and stores the missing files in GlogalCEFApp.MissingLibFiles. The default error message gives a list of missing files. - New GlobalCEFApp.Status property. Use it with GlobalCEFApp.ShowMessageDlg set to False if you want to show customized error messages. - Now TCEFClient only creates the necessary handlers if you use any their events in TChromium. - Fixed a destruction bug in OSRExternalPumpBrowser - Added the procedures to handle WM_ENTERMENULOOP and WM_EXITMENULOOP to all the demos.
339 lines
8.4 KiB
Plaintext
339 lines
8.4 KiB
Plaintext
object MiniBrowserFrm: TMiniBrowserFrm
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'MiniBrowser'
|
|
ClientHeight = 712
|
|
ClientWidth = 1184
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Splitter1: TSplitter
|
|
Left = 1179
|
|
Top = 41
|
|
Width = 5
|
|
Height = 652
|
|
Align = alRight
|
|
Visible = False
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 657
|
|
ExplicitHeight = 909
|
|
end
|
|
object NavControlPnl: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 1184
|
|
Height = 41
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
Enabled = False
|
|
ShowCaption = False
|
|
TabOrder = 0
|
|
object NavButtonPnl: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 133
|
|
Height = 41
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
ShowCaption = False
|
|
TabOrder = 0
|
|
object BackBtn: TButton
|
|
Left = 8
|
|
Top = 8
|
|
Width = 25
|
|
Height = 25
|
|
Caption = '3'
|
|
Font.Charset = SYMBOL_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -19
|
|
Font.Name = 'Webdings'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
OnClick = BackBtnClick
|
|
end
|
|
object ForwardBtn: TButton
|
|
Left = 39
|
|
Top = 8
|
|
Width = 25
|
|
Height = 25
|
|
Caption = '4'
|
|
Font.Charset = SYMBOL_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -19
|
|
Font.Name = 'Webdings'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnClick = ForwardBtnClick
|
|
end
|
|
object ReloadBtn: TButton
|
|
Left = 70
|
|
Top = 8
|
|
Width = 25
|
|
Height = 25
|
|
Caption = 'q'
|
|
Font.Charset = SYMBOL_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -19
|
|
Font.Name = 'Webdings'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
OnClick = ReloadBtnClick
|
|
end
|
|
object StopBtn: TButton
|
|
Left = 101
|
|
Top = 8
|
|
Width = 25
|
|
Height = 25
|
|
Caption = '='
|
|
Font.Charset = SYMBOL_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -19
|
|
Font.Name = 'Webdings'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
OnClick = StopBtnClick
|
|
end
|
|
end
|
|
object URLEditPnl: TPanel
|
|
Left = 133
|
|
Top = 0
|
|
Width = 978
|
|
Height = 41
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
Padding.Top = 9
|
|
Padding.Bottom = 8
|
|
ShowCaption = False
|
|
TabOrder = 1
|
|
object URLCbx: TComboBox
|
|
Left = 0
|
|
Top = 9
|
|
Width = 978
|
|
Height = 21
|
|
Align = alClient
|
|
ItemIndex = 0
|
|
TabOrder = 0
|
|
Text = 'https://www.google.com'
|
|
Items.Strings = (
|
|
'https://www.google.com'
|
|
|
|
'https://www.whatismybrowser.com/detect/what-http-headers-is-my-b' +
|
|
'rowser-sending'
|
|
'https://www.w3schools.com/js/tryit.asp?filename=tryjs_win_close'
|
|
'https://www.w3schools.com/js/tryit.asp?filename=tryjs_alert'
|
|
'https://www.w3schools.com/html/html5_video.asp'
|
|
'http://www.adobe.com/software/flash/about/'
|
|
'http://isflashinstalled.com/'
|
|
'http://html5test.com/'
|
|
'https://www.w3schools.com/'
|
|
'http://webglsamples.org/'
|
|
'https://get.webgl.org/'
|
|
'https://www.youtube.com'
|
|
'https://html5demos.com/drag/'
|
|
|
|
'https://developers.google.com/maps/documentation/javascript/exam' +
|
|
'ples/streetview-embed?hl=fr'
|
|
|
|
'https://www.w3schools.com/Tags/tryit.asp?filename=tryhtml_iframe' +
|
|
'_name'
|
|
'https://www.browserleaks.com/webrtc'
|
|
'https://frames-per-second.appspot.com/'
|
|
'chrome://version/'
|
|
'chrome://net-internals/'
|
|
'chrome://tracing/'
|
|
'chrome://appcache-internals/'
|
|
'chrome://blob-internals/'
|
|
'chrome://view-http-cache/'
|
|
'chrome://credits/'
|
|
'chrome://histograms/'
|
|
'chrome://media-internals/'
|
|
'chrome://kill'
|
|
'chrome://crash'
|
|
'chrome://hang'
|
|
'chrome://shorthang'
|
|
'chrome://gpuclean'
|
|
'chrome://gpucrash'
|
|
'chrome://gpuhang')
|
|
end
|
|
end
|
|
object ConfigPnl: TPanel
|
|
Left = 1111
|
|
Top = 0
|
|
Width = 73
|
|
Height = 41
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
object ConfigBtn: TButton
|
|
Left = 40
|
|
Top = 8
|
|
Width = 25
|
|
Height = 25
|
|
Caption = #8801
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -17
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
OnClick = ConfigBtnClick
|
|
end
|
|
object GoBtn: TButton
|
|
Left = 8
|
|
Top = 8
|
|
Width = 25
|
|
Height = 25
|
|
Caption = #9658
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -17
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnClick = GoBtnClick
|
|
end
|
|
end
|
|
end
|
|
object CEFWindowParent1: TCEFWindowParent
|
|
Left = 0
|
|
Top = 41
|
|
Width = 1179
|
|
Height = 652
|
|
Align = alClient
|
|
TabOrder = 1
|
|
end
|
|
object DevTools: TCEFWindowParent
|
|
Left = 1184
|
|
Top = 41
|
|
Width = 0
|
|
Height = 652
|
|
Align = alRight
|
|
TabOrder = 2
|
|
Visible = False
|
|
end
|
|
object StatusBar1: TStatusBar
|
|
Left = 0
|
|
Top = 693
|
|
Width = 1184
|
|
Height = 19
|
|
Panels = <
|
|
item
|
|
Width = 50
|
|
end>
|
|
end
|
|
object Chromium1: TChromium
|
|
OnTextResultAvailable = Chromium1TextResultAvailable
|
|
OnPdfPrintFinished = Chromium1PdfPrintFinished
|
|
OnPrefsAvailable = Chromium1PrefsAvailable
|
|
OnResolvedHostAvailable = Chromium1ResolvedHostAvailable
|
|
OnLoadingStateChange = Chromium1LoadingStateChange
|
|
OnBeforeContextMenu = Chromium1BeforeContextMenu
|
|
OnContextMenuCommand = Chromium1ContextMenuCommand
|
|
OnPreKeyEvent = Chromium1PreKeyEvent
|
|
OnKeyEvent = Chromium1KeyEvent
|
|
OnAddressChange = Chromium1AddressChange
|
|
OnTitleChange = Chromium1TitleChange
|
|
OnFullScreenModeChange = Chromium1FullScreenModeChange
|
|
OnStatusMessage = Chromium1StatusMessage
|
|
OnBeforeDownload = Chromium1BeforeDownload
|
|
OnDownloadUpdated = Chromium1DownloadUpdated
|
|
OnAfterCreated = Chromium1AfterCreated
|
|
OnResourceResponse = Chromium1ResourceResponse
|
|
Left = 32
|
|
Top = 224
|
|
end
|
|
object PopupMenu1: TPopupMenu
|
|
OnPopup = PopupMenu1Popup
|
|
Left = 32
|
|
Top = 168
|
|
object DevTools1: TMenuItem
|
|
Caption = 'DevTools'
|
|
OnClick = DevTools1Click
|
|
end
|
|
object N4: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Openfile1: TMenuItem
|
|
Caption = 'Open file...'
|
|
OnClick = Openfile1Click
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Print1: TMenuItem
|
|
Caption = 'Print'
|
|
OnClick = Print1Click
|
|
end
|
|
object PrintinPDF1: TMenuItem
|
|
Caption = 'Print to PDF'
|
|
OnClick = PrintinPDF1Click
|
|
end
|
|
object N3: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Zoom1: TMenuItem
|
|
Caption = 'Zoom'
|
|
object Inczoom1: TMenuItem
|
|
Caption = 'Inc zoom'
|
|
OnClick = Inczoom1Click
|
|
end
|
|
object Deczoom1: TMenuItem
|
|
Caption = 'Dec zoom'
|
|
OnClick = Deczoom1Click
|
|
end
|
|
object Resetzoom1: TMenuItem
|
|
Caption = 'Reset zoom'
|
|
OnClick = Resetzoom1Click
|
|
end
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Preferences1: TMenuItem
|
|
Caption = 'Preferences...'
|
|
OnClick = Preferences1Click
|
|
end
|
|
object Resolvehost1: TMenuItem
|
|
Caption = 'Resolve host...'
|
|
OnClick = Resolvehost1Click
|
|
end
|
|
end
|
|
object SaveDialog1: TSaveDialog
|
|
Left = 32
|
|
Top = 112
|
|
end
|
|
object ApplicationEvents1: TApplicationEvents
|
|
OnMessage = ApplicationEvents1Message
|
|
Left = 32
|
|
Top = 56
|
|
end
|
|
object OpenDialog1: TOpenDialog
|
|
Filter =
|
|
'HTML files|*.htm;*.html|Text files|*.txt|PDF files|*.pdf|Image f' +
|
|
'iles|*.jpg;*.jpeg;*.png;*.bmp;*.gif'
|
|
Left = 32
|
|
Top = 280
|
|
end
|
|
object Timer1: TTimer
|
|
Enabled = False
|
|
Interval = 300
|
|
OnTimer = Timer1Timer
|
|
Left = 32
|
|
Top = 344
|
|
end
|
|
end
|