pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-10-30 23:07:52 +02:00
Code Issues Actions 1 Releases Activity

Update to CEF 3.3071.1647.gc8067b3

Browse Source
This commit is contained in:
Salvador Diaz Fau
2017-07-12 17:00:34 +02:00
parent 37b6ef8a04
commit 9959b4b1e8
9 changed files with 155 additions and 191 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
README.md
View File

@@ -1,14 +1,14 @@
# CEF4Delphi
# CEF4Delphi
CEF4Delphi is an open source project created by Salvador Díaz Fau to embed Chromium-based browsers in applications made with Delphi.
CEF4Delphi is based on DCEF3, made by Henri Gourvest. The original license of DCEF3 still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file.
CEF4Delphi uses CEF 3.3071.1645.gf54b5cd which includes Chromium 59.0.3071.109.
CEF4Delphi uses CEF 3.3071.1647.gc8067b3 which includes Chromium 59.0.3071.109.
The CEF3 binaries used by CEF4Delphi are available for download at spotify :
32bit -> http://opensource.spotify.com/cefbuilds/cef_binary_3.3071.1645.gf54b5cd_windows32.tar.bz2
32bit -> http://opensource.spotify.com/cefbuilds/cef_binary_3.3071.1647.gc8067b3_windows32.tar.bz2
64bit -> http://opensource.spotify.com/cefbuilds/cef_binary_3.3071.1645.gf54b5cd_windows64.tar.bz2
64bit -> http://opensource.spotify.com/cefbuilds/cef_binary_3.3071.1647.gc8067b3_windows64.tar.bz2
CEF4Delphi was developed and tested on Delphi 10 Seattle and it has been tested in Delphi 7, Delphi XE and Delphi 10.2.

137
demos/SimpleOSRBrowser/SimpleOSRBrowser.dsk
View File

