Delphi/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-15 07:45:56 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Convert GlobalCEFApp.LogFile to an absolute path

Browse Source
This commit is contained in:
Salvador Díaz Fau 2024-11-14 11:29:17 +01:00
parent 00bf20f147
commit 6256c2c35f
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
source/uCEFApplicationCore.pas
View File

@ -246,6 +246,7 @@ type
procedure SetOsmodalLoop(aValue : boolean); procedure SetOsmodalLoop(aValue : boolean);
{$ENDIF} {$ENDIF}
procedure SetKioskPrinting(aValue : boolean); procedure SetKioskPrinting(aValue : boolean);
procedure SetLogFile(const aValue : ustring);
function GetChromeVersion : ustring; function GetChromeVersion : ustring;
function GetLibCefVersion : ustring; function GetLibCefVersion : ustring;
@ -650,7 +651,7 @@ type
/// [app name] is the name of the main app executable. Also configurable using /// [app name] is the name of the main app executable. Also configurable using
/// the "log-file" command-line switch. /// the "log-file" command-line switch.
/// </summary> /// </summary>
property LogFile : ustring read FLogFile write FLogFile; property LogFile : ustring read FLogFile write SetLogFile;
/// <summary> /// <summary>
/// The log severity. Only messages of this severity level or higher will be /// The log severity. Only messages of this severity level or higher will be
/// logged. When set to DISABLE no messages will be written to the log file, /// logged. When set to DISABLE no messages will be written to the log file,
@ -2741,6 +2742,11 @@ begin
end; end;
end; end;
procedure TCefApplicationCore.SetLogFile(const aValue : ustring);
begin
FLogFile := CustomAbsolutePath(aValue, False);
end;
procedure TCefApplicationCore.UpdateDeviceScaleFactor; procedure TCefApplicationCore.UpdateDeviceScaleFactor;
begin begin
if (FForcedDeviceScaleFactor <> 0) then if (FForcedDeviceScaleFactor <> 0) then

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 675, "InternalVersion" : 676,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "130.1.16" "Version" : "130.1.16"
} }