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.1634.g9cc59c8

Browse Source
This commit is contained in:
Salvador Diaz Fau
2017-06-06 12:49:27 +02:00
parent 006d33da3a
commit 6851d71bd3
38 changed files with 801 additions and 651 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
demos/FullScreenBrowser/FullScreenBrowser.dpr
View File

@@ -55,7 +55,7 @@ uses
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.FlashEnabled := False; // Some websites with heavy Flash usage will need a longer Timer.Interval if you set this to True
GlobalCEFApp.FlashEnabled := False;
GlobalCEFApp.FastUnload := True; // Enable the fast unload controller, which speeds up tab/window close by running a tab's onunload js handler independently of the GUI
// In case you want to use custom directories for the CEF3 binaries, cache, cookies and user data.

34
demos/FullScreenBrowser/FullScreenBrowser.dproj
View File

@@ -132,27 +132,12 @@
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="DependencyModule">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
@@ -506,12 +491,27 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<DeployClass Name="DependencyModule">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
</DeployClass>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>

12
demos/FullScreenBrowser/FullScreenBrowser.dproj.local
View File

@@ -2,11 +2,11 @@
<BorlandProject>
<Transactions>
<Transaction>2017/05/21 18:54:00.000.243,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/05/21 18:54:33.000.390,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\uMainForm.pas</Transaction>
<Transaction>2017/05/21 18:54:33.000.390,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\uMainForm.dfm</Transaction>
<Transaction>2017/05/21 18:54:43.000.194,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\Project1.dproj</Transaction>
<Transaction>2017/05/21 18:54:50.000.736,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\uMainForm.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\uMainForm.dfm</Transaction>
<Transaction>2017/05/21 18:54:50.000.736,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\uMainForm.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\uMainForm.pas</Transaction>
<Transaction>2017/05/21 19:04:55.000.900,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\Project1.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\FullScreenBrowser.dproj</Transaction>
<Transaction>2017/05/21 18:54:33.000.390,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\uMainForm.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
<Transaction>2017/05/21 18:54:33.000.390,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\uMainForm.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/05/21 18:54:43.000.194,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\Project1.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
<Transaction>2017/05/21 18:54:50.000.736,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\uMainForm.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\uMainForm.pas</Transaction>
<Transaction>2017/05/21 18:54:50.000.736,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\uMainForm.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\uMainForm.dfm</Transaction>
<Transaction>2017/05/21 19:04:55.000.900,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\FullScreenBrowser.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\Project1.dproj</Transaction>
</Transactions>
</BorlandProject>

112
demos/FullScreenBrowser/FullScreenBrowser.dsk
View File

@@ -12,22 +12,22 @@ File_9=TSourceModule,'c:\program files\embarcadero\studio\17.0\source\rtl\common
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\FullScreenBrowser.dproj
Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\uMainForm.pas
Module2=default.htm
Module1=default.htm
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\uMainForm.pas
Count=3
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\FullScreenBrowser.dproj]
ModuleType=TBaseProject
[default.htm]
ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\uMainForm.pas]
ModuleType=TSourceModule
FormState=1
FormOnTop=0
[default.htm]
ModuleType=TURLModule
[EditWindow0]
ViewCount=3
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\FullScreenBrowser.dpr
@@ -51,15 +51,17 @@ DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
RightPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2
RightPanelData=00000800010100000000AA1900000000000001D0070000000000000100000000A123000009000000446F636B5369746532FFFFFFFF
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B36000000000000020F0600000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B36000000000000022B05000000000000FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
TabDockRightClients=DockSite4=0
[View0]
CustomEditViewType=TWelcomePageView
@@ -79,8 +81,8 @@ EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\d
[View2]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\FullScreenBrowser\FullScreenBrowser.dpr
CursorX=4
CursorY=62
CursorX=1
CursorY=58
TopLine=31
LeftCol=1
Elisions=
@@ -101,11 +103,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@@ -148,12 +150,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=8868
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=8868
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@@ -167,13 +169,13 @@ Docked=1
State=0
Left=0
Top=23
Width=10000
Height=1345
Width=2773
Height=1110
MaxLeft=-1
MaxTop=-1
ClientWidth=10000
ClientHeight=1345
TBDockHeight=1345
ClientWidth=2773
ClientHeight=1110
TBDockHeight=1110
LRDockWidth=2773
Dockable=1
StayOnTop=0
@@ -320,12 +322,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@@ -337,8 +339,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1210
Top=-6
Left=-946
Top=1
Width=2844
Height=6200
MaxLeft=-1
@@ -381,11 +383,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@@ -400,11 +402,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@@ -423,11 +425,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@@ -442,11 +444,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@@ -525,12 +527,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@@ -564,11 +566,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@@ -608,12 +610,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@@ -676,12 +678,12 @@ State=0
Left=0
Top=23
Width=3820
Height=1345
Height=1110
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1345
TBDockHeight=1345
ClientHeight=1110
TBDockHeight=1110
LRDockWidth=3820
Dockable=1
StayOnTop=0
@@ -690,21 +692,21 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=RightTabDock
HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=1280
Top=51
Left=0
Top=23
Width=2000
Height=7164
Height=9170
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6738
ClientWidth=2000
ClientHeight=9170
TBDockHeight=7164
LRDockWidth=2000
Dockable=1

2
demos/FullScreenBrowser/FullScreenBrowser.stat
View File

@@ -1,5 +1,5 @@
[Stats]
EditorSecs=1
EditorSecs=24
DesignerSecs=1
InspectorSecs=1
CompileSecs=1

14
demos/MDIBrowser/MDIBrowser.dpr
View File

@@ -60,12 +60,14 @@ begin
GlobalCEFApp.FastUnload := True; // Enable the fast unload controller, which speeds up tab/window close by running a tab's onunload js handler independently of the GUI
// In case you want to use custom directories for the CEF3 binaries, cache, cookies and user data.
//GlobalCEFApp.FrameworkDirPath := 'cef';
//GlobalCEFApp.ResourcesDirPath := 'cef';
//GlobalCEFApp.LocalesDirPath := 'cef\locales';
//GlobalCEFApp.cache := 'cef\cache';
//GlobalCEFApp.cookies := 'cef\cookies';
//GlobalCEFApp.UserDataPath := 'cef\User Data';
{
GlobalCEFApp.FrameworkDirPath := 'cef';
GlobalCEFApp.ResourcesDirPath := 'cef';
GlobalCEFApp.LocalesDirPath := 'cef\locales';
GlobalCEFApp.cache := 'cef\cache';
GlobalCEFApp.cookies := 'cef\cookies';
GlobalCEFApp.UserDataPath := 'cef\User Data';
}
if GlobalCEFApp.StartMainProcess then
begin

34
demos/MDIBrowser/MDIBrowser.dproj
View File

@@ -157,12 +157,27 @@
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<DeployClass Name="DependencyModule">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
@@ -516,27 +531,12 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
</DeployClass>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>

94
demos/MDIBrowser/MDIBrowser.dsk
View File

