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: fixed TCustomForm.GetMonitor when handleallocated and visible

Browse Source
This commit is contained in:
mattias 2022-05-16 15:25:08 +02:00
parent 46e5442514
commit becdd42b6d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customform.inc
View File

@ -2387,6 +2387,7 @@ function TCustomForm.GetMonitor: TMonitor;
var
ParentForm: TCustomForm;
begin
Result:=nil;
if Assigned(Parent) then
begin
ParentForm := GetParentForm(Self);
@ -2434,7 +2435,8 @@ begin
TWSWinControlClass(WidgetSetClass).SetBounds(Self, Left, Top, Width, Height);
Result := Screen.MonitorFromWindow(Handle, mdNearest);
{$ENDIF}
end;
end else
Result := Screen.MonitorFromWindow(Handle, mdNearest);
end
else
Result := Screen.MonitorFromPoint(point(Left,Top));