pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Preliminary Delphi7 support, CommandLine with values, Custom libcef.dll path

Browse Source
This commit is contained in:
Salvador Diaz Fau
2017-02-14 11:01:16 +01:00
parent bde555ddfa
commit 8d3316ba80
23 changed files with 639 additions and 181 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/uCEFMiscFunctions.pas
View File

@ -193,13 +193,13 @@ begin
cef_string_utf16_clear(@str);
end;
function CefGetObject(ptr: Pointer): TObject; inline;
function CefGetObject(ptr: Pointer): TObject; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
begin
Dec(PByte(ptr), SizeOf(Pointer));
Result := TObject(PPointer(ptr)^);
end;
function CefGetData(const i: ICefBase): Pointer; inline;
function CefGetData(const i: ICefBase): Pointer; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
begin
if (i <> nil) then
Result := i.Wrap
@ -442,7 +442,7 @@ const
DEFAULT_LINE = 1;
begin
{$IFDEF DEBUG}
OutputDebugString(PWideChar(aMessage + chr(0)));
OutputDebugString({$IFDEF DELPHI12_UP}PWideChar{$ELSE}PAnsiChar{$ENDIF}(aMessage + chr(0)));
if (GlobalCEFApp <> nil) and GlobalCEFApp.LibLoaded then
CefLog('CEF4Delphi', DEFAULT_LINE, CEF_LOG_SEVERITY_ERROR, aMessage);