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

Gtk3: fixed GetWindowRect() so it return proper values on x11 and wayland.

Browse Source
This commit is contained in:
zeljan1 2025-02-03 16:56:46 +01:00
parent 654245a39e
commit 8077d8dae0
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2952,6 +2952,7 @@ var
AWindow: PGtkWindow;
x, y, aWidth, aHeight: gint;
Allocation: TGtkAllocation;
AGdkWindow: PGdkWindow;
begin
Result := 0;
if IsValidHandle(Handle) then
@ -2961,18 +2962,34 @@ begin
AWindow := PGtkWindow(TGtk3Widget(Handle).Widget);
if not TGtk3Window(Handle).WidgetMapped then
AWindow := nil;
if AWindow <> nil then
AGdkWindow := AWindow^.get_window
else
AGdkWindow := nil;
end else
AWindow := nil;
if AWindow <> nil then
begin
AWindow^.get_position(@x, @y);
AWindow^.get_size(@aWidth, @aHeight);
if Assigned(AGdkWindow) then
begin
AGdkWindow^.get_origin(@x, @y);
AGdkWindow^.get_frame_extents(@Allocation);
AWidth := Allocation.Width;
AHeight := Allocation.Height;
end else
begin
AWindow^.get_position(@x, @y);
AWindow^.get_size(@aWidth, @aHeight);
end;
ARect := Bounds(x, Y, AWidth, AHeight);
Result := 1;
end else
begin
TGtk3Widget(Handle).Widget^.get_allocation(@Allocation);
ARect := Bounds(Allocation.x, Allocation.y, Allocation.width, Allocation.height);
Result := -1;
end;
end;
end;