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

Fix for crashes on old Delphi versions

Browse Source
This commit is contained in:
Salvador Diaz Fau 2017-02-05 20:56:46 +01:00
parent d3d6c4ca0b
commit c23afaba1b
122 changed files with 875 additions and 118 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
source/CEF4Delphi.dproj
View File

@ -255,7 +255,16 @@
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="ProjectiOSDeviceResourceRules"/>
<DeployClass Name="DependencyModule">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
<Platform Name="OSX32">
<RemoteDir>Contents\Resources</RemoteDir>
@ -569,16 +578,7 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceResourceRules"/>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>

159
source/CEF4Delphi.dsk
View File

@ -1,22 +1,21 @@
[Closed Files]
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFTypes.pas',0,1,219,3,248,0,0,,
File_1=TSourceModule,'V:\dcef3-2883\src\ceflib.pas',0,1,12706,24,12734,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFLibFunctions.pas',0,1,261,51,294,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFClient.pas',0,1,504,62,536,0,0,,
File_4=TSourceModule,'V:\dcef3-2704\src\ceflib.pas',0,1,1,1,1,0,0,,
File_5=TSourceModule,'V:\dcef3-2704\src\cefgui.pas',0,1,1,1,1,0,0,,
File_6=TSourceModule,'V:\dcef3-2704\src\cefvcl.pas',0,1,1,1,1,0,0,,
File_7=TSourceModule,'V:\dcef3-2883\src\cefgui.pas',0,1,1,1,1,0,0,,
File_8=TSourceModule,'V:\dcef3-2883\src\cefvcl.pas',0,1,806,23,830,0,0,,
File_9=TSourceModule,'V:\2883\include\internal\cef_types.h',0,1,1,1,1,0,0,,
File_0=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas',0,1,1,34,49,0,0,,
File_1=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\cef.inc',0,1,1,22,128,0,0,,
File_2=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFv8Types.pas',0,1,1,1,1,0,0,,
File_3=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFv8Handler.pas',0,1,449,1,488,0,0,,
File_4=TSourceModule,'V:\dcef3-2883\src\ceflib.pas',0,1,40,30,70,0,0,,
File_5=TSourceModule,'V:\dcef3-2883\src\ceffmx.pas',0,1,1,9,30,0,0,,
File_6=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source_xe\uCEFChromium.pas',0,1,2691,1,2704,0,0,,
File_7=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFX509CertPrincipal.pas',0,1,63,1,82,0,0,,
File_8=TSourceModule,'C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFXmlReader.pas',0,1,79,1,92,0,0,,
[Modules]
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas
Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas
Module1=default.htm
Count=2
EditWindowCount=1
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas]
[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas]
ModuleType=TSourceModule
FormState=0
FormOnTop=0
@ -26,7 +25,7 @@ ModuleType=TURLModule
[EditWindow0]
ViewCount=2
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas
CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas
View0=0
View1=1
PercentageSizes=1
@ -48,10 +47,10 @@ TopPanelSize=0
LeftPanelSize=0
RightPanelSize=2000
RightPanelClients=DockSite2
RightPanelData=00000800010000000000A12300000000000000D90A0000000000000100000000A123000009000000446F636B5369746532FFFFFFFF
RightPanelData=00000800010100000000AA1900000000000001D0070000000000000100000000A123000009000000446F636B5369746532FFFFFFFF
BottomPanelSize=0
BottomPanelClients=DockSite1,MessageView
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B36000000000000022B0500000000000001000000003B3600000F0000004D65737361676556696577466F726DFFFFFFFF
BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,GraphDrawingModel
BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
@ -64,14 +63,14 @@ WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas
CursorX=74
CursorY=280
TopLine=234
Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas
CursorX=76
CursorY=2107
TopLine=2077
LeftCol=1
Elisions=
Bookmarks={1,927,43}{2,565,24}{3,663,6}
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFApplication.pas
Bookmarks=
EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFChromium.pas
[Watches]
Count=0
@ -87,11 +86,11 @@ State=0
Left=0
Top=0
Width=3820
Height=807
Height=1121
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=807
ClientHeight=1121
TBDockHeight=213
LRDockWidth=13602
Dockable=1
@ -152,14 +151,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=23
Width=10000
Height=1110
Top=0
Width=2773
Height=1424
MaxLeft=-1
MaxTop=-1
ClientWidth=10000
ClientHeight=1110
TBDockHeight=1110
ClientWidth=2773
ClientHeight=1424
TBDockHeight=1424
LRDockWidth=2773
Dockable=1
StayOnTop=0
@ -172,12 +171,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1875
Height=6738
Width=2000
Height=4339
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6738
ClientWidth=2000
ClientHeight=4339
TBDockHeight=7152
LRDockWidth=2000
Dockable=1
@ -227,8 +226,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-8
Top=-30
Left=-148
Top=-137
Width=1844
Height=3139
MaxLeft=-1
@ -284,14 +283,14 @@ Create=1
Visible=0
Docked=1
State=0
Left=78
Top=386
Left=0
Top=362
Width=1898
Height=7164
Height=5370
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6738
ClientWidth=1898
ClientHeight=5370
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
@ -307,11 +306,11 @@ State=0
Left=0
Top=0
Width=2000
Height=6816
Height=6861
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6816
ClientHeight=6861
TBDockHeight=5964
LRDockWidth=2508
Dockable=1
@ -323,8 +322,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-946
Top=1
Left=-898
Top=-137
Width=2844
Height=6200
MaxLeft=-1
@ -342,8 +341,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=-8
Top=287
Left=-1026
Top=-137
Width=273
Height=359
MaxLeft=-1
@ -367,11 +366,11 @@ State=0
Left=0
Top=0
Width=3820
Height=807
Height=1121
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=807
ClientHeight=1121
TBDockHeight=415
LRDockWidth=4953
Dockable=1
@ -386,11 +385,11 @@ State=0
Left=0
Top=0
Width=3820
Height=807
Height=1121
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=807
ClientHeight=1121
TBDockHeight=213
LRDockWidth=7406
Dockable=1
@ -409,11 +408,11 @@ State=0
Left=0
Top=0
Width=3820
Height=807
Height=1121
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=807
ClientHeight=1121
TBDockHeight=1536
LRDockWidth=3484
Dockable=1
@ -428,11 +427,11 @@ State=0
Left=0
Top=0
Width=3820
Height=807
Height=1121
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=807
ClientHeight=1121
TBDockHeight=2063
LRDockWidth=3484
Dockable=1
@ -447,11 +446,11 @@ State=0
Left=0
Top=0
Width=2336
Height=942
Height=1177
MaxLeft=-1
MaxTop=-1
ClientWidth=2336
ClientHeight=942
ClientHeight=1177
TBDockHeight=2321
LRDockWidth=2820
Dockable=1
@ -512,11 +511,11 @@ State=0
Left=0
Top=0
Width=2000
Height=6816
Height=6861
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6816
ClientHeight=6861
TBDockHeight=4888
LRDockWidth=7148
Dockable=1
@ -528,8 +527,8 @@ Create=1
Visible=0
Docked=1
State=0
Left=249
Top=709
Left=0
Top=0
Width=2859
Height=3206
MaxLeft=-1
@ -550,11 +549,11 @@ State=0
Left=0
Top=0
Width=3820
Height=807
Height=1121
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=807
ClientHeight=1121
TBDockHeight=1547
LRDockWidth=8742
Dockable=1
@ -575,12 +574,12 @@ Docked=1
State=0
Left=0
Top=0
Width=1773
Height=6738
Width=1898
Height=9170
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6738
ClientWidth=1898
ClientHeight=9170
TBDockHeight=3677
LRDockWidth=1898
Dockable=1
@ -595,11 +594,11 @@ State=0
Left=0
Top=0
Width=2000
Height=6816
Height=6861
MaxLeft=-1
MaxTop=-1
ClientWidth=2000
ClientHeight=6816
ClientHeight=6861
TBDockHeight=4888
LRDockWidth=5305
Dockable=1
@ -660,14 +659,14 @@ Visible=0
Docked=1
State=0
Left=0
Top=23
Top=0
Width=3820
Height=1110
Height=1424
MaxLeft=-1
MaxTop=-1
ClientWidth=3820
ClientHeight=1110
TBDockHeight=1110
ClientHeight=1424
TBDockHeight=1424
LRDockWidth=3820
Dockable=1
StayOnTop=0
@ -708,13 +707,13 @@ Visible=0
Docked=1
State=0
Left=0
Top=0
Top=23
Width=1898
Height=7164
Height=9170
MaxLeft=-1
MaxTop=-1
ClientWidth=1773
ClientHeight=6738
ClientWidth=1898
ClientHeight=9170
TBDockHeight=7164
LRDockWidth=1898
Dockable=1
@ -732,13 +731,13 @@ Visible=0
Docked=1
State=0
Left=0
Top=0
Top=454
Width=2000
Height=7164
Height=4339
MaxLeft=-1
MaxTop=-1
ClientWidth=1875
ClientHeight=6738
ClientWidth=2000
ClientHeight=4339
TBDockHeight=7164
LRDockWidth=2000
Dockable=1