@@ -1,6 +1,6 @@
[Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,338,30,360,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas',0,1,102,58,305,0,0,,
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas',0,1,260,54,289,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,338,30,360,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,10,21,38,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFMiscFunctions.pas',0,1,34,23,38,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumWindow.pas',0,1,35,24,60,0,0,,
@@ -45,15 +45,16 @@ BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000551500000000000001D00700000000000001000000004312000009000000446F636B536974653201000000009D1D000009000000446F636B5369746534FFFFFFFF
RightPanelClients=DockSite2
RightPanelData=00000800010100000000551500000000000001D00700000000000001000000009D1D000009000000446F636B5369746532FFFFFFFF
BottomPanelSize=1475
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020100000009000000446F636B53697465313B3600000000000002C30500000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockLeftClients=DockSite3=0,PropertyInspector=1
TabDockRightClients=DockSite4=0
[View0]
CustomEditViewType=TWelcomePageView
@@ -62,8 +63,8 @@ WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\SimpleOSRBrowser.dpr
CursorX=10
CursorY=46
CursorX=2
CursorY=68
TopLine=28
LeftCol=1
Elisions=
@@ -84,11 +85,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1121
Height=964
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1121
ClientHeight=964
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@@ -132,11 +133,11 @@ State=0
Left=0
Top=0
Width=2000
Height=4226
Height=7276
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4226
ClientHeight=7276
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@@ -169,12 +170,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=2747
Width=1875
Height=6693
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=2747
ClientWidth=1875
ClientHeight=6693
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@@ -224,8 +225,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-148
Top=-137
Left=-8
Top=-30
Width=1844
Height=3139
MaxLeft=-1
@@ -281,14 +282,14 @@ Create=1
Visible=0
Docked=1
State=0
Left=0
Top=362
Left=78
Top=386
Width=1898
Height=5370
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=5370
ClientWidth=1773
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
@@ -304,11 +305,11 @@ State=0
Left=0
Top=0
Width=2000
Height=6861
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6861
ClientHeight=6816
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@@ -320,8 +321,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-898
Top=-137
Left=-946
Top=1
Width=2844
Height=6200
MaxLeft=-1
@@ -339,8 +340,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1026
Top=-137
Left=-8
Top=287
Width=273
Height=359
MaxLeft=-1
@@ -364,11 +365,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1121
Height=964
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1121
ClientHeight=964
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@@ -383,11 +384,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1121
Height=964
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1121
ClientHeight=964
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@@ -406,11 +407,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1121
Height=964
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1121
ClientHeight=964
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@@ -425,11 +426,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1121
Height=964
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1121
ClientHeight=964
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@@ -444,11 +445,11 @@ State=0
Left=0
Top=0
Width=2336
Height=1177
Height=942
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1177
ClientHeight=942
TBDockHeight=2321
LRDockWidth=2820
Dockable=1
@@ -509,11 +510,11 @@ State=0
Left=0
Top=0
Width=2000
Height=6861
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6861
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@@ -525,8 +526,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=0
Top=0
Left=249
Top=709
Width=2859
Height=3206
MaxLeft=-1
@@ -547,11 +548,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1121
Height=964
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1121
ClientHeight=964
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@@ -572,12 +573,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1898
Height=9170
Width=1773
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=9170
ClientWidth=1773
ClientHeight=6738
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@@ -592,11 +593,11 @@ State=0
Left=0
Top=0
Width=2000
Height=6861
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6861
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@@ -657,14 +658,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=0
Top=23
Width=3820
Height=1424
Height=1267
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1424
TBDockHeight=1424
ClientHeight=1267
TBDockHeight=1267
LRDockWidth=3820
Dockable=1
StayOnTop=0
@@ -683,12 +684,12 @@ State=0
Left=0
Top=23
Width=2000
Height=4529
Height=7578
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4529
TBDockHeight=7164
ClientHeight=7578
TBDockHeight=7119
LRDockWidth=2000
Dockable=1
StayOnTop=0
@@ -705,13 +706,13 @@ Visible=0
Docked=1
State=0
Left=0
Top=23
Top=0
Width=1898
Height=9170
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=9170
ClientWidth=1773
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
@@ -721,22 +722,22 @@ ActiveTabID=StructureView
TabDockClients=StructureView,ClassBrowserTool
[DockSite4]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=454
Top=0
Width=2000
Height=2747
Height=7119
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=2747
TBDockHeight=7164
ClientWidth=1875
ClientHeight=6693
TBDockHeight=7119
LRDockWidth=2000
Dockable=1
StayOnTop=0

12
demos/SimpleOSRBrowser/SimpleOSRBrowser.stat
View File

@@ -1,10 +1,10 @@
[Stats]
EditorSecs=3800
DesignerSecs=238
InspectorSecs=62
CompileSecs=295031
OtherSecs=660
EditorSecs=3911
DesignerSecs=253
InspectorSecs=1
CompileSecs=331279
OtherSecs=710
StartTime=22/01/2017 17:35:20
RealKeys=0
EffectiveKeys=0
DebugSecs=1727
DebugSecs=1815

28
demos/SimpleOSRBrowser/uSimpleOSRBrowser.dfm
View File

@@ -2,8 +2,8 @@ object Form1: TForm1
Left = 0
Top = 0
Caption = 'Simple OSR Browser'
ClientHeight = 578
ClientWidth = 677
ClientHeight = 712
ClientWidth = 984
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -11,6 +11,7 @@ object Form1: TForm1
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
OnShow = FormShow
PixelsPerInch = 96
@@ -18,7 +19,7 @@ object Form1: TForm1
object Panel1: TPanel
Left = 0
Top = 0
Width = 677
Width = 984
Height = 30
Align = alTop
BevelOuter = bvNone
@@ -28,19 +29,21 @@ object Form1: TForm1
Padding.Bottom = 5
ShowCaption = False
TabOrder = 0
ExplicitWidth = 677
object Edit1: TEdit
Left = 5
Top = 5
Width = 636
Width = 943
Height = 20
Margins.Right = 5
Align = alClient
TabOrder = 0
Text = 'http://www.google.com'
ExplicitWidth = 636
ExplicitHeight = 21
end
object Button1: TButton
Left = 641
Left = 948
Top = 5
Width = 31
Height = 20
@@ -49,13 +52,14 @@ object Form1: TForm1
Caption = 'Go'
TabOrder = 1
OnClick = Button1Click
ExplicitLeft = 641
end
end
object PaintBox: TPaintBox32
Left = 0
Top = 30
Width = 677
Height = 548
Width = 984
Height = 682
Align = alClient
TabOrder = 1
OnMouseDown = PaintBoxMouseDown
@@ -63,6 +67,8 @@ object Form1: TForm1
OnMouseUp = PaintBoxMouseUp
OnMouseWheel = PaintBoxMouseWheel
OnResize = PaintBoxResize
ExplicitWidth = 677
ExplicitHeight = 548
end
object chrmosr: TChromium
OnGetRootScreenRect = chrmosrGetRootScreenRect
@@ -72,12 +78,12 @@ object Form1: TForm1
OnPopupSize = chrmosrPopupSize
OnPaint = chrmosrPaint
OnCursorChange = chrmosrCursorChange
Left = 304
Top = 304
Left = 24
Top = 56
end
object AppEvents: TApplicationEvents
OnMessage = AppEventsMessage
Left = 504
Top = 240
Left = 24
Top = 128
end
end

139
source/CEF4Delphi.dsk
View File

@@ -1,47 +1,27 @@
[Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFDomDocument.pas',0,1,46,1,1,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,751,18,767,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,2276,92,2313,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,1623,68,1664,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas',0,1,332,1,335,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFLibFunctions.pas',0,1,1,1,1,0,0,,
File_6=TSourceModule,'V:\3071\include\capi\cef_print_handler_capi.h',0,1,96,22,147,0,0,,
File_7=TSourceModule,'V:\3071_2\include\capi\cef_print_handler_capi.h',0,1,40,30,70,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFX509Certificate.pas',0,1,115,17,123,0,0,,
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFLibFunctions.pas',0,1,46,123,95,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,52,44,917,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFMiscFunctions.pas',0,1,952,39,987,0,0,,
File_3=TSourceModule,'V:\3071_2\include\capi\cef_file_util_capi.h',0,1,1,49,38,0,0,,
File_4=TSourceModule,'V:\3071\include\capi\cef_file_util_capi.h',0,1,1,1,1,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFClient.pas',0,1,599,83,622,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFConstants.pas',0,1,253,25,279,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFDomDocument.pas',0,1,46,1,1,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,751,18,767,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,2276,92,2313,0,0,,
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas
Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFClient.pas
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFConstants.pas
Module3=default.htm
Count=4
Module0=default.htm
Count=1
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas]
ModuleType=TSourceModule
FormState=0
FormOnTop=0
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFClient.pas]
ModuleType=TSourceModule
FormState=0
FormOnTop=0
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFConstants.pas]
ModuleType=TSourceModule
FormState=0
FormOnTop=0
[default.htm]
ModuleType=TURLModule
[EditWindow0]
ViewCount=4
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas
ViewCount=1
CurrentView=0
View0=0
View1=1
View2=2
View3=3
PercentageSizes=1
Create=1
Visible=1
@@ -58,56 +38,21 @@ ClientHeight=9428
DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=1898
LeftPanelClients=PropertyInspector,DockSite3
LeftPanelData=00000800010100000000AA19000000000000016A0700000000000001000000005D0E000009000000446F636B53697465330100000000A12300001100000050726F7065727479496E73706563746F72FFFFFFFF
RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000AA1900000000000001D00700000000000001000000004312000009000000446F636B53697465320100000000A123000009000000446F636B5369746534FFFFFFFF
LeftPanelSize=0
RightPanelSize=0
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B36000000000000020F0600000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
[View0]
CustomEditViewType=TWelcomePageView
WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFConstants.pas
CursorX=25
CursorY=279
TopLine=253
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFConstants.pas
[View2]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFClient.pas
CursorX=83
CursorY=622
TopLine=599
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFClient.pas
[View3]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas
CursorX=54
CursorY=64
TopLine=39
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas
[Watches]
Count=0
@@ -170,11 +115,11 @@ State=0
Left=0
Top=0
Width=2000
Height=4226
Height=8845
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4226
ClientHeight=8845
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@@ -187,14 +132,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=23
Width=10000
Height=1345
Top=0
Width=2773
Height=1424
MaxLeft=-1
MaxTop=-1
ClientWidth=10000
ClientHeight=1345
TBDockHeight=1345
ClientWidth=2773
ClientHeight=1424
TBDockHeight=1424
LRDockWidth=2773
Dockable=1
StayOnTop=0
@@ -316,7 +261,7 @@ StayOnTop=0
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
@@ -611,11 +556,11 @@ State=0
Left=0
Top=0
Width=1898
Height=3498
Height=9170
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=3498
ClientHeight=9170
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@@ -711,21 +656,21 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=23
Left=4
Top=24
Width=2000
Height=4529
Height=9148
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4529
ClientHeight=9148
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
@@ -735,21 +680,21 @@ ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm
[DockSite3]
HostDockSite=DockLeftPanel
HostDockSite=LeftDockTabSet
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=23
Width=1898
Height=3498
Height=9170
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=3498
ClientHeight=9170
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
@@ -759,11 +704,11 @@ ActiveTabID=StructureView
TabDockClients=StructureView,ClassBrowserTool
[DockSite4]
HostDockSite=DockRightPanel
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0