@@ -44,15 +44,17 @@ DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
RightPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2
RightPanelData=00000800010100000000AA1900000000000001D0070000000000000100000000A123000009000000446F636B5369746532FFFFFFFF
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B36000000000000020F0600000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B36000000000000022B05000000000000FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
TabDockRightClients=DockSite4=0
[View0]
CustomEditViewType=TWelcomePageView
@@ -62,7 +64,7 @@ WelcomePageURL=bds:/default.htm
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MDIBrowser\MDIBrowser.dpr
CursorX=1
CursorY=62
CursorY=64
TopLine=22
LeftCol=1
Elisions=
@@ -83,11 +85,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@@ -131,11 +133,11 @@ State=0
Left=0
Top=0
Width=2000
Height=8845
Height=8868
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=8845
ClientHeight=8868
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@@ -149,13 +151,13 @@ Docked=1
State=0
Left=0
Top=23
Width=10000
Height=1345
Width=2773
Height=1110
MaxLeft=-1
MaxTop=-1
ClientWidth=10000
ClientHeight=1345
TBDockHeight=1345
ClientWidth=2773
ClientHeight=1110
TBDockHeight=1110
LRDockWidth=2773
Dockable=1
StayOnTop=0
@@ -302,12 +304,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@@ -319,8 +321,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1210
Top=-6
Left=-946
Top=1
Width=2844
Height=6200
MaxLeft=-1
@@ -363,11 +365,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@@ -382,11 +384,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@@ -405,11 +407,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@@ -424,11 +426,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@@ -507,12 +509,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@@ -546,11 +548,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@@ -590,12 +592,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@@ -658,12 +660,12 @@ State=0
Left=0
Top=23
Width=3820
Height=1345
Height=1110
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1345
TBDockHeight=1345
ClientHeight=1110
TBDockHeight=1110
LRDockWidth=3820
Dockable=1
StayOnTop=0
@@ -672,21 +674,21 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=RightTabDock
HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=4
Top=24
Left=0
Top=23
Width=2000
Height=9148
Height=9170
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=9148
ClientHeight=9170
TBDockHeight=7164
LRDockWidth=2000
Dockable=1

2
demos/MDIBrowser/MDIBrowser.stat
View File

@@ -1,5 +1,5 @@
[Stats]
EditorSecs=3798
EditorSecs=3817
DesignerSecs=8
InspectorSecs=1
CompileSecs=95678

34
demos/MiniBrowser/MiniBrowser.dproj
View File

@@ -138,12 +138,27 @@
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<DeployClass Name="DependencyModule">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
@@ -497,27 +512,12 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
</DeployClass>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>

158
demos/MiniBrowser/MiniBrowser.dsk
View File

@@ -1,39 +1,27 @@
[Closed Files]
File_0=TSourceModule,'c:\program files\embarcadero\studio\17.0\source\rtl\win\Winapi.Windows.pas',0,1,22517,1,22546,0,0,,
File_1=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\VCL\Vcl.Forms.pas',0,1,4931,72,4962,0,0,{{1729,4}
File_2=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\VCL\Vcl.Controls.pas',0,1,9646,1,9668,0,0,,
File_3=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\VCL\Vcl.ComCtrls.pas',0,1,7510,1,7532,0,0,{{17105,0}
File_4=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\RTL\SYS\System.SysUtils.pas',0,1,24591,1,24613,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,226,40,238,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFMiscFunctions.pas',0,1,447,3,472,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uHelloScheme.pas',0,1,90,77,136,0,0,,
File_8=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\RTL\SYS\System.pas',0,1,29880,1,29902,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFConstants.pas',0,1,169,1,38,0,0,,
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas',0,1,28,92,53,0,0,,{1,361,40}{2,212,1}{3,185,76}
File_1=TSourceModule,'c:\program files\embarcadero\studio\17.0\source\rtl\win\Winapi.Windows.pas',0,1,22517,1,22546,0,0,,
File_2=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\VCL\Vcl.Forms.pas',0,1,4931,72,4962,0,0,{{1729,4}
File_3=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\VCL\Vcl.Controls.pas',0,1,9646,1,9668,0,0,,
File_4=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\VCL\Vcl.ComCtrls.pas',0,1,7510,1,7532,0,0,{{17105,0}
File_5=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\RTL\SYS\System.SysUtils.pas',0,1,24591,1,24613,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,226,40,238,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFMiscFunctions.pas',0,1,447,3,472,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uHelloScheme.pas',0,1,90,77,136,0,0,,
File_9=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\RTL\SYS\System.pas',0,1,29880,1,29902,0,0,,
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dproj
Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas
Module2=default.htm
Count=3
Module0=default.htm
Count=1
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dproj]
ModuleType=TBaseProject
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas]
ModuleType=TSourceModule
FormState=1
FormOnTop=1
[default.htm]
ModuleType=TURLModule
[EditWindow0]
ViewCount=3
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dpr
ViewCount=1
CurrentView=0
View0=0
View1=1
View2=2
PercentageSizes=1
Create=1
Visible=1
@@ -51,42 +39,22 @@ DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
RightPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2
RightPanelData=00000800010100000000AA1900000000000001D0070000000000000100000000A123000009000000446F636B5369746532FFFFFFFF
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B36000000000000022B05000000000000FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
TabDockRightClients=DockSite4=0
[View0]
CustomEditViewType=TWelcomePageView
WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dpr
CursorX=2
CursorY=125
TopLine=84
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dpr
[View2]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas
CursorX=92
CursorY=53
TopLine=28
LeftCol=1
Elisions=
Bookmarks={1,361,40}{2,212,1}{3,185,76}
EditViewName=Borland.FormDesignerView
[Watches]
Count=0
@@ -101,11 +69,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1121
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1121
ClientHeight=807
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@@ -148,12 +116,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=8868
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=8868
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@@ -166,14 +134,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=0
Top=23
Width=2773
Height=1424
Height=1110
MaxLeft=-1
MaxTop=-1
ClientWidth=2773
ClientHeight=1424
TBDockHeight=1424
ClientHeight=1110
TBDockHeight=1110
LRDockWidth=2773
Dockable=1
StayOnTop=0
@@ -320,12 +288,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@@ -337,8 +305,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1210
Top=-6
Left=-946
Top=1
Width=2844
Height=6200
MaxLeft=-1
@@ -381,11 +349,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1121
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1121
ClientHeight=807
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@@ -400,11 +368,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1121
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1121
ClientHeight=807
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@@ -423,11 +391,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1121
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1121
ClientHeight=807
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@@ -442,11 +410,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1121
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1121
ClientHeight=807
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@@ -525,12 +493,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@@ -564,11 +532,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1121
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1121
ClientHeight=807
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@@ -608,12 +576,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@@ -676,12 +644,12 @@ State=0
Left=0
Top=23
Width=3820
Height=1424
Height=1110
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1424
TBDockHeight=1424
ClientHeight=1110
TBDockHeight=1110
LRDockWidth=3820
Dockable=1
StayOnTop=0
@@ -690,21 +658,21 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=RightTabDock
HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=1280
Top=51
Left=0
Top=23
Width=2000
Height=7164
Height=9170
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6738
ClientWidth=2000
ClientHeight=9170
TBDockHeight=7164
LRDockWidth=2000
Dockable=1

BIN
demos/MiniBrowser/MiniBrowser.identcache
View File

Binary file not shown.

10
demos/MiniBrowser/MiniBrowser.stat
View File

@@ -1,10 +1,10 @@
[Stats]
EditorSecs=33900
DesignerSecs=2110
EditorSecs=33989
DesignerSecs=2113
InspectorSecs=1461
CompileSecs=1715746
OtherSecs=5466
CompileSecs=1754135
OtherSecs=5520
StartTime=11/02/2017 10:51:15
RealKeys=0
EffectiveKeys=0
DebugSecs=23858
DebugSecs=25135

1
demos/SimpleBrowser/SimpleBrowser.dpr
View File

@@ -46,7 +46,6 @@ uses
Forms,
{$ENDIF}
uCEFApplication,
uCEFMiscFunctions,
uSimpleBrowser in 'uSimpleBrowser.pas' {Form1};
{$R *.res}

153
demos/SimpleBrowser/SimpleBrowser.dsk
View File

