pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-17 06:57:13 +02:00
Code Issues Actions Releases Activity

Update to CEF 3.3163.1669.ge260cbb and new demo

Browse Source
This commit is contained in:
Salvador Díaz Fau 2017-09-23 11:38:29 +02:00
parent 11e8a588e9
commit df5dce37fc
32 changed files with 3616 additions and 424 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,9 +3,9 @@
<Transactions>
<Transaction>2017/07/15 09:50:55.000.277,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/07/25 21:43:25.000.930,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/07/25 21:43:40.000.982,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/07/25 21:43:40.000.982,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
<Transaction>2017/07/25 21:43:48.000.560,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\JSExtension.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
<Transaction>2017/07/25 21:43:40.000.982,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\Unit1.pas</Transaction>
<Transaction>2017/07/25 21:43:40.000.982,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\Unit1.dfm</Transaction>
<Transaction>2017/07/25 21:43:48.000.560,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\JSExtension.dproj</Transaction>
<Transaction>2017/07/25 21:44:09.000.830,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\Unit1.pas=</Transaction>
<Transaction>2017/07/25 21:44:16.000.573,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uJSExtension.pas</Transaction>
<Transaction>2017/07/25 21:48:00.000.759,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uTestExtension.pas</Transaction>

98
demos/JSExtension/JSExtension.dsk
View File

@ -11,24 +11,24 @@ File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\JSExtension.dproj
Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uTestExtension.pas
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uJSExtension.pas
Module3=default.htm
Module1=default.htm
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uTestExtension.pas
Module3=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uJSExtension.pas
Count=4
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\JSExtension.dproj]
ModuleType=TBaseProject
[default.htm]
ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uTestExtension.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\uJSExtension.pas]
ModuleType=TSourceModule
[default.htm]
ModuleType=TURLModule
[EditWindow0]
ViewCount=4
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\JSExtension.dpr
@ -52,18 +52,18 @@ ClientHeight=9417
DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
LeftPanelSize=1898
LeftPanelClients=PropertyInspector,DockSite3
LeftPanelData=00000800010100000000A219000000000000016A0700000000000001000000005D0E000009000000446F636B53697465330100000000972300001100000050726F7065727479496E73706563746F72FFFFFFFF
RightPanelSize=2000
RightPanelClients=DockSite2
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000009723000009000000446F636B5369746532FFFFFFFF
RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000004312000009000000446F636B536974653201000000009723000009000000446F636B5369746534FFFFFFFF
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0
[View0]
CustomEditViewType=TWelcomePageView
@ -74,7 +74,7 @@ CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\JSExtension\JSExtension.dpr
CursorX=2
CursorY=89
TopLine=51
TopLine=63
LeftCol=1
Elisions=
Bookmarks=
@ -167,11 +167,11 @@ State=0
Left=0
Top=0
Width=2000
Height=8935
Height=4305
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=8935
ClientHeight=4305
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@ -204,12 +204,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6794
Width=2000
Height=4383
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6794
ClientWidth=2000
ClientHeight=4383
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@ -259,8 +259,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-8
Top=-30
Left=-121
Top=-70
Width=1844
Height=3139
MaxLeft=-1
@ -313,18 +313,18 @@ StayOnTop=0
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=78
Top=386
Left=0
Top=357
Width=1898
Height=7220
Height=5415
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=7220
TBDockHeight=7220
ClientHeight=5415
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -374,8 +374,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-8
Top=287
Left=-1152
Top=247
Width=273
Height=359
MaxLeft=-1
@ -626,12 +626,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1773
Height=6794
Width=1898
Height=3554
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6794
ClientWidth=1898
ClientHeight=3554
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@ -737,12 +737,12 @@ State=0
Left=0
Top=18
Width=2000
Height=9215
Height=4585
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=9215
TBDockHeight=7220
ClientHeight=4585
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0
@ -751,22 +751,22 @@ ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm
[DockSite3]
HostDockSite=LeftDockTabSet
HostDockSite=DockLeftPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=0
Top=0
Top=18
Width=1898
Height=7220
Height=3554
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6794
TBDockHeight=7220
ClientWidth=1898
ClientHeight=3554
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -775,22 +775,22 @@ ActiveTabID=StructureView
TabDockClients=StructureView,ClassBrowserTool
[DockSite4]
HostDockSite=RightTabDock
HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=0
Top=0
Top=449
Width=2000
Height=7220
Height=4383
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6794
TBDockHeight=7220
ClientWidth=2000
ClientHeight=4383
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0

2
demos/JSExtension/JSExtension.stat
View File

@ -3,7 +3,7 @@ EditorSecs=4637
DesignerSecs=28
InspectorSecs=43
CompileSecs=192587
OtherSecs=474
OtherSecs=475
StartTime=25/07/2017 22:09:15
RealKeys=0
EffectiveKeys=0

187
demos/MiniBrowser/MiniBrowser.dsk
View File

@ -1,21 +1,25 @@
[Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas',0,1,578,45,611,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\FastMM4\FastMM4.pas',0,1,9585,88,9618,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,194,16,223,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,1065,56,1098,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,1712,23,1740,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFPDFPrintCallback.pas',0,1,79,1,88,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumWindow.pas',0,1,70,37,58,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFWindowParent.pas',0,1,65,27,66,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,246,22,279,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFPostData.pas',0,1,97,1,134,0,0,,
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,2170,74,2204,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFStringVisitor.pas',0,1,128,1,131,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTask.pas',0,1,193,1,204,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,183,54,225,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\FastMM4\FastMM4.pas',0,1,9585,88,9618,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,1712,23,1740,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFPDFPrintCallback.pas',0,1,79,1,88,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumWindow.pas',0,1,70,37,58,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFWindowParent.pas',0,1,65,27,66,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,246,22,279,0,0,,
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dproj
Module1=default.htm
Count=2
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas
Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dproj
Module2=default.htm
Count=3
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dproj]
ModuleType=TBaseProject
@ -23,10 +27,11 @@ ModuleType=TBaseProject
ModuleType=TURLModule
[EditWindow0]
ViewCount=2
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dpr
ViewCount=3
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas
View0=0
View1=1
View2=2
PercentageSizes=1
Create=1
Visible=1
@ -43,18 +48,17 @@ ClientHeight=9417
DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=1898
LeftPanelClients=PropertyInspector,DockSite3
LeftPanelData=00000800010100000000A219000000000000016A0700000000000001000000005D0E000009000000446F636B53697465330100000000972300001100000050726F7065727479496E73706563746F72FFFFFFFF
LeftPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000004312000009000000446F636B536974653201000000009723000009000000446F636B5369746534FFFFFFFF
BottomPanelSize=0
RightPanelData=0000080001010100000009000000446F636B5369746534161500000000000001D0070000000000000100000000471D000009000000446F636B5369746532FFFFFFFF
BottomPanelSize=1551
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomPanelData=000008000102000000003B36000000000000020F0600000000000001000000001D1B000009000000446F636B536974653101000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
[View0]
CustomEditViewType=TWelcomePageView
@ -63,14 +67,25 @@ WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\MiniBrowser.dpr
CursorX=1
CursorY=1
TopLine=1
CursorX=2
CursorY=66
TopLine=52
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=25
CursorY=560
TopLine=543
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas
[UndockedDesigner]
Count=0
@ -88,11 +103,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1121
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1121
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@ -136,11 +151,11 @@ State=0
Left=0
Top=0
Width=2000
Height=4305
Height=7265
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4305
ClientHeight=7265
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@ -149,18 +164,18 @@ StayOnTop=0
[MessageView]
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2773
Height=1424
Left=640
Top=18
Width=5000
Height=1401
MaxLeft=-1
MaxTop=-1
ClientWidth=2773
ClientHeight=1424
TBDockHeight=1424
ClientWidth=5000
ClientHeight=1401
TBDockHeight=1401
LRDockWidth=2773
Dockable=1
StayOnTop=0
@ -174,11 +189,11 @@ State=0
Left=0
Top=0
Width=2000
Height=4383
Height=7220
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
ClientHeight=7220
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@ -228,8 +243,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-121
Top=-70
Left=-8
Top=-30
Width=1844
Height=3139
MaxLeft=-1
@ -282,18 +297,18 @@ StayOnTop=0
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=357
Left=78
Top=386
Width=1898
Height=5415
Height=7220
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=5415
TBDockHeight=7164
ClientHeight=7220
TBDockHeight=7220
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -343,8 +358,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1152
Top=247
Left=-1024
Top=265
Width=273
Height=359
MaxLeft=-1
@ -368,11 +383,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1121
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1121
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@ -387,11 +402,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1121
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1121
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@ -410,11 +425,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1121
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1121
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@ -429,11 +444,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1121
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1121
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@ -569,12 +584,12 @@ Docked=1
State=0
Left=0
Top=0
Width=3820
Height=1143
Width=4969
Height=1121
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientWidth=4969
ClientHeight=1121
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@ -595,12 +610,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1898
Height=3554
Width=1773
Height=6794
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=3554
ClientWidth=1773
ClientHeight=6794
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@ -676,23 +691,23 @@ HostDockSite=DockBottomPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=0
Top=18
Width=3820
Height=1424
Width=4969
Height=1401
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1424
TBDockHeight=1424
ClientWidth=4969
ClientHeight=1401
TBDockHeight=1401
LRDockWidth=3820
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=DebugLogView
ActiveTabID=BreakpointWindow
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
@ -706,12 +721,12 @@ State=0
Left=0
Top=18
Width=2000
Height=4585
Height=7545
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4585
TBDockHeight=7164
ClientHeight=7545
TBDockHeight=7220
LRDockWidth=2000
Dockable=1
StayOnTop=0
@ -720,22 +735,22 @@ 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=18
Top=0
Width=1898
Height=3554
Height=7220
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=3554
TBDockHeight=7164
ClientWidth=1773
ClientHeight=6794
TBDockHeight=7220
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -748,18 +763,18 @@ HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Visible=0
Docked=1
State=0
Left=0
Top=449
Top=0
Width=2000
Height=4383
Height=7220
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
TBDockHeight=7164
ClientHeight=7220
TBDockHeight=7220
LRDockWidth=2000
Dockable=1
StayOnTop=0

