paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 11:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: use SetWindowPlacement in SetBounds instead of SetWindowPos. Issue

Browse Source
This commit is contained in:
Ondrej Pokorny 2021-11-19 15:50:41 +01:00
parent 5f82f6ba31
commit c5c2329f62
1 changed files with 12 additions and 1 deletions

13
lcl/interfaces/win32/win32wscontrols.pp
View File

@ -459,9 +459,20 @@ begin
begin begin
Handle := AWinControl.Handle; Handle := AWinControl.Handle;
WindowPlacement.length := SizeOf(WindowPlacement); WindowPlacement.length := SizeOf(WindowPlacement);
if IsIconic(Handle) and GetWindowPlacement(Handle, @WindowPlacement) then // Windows (at least Win 10) has the feature that SetWindowPos() forces dialogs with parent windows on the same screen
// with the parent window - the position set with Windows.SetWindowPos() is ignored and instead the dialog
// is centered with its parent window.
// To prevent Windows from changing the position defined by the LCL, SetWindowPos() must not be used and
// SetWindowPlacement() must be used instead.
// It looks like GetWindowPlacement/SetWindowPlacement has no negative impact on non-form controls, so it is used directly
// In case of problems with "normal" wincontrols, the GetWindowPlacement/SetWindowPlacement code can be executed only
// for TCustomForm descendands
// See issue #39479 for more description and demo application.
if GetWindowPlacement(Handle, @WindowPlacement) then
begin begin
WindowPlacement.rcNormalPosition := Bounds(IntfLeft, IntfTop, IntfWidth, IntfHeight); WindowPlacement.rcNormalPosition := Bounds(IntfLeft, IntfTop, IntfWidth, IntfHeight);
if not IsIconic(Handle) and not Windows.IsWindowVisible(Handle) then // do not show hidden windows prematurely
WindowPlacement.showCmd := SW_HIDE;
SetWindowPlacement(Handle, @WindowPlacement); SetWindowPlacement(Handle, @WindowPlacement);
end end
else else