@@ -1,38 +1,27 @@
[Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,444,65,457,0,0,,{1
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,180,12,209,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFMiscFunctions.pas',0,1,36,25,69,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,2074,1,2095,0,0,,{1
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFClient.pas',0,1,475,75,86,0,0,,
File_5=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\VCL\Vcl.Controls.pas',0,1,10059,1,10081,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumWindow.pas',0,1,29,24,60,0,0,,
File_7=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\VCL\Vcl.Forms.pas',0,1,4433,1,4455,0,0,{{1729,4}
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFLifeSpanHandler.pas',0,1,99,1,121,0,0,,
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\uSimpleBrowser.pas',0,1,72,1,85,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,444,65,457,0,0,,{1
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,180,12,209,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFMiscFunctions.pas',0,1,36,25,69,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,2074,1,2095,0,0,,{1
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFClient.pas',0,1,475,75,86,0,0,,
File_6=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\VCL\Vcl.Controls.pas',0,1,10059,1,10081,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumWindow.pas',0,1,29,24,60,0,0,,
File_8=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\VCL\Vcl.Forms.pas',0,1,4433,1,4455,0,0,{{1729,4}
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFLifeSpanHandler.pas',0,1,99,1,121,0,0,,
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\SimpleBrowser.dproj
Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\uSimpleBrowser.pas
Module2=default.htm
Count=3
Module0=default.htm
Count=1
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\SimpleBrowser.dproj]
ModuleType=TBaseProject
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\uSimpleBrowser.pas]
ModuleType=TSourceModule
FormState=1
FormOnTop=1
[default.htm]
ModuleType=TURLModule
[EditWindow0]
ViewCount=3
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\SimpleBrowser.dpr
ViewCount=1
CurrentView=0
View0=0
View1=1
View2=2
PercentageSizes=1
Create=1
Visible=1
@@ -50,42 +39,22 @@ DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
RightPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2
RightPanelData=00000800010100000000AA1900000000000001D0070000000000000100000000A123000009000000446F636B5369746532FFFFFFFF
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B36000000000000020F0600000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B36000000000000022B05000000000000FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
TabDockRightClients=DockSite4=0
[View0]
CustomEditViewType=TWelcomePageView
WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\SimpleBrowser.dpr
CursorX=2
CursorY=68
TopLine=37
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\SimpleBrowser.dpr
[View2]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\uSimpleBrowser.pas
CursorX=1
CursorY=85
TopLine=72
LeftCol=1
Elisions=
Bookmarks=
EditViewName=Borland.FormDesignerView
[Watches]
Count=0
@@ -100,11 +69,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@@ -148,11 +117,11 @@ State=0
Left=0
Top=0
Width=2000
Height=8845
Height=8868
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=8845
ClientHeight=8868
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@@ -166,13 +135,13 @@ Docked=1
State=0
Left=0
Top=23
Width=10000
Height=1345
Width=2773
Height=1110
MaxLeft=-1
MaxTop=-1
ClientWidth=10000
ClientHeight=1345
TBDockHeight=1345
ClientWidth=2773
ClientHeight=1110
TBDockHeight=1110
LRDockWidth=2773
Dockable=1
StayOnTop=0
@@ -319,12 +288,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@@ -336,8 +305,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1210
Top=-6
Left=-946
Top=1
Width=2844
Height=6200
MaxLeft=-1
@@ -380,11 +349,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@@ -399,11 +368,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@@ -422,11 +391,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@@ -441,11 +410,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@@ -524,12 +493,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@@ -563,11 +532,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@@ -607,12 +576,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@@ -675,12 +644,12 @@ State=0
Left=0
Top=23
Width=3820
Height=1345
Height=1110
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1345
TBDockHeight=1345
ClientHeight=1110
TBDockHeight=1110
LRDockWidth=3820
Dockable=1
StayOnTop=0
@@ -689,21 +658,21 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=RightTabDock
HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=4
Top=24
Left=0
Top=23
Width=2000
Height=9148
Height=9170
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=9148
ClientHeight=9170
TBDockHeight=7164
LRDockWidth=2000
Dockable=1

10
demos/SimpleBrowser/SimpleBrowser.stat
View File

@@ -1,10 +1,10 @@
[Stats]
EditorSecs=4409
DesignerSecs=299
EditorSecs=4394
DesignerSecs=301
InspectorSecs=137
CompileSecs=242272
OtherSecs=808
CompileSecs=250114
OtherSecs=829
StartTime=22/01/2017 14:51:01
RealKeys=0
EffectiveKeys=0
DebugSecs=1897
DebugSecs=1926

34
demos/SimpleOSRBrowser/SimpleOSRBrowser.dproj
View File

@@ -133,12 +133,27 @@
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<DeployClass Name="DependencyModule">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
@@ -492,27 +507,12 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
</DeployClass>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>

6
demos/SimpleOSRBrowser/SimpleOSRBrowser.dproj.local
View File

@@ -2,8 +2,8 @@
<BorlandProject>
<Transactions>
<Transaction>2017/01/22 17:26:58.000.836,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/01/22 17:28:20.000.762,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas</Transaction>
<Transaction>2017/01/22 17:28:20.000.762,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleOSRBrowser\uSimpleOSRBrowser.dfm</Transaction>
<Transaction>2017/01/22 17:28:25.000.780,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleOSRBrowser\SimpleOSRBrowser.dproj</Transaction>
<Transaction>2017/01/22 17:28:20.000.762,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/01/22 17:28:20.000.762,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleOSRBrowser\uSimpleOSRBrowser.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
<Transaction>2017/01/22 17:28:25.000.780,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleOSRBrowser\SimpleOSRBrowser.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
</Transactions>
</BorlandProject>

142
demos/SimpleOSRBrowser/SimpleOSRBrowser.dsk
View File

@@ -1,32 +1,27 @@
[Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas',0,1,73,32,111,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumWindow.pas',0,1,35,24,60,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,219,63,249,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas',0,1,416,36,438,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,2793,79,2819,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas',0,1,208,111,219,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\uSimpleBrowser.pas',0,1,71,13,84,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\BriskBard\uBriskBardMainForm.pas',0,1,50,11,57,0,0,,
File_8=TSourceModule,'C:\Program Files\Embarcadero\Studio\17.0\Graphics32\GR32_Image.pas',0,1,1,35,23,0,0,,
File_9=TSourceModule,'C:\Program Files\Embarcadero\Studio\17.0\Graphics32\Readme.txt',0,1,1,63,6,0,0,,
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas',0,1,270,58,305,0,0,,{1
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,10,21,38,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFMiscFunctions.pas',0,1,34,23,38,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumWindow.pas',0,1,35,24,60,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,219,63,249,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas',0,1,416,36,438,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,2793,79,2819,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas',0,1,208,111,219,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\uSimpleBrowser.pas',0,1,71,13,84,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\BriskBard\uBriskBardMainForm.pas',0,1,50,11,57,0,0,,
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\SimpleOSRBrowser.dproj
Module1=default.htm
Count=2
Module0=default.htm
Count=1
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\SimpleOSRBrowser.dproj]
ModuleType=TBaseProject
[default.htm]
ModuleType=TURLModule
[EditWindow0]
ViewCount=2
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\SimpleOSRBrowser.dpr
ViewCount=1
CurrentView=0
View0=0
View1=1
PercentageSizes=1
Create=1
Visible=1
@@ -44,31 +39,22 @@ DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
RightPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2
RightPanelData=00000800010100000000AA1900000000000001D0070000000000000100000000A123000009000000446F636B5369746532FFFFFFFF
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B36000000000000020F0600000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B36000000000000022B05000000000000FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
TabDockRightClients=DockSite4=0
[View0]
CustomEditViewType=TWelcomePageView
WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\SimpleOSRBrowser.dpr
CursorX=2
CursorY=68
TopLine=28
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\SimpleOSRBrowser.dpr
[Watches]
Count=0
@@ -83,11 +69,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@@ -130,12 +116,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=8868
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=8868
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@@ -149,13 +135,13 @@ Docked=1
State=0
Left=0
Top=23
Width=10000
Height=1345
Width=2773
Height=1110
MaxLeft=-1
MaxTop=-1
ClientWidth=10000
ClientHeight=1345
TBDockHeight=1345
ClientWidth=2773
ClientHeight=1110
TBDockHeight=1110
LRDockWidth=2773
Dockable=1
StayOnTop=0
@@ -302,12 +288,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@@ -319,8 +305,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1210
Top=-6
Left=-946
Top=1
Width=2844
Height=6200
MaxLeft=-1
@@ -363,11 +349,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@@ -382,11 +368,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@@ -405,11 +391,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@@ -424,11 +410,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@@ -507,12 +493,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@@ -546,11 +532,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@@ -590,12 +576,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@@ -658,12 +644,12 @@ State=0
Left=0
Top=23
Width=3820
Height=1345
Height=1110
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1345
TBDockHeight=1345
ClientHeight=1110
TBDockHeight=1110
LRDockWidth=3820
Dockable=1
StayOnTop=0
@@ -672,21 +658,21 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=RightTabDock
HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=1280
Top=51
Left=0
Top=23
Width=2000
Height=7164
Height=9170
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6738
ClientWidth=2000
ClientHeight=9170
TBDockHeight=7164
LRDockWidth=2000
Dockable=1

