diff --git a/source/uCEFFMXWindowParent.pas b/source/uCEFFMXWindowParent.pas index 54fdfc29..d9615624 100644 --- a/source/uCEFFMXWindowParent.pas +++ b/source/uCEFFMXWindowParent.pas @@ -32,7 +32,7 @@ type /// /// Set a new parent for this control. /// - 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)); /// /// Updates the size of the child windows created by the browser. /// @@ -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; diff --git a/update_CEF4Delphi.json b/update_CEF4Delphi.json index 7b5b0f5d..61a235dc 100644 --- a/update_CEF4Delphi.json +++ b/update_CEF4Delphi.json @@ -2,7 +2,7 @@ "UpdateLazPackages" : [ { "ForceNotify" : true, - "InternalVersion" : 733, + "InternalVersion" : 734, "Name" : "cef4delphi_lazarus.lpk", "Version" : "136.1.4" }