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

Win32: fix MDIChild form not updating Top/Left. Issue #40232.

Browse Source
This commit is contained in:
Bart 2023-07-01 14:00:05 +02:00
parent fda1f35008
commit e95cadd095
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/win32/win32winapi.inc
View File

@ -2408,6 +2408,7 @@ var
R: TRect;
WindowPlacement: TWINDOWPLACEMENT;
ParentHandle: THandle;
lclControl, lclParent: TWinControl;
begin
Result := False;
@ -2425,6 +2426,24 @@ begin
if ParentHandle <> 0 then
begin
if not Windows.ScreenToClient(ParentHandle, @LeftTop) then Exit;
lclControl := GetWin32WindowInfo(Handle)^.WinControl;
//Is this an MDIChild?
//Note: doing a more simple comparison: (ParentHandle = Win32WidgetSet.MDIClientHandle) has side effects, hence this more elaborate version
if (lclControl is TCustomForm) and
(TCustomForm(lclControl).FormStyle = fsMDIChild) and
(TCustomForm(lclControl).Parent = nil) and
Assigned(Application.MainForm) and
(Application.MainForm.FormStyle=fsMDIForm)
then
begin
//for a MDI ChildForm do not use ParentHandle
//because in this case ParentHandle = Win32WidgetSet.MDIClientHandle
//which is not a TWinControl, but a custom window created with the CreateWindowW API directly
//and GetLCLClientBoundsOffset() then returns False.
//Issue #40232
//ToDo: fix this in a better place?
ParentHandle := Handle;
end;
if not GetLCLClientBoundsOffset(ParentHandle, R) then
Exit;
Dec(LeftTop.X, R.Left);