BIN
demos/MiniBrowser/MiniBrowser.identcache
View File

Binary file not shown.

8
demos/MiniBrowser/MiniBrowser.stat
View File

@ -1,10 +1,10 @@
[Stats]
EditorSecs=47373
EditorSecs=47870
DesignerSecs=2448
InspectorSecs=1794
CompileSecs=2570804
OtherSecs=7442
CompileSecs=2680883
OtherSecs=7675
StartTime=11/02/2017 10:51:15
RealKeys=0
EffectiveKeys=0
DebugSecs=38622
DebugSecs=40274

2
demos/MiniBrowser/uMiniBrowser.dfm
View File

@ -103,7 +103,7 @@ object MiniBrowserFrm: TMiniBrowserFrm
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = ReloadBtnClick
OnClick = StopBtnClick
end
end
object URLEditPnl: TPanel

7
demos/MiniBrowser/uMiniBrowser.pas
View File

@ -154,6 +154,7 @@ type
const browser: ICefBrowser; const frame: ICefFrame;
const request: ICefRequest; const response: ICefResponse;
out Result: Boolean);
procedure StopBtnClick(Sender: TObject);
protected
FResponse : string;
@ -429,6 +430,11 @@ begin
StatusBar1.Panels[0].Text := aText;
end;
procedure TMiniBrowserFrm.StopBtnClick(Sender: TObject);
begin
Chromium1.StopLoad;
end;
procedure TMiniBrowserFrm.Chromium1StatusMessage(Sender: TObject;
const browser: ICefBrowser; const value: ustring);
begin
@ -490,6 +496,7 @@ end;
procedure TMiniBrowserFrm.Openfile1Click(Sender: TObject);
begin
// This is a quick solution to load files. The file URL should be properly encoded.
if OpenDialog1.Execute then Chromium1.LoadURL('file:///' + OpenDialog1.FileName);
end;

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

@ -2,9 +2,9 @@
<BorlandProject>
<Transactions>
<Transaction>2017/08/12 11:25:15.000.051,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/08/12 11:26:00.000.707,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/08/12 11:26:00.000.707,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
<Transaction>2017/08/12 11:26:06.000.294,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\SchemeRegistrationBrowser.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
<Transaction>2017/08/12 11:26:00.000.707,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas</Transaction>
<Transaction>2017/08/12 11:26:00.000.707,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.dfm</Transaction>
<Transaction>2017/08/12 11:26:06.000.294,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\SchemeRegistrationBrowser.dproj</Transaction>
<Transaction>2017/08/12 11:27:56.000.909,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uHelloScheme.pas</Transaction>
</Transactions>
</BorlandProject>

110
demos/SchemeRegistrationBrowser/SchemeRegistrationBrowser.dsk
View File

@ -9,32 +9,32 @@ File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTask.pas',0,1,156,3,83,0,0,,
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas
Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFConstants.pas
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\SchemeRegistrationBrowser.dproj
Module3=default.htm
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\SchemeRegistrationBrowser.dproj
Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas
Module2=default.htm
Module3=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFConstants.pas
Module4=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uHelloScheme.pas
Count=5
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFConstants.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\SchemeRegistrationBrowser.dproj]
ModuleType=TBaseProject
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas]
ModuleType=TSourceModule
[default.htm]
ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFConstants.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uHelloScheme.pas]
ModuleType=TSourceModule
[EditWindow0]
ViewCount=5
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\SchemeRegistrationBrowser.dpr
View0=0
View1=1
View2=2
@ -56,18 +56,18 @@ ClientHeight=9417
DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
LeftPanelSize=1898
LeftPanelClients=PropertyInspector,DockSite3
LeftPanelData=00000800010100000000A219000000000000016A0700000000000001000000005D0E000009000000446F636B53697465330100000000972300001100000050726F7065727479496E73706563746F72FFFFFFFF
RightPanelSize=2000
RightPanelClients=DockSite2
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000009723000009000000446F636B5369746532FFFFFFFF
RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000004312000009000000446F636B536974653201000000009723000009000000446F636B5369746534FFFFFFFF
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
TabDockRightClients=DockSite4=0
[View0]
CustomEditViewType=TWelcomePageView
@ -78,7 +78,7 @@ CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\SchemeRegistrationBrowser.dpr
CursorX=77
CursorY=78
TopLine=40
TopLine=28
LeftCol=1
Elisions=
Bookmarks=
@ -87,9 +87,9 @@ EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\d
[View2]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SchemeRegistrationBrowser\uSchemeRegistrationBrowser.pas
CursorX=63
CursorY=97
TopLine=43
CursorX=44
CursorY=88
TopLine=88
LeftCol=1
Elisions=
Bookmarks=
@ -182,11 +182,11 @@ State=0
Left=0
Top=0
Width=2000
Height=8935
Height=4305
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=8935
ClientHeight=4305
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@ -219,12 +219,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6794
Width=2000
Height=4383
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6794
ClientWidth=2000
ClientHeight=4383
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@ -274,8 +274,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-8
Top=-30
Left=-121
Top=-70
Width=1844
Height=3139
MaxLeft=-1
@ -328,18 +328,18 @@ StayOnTop=0
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=78
Top=386
Left=0
Top=357
Width=1898
Height=7220
Height=5415
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=7220
TBDockHeight=7220
ClientHeight=5415
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -389,8 +389,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-8
Top=287
Left=-1152
Top=247
Width=273
Height=359
MaxLeft=-1
@ -642,11 +642,11 @@ State=0
Left=0
Top=0
Width=1898
Height=9137
Height=3554
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=9137
ClientHeight=3554
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@ -752,12 +752,12 @@ State=0
Left=0
Top=18
Width=2000
Height=9215
Height=4585
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=9215
TBDockHeight=7220
ClientHeight=4585
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0
@ -766,22 +766,22 @@ ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm
[DockSite3]
HostDockSite=LeftDockTabSet
HostDockSite=DockLeftPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=1
Top=24
Left=0
Top=18
Width=1898
Height=9137
Height=3554
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=9137
TBDockHeight=7220
ClientHeight=3554
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -790,22 +790,22 @@ ActiveTabID=StructureView
TabDockClients=StructureView,ClassBrowserTool
[DockSite4]
HostDockSite=RightTabDock
HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=0
Top=0
Top=449
Width=2000
Height=7220
Height=4383
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6794
TBDockHeight=7220
ClientWidth=2000
ClientHeight=4383
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0

4
demos/SchemeRegistrationBrowser/SchemeRegistrationBrowser.stat
View File

@ -1,9 +1,9 @@
[Stats]
EditorSecs=191
EditorSecs=206
DesignerSecs=6
InspectorSecs=1
CompileSecs=9494
OtherSecs=27
OtherSecs=28
StartTime=12/08/2017 16:06:01
RealKeys=0
EffectiveKeys=0

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

@ -2,8 +2,8 @@
<BorlandProject>
<Transactions>
<Transaction>2017/01/22 14:37:05.000.577,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/01/22 14:41:11.000.096,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleBrowser\uSimpleBrowser.pas</Transaction>
<Transaction>2017/01/22 14:41:11.000.096,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleBrowser\uSimpleBrowser.dfm</Transaction>
<Transaction>2017/01/22 14:41:18.000.226,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleBrowser\SimpleBrowser.dproj</Transaction>
<Transaction>2017/01/22 14:41:11.000.096,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleBrowser\uSimpleBrowser.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
<Transaction>2017/01/22 14:41:11.000.096,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleBrowser\uSimpleBrowser.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/01/22 14:41:18.000.226,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi demos\SimpleBrowser\SimpleBrowser.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
</Transactions>
</BorlandProject>

101
demos/SimpleBrowser/SimpleBrowser.dsk
View File

