paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-Win32: Don't move a calling form with OldStyleDialog dialogs. Issue #37821, patch from Jamie Philbrook.

Browse Source 
git-svn-id: trunk@63929 -
This commit is contained in:
juha 2020-09-27 22:14:53 +00:00
parent eda286fd37
commit e2ee2d39ed
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -482,7 +482,7 @@ var
OpenFileName: Windows.POPENFILENAME;
DlgRec: POpenFileDialogRec;
CanClose: Boolean;
{
procedure Reposition(ADialogWnd: Handle);
var
Left, Top: Integer;
@ -490,7 +490,6 @@ var
begin
// Btw, setting width and height of dialog doesnot reposition child controls :(
// So no way to set another height and width at least here
if (GetParent(ADialogWnd) = Win32WidgetSet.AppHandle) then
begin
if Screen.ActiveCustomForm <> nil then
@ -508,7 +507,7 @@ var
Top := (ABounds.Bottom - DialogRect.Bottom + DialogRect.Top) div 2;
SetWindowPos(ADialogWnd, HWND_TOP, Left, Top, 0, 0, SWP_NOSIZE);
end;
}
procedure ExtractDataFromNotify;
begin
OpenFileName := OpenFileNotify^.lpOFN;
@ -523,7 +522,7 @@ begin
begin
// Windows asks us to initialize dialog. At this moment controls are not
// arranged and this is that moment when we should set bounds of our dialog
Reposition(GetParent(Wnd));
//Reposition(GetParent(Wnd)); this causes active form to move out of position with old dialogs JP
end
else
if uMsg = WM_NOTIFY then