pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Added the MiniBrowser demo for Linux

Browse Source 
Fixed the Linux version of WindowInfoAsPopUp.
This commit is contained in:
Salvador Diaz Fau
2021-01-06 12:18:14 +01:00
parent 83cf65a8ec
commit 76d296871f
14 changed files with 2124 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/uCEFChromium.pas
View File

@@ -134,17 +134,22 @@ uses
{$IFDEF MSWINDOWS}
procedure TChromium.InitializeDragAndDrop(const aDropTargetCtrl: TWinControl);
begin
if aDropTargetCtrl <> nil then
if (aDropTargetCtrl <> nil) then
inherited InitializeDragAndDrop(aDropTargetCtrl.Handle);
end;
{$ENDIF MSWINDOWS}
procedure TChromium.InitializeDevToolsWindowInfo(aDevTools: TWinControl);
var
TempHandle : TCefWindowHandle;
begin
if aDevTools <> nil then
if (aDevTools <> nil) then
DefaultInitializeDevToolsWindowInfo(aDevTools.Handle, aDevTools.ClientRect, aDevTools.Name)
else
DefaultInitializeDevToolsWindowInfo(0, Rect(0, 0, 0, 0), '');
begin
InitializeWindowHandle(TempHandle);
DefaultInitializeDevToolsWindowInfo(TempHandle, Rect(0, 0, 0, 0), '');
end;
end;
procedure TChromium.ShowDevTools(inspectElementAt: TPoint; const aDevTools : TWinControl);