@ -12,20 +12,20 @@ File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF
[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
Module1=default.htm
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\uSimpleBrowser.pas
Count=3
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
[default.htm]
ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\uSimpleBrowser.pas]
ModuleType=TSourceModule
[EditWindow0]
ViewCount=3
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\SimpleBrowser.dpr
@ -49,19 +49,17 @@ DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=1898
LeftPanelClients=PropertyInspector
LeftPanelData=00000800010000000000D61B0000000000000000000000000000000100000000D61B00001100000050726F7065727479496E73706563746F72FFFFFFFF
LeftPanelClients=PropertyInspector,DockSite3
LeftPanelData=00000800010100000000A219000000000000016A0700000000000001000000005D0E000009000000446F636B53697465330100000000972300001100000050726F7065727479496E73706563746F72FFFFFFFF
RightPanelSize=2000
RightPanelClients=DockSite2
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000009723000009000000446F636B5369746532FFFFFFFF
RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000004312000009000000446F636B536974653201000000009723000009000000446F636B5369746534FFFFFFFF
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=DockSite3=0
TabDockRightClients=DockSite4=0
[View0]
CustomEditViewType=TWelcomePageView
@ -70,8 +68,8 @@ WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\SimpleBrowser.dpr
CursorX=2
CursorY=67
CursorX=56
CursorY=63
TopLine=37
LeftCol=1
Elisions=
@ -83,7 +81,7 @@ CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\uSimpleBrowser.pas
CursorX=15
CursorY=85
TopLine=50
TopLine=53
LeftCol=1
Elisions=
Bookmarks=
@ -154,11 +152,11 @@ State=0
Left=0
Top=0
Width=2000
Height=8935
Height=4305
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=8935
ClientHeight=4305
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@ -191,12 +189,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6794
Width=2000
Height=4383
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6794
ClientWidth=2000
ClientHeight=4383
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@ -246,8 +244,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-8
Top=-30
Left=-121
Top=-70
Width=1844
Height=3139
MaxLeft=-1
@ -304,24 +302,19 @@ Visible=1
Docked=1
State=0
Left=0
Top=18
Top=357
Width=1898
Height=9215
Height=5415
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=9215
TBDockHeight=7220
ClientHeight=5415
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
SplitPos=111
[PropInspDesignerSelection]
ArrangeBy=Name
SelectedItem=Name,CustomHint
ExpandedItems=Anchors=0,Constraints=0,LiveBindings=0,"LiveBindings Designer=0",Margins=0,BevelEdges=0,Font=0,Padding=0,StyleElements=0,Touch=0,ImageMargins=0
[frmDesignPreview]
PercentageSizes=1
Create=1
@ -366,8 +359,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-8
Top=287
Left=-1152
Top=247
Width=273
Height=359
MaxLeft=-1
@ -618,12 +611,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1773
Height=6794
Width=1898
Height=3554
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6794
ClientWidth=1898
ClientHeight=3554
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@ -729,12 +722,12 @@ State=0
Left=0
Top=18
Width=2000
Height=9215
Height=4585
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=9215
TBDockHeight=7220
ClientHeight=4585
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0
@ -743,22 +736,22 @@ ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm
[DockSite3]
HostDockSite=LeftDockTabSet
HostDockSite=DockLeftPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=0
Top=0
Top=18
Width=1898
Height=7220
Height=3554
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6794
TBDockHeight=7220
ClientWidth=1898
ClientHeight=3554
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -767,22 +760,22 @@ ActiveTabID=StructureView
TabDockClients=StructureView,ClassBrowserTool
[DockSite4]
HostDockSite=RightTabDock
HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=0
Top=0
Top=449
Width=2000
Height=7220
Height=4383
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6794
TBDockHeight=7220
ClientWidth=2000
ClientHeight=4383
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0

8
demos/SimpleBrowser/SimpleBrowser.stat
View File

@ -1,10 +1,10 @@
[Stats]
EditorSecs=4856
EditorSecs=4906
DesignerSecs=331
InspectorSecs=170
CompileSecs=375226
OtherSecs=1112
CompileSecs=398339
OtherSecs=1132
StartTime=22/01/2017 14:51:01
RealKeys=0
EffectiveKeys=0
DebugSecs=2434
DebugSecs=2501

8
demos/TabbedBrowser/00-DeleteDCUs.bat Normal file
View File

@ -0,0 +1,8 @@
del /s /q *.dcu
del /s /q *.dcp
del /s /q *.bpl
del /s /q *.bpi
del /s /q *.hpp
del /s /q *.exe
del /s /q *.log
del /s /q *.~*

82
demos/TabbedBrowser/TabBrowser.dpr Normal file
View File

