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

LCL: Use OwnerForm.Monitor when Position = poOwnerFormCenter. Issue #41377, patch by Artem Izmaylov.

Browse Source
This commit is contained in:
Juha 2025-01-30 18:40:35 +02:00
parent 7deaf87eb8
commit bc8578231c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customform.inc
View File

@ -2422,7 +2422,7 @@ begin
Result := GetDefaultMonitor; Result := GetDefaultMonitor;
poOwnerFormCenter: poOwnerFormCenter:
if (Owner is TCustomForm) and (GetParentForm(TCustomForm(Owner))<>Self) then if (Owner is TCustomForm) and (GetParentForm(TCustomForm(Owner))<>Self) then
Result := Application.MainForm.Monitor Result := TCustomForm(Owner).Monitor
else else
Result := GetDefaultMonitor; Result := GetDefaultMonitor;
else else