10
demos/SimpleOSRBrowser/SimpleOSRBrowser.stat
View File

@@ -1,10 +1,10 @@
[Stats]
EditorSecs=3255
DesignerSecs=231
EditorSecs=3724
DesignerSecs=236
InspectorSecs=62
CompileSecs=191553
OtherSecs=499
CompileSecs=248230
OtherSecs=589
StartTime=22/01/2017 17:35:20
RealKeys=0
EffectiveKeys=0
DebugSecs=771
DebugSecs=993

4
demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
View File

@@ -110,6 +110,9 @@ implementation
{$R *.dfm}
uses
uCEFMiscFunctions;
procedure TForm1.AppEventsMessage(var Msg: tagMSG; var Handled: Boolean);
var
event: TCefKeyEvent;
@@ -296,6 +299,7 @@ end;
procedure TForm1.FormShow(Sender: TObject);
begin
chrmosr.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF); // opaque white background color
chrmosr.CreateBrowser(nil, '');
end;

92
demos/ToolBoxBrowser/ToolBoxBrowser.dsk
View File

@@ -58,15 +58,17 @@ DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
RightPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2
RightPanelData=00000800010100000000AA1900000000000001D0070000000000000100000000A123000009000000446F636B5369746532FFFFFFFF
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B36000000000000020F0600000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B36000000000000022B05000000000000FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
TabDockRightClients=DockSite4=0
[View0]
CustomEditViewType=TWelcomePageView
@@ -119,11 +121,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@@ -167,11 +169,11 @@ State=0
Left=0
Top=0
Width=2000
Height=8845
Height=8868
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=8845
ClientHeight=8868
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@@ -185,13 +187,13 @@ Docked=1
State=0
Left=0
Top=23
Width=10000
Height=1345
Width=2773
Height=1110
MaxLeft=-1
MaxTop=-1
ClientWidth=10000
ClientHeight=1345
TBDockHeight=1345
ClientWidth=2773
ClientHeight=1110
TBDockHeight=1110
LRDockWidth=2773
Dockable=1
StayOnTop=0
@@ -338,12 +340,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@@ -355,8 +357,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1210
Top=-6
Left=-946
Top=1
Width=2844
Height=6200
MaxLeft=-1
@@ -399,11 +401,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@@ -418,11 +420,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@@ -441,11 +443,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@@ -460,11 +462,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@@ -543,12 +545,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@@ -582,11 +584,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1043
Height=807
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1043
ClientHeight=807
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@@ -626,12 +628,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6435
Width=2000
Height=6816
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6435
ClientWidth=2000
ClientHeight=6816
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@@ -694,12 +696,12 @@ State=0
Left=0
Top=23
Width=3820
Height=1345
Height=1110
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1345
TBDockHeight=1345
ClientHeight=1110
TBDockHeight=1110
LRDockWidth=3820
Dockable=1
StayOnTop=0
@@ -708,21 +710,21 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=RightTabDock
HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=4
Top=24
Left=0
Top=23
Width=2000
Height=9148
Height=9170
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=9148
ClientHeight=9170
TBDockHeight=7164
LRDockWidth=2000
Dockable=1

3
source/CEF4Delphi.dpk
View File

@@ -150,6 +150,7 @@ contains
uCEFSelectClientCertificateCallback in 'uCEFSelectClientCertificateCallback.pas',
uCEFChromiumWindow in 'uCEFChromiumWindow.pas',
uCEFBaseRefCounted in 'uCEFBaseRefCounted.pas',
uCEFBaseScopedWrapper in 'uCEFBaseScopedWrapper.pas';
uCEFBaseScopedWrapper in 'uCEFBaseScopedWrapper.pas',
uCEFAccessibilityHandler in 'uCEFAccessibilityHandler.pas';
end.

1
source/CEF4Delphi.dproj
View File

@@ -209,6 +209,7 @@
<DCCReference Include="uCEFChromiumWindow.pas"/>
<DCCReference Include="uCEFBaseRefCounted.pas"/>
<DCCReference Include="uCEFBaseScopedWrapper.pas"/>
<DCCReference Include="uCEFAccessibilityHandler.pas"/>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

2
source/CEF4Delphi.dproj.local
View File

@@ -283,5 +283,7 @@
<Transaction>2017/05/21 15:34:16.000.487,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumTool.dfm</Transaction>
<Transaction>2017/05/21 15:34:16.000.487,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumTool.pas</Transaction>
<Transaction>2017/05/21 15:36:08.000.019,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumTool.pas=</Transaction>
<Transaction>2017/06/05 17:09:35.000.867,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\Unit1.pas</Transaction>
<Transaction>2017/06/05 17:10:51.000.565,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFAccessibilityHandler.pas</Transaction>
</Transactions>
</BorlandProject>

186
source/CEF4Delphi.dsk
View File

@@ -1,34 +1,27 @@
[Closed Files]
File_0=TSourceModule,'c:\program files\embarcadero\studio\17.0\source\rtl\win\Winapi.Windows.pas',0,1,3975,26,4004,0,0,,
File_1=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\RTL\SYS\System.Types.pas',0,1,219,1,179,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumTool.pas',0,1,1,1,1,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFDisplayHandler.pas',0,1,85,35,133,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas',0,1,1,1,1,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFMiscFunctions.pas',0,1,860,1,1,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFWindowParent.pas',0,1,95,1,115,0,0,,
File_7=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\VCL\Vcl.Controls.pas',0,1,2512,24,2540,0,0,,
File_8=TSourceModule,'c:\program files\embarcadero\studio\17.0\source\rtl\common\System.Classes.pas',0,1,126,3,155,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,42,71,74,0,0,,
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,2152,106,2175,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFRenderHandler.pas',0,1,90,95,113,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFLibFunctions.pas',0,1,232,1,1,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas',0,1,300,78,327,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,150,58,178,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,1254,3,1283,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFAccessibilityHandler.pas',0,1,70,47,85,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumEvents.pas',0,1,82,3,111,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFValue.pas',0,1,179,3,208,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFDragData.pas',0,1,42,79,118,0,0,,
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas
Module1=default.htm
Count=2
Module0=default.htm
Count=1
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas]
ModuleType=TSourceModule
FormState=0
FormOnTop=0
[default.htm]
ModuleType=TURLModule
[EditWindow0]
ViewCount=2
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas
ViewCount=1
CurrentView=0
View0=0
View1=1
PercentageSizes=1
Create=1
Visible=1
@@ -46,31 +39,22 @@ DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
RightPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2
RightPanelData=00000800010100000000AA1900000000000001D0070000000000000100000000A123000009000000446F636B5369746532FFFFFFFF
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B3600000000000002770500000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0,DockSite2=1
TabDockRightClients=DockSite4=0
[View0]
CustomEditViewType=TWelcomePageView
WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas
CursorX=101
CursorY=861
TopLine=834
LeftCol=1
Elisions=
Bookmarks={1,866,39}
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas
[Watches]
Count=0
@@ -85,11 +69,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
@@ -133,11 +117,11 @@ State=0
Left=0
Top=0
Width=2000
Height=8845
Height=8868
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=8845
ClientHeight=8868
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@@ -150,14 +134,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=0
Width=2773
Height=1424
Top=23
Width=10000
Height=1188
MaxLeft=-1
MaxTop=-1
ClientWidth=2773
ClientHeight=1424
TBDockHeight=1424
ClientWidth=10000
ClientHeight=1188
TBDockHeight=1188
LRDockWidth=2773
Dockable=1
StayOnTop=0
@@ -170,12 +154,12 @@ Docked=1
State=0
Left=0
Top=0
Width=2000
Height=4339
Width=1875
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4339
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@@ -225,8 +209,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-148
Top=-137
Left=-8
Top=-30
Width=1844
Height=3139
MaxLeft=-1
@@ -282,14 +266,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
ClientHeight=7164
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
@@ -305,11 +289,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
@@ -321,8 +305,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-898
Top=-137
Left=-946
Top=1
Width=2844
Height=6200
MaxLeft=-1
@@ -340,8 +324,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1026
Top=-137
Left=-8
Top=287
Width=273
Height=359
MaxLeft=-1
@@ -365,11 +349,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
@@ -384,11 +368,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
@@ -407,11 +391,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
@@ -426,11 +410,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
@@ -445,11 +429,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
@@ -510,11 +494,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
@@ -526,8 +510,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=0
Top=0
Left=249
Top=709
Width=2859
Height=3206
MaxLeft=-1
@@ -548,11 +532,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
@@ -573,12 +557,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
@@ -593,11 +577,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
@@ -658,14 +642,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
@@ -674,21 +658,21 @@ ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=RightTabDock
HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=4
Top=24
Left=0
Top=23
Width=2000
Height=9148
Height=9170
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=9148
ClientHeight=9170
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
@@ -706,13 +690,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
@@ -730,13 +714,13 @@ Visible=0
Docked=1
State=0
Left=0
Top=454
Top=0
Width=2000
Height=4339
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4339
ClientWidth=1875
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=2000
Dockable=1

