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

GTK3: Fixed handling widget focus when csNoFocus is used.

Browse Source 
Closes: #40037.

When the widget has `csNoFocus` set, we don't set focus on it.
This commit is contained in:
Abou Al Montacir 2023-11-25 12:00:18 +01:00
parent 0922a747d7
commit bfc786c46c
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/interfaces/gtk3/gtk3widgets.pas
View File

@ -1288,7 +1288,9 @@ begin
if TGtk3ComboBox(Data).DroppedDown then
exit;
end;
TGtk3Widget(Data).GtkEventFocus(Widget, Event);
if not (csNoFocus in TCustomForm(TGtk3Widget(Data).LCLObject).ControlStyle) then begin
TGtk3Widget(Data).GtkEventFocus(Widget, Event);
end;
end;
GDK_CONFIGURE:
begin