@ -0,0 +1,82 @@
// ************************************************************************
// ***************************** 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.
*
*)
program TabBrowser;
{$I cef.inc}
uses
{$IFDEF DELPHI16_UP}
Vcl.Forms, WinApi.Windows,
{$ELSE}
Forms, Windows,
{$ENDIF }
uCEFApplication,
uMainForm in 'uMainForm.pas' {MainForm};
{$R *.res}
// CEF3 needs to set the LARGEADDRESSAWARE flag which allows 32-bit processes to use up to 3GB of RAM.
{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
begin
GlobalCEFApp := TCefApplication.Create;
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.
{
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
Application.Initialize;
{$IFDEF DELPHI11_UP}
Application.MainFormOnTaskbar := True;
{$ENDIF}
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end;
GlobalCEFApp.Free;
end.

568
demos/TabbedBrowser/TabBrowser.dproj Normal file
View File

@ -0,0 +1,568 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{02149B84-943A-4289-B167-DC2C9FC36ABC}</ProjectGuid>
<ProjectVersion>18.2</ProjectVersion>
<FrameworkType>VCL</FrameworkType>
<MainSource>TabBrowser.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
<DCC_E>false</DCC_E>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_UsePackage>RESTComponents;emsclientfiredac;FireDACIBDriver;emsclient;FireDACCommon;RESTBackendComponents;soapserver;CloudService;FireDACCommonDriver;inet;FireDAC;FireDACSqliteDriver;soaprtl;soapmidas;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
<VerInfo_Locale>3082</VerInfo_Locale>
<SanitizedProjectName>TabBrowser</SanitizedProjectName>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_UsePackage>DBXSqliteDriver;DataSnapServerMidas;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;DataSnapFireDAC;svnui;tethering;Componentes;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;svn;DBXOracleDriver;inetdb;Componentes_Int;CEF4Delphi;IndyProtocols240;fmx;fmxdae;FireDACDBXDriver;dbexpress;vclx;dsnap;DataSnapCommon;DataSnapConnectors;VCLRESTComponents;vclie;bindengine;DBXMySQLDriver;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;DataSnapClient;bindcompdbx;vcl;DBXSybaseASEDriver;FireDACDb2Driver;GR32_DSGN_RSXE5;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;Componentes_UI;FireDACPgDriver;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;DbxCommonDriver;Componentes_Misc;IndySystem240;DataSnapServer;xmlrtl;DataSnapNativeClient;fmxobj;vclwinx;FireDACDSDriver;rtl;DbxClientDriver;IndyCore240;DBXSybaseASADriver;CustomIPTransport;vcldsnap;GR32_RSXE5;bindcomp;appanalytics;Componentes_RTF;DBXInformixDriver;bindcompvcl;Componentes_vCard;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;inetdbxpress;FireDACMongoDBDriver;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<DCC_UsePackage>DBXSqliteDriver;DataSnapServerMidas;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;DataSnapFireDAC;tethering;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;DBXOracleDriver;inetdb;IndyProtocols240;fmx;fmxdae;FireDACDBXDriver;dbexpress;vclx;dsnap;DataSnapCommon;DataSnapConnectors;VCLRESTComponents;vclie;bindengine;DBXMySQLDriver;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;DataSnapClient;bindcompdbx;vcl;DBXSybaseASEDriver;FireDACDb2Driver;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;FireDACPgDriver;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;DbxCommonDriver;IndySystem240;DataSnapServer;xmlrtl;DataSnapNativeClient;fmxobj;vclwinx;FireDACDSDriver;rtl;DbxClientDriver;IndyCore240;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;bindcompvcl;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;inetdbxpress;FireDACMongoDBDriver;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
<DCC_RemoteDebug>true</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<DCC_RemoteDebug>false</DCC_RemoteDebug>
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppEnableHighDPI>true</AppEnableHighDPI>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>0</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppEnableHighDPI>true</AppEnableHighDPI>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="uMainForm.pas">
<Form>MainForm</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Application</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">TabBrowser.dpr</Source>
</Source>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclIPIndyImpl250.bpl">IP Abstraction Indy Implementation Design Time</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Deployment Version="3">
<DeployFile LocalName="Win32\Debug\TabBrowser.exe" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>TabBrowser.exe</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="AdditionalDebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidClassesDexFile">
<Platform Name="Android">
<RemoteDir>classes</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidGDBServer">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiFile">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeMipsFile">
<Platform Name="Android">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDef">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon144">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage426">
<Platform Name="Android">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage470">
<Platform Name="Android">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage640">
<Platform Name="Android">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage960">
<Platform Name="Android">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyFramework">
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="DependencyPackage">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="File">
<Platform Name="Android">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch1024">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch1536">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2048">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch768">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch320">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch640">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch640x1136">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectAndroidManifest">
<Platform Name="Android">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSEntitlements">
<Platform Name="iOSDevice32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSInfoPList">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSResource">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXEntitlements">
<Platform Name="OSX32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXInfoPList">
<Platform Name="OSX32">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
<Platform Name="OSX32">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="ProjectOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="Linux64">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectUWPManifest">
<Platform Name="Win32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
</Project>

10
demos/TabbedBrowser/TabBrowser.dproj.local Normal file
View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>2017/09/22 21:27:36.000.032,=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/09/22 21:28:13.000.073,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.dfm=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
<Transaction>2017/09/22 21:28:13.000.073,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2017/09/22 21:28:23.000.089,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabbedBrowser.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
<Transaction>2017/09/22 21:40:45.000.419,C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabbedBrowser.dproj=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dproj</Transaction>
</Transactions>
</BorlandProject>

784
demos/TabbedBrowser/TabBrowser.dsk Normal file
View File

@ -0,0 +1,784 @@
[Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MDIBrowser\uChildForm.pas',0,1,67,1,95,0,0,,{1
File_1=TSourceModule,'c:\program files (x86)\embarcadero\studio\19.0\source\rtl\common\System.Classes.pas',0,1,4648,1,4671,0,0,,
File_2=TSourceModule,'c:\program files (x86)\embarcadero\studio\19.0\SOURCE\VCL\Vcl.ComCtrls.pas',0,1,6640,1,6662,0,0,{{17142,0}
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MiniBrowser\uMiniBrowser.pas',0,1,204,13,206,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,389,27,411,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\MDIBrowser\uMainForm.pas',0,1,49,49,57,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleBrowser\uSimpleBrowser.pas',0,1,1,1,1,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Componentes_UI\uTabRow.pas',0,1,945,67,973,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Componentes\base_components\uBrowserTabBody.pas',0,1,2306,1,2328,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Componentes\base_components\uWebPanel.pas',0,1,3140,82,3177,0,0,,
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dproj
Module1=default.htm
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas
Count=3
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dproj]
ModuleType=TBaseProject
[default.htm]
ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas]
ModuleType=TSourceModule
[EditWindow0]
ViewCount=3
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dpr
View0=0
View1=1
View2=2
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=10000
Height=9417
MaxLeft=-1
MaxTop=-1
ClientWidth=10000
ClientHeight=9417
DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4
RightPanelData=00000800010100000000261500000000000001D00700000000000001000000004312000009000000446F636B536974653201000000005C1D000009000000446F636B5369746534FFFFFFFF
BottomPanelSize=1529
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020100000009000000446F636B53697465313B3600000000000002F90500000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=PropertyInspector=0,DockSite3=1
[View0]
CustomEditViewType=TWelcomePageView
WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas
CursorX=80
CursorY=141
TopLine=365
LeftCol=1
Elisions=
Bookmarks={1,166,37}{2,127,24}
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas
[View2]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dpr
CursorX=2
CursorY=62
TopLine=41
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\TabBrowser.dpr
[UndockedDesigner]
Count=0
[Watches]
Count=0
[WatchWindow]
WatchColumnWidth=120
WatchShowColumnHeaders=1
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3820
Height=1099
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1099
TBDockHeight=213
LRDockWidth=13602
Dockable=1
StayOnTop=0
[Breakpoints]
Count=0
[EmbarcaderoWin32Debugger_AddressBreakpoints]
Count=0
[EmbarcaderoWin64Debugger_AddressBreakpoints]
Count=0
[Main Window]
PercentageSizes=1
Create=1
Visible=1
Docked=0
State=2
Left=148
Top=269
Width=8930
Height=8520
MaxLeft=-8
MaxTop=-11
MaxWidth=8930
MaxHeight=8520
ClientWidth=10000
ClientHeight=9753
BottomPanelSize=9111
BottomPanelClients=EditWindow0
BottomPanelData=0000080000000000000000000000000000000000000000000000000100000000000000000C0000004564697457696E646F775F30FFFFFFFF
[ProjectManager]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2000
Height=4305
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4305
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
StayOnTop=0
[MessageView]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=18
Width=10000
Height=1379
MaxLeft=-1
MaxTop=-1
ClientWidth=10000
ClientHeight=1379
TBDockHeight=1379
LRDockWidth=2773
Dockable=1
StayOnTop=0
[ToolForm]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2000
Height=2735
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=2735
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
StayOnTop=0
[ClipboardHistory]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=0
Top=0
Width=1906
Height=4989
MaxLeft=-8
MaxTop=-11
ClientWidth=1781
ClientHeight=4563
TBDockHeight=4989
LRDockWidth=1906
Dockable=1
StayOnTop=0
[ProjectStatistics]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=0
Top=0
Width=2062
Height=5740
MaxLeft=-8
MaxTop=-11
ClientWidth=1938
ClientHeight=5314
TBDockHeight=5740
LRDockWidth=2062
Dockable=1
StayOnTop=0
[ClassBrowserTool]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-8
Top=-30
Width=1844
Height=3139
MaxLeft=-1
MaxTop=-1
ClientWidth=1844
ClientHeight=3139
TBDockHeight=3139
LRDockWidth=1844
Dockable=1
StayOnTop=0
[MetricsView]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=1200
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1200
TBDockHeight=4832
LRDockWidth=3562
Dockable=1
StayOnTop=0
[QAView]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=1200
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1200
TBDockHeight=4832
LRDockWidth=3562
Dockable=1
StayOnTop=0
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=78
Top=386
Width=1898
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=7164
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
SplitPos=111
[frmDesignPreview]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
StayOnTop=0
[TFileExplorerForm]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-946
Top=5
Width=2844
Height=6200
MaxLeft=-1
MaxTop=-1
ClientWidth=2844
ClientHeight=6200
TBDockHeight=6200
LRDockWidth=2844
Dockable=1
StayOnTop=0
[TemplateView]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-1152
Top=247
Width=273
Height=359
MaxLeft=-1
MaxTop=-1
ClientWidth=273
ClientHeight=359
TBDockHeight=359
LRDockWidth=273
Dockable=1
StayOnTop=0
Name=120
Description=334
filter=1
[DebugLogView]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3820
Height=1099
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1099
TBDockHeight=415
LRDockWidth=4953
Dockable=1
StayOnTop=0
[ThreadStatusWindow]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3820
Height=1099
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1099
TBDockHeight=213
LRDockWidth=7406
Dockable=1
StayOnTop=0
Column0Width=145
Column1Width=100
Column2Width=115
Column3Width=250
[LocalVarsWindow]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3820
Height=1099
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1099
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
StayOnTop=0
[CallStackWindow]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3820
Height=1099
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1099
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
StayOnTop=0
[PatchForm]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=1200
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1200
TBDockHeight=2500
LRDockWidth=3398
Dockable=1
StayOnTop=0
[FindReferencsForm]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=964
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=964
TBDockHeight=2321
LRDockWidth=2820
Dockable=1
StayOnTop=0
[RefactoringForm]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=1200
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1200
TBDockHeight=3206
LRDockWidth=2820
Dockable=1
StayOnTop=0
[ToDo List]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=1200
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1200
TBDockHeight=1155
LRDockWidth=3680
Dockable=1
StayOnTop=0
Column0Width=314
Column1Width=30
Column2Width=150
Column3Width=172
Column4Width=129
SortOrder=4
ShowHints=1
ShowChecked=1
[DataExplorerContainer]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
StayOnTop=0
[GraphDrawingModel]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=249
Top=709
Width=2859
Height=3206
MaxLeft=-1
MaxTop=-1
ClientWidth=2859
ClientHeight=3206
TBDockHeight=3206
LRDockWidth=2859
Dockable=1
StayOnTop=0
[BreakpointWindow]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3820
Height=1099
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1099
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
StayOnTop=0
Column0Width=200
Column1Width=75
Column2Width=200
Column3Width=200
Column4Width=200
Column5Width=75
Column6Width=75
[StructureView]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=1773
Height=6738
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6738
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
StayOnTop=0
[ModelViewTool]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2000
Height=6883
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6883
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
StayOnTop=0
[BorlandEditorCodeExplorer@EditWindow0]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=0
Top=0
Width=1828
Height=6177
MaxLeft=-8
MaxTop=-11
ClientWidth=1703
ClientHeight=5751
TBDockHeight=6177
LRDockWidth=1828
Dockable=1
StayOnTop=0
[DockHosts]
DockHostCount=5
[DockSite0]
HostDockSite=DockBottomCenterPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=1480
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1480
TBDockHeight=1480
LRDockWidth=2336
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=RefactoringForm
TabDockClients=RefactoringForm,PatchForm,FindReferencsForm,ToDo List,MetricsView,QAView
[DockSite1]
HostDockSite=DockBottomPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=0
Top=18
Width=3820
Height=1379
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1379
TBDockHeight=1379
LRDockWidth=3820
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=18
Width=2000
Height=4585
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4585
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm
[DockSite3]
HostDockSite=LeftDockTabSet
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=0
Top=0
Width=1898
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6738
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=StructureView
TabDockClients=StructureView,ClassBrowserTool
[DockSite4]
HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=449
Width=2000
Height=2735
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=2735
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=ToolForm
TabDockClients=ToolForm,TemplateView

BIN
demos/TabbedBrowser/TabBrowser.identcache Normal file
View File

Binary file not shown.

BIN
demos/TabbedBrowser/TabBrowser.res Normal file
View File

Binary file not shown.

10
demos/TabbedBrowser/TabBrowser.stat Normal file
View File

@ -0,0 +1,10 @@
[Stats]
EditorSecs=5580
DesignerSecs=425
InspectorSecs=86
CompileSecs=93874
OtherSecs=187
StartTime=22/09/2017 23:12:56
RealKeys=0
EffectiveKeys=0
DebugSecs=699

776
demos/TabbedBrowser/TabbedBrowser.dsk Normal file
View File

@ -0,0 +1,776 @@
[Closed Files]
File_0=TSourceModule,'c:\program files (x86)\embarcadero\studio\19.0\source\rtl\common\System.Classes.pas',0,1,3813,1,3835,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Componentes_UI\uTabRow.pas',0,1,945,67,973,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Componentes\base_components\uBrowserTabBody.pas',0,1,2306,1,2328,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Componentes\base_components\uWebPanel.pas',0,1,3140,82,3177,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Componentes\base_components\uHTTPCEFPanel.pas',0,1,3651,77,3681,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Componentes\base_components\uTabbedBrowser.pas',0,1,2309,50,2341,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Componentes\base_components\uTabContentsPanel.pas',0,1,348,48,369,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Componentes\base_components\uHTTPIEPanel.pas',0,1,1963,56,1993,0,0,,{1
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\Componentes_Int\uWebBrowserEx2.pas',0,1,152,3,178,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,413,56,435,0,0,,
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas
Module1=default.htm
Count=2
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas]
ModuleType=TSourceModule
[default.htm]
ModuleType=TURLModule
[EditWindow0]
ViewCount=2
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas
View0=0
View1=1
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=10000
Height=9417
MaxLeft=-1
MaxTop=-1
ClientWidth=10000
ClientHeight=9417
DockedToMainForm=1
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=1898
LeftPanelClients=PropertyInspector
LeftPanelData=00000800010100000000A219000000000000016A070000000000000100000000972300001100000050726F7065727479496E73706563746F72FFFFFFFF
RightPanelSize=2000
RightPanelClients=DockSite4
RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000009723000009000000446F636B5369746534FFFFFFFF
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
TabDockLeftClients=DockSite3=0
TabDockRightClients=DockSite2=0
[View0]
CustomEditViewType=TWelcomePageView
WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\TabbedBrowser\uMainForm.pas
CursorX=1
CursorY=30
TopLine=29
LeftCol=1
Elisions=
Bookmarks=
EditViewName=Borland.FormDesignerView
[UndockedDesigner]
Count=0
[Watches]
Count=0
[WatchWindow]
WatchColumnWidth=120
WatchShowColumnHeaders=1
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3820
Height=1143
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
TBDockHeight=213
LRDockWidth=13602
Dockable=1
StayOnTop=0
[Breakpoints]
Count=0
[EmbarcaderoWin32Debugger_AddressBreakpoints]
Count=0
[EmbarcaderoWin64Debugger_AddressBreakpoints]
Count=0
[Main Window]
PercentageSizes=1
Create=1
Visible=1
Docked=0
State=2
Left=148
Top=269
Width=8930
Height=8520
MaxLeft=-8
MaxTop=-11
MaxWidth=8930
MaxHeight=8520
ClientWidth=10000
ClientHeight=9753
BottomPanelSize=9111
BottomPanelClients=EditWindow0
BottomPanelData=0000080000000000000000000000000000000000000000000000000100000000000000000C0000004564697457696E646F775F30FFFFFFFF
[ProjectManager]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6513
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6513
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
StayOnTop=0
[MessageView]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=0
Top=0
Width=2773
Height=1424
MaxLeft=-1
MaxTop=-1
ClientWidth=2773
ClientHeight=1424
TBDockHeight=1424
LRDockWidth=2773
Dockable=1
StayOnTop=0
[ToolForm]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2000
Height=9215
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=9215
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
StayOnTop=0
[ClipboardHistory]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=0
Top=0
Width=1906
Height=4989
MaxLeft=-8
MaxTop=-11
ClientWidth=1781
ClientHeight=4563
TBDockHeight=4989
LRDockWidth=1906
Dockable=1
StayOnTop=0
[ProjectStatistics]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=0
Top=0
Width=2062
Height=5740
MaxLeft=-8
MaxTop=-11
ClientWidth=1938
ClientHeight=5314
TBDockHeight=5740
LRDockWidth=2062
Dockable=1
StayOnTop=0
[ClassBrowserTool]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-8
Top=-30
Width=1844
Height=3139
MaxLeft=-1
MaxTop=-1
ClientWidth=1844
ClientHeight=3139
TBDockHeight=3139
LRDockWidth=1844
Dockable=1
StayOnTop=0
[MetricsView]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=1200
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1200
TBDockHeight=4832
LRDockWidth=3562
Dockable=1
StayOnTop=0
[QAView]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=1200
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1200
TBDockHeight=4832
LRDockWidth=3562
Dockable=1
StayOnTop=0
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=18
Width=1898
Height=9215
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=9215
TBDockHeight=7220
LRDockWidth=1898
Dockable=1
StayOnTop=0
SplitPos=111
[PropInspDesignerSelection]
ArrangeBy=Name
SelectedItem=Align,
ExpandedItems=Anchors=0,BorderIcons=0,Constraints=0,Font=0,GlassFrame=0,HorzScrollBar=0,LiveBindings=0,"LiveBindings Designer=0",Margins=0,Padding=1,StyleElements=0,Touch=0,VertScrollBar=0,BevelEdges=0
[frmDesignPreview]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6513
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6513
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
StayOnTop=0
[TFileExplorerForm]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-954
Top=-7
Width=2844
Height=6200
MaxLeft=-1
MaxTop=-1
ClientWidth=2844
ClientHeight=6200
TBDockHeight=6200
LRDockWidth=2844
Dockable=1
StayOnTop=0
[TemplateView]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-1024
Top=247
Width=273
Height=359
MaxLeft=-1
MaxTop=-1
ClientWidth=273
ClientHeight=359
TBDockHeight=359
LRDockWidth=273
Dockable=1
StayOnTop=0
Name=120
Description=334
filter=1
[DebugLogView]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3820
Height=1143
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
TBDockHeight=415
LRDockWidth=4953
Dockable=1
StayOnTop=0
[ThreadStatusWindow]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3820
Height=1143
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
TBDockHeight=213
LRDockWidth=7406
Dockable=1
StayOnTop=0
Column0Width=145
Column1Width=100
Column2Width=115
Column3Width=250
[LocalVarsWindow]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3820
Height=1143
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
StayOnTop=0
[CallStackWindow]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3820
Height=1143
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
StayOnTop=0
[PatchForm]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=1200
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1200
TBDockHeight=2500
LRDockWidth=3398
Dockable=1
StayOnTop=0
[FindReferencsForm]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=964
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=964
TBDockHeight=2321
LRDockWidth=2820
Dockable=1
StayOnTop=0
[RefactoringForm]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=1200
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1200
TBDockHeight=3206
LRDockWidth=2820
Dockable=1
StayOnTop=0
[ToDo List]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=1200
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1200
TBDockHeight=1155
LRDockWidth=3680
Dockable=1
StayOnTop=0
Column0Width=314
Column1Width=30
Column2Width=150
Column3Width=172
Column4Width=129
SortOrder=4
ShowHints=1
ShowChecked=1
[DataExplorerContainer]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6513
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6513
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
StayOnTop=0
[GraphDrawingModel]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=249
Top=709
Width=2859
Height=3206
MaxLeft=-1
MaxTop=-1
ClientWidth=2859
ClientHeight=3206
TBDockHeight=3206
LRDockWidth=2859
Dockable=1
StayOnTop=0
[BreakpointWindow]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3820
Height=1143
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
StayOnTop=0
Column0Width=200
Column1Width=75
Column2Width=200
Column3Width=200
Column4Width=200
Column5Width=75
Column6Width=75
[StructureView]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=1773
Height=6794
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6794
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
StayOnTop=0
[ModelViewTool]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6513
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6513
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
StayOnTop=0
[BorlandEditorCodeExplorer@EditWindow0]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=0
Top=0
Width=1828
Height=6177
MaxLeft=-8
MaxTop=-11
ClientWidth=1703
ClientHeight=5751
TBDockHeight=6177
LRDockWidth=1828
Dockable=1
StayOnTop=0
[DockHosts]
DockHostCount=5
[DockSite0]
HostDockSite=DockBottomCenterPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=0
Top=0
Width=2336
Height=1480
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1480
TBDockHeight=1480
LRDockWidth=2336
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=RefactoringForm
TabDockClients=RefactoringForm,PatchForm,FindReferencsForm,ToDo List,MetricsView,QAView
[DockSite1]
HostDockSite=DockBottomPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=0
Top=18
Width=3820
Height=1424
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1424
TBDockHeight=1424
LRDockWidth=3820
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=DebugLogView
TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
[DockSite2]
HostDockSite=RightTabDock
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=1024
Top=52
Width=2000
Height=7220
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6794
TBDockHeight=7220
LRDockWidth=2000
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=ProjectManager
TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm
[DockSite3]
HostDockSite=LeftDockTabSet
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=0
Top=0
Width=1898
Height=7220
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6794
TBDockHeight=7220
LRDockWidth=1898
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=StructureView
TabDockClients=StructureView,ClassBrowserTool
[DockSite4]
HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=18
Width=2000
Height=9215
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=9215
TBDockHeight=7220
LRDockWidth=2000
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=ToolForm
TabDockClients=ToolForm,TemplateView

BIN
demos/TabbedBrowser/TabbedBrowser.identcache Normal file
View File

Binary file not shown.

BIN
demos/TabbedBrowser/TabbedBrowser.res Normal file
View File

Binary file not shown.

10
demos/TabbedBrowser/TabbedBrowser.stat Normal file
View File

@ -0,0 +1,10 @@
[Stats]
EditorSecs=2610
DesignerSecs=614
InspectorSecs=126
CompileSecs=55886
OtherSecs=239
StartTime=22/09/2017 21:40:28
RealKeys=0
EffectiveKeys=0
DebugSecs=131

384
demos/TabbedBrowser/cef.inc Normal file
View File

@ -0,0 +1,384 @@
// ************************************************************************
// ***************************** 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.
*
*)
// The complete list of compiler versions is here :
// http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Compiler_Versions
{$DEFINE DELPHI_VERSION_UNKNOW}
{$IFDEF FPC}
{$DEFINE CEF_MULTI_THREADED_MESSAGE_LOOP}
{$DEFINE SUPPORTS_INLINE}
{$ENDIF}
// Delphi 5
{$IFDEF VER130}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$ENDIF}
// Delphi 6
{$IFDEF VER140}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$ENDIF}
// Delphi 7
{$IFDEF VER150}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$ENDIF}
// Delphi 8
{$IFDEF VER160}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$ENDIF}
// Delphi 2005
{$IFDEF VER170}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$ENDIF}
{$IFDEF VER180}
{$UNDEF DELPHI_VERSION_UNKNOW}
// Delphi 2007
{$IFDEF VER185}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
// Delphi 2006
{$ELSE}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$ENDIF}
{$ENDIF}
// Delphi 2009
{$IFDEF VER200}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$ENDIF}
//Delphi 2010
{$IFDEF VER210}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$ENDIF}
// Delphi XE
{$IFDEF VER220}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$ENDIF}
// Delphi XE2
{$IFDEF VER230}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$ENDIF}
// Delphi XE3
{$IFDEF VER240}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$ENDIF}
// Delphi XE4
{$IFDEF VER250}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$ENDIF}
// Delphi XE5
{$IFDEF VER260}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$ENDIF}
// Delphi XE6
{$IFDEF VER270}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$ENDIF}
// Delphi XE7
{$IFDEF VER280}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$ENDIF}
// Delphi XE8
{$IFDEF VER290}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$ENDIF VER290}
// Rad Studio 10 - Delphi Seattle
{$IFDEF VER300}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$DEFINE DELPHI23_UP}
{$ENDIF}
// Rad Studio 10.1 - Delphi Berlin
{$IFDEF VER310}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$DEFINE DELPHI23_UP}
{$DEFINE DELPHI24_UP}
{$ENDIF}
// Rad Studio 10.2 - Delphi Tokyo
{$IFDEF VER320}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$DEFINE DELPHI23_UP}
{$DEFINE DELPHI24_UP}
{$DEFINE DELPHI25_UP}
{$ENDIF}
{$IFDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$DEFINE DELPHI8_UP}
{$DEFINE DELPHI9_UP}
{$DEFINE DELPHI10_UP}
{$DEFINE DELPHI11_UP}
{$DEFINE DELPHI12_UP}
{$DEFINE DELPHI14_UP}
{$DEFINE DELPHI15_UP}
{$DEFINE DELPHI16_UP}
{$DEFINE DELPHI17_UP}
{$DEFINE DELPHI18_UP}
{$DEFINE DELPHI19_UP}
{$DEFINE DELPHI20_UP}
{$DEFINE DELPHI21_UP}
{$DEFINE DELPHI22_UP}
{$DEFINE DELPHI23_UP}
{$DEFINE DELPHI24_UP}
{$DEFINE DELPHI25_UP}
{$ENDIF}
{$IFDEF DELPHI9_UP}
{$DEFINE SUPPORTS_INLINE}
{$ENDIF}

