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

gtk2: do not automatically grab focus when tab clicked. issue #32237

Browse Source 
git-svn-id: trunk@55726 -
This commit is contained in:
zeljko 2017-08-21 07:55:37 +00:00
parent acedbd74f5
commit 0c1d8a9bb0
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -2179,7 +2179,12 @@ begin
if Assigned(AClip) then
gtk_clipboard_set_text(AClip, PgChar(AClipText), length(AClipText));
end else
LCLIntf.SetFocus(AWinControl.Handle);
begin
if (AWinControl is TCustomTabControl) then
// do not grab focus. issue #32237
else
LCLIntf.SetFocus(AWinControl.Handle);
end;
end;
// send the message directly to the LCL