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

Set LocalesDirPath and ResourcesDirPath from FrameworkDirPath, if not set explicitly

Browse Source
This commit is contained in:
martin 2021-02-07 16:59:04 +01:00
parent bfff18e7b5
commit 03e917f85c
1 changed files with 26 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
source/uCEFApplicationCore.pas
View File

@ -270,6 +270,8 @@ type
function GetLibCefVersion : ustring; function GetLibCefVersion : ustring;
function GetLibCefPath : ustring; function GetLibCefPath : ustring;
function GetChromeElfPath : ustring; function GetChromeElfPath : ustring;
function GetLocalesDirPath: ustring;
function GetResourcesDirPath: ustring;
function GetMustCreateResourceBundleHandler : boolean; virtual; function GetMustCreateResourceBundleHandler : boolean; virtual;
function GetMustCreateBrowserProcessHandler : boolean; virtual; function GetMustCreateBrowserProcessHandler : boolean; virtual;
function GetMustCreateRenderProcessHandler : boolean; virtual; function GetMustCreateRenderProcessHandler : boolean; virtual;
@ -427,8 +429,8 @@ type
property LogFile : ustring read FLogFile write FLogFile; property LogFile : ustring read FLogFile write FLogFile;
property LogSeverity : TCefLogSeverity read FLogSeverity write FLogSeverity; property LogSeverity : TCefLogSeverity read FLogSeverity write FLogSeverity;
property JavaScriptFlags : ustring read FJavaScriptFlags write FJavaScriptFlags; property JavaScriptFlags : ustring read FJavaScriptFlags write FJavaScriptFlags;
property ResourcesDirPath : ustring read FResourcesDirPath write SetResourcesDirPath; property ResourcesDirPath : ustring read GetResourcesDirPath write SetResourcesDirPath;
property LocalesDirPath : ustring read FLocalesDirPath write SetLocalesDirPath; property LocalesDirPath : ustring read GetLocalesDirPath write SetLocalesDirPath;
property PackLoadingDisabled : Boolean read FPackLoadingDisabled write FPackLoadingDisabled; property PackLoadingDisabled : Boolean read FPackLoadingDisabled write FPackLoadingDisabled;
property RemoteDebuggingPort : Integer read FRemoteDebuggingPort write FRemoteDebuggingPort; property RemoteDebuggingPort : Integer read FRemoteDebuggingPort write FRemoteDebuggingPort;
property UncaughtExceptionStackSize : Integer read FUncaughtExceptionStackSize write FUncaughtExceptionStackSize; property UncaughtExceptionStackSize : Integer read FUncaughtExceptionStackSize write FUncaughtExceptionStackSize;
@ -905,15 +907,8 @@ begin
{$ENDIF} {$ENDIF}
if FileExists(MBPath + LIBCEF_DLL) then begin if FileExists(MBPath + LIBCEF_DLL) then begin
FrameworkDirPath := MBPath; FrameworkDirPath := MBPath;
if FileExists(MBPath + LIBCEF_PAK) then begin
ResourcesDirPath := MBPath;
{$IFNDEF MACOSX}
if FileExists(IncludeTrailingPathDelimiter(MBPath + LIBCEF_LOCALE_DIR) + LIBCEF_LOCALE_ENUS) then
LocalesDirPath := MBPath + LIBCEF_LOCALE_DIR;
{$ENDIF}
end; end;
end; end;
end;
end; end;
// This function must only be called by the main executable when the application // This function must only be called by the main executable when the application
@ -1025,6 +1020,28 @@ begin
Result := CHROMEELF_DLL; Result := CHROMEELF_DLL;
end; end;
function TCefApplicationCore.GetLocalesDirPath: ustring;
begin
Result := FLocalesDirPath;
{$IFNDEF MACOSX}
if (Result = '') and (FrameworkDirPath <> '') then
begin
if FileExists(IncludeTrailingPathDelimiter(FrameworkDirPath + LIBCEF_LOCALE_DIR) + LIBCEF_LOCALE_ENUS) then
Result := FrameworkDirPath + LIBCEF_LOCALE_DIR;
end;
{$ENDIF}
end;
function TCefApplicationCore.GetResourcesDirPath: ustring;
begin
Result := FResourcesDirPath;
if (Result = '') and (FrameworkDirPath <> '') then
begin
if FileExists(IncludeTrailingPathDelimiter(FrameworkDirPath) + LIBCEF_PAK) then
Result := FrameworkDirPath;
end;
end;
procedure TCefApplicationCore.SetCache(const aValue : ustring); procedure TCefApplicationCore.SetCache(const aValue : ustring);
begin begin
FCache := CustomAbsolutePath(aValue); FCache := CustomAbsolutePath(aValue);