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

TCefFileDialogMode and TCefDuplexMode defined as constants

Browse Source 
- Added more parameter checks in CefRegisterExtension
- Minor change registering the extension in JSExtension demo. The TempHandler reference is valid until it reaches the "finally".
This commit is contained in:
Salvador Díaz Fau 2018-07-24 18:18:54 +02:00
parent 08977db610
commit 5e5d0dcb74
8 changed files with 145 additions and 107 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
demos/JavaScript/JSExtension/00-DeleteDCUs.bat
View File

@ -9,6 +9,7 @@ del /s /q *.local
del /s /q *.~*
rmdir Win32\Debug
rmdir Win32\Release
rmdir "Win32\Debug with log"
rmdir Win32
rmdir __history
rmdir __recovery

37
demos/JavaScript/JSExtension/JSExtension.dproj
View File

@ -45,6 +45,17 @@
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug with log' or '$(Cfg_3)'!=''">
<Cfg_3>true</Cfg_3>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_3)'=='true') or '$(Cfg_3_Win32)'!=''">
<Cfg_3_Win32>true</Cfg_3_Win32>
<CfgParent>Cfg_3</CfgParent>
<Cfg_3>true</Cfg_3>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<VerInfo_Locale>3082</VerInfo_Locale>
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
@ -102,6 +113,22 @@
<AppEnableHighDPI>true</AppEnableHighDPI>
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_3)'!=''">
<DCC_Define>DEBUG;INTFLOG;$(DCC_Define)</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_3_Win32)'!=''">
<DCC_RunTimeTypeInfo>true</DCC_RunTimeTypeInfo>
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>true</DCC_RangeChecking>
<DCC_MapFile>3</DCC_MapFile>
<DCC_RemoteDebug>true</DCC_RemoteDebug>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
@ -113,17 +140,21 @@
<DCCReference Include="uSimpleTextViewer.pas">
<Form>SimpleTextViewerFrm</Form>
</DCCReference>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<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>
<BuildConfiguration Include="Debug with log">
<Key>Cfg_3</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>

10
demos/JavaScript/JSExtension/uJSExtension.pas
View File

@ -202,15 +202,23 @@ begin
' };' +
'})();';
try
TempHandler := TTestExtensionHandler.Create;
CefRegisterExtension('myextension', TempExtensionCode, TempHandler);
finally
TempHandler := nil;
end;
end;
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized;
{$IFDEF INTFLOG}
GlobalCEFApp.LogFile := 'debug.log';
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;
{$ENDIF}
end;
procedure TJSExtensionFrm.GoBtnClick(Sender: TObject);

1
demos/SubProcess/uSimpleBrowser.pas
View File

@ -126,6 +126,7 @@ end;
procedure TForm1.FormShow(Sender: TObject);
begin
Caption := 'Simple Browser - Initializing browser. Please wait...';
ChromiumWindow1.ChromiumBrowser.OnBeforePopup := Chromium_OnBeforePopup;
// You *MUST* call CreateBrowser to create and initialize the browser.

10
source/uCEFConstants.pas
View File

@ -222,6 +222,10 @@ const
DRAG_OPERATION_EVERY = $FFFFFFFF;
// /include/internal/cef_types.h (cef_file_dialog_mode_t)
FILE_DIALOG_OPEN = $00000000;
FILE_DIALOG_OPEN_MULTIPLE = $00000001;
FILE_DIALOG_OPEN_FOLDER = $00000002;
FILE_DIALOG_SAVE = $00000003;
FILE_DIALOG_TYPE_MASK = $000000FF;
FILE_DIALOG_OVERWRITEPROMPT_FLAG = $01000000;
FILE_DIALOG_HIDEREADONLY_FLAG = $02000000;
@ -326,6 +330,12 @@ const
LOGSEVERITY_ERROR = 4;
LOGSEVERITY_DISABLE = 99;
// /include/internal/cef_types.h (cef_duplex_mode_t)
DUPLEX_MODE_UNKNOWN = -1;
DUPLEX_MODE_SIMPLEX = 0;
DUPLEX_MODE_LONG_EDGE = 1;
DUPLEX_MODE_SHORT_EDGE = 2;
//******************************************************
//****************** OTHER CONSTANTS *******************

5
source/uCEFMiscFunctions.pas
View File

@ -362,7 +362,10 @@ function CefRegisterExtension(const name, code: ustring; const Handler: ICefv8Ha
var
TempName, TempCode : TCefString;
begin
if (GlobalCEFApp <> nil) and GlobalCEFApp.LibLoaded then
if (GlobalCEFApp <> nil) and
GlobalCEFApp.LibLoaded and
(length(name) > 0) and
(length(code) > 0) then
begin
TempName := CefString(name);
TempCode := CefString(code);

22
source/uCEFTypes.pas
View File

@ -276,6 +276,9 @@ type
TCefJsonWriterOptions = Cardinal; // /include/internal/cef_types.h (cef_json_writer_options_t)
TCefSSLContentStatus = Cardinal; // /include/internal/cef_types.h (cef_ssl_content_status_t)
TCefLogSeverity = Cardinal; // /include/internal/cef_types.h (cef_log_severity_t)
TCefFileDialogMode = Cardinal; // /include/internal/cef_types.h (cef_file_dialog_mode_t)
TCefDuplexMode = Integer; // /include/internal/cef_types.h (cef_duplex_mode_t)
{$IFDEF FPC}
NativeInt = PtrInt;
@ -577,17 +580,6 @@ type
MENUITEMTYPE_SUBMENU
);
// /include/internal/cef_types.h (cef_file_dialog_mode_t)
TCefFileDialogMode = (
FILE_DIALOG_OPEN,
FILE_DIALOG_OPEN_MULTIPLE,
FILE_DIALOG_OPEN_FOLDER,
FILE_DIALOG_SAVE,
FILE_DIALOG_TYPE_MASK = $FF,
FILE_DIALOG_OVERWRITEPROMPT_FLAG = $01000000,
FILE_DIALOG_HIDEREADONLY_FLAG = $02000000
);
// /include/internal/cef_types.h (cef_focus_source_t)
TCefFocusSource = (
FOCUS_SOURCE_NAVIGATION = 0,
@ -860,14 +852,6 @@ type
COLOR_MODEL_PROCESSCOLORMODEL_RGB
);
// /include/internal/cef_types.h (cef_duplex_mode_t)
TCefDuplexMode = (
DUPLEX_MODE_UNKNOWN = -1,
DUPLEX_MODE_SIMPLEX,
DUPLEX_MODE_LONG_EDGE,
DUPLEX_MODE_SHORT_EDGE
);
// /include/internal/cef_types.h (cef_json_parser_options_t)
TCefJsonParserOptions = (
JSON_PARSER_RFC = 0,

4
source/uCEFv8Context.pas
View File

@ -79,7 +79,7 @@ uses
class function TCefv8ContextRef.Current: ICefv8Context;
begin
Result := UnWrap(cef_v8context_get_current_context())
Result := UnWrap(cef_v8context_get_current_context());
end;
function TCefv8ContextRef.Enter: Boolean;
@ -89,7 +89,7 @@ end;
class function TCefv8ContextRef.Entered: ICefv8Context;
begin
Result := UnWrap(cef_v8context_get_entered_context())
Result := UnWrap(cef_v8context_get_entered_context());
end;
function TCefv8ContextRef.Exit: Boolean;