BIN
source/CEF4Delphi.identcache
View File

Binary file not shown.

6
source/CEF4Delphi.stat
View File

@@ -1,9 +1,9 @@
[Stats]
EditorSecs=80382
EditorSecs=89623
DesignerSecs=97
InspectorSecs=323
CompileSecs=2247677
OtherSecs=8513
CompileSecs=2335332
OtherSecs=9189
StartTime=22/01/2017 10:49:52
RealKeys=0
EffectiveKeys=0

138
source/uCEFAccessibilityHandler.pas Normal file
View File

@@ -0,0 +1,138 @@
// ************************************************************************
// ***************************** CEF4Delphi *******************************
// ************************************************************************
//
// CEF4Delphi is based on DCEF3 which uses CEF3 to embed a chromium-based
// browser in Delphi applications.
//
// The original license of DCEF3 still applies to CEF4Delphi.
//
// For more information about CEF4Delphi visit :
// https://www.briskbard.com/index.php?lang=en&pageid=cef
//
// Copyright � 2017 Salvador D�az Fau. All rights reserved.
//
// ************************************************************************
// ************ vvvv Original license and comments below vvvv *************
// ************************************************************************
(*
* Delphi Chromium Embedded 3
*
* Usage allowed under the restrictions of the Lesser GNU General Public License
* or alternatively the restrictions of the Mozilla Public License 1.1
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
* the specific language governing rights and limitations under the License.
*
* Unit owner : Henri Gourvest <hgourvest@gmail.com>
* Web site : http://www.progdigy.com
* Repository : http://code.google.com/p/delphichromiumembedded/
* Group : http://groups.google.com/group/delphichromiumembedded
*
* Embarcadero Technologies, Inc is not permitted to use or redistribute
* this source code without explicit permission.
*
*)
unit uCEFAccessibilityHandler;
{$IFNDEF CPUX64}
{$ALIGN ON}
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes, uCEFChromiumEvents;
type
TCEFAccessibilityHandlerOwn = class(TCefBaseRefCountedOwn, ICefAccessibilityHandler)
protected
procedure OnAccessibilityTreeChange(const value: ICefValue); virtual;
procedure OnAccessibilityLocationChange(const value: ICefValue); virtual;
public
constructor Create; virtual;
end;
TCustomAccessibilityHandler = class(TCEFAccessibilityHandlerOwn)
protected
FOnTreeChange : TOnAccessibilityEvent;
FOnLocationChange : TOnAccessibilityEvent;
procedure OnAccessibilityTreeChange(const value: ICefValue); override;
procedure OnAccessibilityLocationChange(const value: ICefValue); override;
public
constructor Create; override;
property OnTreeChange : TOnAccessibilityEvent read FOnTreeChange write FOnTreeChange;
property OnLocationChange : TOnAccessibilityEvent read FOnLocationChange write FOnLocationChange;
end;
implementation
uses
uCEFMiscFunctions, uCEFValue;
procedure cef_accessibility_handler_on_accessibility_tree_change(self: PCefAccessibilityHandler; value: PCefValue); stdcall;
begin
with TCEFAccessibilityHandlerOwn(CefGetObject(self)) do
OnAccessibilityTreeChange(TCefValueRef.UnWrap(value));
end;
procedure cef_accessibility_handler_on_accessibility_location_change(self: PCefAccessibilityHandler; value: PCefValue); stdcall;
begin
with TCEFAccessibilityHandlerOwn(CefGetObject(self)) do
OnAccessibilityLocationChange(TCefValueRef.UnWrap(value));
end;
constructor TCEFAccessibilityHandlerOwn.Create;
begin
inherited CreateData(SizeOf(TCEFAccessibilityHandler));
with PCEFAccessibilityHandler(FData)^ do
begin
on_accessibility_tree_change := cef_accessibility_handler_on_accessibility_tree_change;
on_accessibility_location_change := cef_accessibility_handler_on_accessibility_location_change;
end;
end;
procedure TCEFAccessibilityHandlerOwn.OnAccessibilityTreeChange(const value: ICefValue);
begin
//
end;
procedure TCEFAccessibilityHandlerOwn.OnAccessibilityLocationChange(const value: ICefValue);
begin
//
end;
// *****************************************
// ****** TCustomAccessibilityHandler ******
// *****************************************
constructor TCustomAccessibilityHandler.Create;
begin
inherited Create;
FOnTreeChange := nil;
FOnLocationChange := nil;
end;
procedure TCustomAccessibilityHandler.OnAccessibilityTreeChange(const value: ICefValue);
begin
if assigned(FOnTreeChange) then FOnTreeChange(self, value);
end;
procedure TCustomAccessibilityHandler.OnAccessibilityLocationChange(const value: ICefValue);
begin
if assigned(FOnLocationChange) then FOnLocationChange(self, value);
end;
end.

14
source/uCEFApplication.pas
View File