214
demos/TabbedBrowser/uMainForm.dfm Normal file
View File

@ -0,0 +1,214 @@
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'Tab Browser'
ClientHeight = 573
ClientWidth = 732
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ButtonPnl: TPanel
Left = 0
Top = 0
Width = 732
Height = 35
Align = alTop
BevelOuter = bvNone
Caption = 'ButtonPnl'
Padding.Left = 5
Padding.Top = 5
Padding.Right = 5
Padding.Bottom = 5
ShowCaption = False
TabOrder = 0
ExplicitWidth = 684
object NavButtonPnl: TPanel
Left = 5
Top = 5
Width = 183
Height = 25
Align = alLeft
BevelOuter = bvNone
ShowCaption = False
TabOrder = 1
object BackBtn: TButton
Left = 63
Top = 0
Width = 25
Height = 25
Caption = '3'
Font.Charset = SYMBOL_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Webdings'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BackBtnClick
end
object ForwardBtn: TButton
Left = 93
Top = 0
Width = 25
Height = 25
Caption = '4'
Font.Charset = SYMBOL_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Webdings'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = ForwardBtnClick
end
object ReloadBtn: TButton
Left = 123
Top = 0
Width = 25
Height = 25
Caption = 'q'
Font.Charset = SYMBOL_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Webdings'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = ReloadBtnClick
end
object StopBtn: TButton
Left = 153
Top = 0
Width = 25
Height = 25
Caption = '='
Font.Charset = SYMBOL_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Webdings'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = StopBtnClick
end
object AddTabBtn: TButton
Left = 1
Top = 0
Width = 25
Height = 25
Caption = '+'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = AddTabBtnClick
end
object RemoveTabBtn: TButton
Left = 32
Top = 0
Width = 25
Height = 25
Caption = '-'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = RemoveTabBtnClick
end
end
object ConfigPnl: TPanel
Left = 695
Top = 5
Width = 32
Height = 25
Align = alRight
BevelOuter = bvNone
TabOrder = 2
ExplicitLeft = 648
object GoBtn: TButton
Left = 6
Top = 0
Width = 25
Height = 25
Caption = #9658
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = GoBtnClick
end
end
object URLEditPnl: TPanel
Left = 188
Top = 5
Width = 507
Height = 25
Align = alClient
BevelOuter = bvNone
Padding.Top = 2
ShowCaption = False
TabOrder = 0
ExplicitLeft = 190
ExplicitWidth = 458
object URLCbx: TComboBox
Left = 0
Top = 2
Width = 507
Height = 21
Align = alClient
ItemIndex = 0
TabOrder = 0
Text = 'https://www.google.com'
Items.Strings = (
'https://www.google.com'
'https://www.whatismybrowser.com/detect/what-http-headers-is-my-b' +
'rowser-sending'
'https://www.w3schools.com/js/tryit.asp?filename=tryjs_win_close'
'https://www.w3schools.com/html/html5_video.asp'
'http://www.adobe.com/software/flash/about/'
'http://isflashinstalled.com/'
'chrome://version/'
'http://html5test.com/'
'https://www.w3schools.com/'
'http://webglsamples.org/'
'https://www.youtube.com'
'https://html5demos.com/drag/'
'https://developers.google.com/maps/documentation/javascript/exam' +
'ples/streetview-embed?hl=fr')
ExplicitTop = 1
ExplicitWidth = 456
end
end
end
object PageControl1: TPageControl
Left = 0
Top = 35
Width = 732
Height = 538
Align = alClient
TabOrder = 1
OnChange = PageControl1Change
ExplicitWidth = 684
ExplicitHeight = 497
end
end

