paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 08:19:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK3: Fix regression with form decoration on Wayland. Issue #39898, patch by Anton Kavalenka.

Browse Source
This commit is contained in:
Juha 2022-09-17 18:03:34 +03:00
parent b4d5ac5c89
commit 8def460511
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -1202,12 +1202,12 @@ begin
end;
GDK_KEY_PRESS:
begin
if Widget^.has_focus then
if Widget^.has_focus or Widget^.is_toplevel then
Result := TGtk3Widget(Data).GtkEventKey(Widget, Event, True);
end;
GDK_KEY_RELEASE:
begin
if Widget^.has_focus then // or (Widget = TGtk3Widget(data).GetContainerWidget) then
if Widget^.has_focus or Widget^.is_toplevel then // or (Widget = TGtk3Widget(data).GetContainerWidget) then
Result := TGtk3Widget(Data).GtkEventKey(Widget, Event, False);
end;
GDK_ENTER_NOTIFY:
@ -7555,11 +7555,11 @@ begin
begin
Result := TGtkWindow.new(GTK_WINDOW_TOPLEVEL);
FWidget:=Result;
//Result^.set_size_request(0,0);
FWidget^.set_events(GDK_DEFAULT_EVENTS_MASK);
gtk_widget_realize(Result);
decor:=decoration_flags(AForm);
gdk_window_set_decorations(Result^.window, decor);
gtk_window_set_decorated(PGtkWindow(Result),(decor<>0));
if AForm.AlphaBlend then
gtk_widget_set_opacity(Result, TForm(LCLObject).AlphaBlendValue/255);
@ -7612,7 +7612,6 @@ begin
if not (csDesigning in AForm.ComponentState) then
UpdateWindowState;
//REMOVE THIS, USED TO TRACK MOUSE MOVE OVER WIDGET TO SEE SIZE OF FIXED !
//g_object_set_data(PGObject(FScrollWin), 'lcldebugscrollwin', Self);
//g_object_set_data(PGObject(FCentralWidget), 'lcldebugfixed', Self);
@ -7735,6 +7734,7 @@ begin
end;
end;
end;
PGtkWindow(Widget)^.set_resizable(true);
PGtkWindow(Widget)^.resize(AWidth, AHeight);
PGtkWindow(Widget)^.move(ALeft, ATop);
finally