paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 17:29:36 +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

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

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