409
demos/TabbedBrowser/uMainForm.pas Normal file
View File

@ -0,0 +1,409 @@
// ************************************************************************
// ***************************** 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 uMainForm;
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.Buttons, Vcl.ExtCtrls,
{$ELSE}
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, ComCtrls, Buttons, ExtCtrls,
{$ENDIF}
uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFApplication, uCEFTypes, uCEFConstants,
Vcl.StdCtrls;
const
CEFBROWSER_DESTROYWNDPARENT = WM_APP + $100;
CEFBROWSER_DESTROYTAB = WM_APP + $101;
type
TMainForm = class(TForm)
PageControl1: TPageControl;
ButtonPnl: TPanel;
NavButtonPnl: TPanel;
BackBtn: TButton;
ForwardBtn: TButton;
ReloadBtn: TButton;
StopBtn: TButton;
ConfigPnl: TPanel;
GoBtn: TButton;
URLEditPnl: TPanel;
URLCbx: TComboBox;
AddTabBtn: TButton;
RemoveTabBtn: TButton;
procedure AddTabBtnClick(Sender: TObject);
procedure RemoveTabBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure BackBtnClick(Sender: TObject);
procedure ForwardBtnClick(Sender: TObject);
procedure ReloadBtnClick(Sender: TObject);
procedure StopBtnClick(Sender: TObject);
procedure GoBtnClick(Sender: TObject);
protected
FDestroying : boolean;
procedure Chromium_OnAfterCreated(Sender: TObject; const browser: ICefBrowser);
procedure Chromium_OnAddressChange(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const url: ustring);
procedure Chromium_OnTitleChange(Sender: TObject; const browser: ICefBrowser; const title: ustring);
procedure Chromium_OnClose(Sender: TObject; const browser: ICefBrowser; out Result: Boolean);
procedure Chromium_OnBeforeClose(Sender: TObject; const browser: ICefBrowser);
procedure BrowserCreatedMsg(var aMessage : TMessage); message CEF_AFTERCREATED;
procedure BrowserDestroyWindowParentMsg(var aMessage : TMessage); message CEFBROWSER_DESTROYWNDPARENT;
procedure BrowserDestroyTabMsg(var aMessage : TMessage); message CEFBROWSER_DESTROYTAB;
procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
procedure WMMoving(var aMessage : TMessage); message WM_MOVING;
function GetPageIndex(const aSender : TObject; var aPageIndex : integer) : boolean;
procedure NotifyMoveOrResizeStarted;
function SearchChromium(aPageIndex : integer; var aChromium : TChromium) : boolean;
function SearchWindowParent(aPageIndex : integer; var aWindowParent : TCEFWindowParent) : boolean;
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
// This is just a simplified demo with tab handling.
// It's not meant to be a complete browser or the best way to implement a tabbed browser.
// In this demo all browsers share the buttons and URL combobox.
// All TChromium components share the same functions for their events sending the
// PageIndex of the Tab where they are included in the Message.lParam parameter if necessary.
// For simplicity the Button panel and the PageControl are disabled while adding or removing tab sheets.
// The Form can't be closed if it's desrtoying a tab.
// In case of closing a tab sheet, the destruction sequence is this :
// 1. RemoveTabBtnClick calls TChromium.CloseBrowser of the selected tab which triggers a TChromium.OnClose event.
// 2. TChromium.OnClose sends a CEFBROWSER_DESTROYWNDPARENT message to destroy TCEFWindowParent in the main thread which triggers a TChromium.OnBeforeClose event.
// 3. TChromium.OnBeforeClose sends a CEFBROWSER_DESTROYTAB message to destroy the tab in the main thread.
procedure TMainForm.AddTabBtnClick(Sender: TObject);
var
TempSheet : TTabSheet;
TempWindowParent : TCEFWindowParent;
TempChromium : TChromium;
begin
ButtonPnl.Enabled := False;
PageControl1.Enabled := False;
TempSheet := TTabSheet.Create(PageControl1);
TempSheet.Caption := 'New Tab';
TempSheet.PageControl := PageControl1;
TempWindowParent := TCEFWindowParent.Create(TempSheet);
TempWindowParent.Parent := TempSheet;
TempWindowParent.Color := clWhite;
TempWindowParent.Align := alClient;
TempChromium := TChromium.Create(TempSheet);
TempChromium.OnAfterCreated := Chromium_OnAfterCreated;
TempChromium.OnAddressChange := Chromium_OnAddressChange;
TempChromium.OnTitleChange := Chromium_OnTitleChange;
TempChromium.OnClose := Chromium_OnClose;
TempChromium.OnBeforeClose := Chromium_OnBeforeClose;
TempChromium.CreateBrowser(TempWindowParent, '');
end;
procedure TMainForm.RemoveTabBtnClick(Sender: TObject);
var
TempChromium : TChromium;
begin
if SearchChromium(PageControl1.TabIndex, TempChromium) then
begin
FDestroying := True;
ButtonPnl.Enabled := False;
PageControl1.Enabled := False;
TempChromium.CloseBrowser(True);
end;
end;
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := not(FDestroying);
end;
procedure TMainForm.FormShow(Sender: TObject);
begin
AddTabBtn.Click;
end;
procedure TMainForm.ForwardBtnClick(Sender: TObject);
var
TempChromium : TChromium;
begin
if SearchChromium(PageControl1.TabIndex, TempChromium) then TempChromium.GoForward;
end;
procedure TMainForm.GoBtnClick(Sender: TObject);
var
TempChromium : TChromium;
begin
if SearchChromium(PageControl1.TabIndex, TempChromium) then TempChromium.LoadURL(URLCbx.Text);
end;
procedure TMainForm.ReloadBtnClick(Sender: TObject);
var
TempChromium : TChromium;
begin
if SearchChromium(PageControl1.TabIndex, TempChromium) then TempChromium.Reload;
end;
procedure TMainForm.BackBtnClick(Sender: TObject);
var
TempChromium : TChromium;
begin
if SearchChromium(PageControl1.TabIndex, TempChromium) then TempChromium.GoBack;
end;
procedure TMainForm.StopBtnClick(Sender: TObject);
var
TempChromium : TChromium;
begin
if SearchChromium(PageControl1.TabIndex, TempChromium) then TempChromium.StopLoad;
end;
procedure TMainForm.BrowserCreatedMsg(var aMessage : TMessage);
var
TempWindowParent : TCEFWindowParent;
TempChromium : TChromium;
begin
ButtonPnl.Enabled := True;
PageControl1.Enabled := True;
if SearchWindowParent(aMessage.lParam, TempWindowParent) then
TempWindowParent.UpdateSize;
if SearchChromium(aMessage.lParam, TempChromium) then
TempChromium.LoadURL(URLCbx.Items[0]);
end;
procedure TMainForm.BrowserDestroyWindowParentMsg(var aMessage : TMessage);
var
TempWindowParent : TCEFWindowParent;
begin
if SearchWindowParent(aMessage.lParam, TempWindowParent) then TempWindowParent.Free;
end;
procedure TMainForm.BrowserDestroyTabMsg(var aMessage : TMessage);
begin
if (aMessage.lParam >= 0) and
(aMessage.lParam < PageControl1.PageCount) then
PageControl1.Pages[aMessage.lParam].Free;
ButtonPnl.Enabled := True;
PageControl1.Enabled := True;
FDestroying := False;
end;
procedure TMainForm.Chromium_OnAfterCreated(Sender: TObject; const browser: ICefBrowser);
var
TempPageIndex : integer;
begin
if GetPageIndex(Sender, TempPageIndex) then
PostMessage(Handle, CEF_AFTERCREATED, 0, TempPageIndex);
end;
procedure TMainForm.Chromium_OnAddressChange(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const url: ustring);
var
TempPageIndex : integer;
begin
if (PageControl1.TabIndex >= 0) and
GetPageIndex(Sender, TempPageIndex) and
(PageControl1.Pages[PageControl1.TabIndex].PageIndex = TempPageIndex) then
URLCbx.Text := url;
end;
function TMainForm.GetPageIndex(const aSender : TObject; var aPageIndex : integer) : boolean;
begin
Result := False;
aPageIndex := -1;
if (aSender <> nil) and
(aSender is TComponent) and
(TComponent(aSender).Owner <> nil) and
(TComponent(aSender).Owner is TTabSheet) then
begin
aPageIndex := TTabSheet(TComponent(aSender).Owner).PageIndex;
Result := True;
end;
end;
procedure TMainForm.Chromium_OnTitleChange(Sender: TObject; const browser: ICefBrowser; const title: ustring);
var
TempPageIndex : integer;
begin
if GetPageIndex(Sender, TempPageIndex) then
PageControl1.Pages[TempPageIndex].Caption := title;
end;
procedure TMainForm.Chromium_OnClose(Sender: TObject; const browser: ICefBrowser; out Result: Boolean);
var
TempPageIndex : integer;
begin
if GetPageIndex(Sender, TempPageIndex) then
PostMessage(Handle, CEFBROWSER_DESTROYWNDPARENT, 0, TempPageIndex);
Result := False;
end;
procedure TMainForm.Chromium_OnBeforeClose(Sender: TObject; const browser: ICefBrowser);
var
TempPageIndex : integer;
begin
if GetPageIndex(Sender, TempPageIndex) then
PostMessage(Handle, CEFBROWSER_DESTROYTAB, 0, TempPageIndex);
end;
function TMainForm.SearchChromium(aPageIndex : integer; var aChromium : TChromium) : boolean;
var
i, j : integer;
TempComponent : TComponent;
TempSheet : TTabSheet;
begin
Result := False;
aChromium := nil;
if (aPageIndex >= 0) and (aPageIndex < PageControl1.PageCount) then
begin
TempSheet := PageControl1.Pages[aPageIndex];
i := 0;
j := TempSheet.ComponentCount;
while (i < j) and not(Result) do
begin
TempComponent := TempSheet.Components[i];
if (TempComponent <> nil) and (TempComponent is TChromium) then
begin
aChromium := TChromium(TempComponent);
Result := True;
end
else
inc(i);
end;
end;
end;
function TMainForm.SearchWindowParent(aPageIndex : integer; var aWindowParent : TCEFWindowParent) : boolean;
var
i, j : integer;
TempControl : TControl;
TempSheet : TTabSheet;
begin
Result := False;
aWindowParent := nil;
if (aPageIndex >= 0) and (aPageIndex < PageControl1.PageCount) then
begin
TempSheet := PageControl1.Pages[aPageIndex];
i := 0;
j := TempSheet.ControlCount;
while (i < j) and not(Result) do
begin
TempControl := TempSheet.Controls[i];
if (TempControl <> nil) and (TempControl is TCEFWindowParent) then
begin
aWindowParent := TCEFWindowParent(TempControl);
Result := True;
end
else
inc(i);
end;
end;
end;
procedure TMainForm.NotifyMoveOrResizeStarted;
var
i, j : integer;
TempChromium : TChromium;
begin
if not(showing) or (PageControl1 = nil) then exit;
i := 0;
j := PageControl1.PageCount;
while (i < j) do
begin
if SearchChromium(i, TempChromium) then TempChromium.NotifyMoveOrResizeStarted;
inc(i);
end;
end;
procedure TMainForm.WMMove(var aMessage : TWMMove);
begin
inherited;
NotifyMoveOrResizeStarted;
end;
procedure TMainForm.WMMoving(var aMessage : TMessage);
begin
inherited;
NotifyMoveOrResizeStarted;
end;
procedure TMainForm.PageControl1Change(Sender: TObject);
var
TempChromium : TChromium;
begin
if showing and SearchChromium(PageControl1.TabIndex, TempChromium) then
URLCbx.Text := TempChromium.DocumentURL;
end;
end.

