2017-03-16 19:09:42 +01:00
|
|
|
unit uCEFBaseScopedWrapper;
|
|
|
|
|
|
2018-05-12 14:50:54 +02:00
|
|
|
{$IFDEF FPC}
|
|
|
|
|
{$MODE OBJFPC}{$H+}
|
|
|
|
|
{$ENDIF}
|
|
|
|
|
|
2017-03-16 19:09:42 +01:00
|
|
|
{$I cef.inc}
|
|
|
|
|
|
2022-02-19 18:56:41 +01:00
|
|
|
{$IFNDEF TARGET_64BITS}{$ALIGN ON}{$ENDIF}
|
|
|
|
|
{$MINENUMSIZE 4}
|
|
|
|
|
|
2017-03-16 19:09:42 +01:00
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
|
TCEFBaseScopedWrapperRef = class
|
|
|
|
|
protected
|
|
|
|
|
FData: Pointer;
|
|
|
|
|
|
|
|
|
|
public
|
|
|
|
|
constructor Create(data: Pointer); virtual;
|
|
|
|
|
function Wrap: Pointer;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
constructor TCEFBaseScopedWrapperRef.Create(data: Pointer);
|
|
|
|
|
begin
|
|
|
|
|
inherited Create;
|
|
|
|
|
|
|
|
|
|
FData := data;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TCEFBaseScopedWrapperRef.Wrap: Pointer;
|
|
|
|
|
begin
|
|
|
|
|
Result := FData;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
end.
|