6
source/CEF4Delphi.stat
View File

@@ -1,9 +1,9 @@
[Stats]
EditorSecs=112067
EditorSecs=112337
DesignerSecs=97
InspectorSecs=324
CompileSecs=3109318
OtherSecs=11883
CompileSecs=3145294
OtherSecs=12000
StartTime=22/01/2017 10:49:52
RealKeys=0
EffectiveKeys=0

6
source/uCEFApplication.pas
View File

@@ -57,7 +57,7 @@ uses
const
CEF_SUPPORTED_VERSION_MAJOR = 3;
CEF_SUPPORTED_VERSION_MINOR = 3071;
CEF_SUPPORTED_VERSION_RELEASE = 1645;
CEF_SUPPORTED_VERSION_RELEASE = 1647;
CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = 59;
@@ -905,6 +905,7 @@ begin
cef_directory_exists := GetProcAddress(FLibHandle, 'cef_directory_exists');
cef_delete_file := GetProcAddress(FLibHandle, 'cef_delete_file');
cef_zip_directory := GetProcAddress(FLibHandle, 'cef_zip_directory');
cef_load_crlsets_file := GetProcAddress(FLibHandle, 'cef_load_crlsets_file');
Result := assigned(cef_create_directory) and
assigned(cef_get_temp_directory) and
@@ -912,7 +913,8 @@ begin
assigned(cef_create_temp_directory_in_directory) and
assigned(cef_directory_exists) and
assigned(cef_delete_file) and
assigned(cef_zip_directory);
assigned(cef_zip_directory) and
assigned(cef_load_crlsets_file);
end;
function TCefApplication.Load_cef_geolocation_capi_h : boolean;

