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

Added aNewWindowStyle parameter to TFMXWindowParent.Reparent
Some checks failed
Make / build (ubuntu-latest) (push) Has been cancelled
Details

Browse Source
This commit is contained in:
Salvador Díaz Fau 2025-05-12 11:42:06 +02:00
parent d3f2b48d4c
commit 62857477a6
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
source/uCEFFMXWindowParent.pas
View File

@ -32,7 +32,7 @@ type
/// <summary>
/// Set a new parent for this control.
/// </summary>
procedure Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF});
procedure Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF}; aNewWindowStyle: NativeInt = NativeInt(WS_POPUPWINDOW or WS_CHILDWINDOW));
/// <summary>
/// Updates the size of the child windows created by the browser.
/// </summary>
@ -134,7 +134,7 @@ begin
end;
end;
procedure TFMXWindowParent.Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF});
procedure TFMXWindowParent.Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF}; aNewWindowStyle: NativeInt);
var
TempChildHandle, TempParentHandle : HWND;
begin
@ -149,7 +149,7 @@ begin
if (TempChildHandle <> 0) and (TempParentHandle <> 0) then
begin
SetWindowLong(TempChildHandle, GWL_STYLE, WS_CHILDWINDOW);
SetWindowLong(TempChildHandle, GWL_STYLE, aNewWindowStyle);
WinApi.Windows.SetParent(TempChildHandle, TempParentHandle);
end;
end;

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 733,
"InternalVersion" : 734,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "136.1.4"
}