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

37
source/uCEFBrowserView.pas
View File

@ -100,20 +100,39 @@ class function TCefBrowserViewRef.CreateBrowserView(const client : ICef
const delegate : ICefBrowserViewDelegate): ICefBrowserView;
var
TempURL : TCefString;
TempURL : TCefString;
TempBrowserView : PCefBrowserView;
begin
TempURL := CefString(url);
Result := UnWrap(cef_browser_view_create(CefGetData(client),
@TempURL,
@settings,
CefGetData(extra_info),
CefGetData(request_context),
CefGetData(delegate)));
Result := nil;
if (client <> nil) and (delegate <> nil) then
begin
TempURL := CefString(url);
TempBrowserView := cef_browser_view_create(CefGetData(client),
@TempURL,
@settings,
CefGetData(extra_info),
CefGetData(request_context),
CefGetData(delegate));
if (TempBrowserView <> nil) then
Result := Create(TempBrowserView) as ICefBrowserView;
end;
end;
class function TCefBrowserViewRef.GetForBrowser(const browser: ICefBrowser): ICefBrowserView;
var
TempBrowserView : PCefBrowserView;
begin
Result := UnWrap(cef_browser_view_get_for_browser(CefGetData(browser)));
Result := nil;
if (browser <> nil) then
begin
TempBrowserView := cef_browser_view_get_for_browser(CefGetData(browser));
if (TempBrowserView <> nil) then
Result := Create(TempBrowserView) as ICefBrowserView;
end;
end;
end.