pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

OutputDebugMessage moved to uCEFMiscFunctions, New TCEFApplication.AddCommandLine procedure and TCEFApplication.CheckCEFLibrary enhancements

Browse Source
This commit is contained in:
Salvador Diaz Fau
2017-02-13 10:24:44 +01:00
parent 8aafbee064
commit 9b4bb2a27c
10 changed files with 336 additions and 253 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
source/uCEFMiscFunctions.pas
View File

@@ -114,9 +114,14 @@ function CefCrashReportingEnabled : boolean;
procedure CefSetCrashKeyValue(const aKey, aValue : ustring);
procedure CefLog(const aFile : string; aLine, aSeverity : integer; const aMessage : string);
procedure OutputDebugMessage(const aMessage : string);
implementation
uses
uCEFConstants, uCEFApplication;
function CefColorGetA(color: TCefColor): Byte;
begin
Result := (color shr 24) and $FF;
@@ -432,4 +437,16 @@ begin
end;
end;
procedure OutputDebugMessage(const aMessage : string);
const
DEFAULT_LINE = 1;
begin
{$IFDEF DEBUG}
OutputDebugString(PWideChar(aMessage + chr(0)));
if (GlobalCEFApp <> nil) and GlobalCEFApp.LibLoaded then
CefLog('CEF4Delphi', DEFAULT_LINE, CEF_LOG_SEVERITY_ERROR, aMessage);
{$ENDIF}
end;
end.