1
source/uCEFLibFunctions.pas
View File

@@ -92,6 +92,7 @@ var
cef_directory_exists : function(const path : PCefString): Integer; {$IFDEF CPUX64}stdcall{$ELSE}cdecl{$ENDIF};
cef_delete_file : function(const path : PCefString; recursive : integer): Integer; {$IFDEF CPUX64}stdcall{$ELSE}cdecl{$ENDIF};
cef_zip_directory : function(const src_dir, dest_file : PCefString; include_hidden_files : integer): Integer; {$IFDEF CPUX64}stdcall{$ELSE}cdecl{$ENDIF};
cef_load_crlsets_file : procedure(const path : PCefString); {$IFDEF CPUX64}stdcall{$ELSE}cdecl{$ENDIF};
// /include/capi/cef_geolocation_capi.h
cef_get_geolocation : function(callback: PCefGetGeolocationCallback): Integer; {$IFDEF CPUX64}stdcall{$ELSE}cdecl{$ENDIF};

9
source/uCEFMiscFunctions.pas
View File

@@ -163,6 +163,7 @@ function CefCreateTempDirectoryInDirectory(const baseDir, prefix: ustring; out n
function CefDirectoryExists(const path: ustring): Boolean;
function CefDeleteFile(const path: ustring; recursive: Boolean): Boolean;
function CefZipDirectory(const srcDir, destFile: ustring; includeHiddenFiles: Boolean): Boolean;
procedure CefLoadCRLSetsFile(const path : ustring);
implementation
@@ -978,4 +979,12 @@ begin
Result := cef_zip_directory(@src, @dst, Ord(includeHiddenFiles)) <> 0;
end;
procedure CefLoadCRLSetsFile(const path : ustring);
var
TempPath : TCefString;
begin
TempPath := CefString(path);
cef_load_crlsets_file(@TempPath);
end;
end.