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

Added Views Framework support #244

Browse Source 
Added ToolBoxBrowser2 demo
Added TCEFBrowserViewComponent.
Added TCEFLabelButtonComponent.
Added TCEFMenuButtonComponent.
Added TCEFPanelComponent.
Added TCEFTextfieldComponent.
Added TCEFScrollViewComponent.
Added TCEFWindowComponent.
This commit is contained in:
Salvador Díaz Fau
2020-05-05 18:10:33 +02:00
parent ccdb41b357
commit 318318c85c
79 changed files with 8145 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
source/uCEFBaseRefCounted.pas
View File

@ -78,6 +78,7 @@ type
destructor Destroy; override;
function SameAs(aData : Pointer) : boolean; overload;
function SameAs(const aBaseRefCounted : ICefBaseRefCounted) : boolean; overload;
procedure DestroyOtherRefs;
function Wrap: Pointer;
end;
@ -93,6 +94,7 @@ type
destructor Destroy; override;
function SameAs(aData : Pointer) : boolean; overload;
function SameAs(const aBaseRefCounted : ICefBaseRefCounted) : boolean; overload;
procedure DestroyOtherRefs;
function Wrap: Pointer;
class function UnWrap(data: Pointer): ICefBaseRefCounted;
end;
@ -243,6 +245,12 @@ begin
end;
end;
procedure TCefBaseRefCountedOwn.DestroyOtherRefs;
begin
while HasAtLeastOneRef and not(HasOneRef) do
_Release;
end;
function TCefBaseRefCountedOwn.Wrap: Pointer;
begin
Result := FData;
@ -353,6 +361,11 @@ begin
Result := (PCefBaseRefCounted(FData)^.has_at_least_one_ref(PCefBaseRefCounted(FData)) <> 0);
end;
procedure TCefBaseRefCountedRef.DestroyOtherRefs;
begin
//
end;
// ************************************************
// *********** TLoggingInterfacedObject ***********