CEF4Delphi/source/uCEFRegistration.pas
salvadordf ca8bc9dff4 Added cef4delphi.chm help file
Added the PDS file to extract the HTML Help files using PasDoc
Added more XML documentation
Fixed some XML errors.
Removed the license copy from the pas units.
Updated the LICENSE.md file
2023-08-09 19:38:57 +02:00

34 lines
570 B
ObjectPascal

unit uCEFRegistration;
{$IFDEF FPC}
{$MODE OBJFPC}{$H+}
{$ENDIF}
{$I cef.inc}
{$IFNDEF TARGET_64BITS}{$ALIGN ON}{$ENDIF}
{$MINENUMSIZE 4}
interface
uses
uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes;
type
TCefRegistrationRef = class(TCefBaseRefCountedRef, ICefRegistration)
public
class function UnWrap(data: Pointer): ICefRegistration;
end;
implementation
class function TCefRegistrationRef.UnWrap(data: Pointer): ICefRegistration;
begin
if (data <> nil) then
Result := Create(data) as ICefRegistration
else
Result := nil;
end;
end.