@@ -56,14 +56,14 @@ uses
const
CEF_SUPPORTED_VERSION_MAJOR = 3;
CEF_SUPPORTED_VERSION_MINOR = 3029;
CEF_SUPPORTED_VERSION_RELEASE = 1619;
CEF_SUPPORTED_VERSION_MINOR = 3071;
CEF_SUPPORTED_VERSION_RELEASE = 1634;
CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = 58;
CEF_CHROMEELF_VERSION_MAJOR = 59;
CEF_CHROMEELF_VERSION_MINOR = 0;
CEF_CHROMEELF_VERSION_RELEASE = 3029;
CEF_CHROMEELF_VERSION_BUILD = 81;
CEF_CHROMEELF_VERSION_RELEASE = 3071;
CEF_CHROMEELF_VERSION_BUILD = 82;
LIBCEF_DLL = 'libcef.dll';
CHROMEELF_DLL = 'chrome_elf.dll';
@@ -95,7 +95,6 @@ type
FPackLoadingDisabled : Boolean;
FRemoteDebuggingPort : Integer;
FUncaughtExceptionStackSize : Integer;
FContextSafetyImplementation : Integer;
FPersistSessionCookies : Boolean;
FPersistUserPreferences : boolean;
FIgnoreCertificateErrors : Boolean;
@@ -226,7 +225,6 @@ type
property PackLoadingDisabled : Boolean read FPackLoadingDisabled write FPackLoadingDisabled;
property RemoteDebuggingPort : Integer read FRemoteDebuggingPort write FRemoteDebuggingPort;
property UncaughtExceptionStackSize : Integer read FUncaughtExceptionStackSize write FUncaughtExceptionStackSize;
property ContextSafetyImplementation : Integer read FContextSafetyImplementation write FContextSafetyImplementation;
property PersistSessionCookies : Boolean read FPersistSessionCookies write FPersistSessionCookies;
property PersistUserPreferences : Boolean read FPersistUserPreferences write FPersistUserPreferences;
property IgnoreCertificateErrors : Boolean read FIgnoreCertificateErrors write FIgnoreCertificateErrors;
@@ -339,7 +337,6 @@ begin
FPackLoadingDisabled := False;
FRemoteDebuggingPort := 0;
FUncaughtExceptionStackSize := 0;
FContextSafetyImplementation := 0;
FPersistSessionCookies := False;
FPersistUserPreferences := False;
FIgnoreCertificateErrors := False;
@@ -638,7 +635,6 @@ begin
aSettings.pack_loading_disabled := Ord(FPackLoadingDisabled);
aSettings.remote_debugging_port := FRemoteDebuggingPort;
aSettings.uncaught_exception_stack_size := FUncaughtExceptionStackSize;
aSettings.context_safety_implementation := FContextSafetyImplementation;
aSettings.ignore_certificate_errors := Ord(FIgnoreCertificateErrors);
aSettings.enable_net_security_expiration := Ord(FEnableNetSecurityExpiration);
aSettings.background_color := FBackgroundColor;

6
source/uCEFBrowser.pas
View File

@@ -139,6 +139,7 @@ type
procedure DragSourceEndedAt(x, y: Integer; op: TCefDragOperation);
procedure DragSourceSystemDragEnded;
function GetVisibleNavigationEntry : ICefNavigationEntry;
procedure SetAccessibilityState(accessibilityState: TCefState);
public
class function UnWrap(data: Pointer): ICefBrowserHost;
@@ -323,6 +324,11 @@ begin
Result := TCefNavigationEntryRef.UnWrap(PCefBrowserHost(FData).get_visible_navigation_entry(PCefBrowserHost(FData)));
end;
procedure TCefBrowserHostRef.SetAccessibilityState(accessibilityState: TCefState);
begin
PCefBrowserHost(FData).set_accessibility_state(FData, accessibilityState);
end;
procedure TCefBrowserHostRef.DragTargetDragEnter(const dragData: ICefDragData;
const event: PCefMouseEvent; allowedOps: TCefDragOperations);
begin

17
source/uCEFChromium.pas
View File

@@ -175,6 +175,7 @@ type
FOnFileDialog : TOnFileDialog;
// ICefRenderHandler
FOnGetAccessibilityHandler : TOnGetAccessibilityHandler;
FOnGetRootScreenRect : TOnGetRootScreenRect;
FOnGetViewRect : TOnGetViewRect;
FOnGetScreenPoint : TOnGetScreenPoint;
@@ -346,6 +347,7 @@ type
function doOnFileDialog(const browser: ICefBrowser; mode: TCefFileDialogMode; const title, defaultFilePath: ustring; acceptFilters: TStrings; selectedAcceptFilter: Integer; const callback: ICefFileDialogCallback): Boolean; virtual;
// ICefRenderHandler
procedure doOnGetAccessibilityHandler(var aAccessibilityHandler : ICefAccessibilityHandler); virtual;
function doOnGetRootScreenRect(const browser: ICefBrowser; rect: PCefRect): Boolean; virtual;
function doOnGetViewRect(const browser: ICefBrowser; rect: PCefRect): Boolean; virtual;
function doOnGetScreenPoint(const browser: ICefBrowser; viewX, viewY: Integer; screenX, screenY: PInteger): Boolean; virtual;
@@ -443,6 +445,7 @@ type
procedure SendCaptureLostEvent;
function SendProcessMessage(targetProcess: TCefProcessId; const ProcMessage: ICefProcessMessage): Boolean;
procedure SetFocus(focus: Boolean);
procedure SetAccessibilityState(accessibilityState: TCefState);
property DefaultUrl : ustring read FDefaultUrl write FDefaultUrl;
@@ -569,6 +572,7 @@ type
property OnFileDialog : TOnFileDialog read FOnFileDialog write FOnFileDialog;
// ICefRenderHandler
property OnGetAccessibilityHandler : TOnGetAccessibilityHandler read FOnGetAccessibilityHandler write FOnGetAccessibilityHandler;
property OnGetRootScreenRect : TOnGetRootScreenRect read FOnGetRootScreenRect write FOnGetRootScreenRect;
property OnGetViewRect : TOnGetViewRect read FOnGetViewRect write FOnGetViewRect;
property OnGetScreenPoint : TOnGetScreenPoint read FOnGetScreenPoint write FOnGetScreenPoint;
@@ -806,6 +810,7 @@ begin
FOnFileDialog := nil;
// ICefRenderHandler
FOnGetAccessibilityHandler := nil;
FOnGetRootScreenRect := nil;
FOnGetViewRect := nil;
FOnGetScreenPoint := nil;
@@ -866,7 +871,7 @@ begin
GetSettings(FBrowserSettings);
if FIsOSR then
WindowInfoAsWindowless(FWindowInfo, FCompHandle, False, aWindowName)
WindowInfoAsWindowless(FWindowInfo, FCompHandle, aWindowName)
else
WindowInfoAsChild(FWindowInfo, aParentHandle, aParentRect, aWindowName);
@@ -2382,6 +2387,11 @@ begin
FOnGetResourceHandler(Self, browser, frame, request, Result);
end;
procedure TChromium.doOnGetAccessibilityHandler(var aAccessibilityHandler : ICefAccessibilityHandler);
begin
if assigned(FOnGetAccessibilityHandler) then FOnGetAccessibilityHandler(Self, aAccessibilityHandler);
end;
function TChromium.doOnGetRootScreenRect(const browser: ICefBrowser; rect: PCefRect): Boolean;
begin
Result := False;
@@ -2848,6 +2858,11 @@ begin
if Initialized then FBrowser.Host.SetFocus(focus);
end;
procedure TChromium.SetAccessibilityState(accessibilityState: TCefState);
begin
if Initialized then FBrowser.Host.SetAccessibilityState(accessibilityState);
end;
function TChromium.SendProcessMessage(targetProcess: TCefProcessId; const ProcMessage: ICefProcessMessage): Boolean;
begin
Result := Initialized and FBrowser.SendProcessMessage(targetProcess, ProcMessage);

2
source/uCEFChromiumEvents.pas
View File

@@ -55,6 +55,7 @@ uses
uCEFTypes, uCEFInterfaces;
type
TOnAccessibilityEvent = procedure(Sender: TObject; const value: ICefValue) of object;
TOnTextResultAvailableEvent = procedure(Sender: TObject; const aText : string) of object;
TOnPdfPrintFinishedEvent = procedure(Sender: TObject; aResultOK : boolean) of object;
TOnCookiesDeletedEvent = procedure(Sender: TObject; numDeleted : integer) of object;
@@ -107,6 +108,7 @@ type
TOnRenderViewReady = procedure(Sender: Tobject; const browser: ICefBrowser) of Object;
TOnRenderProcessTerminated = procedure(Sender: TObject; const browser: ICefBrowser; status: TCefTerminationStatus) of object;
TOnFileDialog = procedure(Sender: TObject; const browser: ICefBrowser; mode: TCefFileDialogMode; const title, defaultFilePath: ustring; acceptFilters: TStrings; selectedAcceptFilter: Integer; const callback: ICefFileDialogCallback; out Result: Boolean) of Object;
TOnGetAccessibilityHandler = procedure(Sender: TObject; var aAccessibilityHandler : ICefAccessibilityHandler) of Object;
TOnGetRootScreenRect = procedure(Sender: TObject; const browser: ICefBrowser; rect: PCefRect; out Result: Boolean) of Object;
TOnGetViewRect = procedure(Sender: TObject; const browser: ICefBrowser; rect: PCefRect; out Result: Boolean) of Object;
TOnGetScreenPoint = procedure(Sender: TObject; const browser: ICefBrowser; viewX, viewY: Integer; screenX, screenY: PInteger; out Result: Boolean) of Object;

