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

LCL: TCustomForm.MakeFullyVisible, force SetBounds to interface, before Screen.MonitorFromWindow. Issue #034692

Browse Source 
git-svn-id: trunk@60521 -
This commit is contained in:
martin 2019-02-26 19:31:08 +00:00
parent 3d8420c410
commit b10aae8c1c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/customform.inc
View File

@ -2399,8 +2399,12 @@ begin
Result := nil;
end else
begin
if HandleAllocated then
Result := Screen.MonitorFromWindow(Handle, mdNearest)
if HandleAllocated then begin
// ensure widgetset has latest coordinates // invisible forms are not updated by DoSendBoundsToInterface
if (not HandleObjectShouldBeVisible) then
TWSWinControlClass(WidgetSetClass).SetBounds(Self, Left, Top, Width, Height);
Result := Screen.MonitorFromWindow(Handle, mdNearest);
end
else
Result := Screen.MonitorFromPoint(point(Left,Top));
end;