232
source/CEF4Delphi.dsk
View File

@ -1,50 +1,27 @@
[Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumEvents.pas',0,1,1,1,1,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,711,66,737,0,0,,{1
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFCookieManager.pas',0,1,21,23,38,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFMiscFunctions.pas',0,1,506,3,524,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFExtension.pas',0,1,48,82,110,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFExtensionHandler.pas',0,1,163,83,302,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFGetExtensionResourceCallback.pas',0,1,34,38,53,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFRequestContextHandler.pas',0,1,43,31,55,0,0,,
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,30,39,60,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas',0,1,1387,32,1417,0,0,,{1
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas',0,1,222,49,270,0,0,,{1
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas',0,1,185,54,203,0,0,,
File_4=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFStringVisitor.pas',0,1,98,56,131,0,0,,
File_5=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTask.pas',0,1,186,45,204,0,0,,{1
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromiumEvents.pas',0,1,1,1,1,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFCookieManager.pas',0,1,21,23,38,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFMiscFunctions.pas',0,1,506,3,524,0,0,,
File_9=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFExtension.pas',0,1,48,82,110,0,0,,
[Modules]
Module0=default.htm
Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas
Module2=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas
Module3=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas
Module4=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTask.pas
Module5=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFStringVisitor.pas
Count=6
Count=1
EditWindowCount=1
[default.htm]
ModuleType=TURLModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTask.pas]
ModuleType=TSourceModule
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFStringVisitor.pas]
ModuleType=TSourceModule
[EditWindow0]
ViewCount=6
ViewCount=1
CurrentView=0
View0=0
View1=1
View2=2
View3=3
View4=4
View5=5
PercentageSizes=1
Create=1
Visible=1
@ -64,10 +41,10 @@ TopPanelSize=0
LeftPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2,DockSite4
RightPanelData=0000080001010100000009000000446F636B5369746534A21900000000000001D00700000000000001000000009723000009000000446F636B536974653201000000009723000009000000446F636B5369746534FFFFFFFF
BottomPanelSize=0
RightPanelData=00000800010100000000261500000000000001D00700000000000001000000004312000009000000446F636B536974653201000000005C1D000009000000446F636B5369746534FFFFFFFF
BottomPanelSize=1529
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomPanelData=0000080001020100000009000000446F636B53697465313B3600000000000002F90500000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
@ -77,61 +54,6 @@ TabDockLeftClients=PropertyInspector=0,DockSite3=1
CustomEditViewType=TWelcomePageView
WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas
CursorX=32
CursorY=1417
TopLine=1387
LeftCol=1
Elisions=
Bookmarks={1,1697,1}{2,1669,12}{3,2193,3}
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas
[View2]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas
CursorX=49
CursorY=270
TopLine=222
LeftCol=1
Elisions=
Bookmarks={1,1237,73}{2,251,39}
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFInterfaces.pas
[View3]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas
CursorX=54
CursorY=203
TopLine=185
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFBrowser.pas
[View4]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFStringVisitor.pas
CursorX=56
CursorY=131
TopLine=98
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFStringVisitor.pas
[View5]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTask.pas
CursorX=45
CursorY=204
TopLine=186
LeftCol=1
Elisions=
Bookmarks={1,203,1}
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTask.pas
[UndockedDesigner]
Count=0
@ -149,11 +71,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1099
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1099
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@ -197,11 +119,11 @@ State=0
Left=0
Top=0
Width=2000
Height=8935
Height=4305
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=8935
ClientHeight=4305
TBDockHeight=5897
LRDockWidth=2352
Dockable=1
@ -210,18 +132,18 @@ StayOnTop=0
[MessageView]
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=2773
Height=1424
Top=18
Width=10000
Height=1379
MaxLeft=-1
MaxTop=-1
ClientWidth=2773
ClientHeight=1424
TBDockHeight=1424
ClientWidth=10000
ClientHeight=1379
TBDockHeight=1379
LRDockWidth=2773
Dockable=1
StayOnTop=0
@ -235,11 +157,11 @@ State=0
Left=0
Top=0
Width=2000
Height=4383
Height=2735
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
ClientHeight=2735
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@ -289,8 +211,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-148
Top=-132
Left=-8
Top=-30
Width=1844
Height=3139
MaxLeft=-1
@ -346,15 +268,15 @@ Create=1
Visible=0
Docked=1
State=0
Left=0
Top=357
Left=78
Top=386
Width=1898
Height=5415
Height=7164
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=5415
TBDockHeight=7220
ClientHeight=7164
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -369,11 +291,11 @@ State=0
Left=0
Top=0
Width=2000
Height=6939
Height=6883
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6939
ClientHeight=6883
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@ -385,8 +307,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-898
Top=-132
Left=-946
Top=5
Width=2844
Height=6200
MaxLeft=-1
@ -404,8 +326,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-1026
Top=-132
Left=-1152
Top=247
Width=273
Height=359
MaxLeft=-1
@ -429,11 +351,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1099
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1099
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@ -448,11 +370,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1099
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1099
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@ -471,11 +393,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1099
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1099
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@ -490,11 +412,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1099
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1099
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@ -528,11 +450,11 @@ State=0
Left=0
Top=0
Width=2336
Height=1200
Height=964
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=1200
ClientHeight=964
TBDockHeight=2321
LRDockWidth=2820
Dockable=1
@ -593,11 +515,11 @@ State=0
Left=0
Top=0
Width=2000
Height=6939
Height=6883
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6939
ClientHeight=6883
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@ -609,8 +531,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=0
Top=0
Left=249
Top=709
Width=2859
Height=3206
MaxLeft=-1
@ -631,11 +553,11 @@ State=0
Left=0
Top=0
Width=3820
Height=1143
Height=1099
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1143
ClientHeight=1099
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@ -657,11 +579,11 @@ State=0
Left=0
Top=0
Width=1898
Height=9215
Height=7489
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=9215
ClientHeight=7489
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@ -676,11 +598,11 @@ State=0
Left=0
Top=0
Width=2000
Height=6939
Height=6883
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6939
ClientHeight=6883
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@ -741,14 +663,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=0
Top=18
Width=3820
Height=1424
Height=1379
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1424
TBDockHeight=1424
ClientHeight=1379
TBDockHeight=1379
LRDockWidth=3820
Dockable=1
StayOnTop=0
@ -767,12 +689,12 @@ State=0
Left=0
Top=18
Width=2000
Height=9215
Height=4585
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=9215
TBDockHeight=7220
ClientHeight=4585
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0
@ -788,15 +710,15 @@ Create=1
Visible=0
Docked=1
State=0
Left=0
Top=18
Left=1
Top=24
Width=1898
Height=9215
Height=7489
MaxLeft=-1
MaxTop=-1
ClientWidth=1898
ClientHeight=9215
TBDockHeight=7220
ClientHeight=7489
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
StayOnTop=0
@ -809,18 +731,18 @@ HostDockSite=DockRightPanel
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Visible=1
Docked=1
State=0
Left=0
Top=449
Width=2000
Height=4383
Height=2735
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=4383
TBDockHeight=7220
ClientHeight=2735
TBDockHeight=7164
LRDockWidth=2000
Dockable=1
StayOnTop=0

6
source/CEF4Delphi.stat
View File

@ -1,9 +1,9 @@
[Stats]
EditorSecs=178278
EditorSecs=178297
DesignerSecs=98
InspectorSecs=326
CompileSecs=5594736
OtherSecs=18755
CompileSecs=5611130
OtherSecs=18760
StartTime=22/01/2017 10:49:52
RealKeys=0
EffectiveKeys=0

2
source/uCEFApplication.pas
View File

@ -57,7 +57,7 @@ uses
const
CEF_SUPPORTED_VERSION_MAJOR = 3;
CEF_SUPPORTED_VERSION_MINOR = 3163;
CEF_SUPPORTED_VERSION_RELEASE = 1666;
CEF_SUPPORTED_VERSION_RELEASE = 1669;
CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = 61;