20
source/uCEFDragData.pas
View File

@@ -79,6 +79,9 @@ type
procedure SetFragmentBaseUrl(const baseUrl: ustring);
procedure ResetFileContents;
procedure AddFile(const path, displayName: ustring);
function GetImage : ICefImage;
function GetImageHotspot : TCefPoint;
function HasImage : boolean;
public
class function UnWrap(data: Pointer): ICefDragData;
class function New: ICefDragData;
@@ -87,7 +90,7 @@ type
implementation
uses
uCEFMiscFunctions, uCEFLibFunctions;
uCEFMiscFunctions, uCEFLibFunctions, uCEFImage;
procedure TCefDragDataRef.AddFile(const path, displayName: ustring);
var
@@ -98,6 +101,21 @@ begin
PCefDragData(FData).add_file(FData, @p, @d);
end;
function TCefDragDataRef.GetImage : ICefImage;
begin
Result := TCefImageRef.UnWrap(PCefDragData(FData).get_image(FData));
end;
function TCefDragDataRef.GetImageHotspot : TCefPoint;
begin
Result := PCefDragData(FData).get_image_hotspot(FData)^;
end;
function TCefDragDataRef.HasImage : boolean;
begin
Result := (PCefDragData(FData).has_image(FData) <> 0);
end;
function TCefDragDataRef.Clone: ICefDragData;
begin
Result := UnWrap(PCefDragData(FData).clone(FData));

44
source/uCEFInterfaces.pas
View File

