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

Merge branch 'Gtk3Monitor' into 'main'

Browse Source 
GTK3: Fixed workarea handling on systems with frequent monitor removals. Issue #40333.

See merge request freepascal.org/lazarus/lazarus!213
This commit is contained in:
Maxim Ganetsky 2023-06-24 14:42:40 +00:00
commit 640eca41e2
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk3/gtk3winapi.inc
View File

@ -3949,6 +3949,11 @@ begin
SPI_GETWORKAREA: begin
pdisp:=TGdkDisplay.get_default;
pmon:=pdisp^.get_primary_monitor();
if not Assigned(pmon) then begin
if pdisp^.get_n_monitors = 0 then
Exit(False);
pmon := pdisp^.get_monitor(0);
end;
pmon^.get_workarea(@wa);
pr:=PRect(pvParam);
pr^.Left:=wa.x;