BIN
source/CEF4Delphi.identcache
View File

Binary file not shown.

8
source/CEF4Delphi.stat
View File

@ -1,9 +1,9 @@
[Stats]
EditorSecs=18191
EditorSecs=21350
DesignerSecs=1
InspectorSecs=5
CompileSecs=249803
OtherSecs=1208
InspectorSecs=9
CompileSecs=356274
OtherSecs=1868
StartTime=22/01/2017 10:49:52
RealKeys=0
EffectiveKeys=0

335
source/cef.inc Normal file
View File

@ -0,0 +1,335 @@
(*
* Delphi Chromium Embedded
*
* 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
*)
{.$define CEF_STRING_TYPE_UTF8}
{$define CEF_STRING_TYPE_UTF16}
{.$define CEF_STRING_TYPE_WIDE}
{.$DEFINE CEF_MULTI_THREADED_MESSAGE_LOOP}
{$DEFINE DELPHI_VERSION_UNKNOW}
{$IFDEF FPC}
// force multithreading message loop on FPC, still not work
{$DEFINE CEF_MULTI_THREADED_MESSAGE_LOOP}
{$DEFINE SUPPORTS_INLINE}
{$ENDIF}
{$IFDEF VER130}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$ENDIF}
{$IFDEF VER140}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$ENDIF}
{$IFDEF VER150}
{$UNDEF DELPHI_VERSION_UNKNOW}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$ENDIF}
{$IFDEF VER160}
// DELPHI 8 for Dotnet
{$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}
{$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}
{$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}
{$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}
{$IFDEF VER290} // RAD Studio XE8
{$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
{$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
{$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}
{$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}
{$ENDIF}
{$IFDEF DELPHI9_UP}
{$DEFINE SUPPORTS_INLINE}
{$ENDIF}

14
source/uCEFApplication.pas
View File

@ -42,10 +42,16 @@ unit uCEFApplication;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
WinApi.Windows,
{$ELSE}
Windows,
{$ENDIF}
uCEFTypes, uCEFInterfaces, uCEFBase;
type
@ -249,7 +255,11 @@ var
implementation
uses
{$IFDEF DELPHI16_UP}
System.Math, System.IOUtils, System.SysUtils,
{$ELSE}
Math, IOUtils, SysUtils,
{$ENDIF}
uCEFLibFunctions, uCEFMiscFunctions, uCEFSchemeRegistrar, uCEFCommandLine;
const
@ -575,7 +585,7 @@ var
TempArgs : TCefMainArgs;
begin
TempArgs.instance := HINSTANCE;
Result := cef_execute_process(@TempArgs, CefGetData(FAppIntf), FWindowsSandboxInfo);
Result := cef_execute_process(@TempArgs, FApp.Wrap, FWindowsSandboxInfo);
end;
procedure TCefApplication.InitializeSettings(var aSettings : TCefSettings);
@ -622,7 +632,7 @@ begin
if FDeleteCookies and (length(FCookies) > 0) then TDirectory.Delete(FCookies, True);
InitializeSettings(TempSettings);
Result := (cef_initialize(@HInstance, @TempSettings, CefGetData(FAppIntf), FWindowsSandboxInfo) <> 0);
Result := (cef_initialize(@HInstance, @TempSettings, FApp.Wrap, FWindowsSandboxInfo) <> 0);
except
on e : exception do
begin

2
source/uCEFAuthCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFAuthCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFBase.pas
View File

@ -42,6 +42,8 @@ unit uCEFBase;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFBeforeDownloadCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFBeforeDownloadCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFBinaryValue.pas
View File

@ -42,6 +42,8 @@ unit uCEFBinaryValue;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFBrowser.pas
View File

@ -42,10 +42,16 @@ unit uCEFBrowser;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

2
source/uCEFBrowserProcessHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFBrowserProcessHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

50
source/uCEFChromium.pas
View File

@ -42,10 +42,16 @@ unit uCEFChromium;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
WinApi.Windows, WinApi.Messages, System.Classes, Vcl.Controls, Vcl.Graphics, Vcl.Forms,
{$ELSE}
Windows, Messages, Classes, Controls, Graphics, Forms,
{$ENDIF}
uCEFTypes, uCEFInterfaces, uCEFLibFunctions, uCEFMiscFunctions, uCEFClient,
uCEFPDFPrintCallback, uCEFStringVisitor, uCEFConstants, uCEFTask,
uCEFDeleteCookiesCallback, uCEFDomVisitor, uCEFChromiumEvents,
@ -233,8 +239,8 @@ type
procedure SetWindowlessFrameRate(aValue : integer);
function CreateBrowserHost(aWindowInfo : PCefWindowInfo; const aClient : ICefClient; const aURL : ustring; const aSettings : PCefBrowserSettings; const aContext : ICefRequestContext): Boolean;
function CreateBrowserHostSync(aWindowInfo : PCefWindowInfo; const aClient : ICefClient; const aURL : ustring; const aSettings : PCefBrowserSettings; const aContext : ICefRequestContext): ICefBrowser;
function CreateBrowserHost(aWindowInfo : PCefWindowInfo; const aURL : ustring; const aSettings : PCefBrowserSettings; const aContext : ICefRequestContext): Boolean;
function CreateBrowserHostSync(aWindowInfo : PCefWindowInfo; const aURL : ustring; const aSettings : PCefBrowserSettings; const aContext : ICefRequestContext): ICefBrowser;
procedure InitializeEvents;
procedure InitializeSettings(var aSettings : TCefBrowserSettings);
@ -582,7 +588,11 @@ type
implementation
uses
{$IFDEF DELPHI16_UP}
System.SysUtils, System.Math,
{$ELSE}
SysUtils, Math,
{$ENDIF}
uCEFBrowser, uCEFValue, uCEFDictionaryValue, uCEFStringMultimap, uCEFCookieManager, uCEFFrame,
uCEFApplication;
@ -708,7 +718,7 @@ begin
Result := False;
try
if (FHandler = nil) then
if (FClientHandler = nil) then
begin
FIsOSR := aIsOsr;
FClientHandler := TVCLClientHandler.Create(Self, FIsOSR);
@ -851,10 +861,10 @@ begin
if MultithreadApp then
Result := CreateBrowserHost(@TempInfo, FHandler, FDefaultUrl, @TempSettings, nil)
Result := CreateBrowserHost(@TempInfo, FDefaultUrl, @TempSettings, nil)
else
begin
FBrowser := CreateBrowserHostSync(@TempInfo, FHandler, FDefaultUrl, @TempSettings, nil);
FBrowser := CreateBrowserHostSync(@TempInfo, FDefaultUrl, @TempSettings, nil);
if (FBrowser <> nil) then
begin
@ -879,7 +889,6 @@ begin
end;
function TChromium.CreateBrowserHost(aWindowInfo : PCefWindowInfo;
const aClient : ICefClient;
const aURL : ustring;
const aSettings : PCefBrowserSettings;
const aContext : ICefRequestContext): Boolean;
@ -887,11 +896,10 @@ var
TempURL : TCefString;
begin
TempURL := CefString(aURL);
Result := cef_browser_host_create_browser(aWindowInfo, CefGetData(aClient), @TempURL, aSettings, CefGetData(aContext)) <> 0;
Result := cef_browser_host_create_browser(aWindowInfo, FClientHandler.Wrap, @TempURL, aSettings, CefGetData(aContext)) <> 0;
end;
function TChromium.CreateBrowserHostSync(aWindowInfo : PCefWindowInfo;
const aClient : ICefClient;
const aURL : ustring;
const aSettings : PCefBrowserSettings;
const aContext : ICefRequestContext): ICefBrowser;
@ -900,7 +908,7 @@ var
TempBrowser : PCefBrowser;
begin
TempURL := CefString(aURL);
TempBrowser := cef_browser_host_create_browser_sync(aWindowInfo, CefGetData(aClient), @TempURL, aSettings, CefGetData(aContext));
TempBrowser := cef_browser_host_create_browser_sync(aWindowInfo, FClientHandler.Wrap, @TempURL, aSettings, CefGetData(aContext));
Result := TCefBrowserRef.UnWrap(TempBrowser);
end;
@ -2092,8 +2100,16 @@ procedure TChromium.CloseDevTools(const aDevTools : TWinControl);
begin
if Initialized then
begin
if (aDevTools <> nil) then WinApi.Windows.SetParent(GetWindow(aDevTools.Handle, GW_CHILD), 0);
if (FBrowser <> nil) then FBrowser.Host.CloseDevTools;
if (aDevTools <> nil) then
begin
{$IFDEF DELPHI16_UP}
WinApi.Windows.SetParent(GetWindow(aDevTools.Handle, GW_CHILD), 0);
{$ELSE}
Windows.SetParent(GetWindow(aDevTools.Handle, GW_CHILD), 0);
{$ENDIF}
end;
if (FBrowser <> nil) then FBrowser.Host.CloseDevTools;
end;
end;
@ -2714,10 +2730,10 @@ begin
begin
TempRect.Left := min(max(x, max(screen.DesktopLeft, 0)), screen.DesktopWidth - TempForm.Width);
TempRect.Top := min(max(y, max(screen.DesktopTop, 0)), screen.DesktopHeight - TempForm.Height);
TempRect.Width := TempForm.Width;
TempRect.Height := TempForm.Height;
TempRect.Right := TempRect.Left + TempForm.Width - 1;
TempRect.Bottom := TempRect.Top + TempForm.Height - 1;
TempForm.SetBounds(TempRect.Left, TempRect.Top, TempRect.Width, TempRect.Height);
TempForm.SetBounds(TempRect.Left, TempRect.Top, TempRect.Right - TempRect.Left + 1, TempRect.Bottom - TempRect.Top + 1);
end;
end;
@ -2732,10 +2748,10 @@ begin
begin
TempRect.Left := min(max(TempForm.Left + x, max(screen.DesktopLeft, 0)), screen.DesktopWidth - TempForm.Width);
TempRect.Top := min(max(TempForm.Top + y, max(screen.DesktopTop, 0)), screen.DesktopHeight - TempForm.Height);
TempRect.Width := TempForm.Width;
TempRect.Height := TempForm.Height;
TempRect.Right := TempRect.Left + TempForm.Width - 1;
TempRect.Bottom := TempRect.Top + TempForm.Height - 1;
TempForm.SetBounds(TempRect.Left, TempRect.Top, TempRect.Width, TempRect.Height);
TempForm.SetBounds(TempRect.Left, TempRect.Top, TempRect.Right - TempRect.Left + 1, TempRect.Bottom - TempRect.Top + 1);
end;
end;

6
source/uCEFChromiumEvents.pas
View File

@ -42,10 +42,16 @@ unit uCEFChromiumEvents;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFTypes, uCEFInterfaces;
type

6
source/uCEFChromiumFontOptions.pas
View File

@ -42,10 +42,16 @@ unit uCEFChromiumFontOptions;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFTypes;
type

6
source/uCEFChromiumOptions.pas
View File

@ -42,10 +42,16 @@ unit uCEFChromiumOptions;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFTypes;
type

10
source/uCEFChromiumWindow.pas
View File

@ -42,10 +42,16 @@ unit uCEFChromiumWindow;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
WinApi.Windows, System.Classes, WinApi.Messages,
{$ELSE}
Windows, Classes, Messages,
{$ENDIF}
uCEFWindowParent, uCEFChromium, uCEFInterfaces, uCEFConstants;
type
@ -76,7 +82,11 @@ type
implementation
uses
{$IFDEF DELPHI16_UP}
System.SysUtils;
{$ELSE}
SysUtils;
{$ENDIF}
constructor TChromiumWindow.Create(AOwner: TComponent);
begin

10
source/uCEFClient.pas
View File

@ -42,10 +42,16 @@ unit uCEFClient;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
WinApi.Windows,
{$ELSE}
Windows,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type
@ -126,7 +132,11 @@ type
implementation
uses
{$IFDEF DELPHI16_UP}
System.SysUtils,
{$ELSE}
SysUtils,
{$ENDIF}
uCEFMiscFunctions, uCEFLibFunctions, uCEFProcessMessage, uCEFBrowser, uCEFLoadHandler,
uCEFFocusHandler, uCEFContextMenuHandler, uCEFDialogHandler, uCEFKeyboardHandler,
uCEFDisplayHandler, uCEFDownloadHandler, uCEFGeolocationHandler, uCEFJsDialogHandler,

6
source/uCEFCommandLine.pas
View File

@ -42,10 +42,16 @@ unit uCEFCommandLine;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFTypes, uCEFInterfaces;
type

2
source/uCEFCompletionCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFCompletionCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFConstants.pas
View File

@ -42,10 +42,16 @@ unit uCEFConstants;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
Winapi.Messages;
{$ELSE}
Messages;
{$ENDIF}
const
// /include/internal/cef_types.h (cef_errorcode_t)

2
source/uCEFContextMenuHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFContextMenuHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFContextMenuParams.pas
View File

@ -42,10 +42,16 @@ unit uCEFContextMenuParams;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

6
source/uCEFCookieManager.pas
View File

@ -42,10 +42,16 @@ unit uCEFCookieManager;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

2
source/uCEFCookieVisitor.pas
View File

@ -42,6 +42,8 @@ unit uCEFCookieVisitor;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFCustomStreamReader.pas
View File

@ -42,10 +42,16 @@ unit uCEFCustomStreamReader;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes, System.SysUtils,
{$ELSE}
Classes, SysUtils,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

2
source/uCEFDeleteCookiesCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFDeleteCookiesCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFDialogHandler.pas
View File

@ -42,10 +42,16 @@ unit uCEFDialogHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

6
source/uCEFDictionaryValue.pas
View File

@ -42,10 +42,16 @@ unit uCEFDictionaryValue;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

6
source/uCEFDisplayHandler.pas
View File

@ -42,10 +42,16 @@ unit uCEFDisplayHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

2
source/uCEFDomDocument.pas
View File

@ -42,6 +42,8 @@ unit uCEFDomDocument;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFDomNode.pas
View File

@ -42,6 +42,8 @@ unit uCEFDomNode;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFDomVisitor.pas
View File

@ -42,6 +42,8 @@ unit uCEFDomVisitor;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFDownLoadItem.pas
View File

@ -42,6 +42,8 @@ unit uCEFDownLoadItem;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFDownloadHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFDownloadHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFDownloadImageCallBack.pas
View File

@ -42,6 +42,8 @@ unit uCEFDownloadImageCallBack;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFDownloadItemCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFDownloadItemCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFDragData.pas
View File

@ -42,10 +42,16 @@ unit uCEFDragData;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

2
source/uCEFDragHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFDragHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFEndTracingCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFEndTracingCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFFileDialogCallback.pas
View File

@ -42,10 +42,16 @@ unit uCEFFileDialogCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

2
source/uCEFFindHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFFindHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFFocusHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFFocusHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

4
source/uCEFFrame.pas
View File

@ -42,10 +42,12 @@ unit uCEFFrame;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
uCEFBAse, uCEFInterfaces, uCEFTypes;
uCEFBase, uCEFInterfaces, uCEFTypes;
type
TCefFrameRef = class(TCefBaseRef, ICefFrame)

2
source/uCEFGeolocationCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFGeolocationCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFGeolocationHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFGeolocationHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFGetGeolocationCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFGetGeolocationCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFImage.pas
View File

@ -42,10 +42,16 @@ unit uCEFImage;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
WinApi.Windows,
{$ELSE}
Windows,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

6
source/uCEFInterfaces.pas
View File

@ -42,10 +42,16 @@ unit uCEFInterfaces;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
WinApi.Windows, System.Classes,
{$ELSE}
Windows, Classes,
{$ENDIF}
uCEFTypes;
type

2
source/uCEFJsDialogCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFJsDialogCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFJsDialogHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFJsDialogHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFKeyboardHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFKeyboardHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFLibFunctions.pas
View File

@ -42,10 +42,16 @@ unit uCEFLibFunctions;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
WinApi.Windows, System.Math,
{$ELSE}
Windows, Math,
{$ENDIF}
uCEFTypes;
var

2
source/uCEFLifeSpanHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFLifeSpanHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFListValue.pas
View File

@ -42,6 +42,8 @@ unit uCEFListValue;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFLoadHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFLoadHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFMenuModel.pas
View File

@ -42,6 +42,8 @@ unit uCEFMenuModel;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFMenuModelDelegate.pas
View File

@ -42,6 +42,8 @@ unit uCEFMenuModelDelegate;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFMiscFunctions.pas
View File

@ -42,10 +42,16 @@ unit uCEFMiscFunctions;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
WinApi.Windows, System.Classes, System.SysUtils,
{$ELSE}
Windows, Classes, SysUtils,
{$ENDIF}
uCEFTypes, uCEFInterfaces, uCEFLibFunctions;
const

2
source/uCEFNavigationEntry.pas
View File

@ -42,6 +42,8 @@ unit uCEFNavigationEntry;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFNavigationEntryVisitor.pas
View File

@ -42,6 +42,8 @@ unit uCEFNavigationEntryVisitor;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFPDFPrintCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFPDFPrintCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFPDFPrintOptions.pas
View File

@ -42,10 +42,16 @@ unit uCEFPDFPrintOptions;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFTypes;
type

6
source/uCEFPostData.pas
View File

@ -42,10 +42,16 @@ unit uCEFPostData;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

2
source/uCEFPostDataElement.pas
View File

@ -42,6 +42,8 @@ unit uCEFPostDataElement;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFPrintSettings.pas
View File

@ -42,6 +42,8 @@ unit uCEFPrintSettings;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFProcessMessage.pas
View File

@ -42,6 +42,8 @@ unit uCEFProcessMessage;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFRegisterCDMCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFRegisterCDMCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

11
source/uCEFRegisterComponents.pas
View File

@ -39,16 +39,21 @@ unit uCEFRegisterComponents;
{$R chromium.dcr}
{$I cef.inc}
interface
procedure Register;
implementation
uses
{$IFDEF DELPHI16_UP}
System.Classes,
uCEFChromium,
uCEFWindowParent,
uCEFChromiumWindow;
{$ELSE}
Classes,
{$ENDIF}
uCEFChromium, uCEFWindowParent, uCEFChromiumWindow;
procedure Register;
begin

2
source/uCEFRenderHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFRenderHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFRenderProcessHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFRenderProcessHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFRequest.pas
View File

@ -42,6 +42,8 @@ unit uCEFRequest;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFRequestCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFRequestCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFRequestContext.pas
View File

@ -42,10 +42,16 @@ unit uCEFRequestContext;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

2
source/uCEFRequestContextHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFRequestContextHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFRequestHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFRequestHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
@ -100,7 +102,11 @@ type
implementation
uses
{$IFDEF DELPHI16_UP}
WinApi.Windows, System.SysUtils,
{$ELSE}
Windows, SysUtils,
{$ENDIF}
uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser, uCEFFrame, uCEFRequest, uCEFRequestCallback,
uCEFResponse, uCEFAuthCallback, uCEFSslInfo, uCEFSelectClientCertificateCallback, uCEFX509Certificate;

6
source/uCEFResolveCallback.pas
View File

@ -42,10 +42,16 @@ unit uCEFResolveCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

2
source/uCEFResourceBundle.pas
View File

@ -42,6 +42,8 @@ unit uCEFResourceBundle;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFResourceBundleHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFResourceBundleHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFResourceHandler.pas
View File

@ -42,6 +42,8 @@ unit uCEFResourceHandler;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFResponse.pas
View File

@ -42,6 +42,8 @@ unit uCEFResponse;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFResponseFilter.pas
View File

@ -42,6 +42,8 @@ unit uCEFResponseFilter;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFRunContextMenuCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFRunContextMenuCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFRunFileDialogCallback.pas
View File

@ -42,10 +42,16 @@ unit uCEFRunFileDialogCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces;
type

6
source/uCEFSSLStatus.pas
View File

@ -42,10 +42,16 @@ unit uCEFSSLStatus;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

2
source/uCEFSchemeHandlerFactory.pas
View File

@ -42,6 +42,8 @@ unit uCEFSchemeHandlerFactory;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFSchemeRegistrar.pas
View File

@ -42,6 +42,8 @@ unit uCEFSchemeRegistrar;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFSelectClientCertificateCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFSelectClientCertificateCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFSetCookieCallback.pas
View File

@ -42,6 +42,8 @@ unit uCEFSetCookieCallback;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFSslInfo.pas
View File

@ -42,10 +42,16 @@ unit uCEFSslInfo;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

6
source/uCEFStreamReader.pas
View File

@ -42,10 +42,16 @@ unit uCEFStreamReader;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
System.Classes,
{$ELSE}
Classes,
{$ENDIF}
uCEFBase, uCEFInterfaces, uCEFTypes;
type

2
source/uCEFStreamWriter.pas
View File

@ -42,6 +42,8 @@ unit uCEFStreamWriter;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFStringMap.pas
View File

@ -42,6 +42,8 @@ unit uCEFStringMap;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFStringMultimap.pas
View File

@ -42,6 +42,8 @@ unit uCEFStringMultimap;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFStringVisitor.pas
View File

@ -42,6 +42,8 @@ unit uCEFStringVisitor;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFTask.pas
View File

@ -42,6 +42,8 @@ unit uCEFTask;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFTaskRunner.pas
View File

@ -42,6 +42,8 @@ unit uCEFTaskRunner;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

2
source/uCEFThread.pas
View File

@ -42,6 +42,8 @@ unit uCEFThread;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses

6
source/uCEFTypes.pas
View File

@ -42,10 +42,16 @@ unit uCEFTypes;
{$MINENUMSIZE 4}
{$ENDIF}
{$I cef.inc}
interface
uses
{$IFDEF DELPHI16_UP}
WinApi.Windows, System.Math;
{$ELSE}
Windows, Math;
{$ENDIF}
type
PCefStringWide = ^TCefStringWide;

Some files were not shown because too many files have changed in this diff Show More