@@ -73,6 +73,7 @@ type
ICefTaskRunner = interface;
ICefFileDialogCallback = interface;
ICefRequestContext = interface;
ICefAccessibilityHandler = interface;
ICefDragData = interface;
ICefNavigationEntry = interface;
ICefSslInfo = interface;
@@ -204,6 +205,7 @@ type
procedure DragSourceEndedAt(x, y: Integer; op: TCefDragOperation);
procedure DragSourceSystemDragEnded;
function GetVisibleNavigationEntry : ICefNavigationEntry;
procedure SetAccessibilityState(accessibilityState: TCefState);
property Browser: ICefBrowser read GetBrowser;
property WindowHandle: TCefWindowHandle read GetWindowHandle;
@@ -1264,7 +1266,8 @@ type
procedure Cont(commandId: Integer; eventFlags: TCefEventFlags);
procedure Cancel;
end;
ICefContextMenuHandler = interface(ICefBaseRefCounted)
ICefContextMenuHandler = interface(ICefBaseRefCounted)
['{C2951895-4087-49D5-BA18-4D9BA4F5EDD7}']
procedure OnBeforeContextMenu(const browser: ICefBrowser; const frame: ICefFrame;
const params: ICefContextMenuParams; const model: ICefMenuModel);
@@ -1277,6 +1280,12 @@ type
procedure OnContextMenuDismissed(const browser: ICefBrowser; const frame: ICefFrame);
end;
ICefAccessibilityHandler = interface(ICefBaseRefCounted)
['{1878C3C7-7692-44AB-BFE0-6C387106816B}']
procedure OnAccessibilityTreeChange(const value: ICefValue);
procedure OnAccessibilityLocationChange(const value: ICefValue);
end;
ICefDialogHandler = interface(ICefBaseRefCounted)
['{7763F4B2-8BE1-4E80-AC43-8B825850DC67}']
function OnFileDialog(const browser: ICefBrowser; mode: TCefFileDialogMode;
@@ -1297,6 +1306,7 @@ type
ICefRenderHandler = interface(ICefBaseRefCounted)
['{1FC1C22B-085A-4741-9366-5249B88EC410}']
procedure GetAccessibilityHandler(var aAccessibilityHandler : ICefAccessibilityHandler);
function GetRootScreenRect(const browser: ICefBrowser; rect: PCefRect): Boolean;
function GetViewRect(const browser: ICefBrowser; rect: PCefRect): Boolean;
function GetScreenPoint(const browser: ICefBrowser; viewX, viewY: Integer; screenX, screenY: PInteger): Boolean;
@@ -1380,20 +1390,20 @@ type
ICefDragData = interface(ICefBaseRefCounted)
['{FBB6A487-F633-4055-AB3E-6619EDE75683}']
function Clone: ICefDragData;
function IsReadOnly: Boolean;
function IsLink: Boolean;
function IsFragment: Boolean;
function IsFile: Boolean;
function GetLinkUrl: ustring;
function GetLinkTitle: ustring;
function GetLinkMetadata: ustring;
function GetFragmentText: ustring;
function GetFragmentHtml: ustring;
function GetFragmentBaseUrl: ustring;
function GetFileName: ustring;
function GetFileContents(const writer: ICefStreamWriter): NativeUInt;
function GetFileNames(names: TStrings): Integer;
function Clone: ICefDragData;
function IsReadOnly: Boolean;
function IsLink: Boolean;
function IsFragment: Boolean;
function IsFile: Boolean;
function GetLinkUrl: ustring;
function GetLinkTitle: ustring;
function GetLinkMetadata: ustring;
function GetFragmentText: ustring;
function GetFragmentHtml: ustring;
function GetFragmentBaseUrl: ustring;
function GetFileName: ustring;
function GetFileContents(const writer: ICefStreamWriter): NativeUInt;
function GetFileNames(names: TStrings): Integer;
procedure SetLinkUrl(const url: ustring);
procedure SetLinkTitle(const title: ustring);
procedure SetLinkMetadata(const data: ustring);
@@ -1402,6 +1412,9 @@ type
procedure SetFragmentBaseUrl(const baseUrl: ustring);
procedure ResetFileContents;
procedure AddFile(const path, displayName: ustring);
function GetImage : ICefImage;
function GetImageHotspot : TCefPoint;
function HasImage : boolean;
end;
ICefDragHandler = interface(ICefBaseRefCounted)
@@ -1709,6 +1722,7 @@ type
const title, defaultFilePath: ustring; acceptFilters: TStrings;
selectedAcceptFilter: Integer; const callback: ICefFileDialogCallback): Boolean;
procedure doOnGetAccessibilityHandler(var aAccessibilityHandler : ICefAccessibilityHandler);
function doOnGetRootScreenRect(const browser: ICefBrowser; rect: PCefRect): Boolean;
function doOnGetViewRect(const browser: ICefBrowser; rect: PCefRect): Boolean;
function doOnGetScreenPoint(const browser: ICefBrowser; viewX, viewY: Integer;

7
source/uCEFMiscFunctions.pas
View File

@@ -103,7 +103,7 @@ function cef_string_copy(const src: PCefChar; src_len: NativeUInt; output: PCefS
procedure WindowInfoAsChild(var aWindowInfo : TCefWindowInfo; aParent : THandle; aRect : TRect; const aWindowName : string = '');
procedure WindowInfoAsPopUp(var aWindowInfo : TCefWindowInfo; aParent : THandle; const aWindowName : string = '');
procedure WindowInfoAsWindowless(var aWindowInfo : TCefWindowInfo; aParent : THandle; aTransparent : boolean; const aWindowName : string = '');
procedure WindowInfoAsWindowless(var aWindowInfo : TCefWindowInfo; aParent : THandle; const aWindowName : string = '');
function TzSpecificLocalTimeToSystemTime(lpTimeZoneInformation: PTimeZoneInformation; lpLocalTime, lpUniversalTime: PSystemTime): BOOL; stdcall; external Kernel32DLL;
function SystemTimeToTzSpecificLocalTime(lpTimeZoneInformation: PTimeZoneInformation; lpUniversalTime, lpLocalTime: PSystemTime): BOOL; stdcall; external Kernel32DLL;
@@ -408,7 +408,6 @@ begin
aWindowInfo.parent_window := aParent;
aWindowInfo.menu := 0;
aWindowInfo.windowless_rendering_enabled := ord(False);
aWindowInfo.transparent_painting_enabled := ord(False);
aWindowInfo.window := 0;
end;
@@ -424,11 +423,10 @@ begin
aWindowInfo.parent_window := aParent;
aWindowInfo.menu := 0;
aWindowInfo.windowless_rendering_enabled := ord(False);
aWindowInfo.transparent_painting_enabled := ord(False);
aWindowInfo.window := 0;
end;
procedure WindowInfoAsWindowless(var aWindowInfo : TCefWindowInfo; aParent : THandle; aTransparent : boolean; const aWindowName : string);
procedure WindowInfoAsWindowless(var aWindowInfo : TCefWindowInfo; aParent : THandle; const aWindowName : string);
begin
aWindowInfo.ex_style := 0;
aWindowInfo.window_name := CefString(aWindowName);
@@ -440,7 +438,6 @@ begin
aWindowInfo.parent_window := aParent;
aWindowInfo.menu := 0;
aWindowInfo.windowless_rendering_enabled := ord(True);
aWindowInfo.transparent_painting_enabled := ord(aTransparent);
aWindowInfo.window := 0;
end;

31
source/uCEFRenderHandler.pas
View File

@@ -52,6 +52,7 @@ uses
type
TCefRenderHandlerOwn = class(TCefBaseRefCountedOwn, ICefRenderHandler)
protected
procedure GetAccessibilityHandler(var aAccessibilityHandler : ICefAccessibilityHandler); virtual;
function GetRootScreenRect(const browser: ICefBrowser; rect: PCefRect): Boolean; virtual;
function GetViewRect(const browser: ICefBrowser; rect: PCefRect): Boolean; virtual;
function GetScreenPoint(const browser: ICefBrowser; viewX, viewY: Integer; screenX, screenY: PInteger): Boolean; virtual;
@@ -73,6 +74,7 @@ type
protected
FEvent: IChromiumEvents;
procedure GetAccessibilityHandler(var aAccessibilityHandler : ICefAccessibilityHandler); override;
function GetRootScreenRect(const browser: ICefBrowser; rect: PCefRect): Boolean; override;
function GetViewRect(const browser: ICefBrowser; rect: PCefRect): Boolean; override;
function GetScreenPoint(const browser: ICefBrowser; viewX, viewY: Integer; screenX, screenY: PInteger): Boolean; override;
@@ -96,6 +98,23 @@ uses
uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser, uCEFDragData;
function cef_render_handler_get_accessibility_handler(self: PCefRenderHandler): PCefAccessibilityHandler; stdcall;
var
TempHandler : ICefAccessibilityHandler;
begin
with TCefRenderHandlerOwn(CefGetObject(self)) do
begin
TempHandler := nil;
GetAccessibilityHandler(TempHandler);
if (TempHandler <> nil) then
Result := TempHandler.Wrap
else
Result := nil;
end;
end;
function cef_render_handler_get_root_screen_rect(self: PCefRenderHandler;
browser: PCefBrowser; rect: PCefRect): Integer; stdcall;
begin
@@ -193,6 +212,7 @@ begin
with PCefRenderHandler(FData)^ do
begin
get_accessibility_handler := cef_render_handler_get_accessibility_handler;
get_root_screen_rect := cef_render_handler_get_root_screen_rect;
get_view_rect := cef_render_handler_get_view_rect;
get_screen_point := cef_render_handler_get_screen_point;
@@ -207,6 +227,11 @@ begin
end;
end;
procedure TCefRenderHandlerOwn.GetAccessibilityHandler(var aAccessibilityHandler : ICefAccessibilityHandler);
begin
aAccessibilityHandler := nil;
end;
function TCefRenderHandlerOwn.GetRootScreenRect(const browser: ICefBrowser;
rect: PCefRect): Boolean;
begin
@@ -289,9 +314,15 @@ end;
constructor TCustomRenderHandler.Create(const events: IChromiumEvents);
begin
inherited Create;
FEvent := events;
end;
procedure TCustomRenderHandler.GetAccessibilityHandler(var aAccessibilityHandler : ICefAccessibilityHandler);
begin
FEvent.doOnGetAccessibilityHandler(aAccessibilityHandler);
end;
function TCustomRenderHandler.GetRootScreenRect(const browser: ICefBrowser;
rect: PCefRect): Boolean;
begin

15
source/uCEFTypes.pas
View File

@@ -80,6 +80,7 @@ type
PCefResourceBundleHandler = ^TCefResourceBundleHandler;
PCefBrowserProcessHandler = ^TCefBrowserProcessHandler;
PCefContextMenuHandler = ^TCefContextMenuHandler;
PCefAccessibilityHandler = ^TCefAccessibilityHandler;
PCefFrame = ^TCefFrame;
PCefApp = ^TCefApp;
PCefStringVisitor = ^TCefStringVisitor;
@@ -1052,7 +1053,6 @@ type
pack_loading_disabled : Integer;
remote_debugging_port : Integer;
uncaught_exception_stack_size : Integer;
context_safety_implementation : Integer;
ignore_certificate_errors : Integer;
enable_net_security_expiration : integer;
background_color : TCefColor;
@@ -1071,7 +1071,6 @@ type
parent_window: HWND;
menu: HMENU;
windowless_rendering_enabled: Integer;
transparent_painting_enabled: Integer;
window: HWND;
end;
@@ -1320,6 +1319,7 @@ type
// /include/capi/cef_render_handler_capi.h (cef_render_handler_t)
TCefRenderHandler = record
base: TCefBaseRefCounted;
get_accessibility_handler: function(self: PCefRenderHandler): PCefAccessibilityHandler; stdcall;
get_root_screen_rect: function(self: PCefRenderHandler; browser: PCefBrowser; rect: PCefRect): Integer; stdcall;
get_view_rect: function(self: PCefRenderHandler; browser: PCefBrowser; rect: PCefRect): Integer; stdcall;
get_screen_point: function(self: PCefRenderHandler; browser: PCefBrowser; viewX, viewY: Integer; screenX, screenY: PInteger): Integer; stdcall;
@@ -1923,6 +1923,9 @@ type
set_fragment_base_url: procedure(self: PCefDragData; const base_url: PCefString); stdcall;
reset_file_contents: procedure(self: PCefDragData); stdcall;
add_file: procedure(self: PCefDragData; const path, display_name: PCefString); stdcall;
get_image: function(self: PCefDragData): PCefImage;
get_image_hotspot: function(self: PCefDragData): PCefPoint;
has_image: function(self: PCefDragData): Integer;
end;
// /include/capi/cef_command_line_capi.h (cef_command_line_t)
@@ -2434,6 +2437,13 @@ type
visit_dom: procedure(self: PCefFrame; visitor: PCefDomVisitor); stdcall;
end;
// /include/capi/cef_accessibility_handler_capi.h (cef_accessibility_handler_t)
TCefAccessibilityHandler = record
base: TCefBaseRefCounted;
on_accessibility_tree_change: procedure(self: PCefAccessibilityHandler; value: PCefValue); stdcall;
on_accessibility_location_change: procedure(self: PCefAccessibilityHandler; value: PCefValue); stdcall;
end;
// /include/capi/cef_context_menu_handler_capi.h (cef_context_menu_handler_t)
TCefContextMenuHandler = record
base: TCefBaseRefCounted;
@@ -2517,6 +2527,7 @@ type
drag_source_ended_at: procedure(self: PCefBrowserHost; x, y: Integer; op: TCefDragOperation); stdcall;
drag_source_system_drag_ended: procedure(self: PCefBrowserHost); stdcall;
get_visible_navigation_entry: function(self: PCefBrowserHost): PCefNavigationEntry; stdcall;
set_accessibility_state: procedure(self: PCefBrowserHost; accessibility_state: TCefState); stdcall;
end;
// /include/capi/cef_browser_capi.h (cef_browser_t)