paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: do not propagate keyrelease event as action trigger. issue #22737

Browse Source 
git-svn-id: trunk@38520 -
This commit is contained in:
zeljko 2012-09-05 10:22:21 +00:00
parent eb63241bf4
commit a3eea5f52e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/qt/qtwidgets.pas
View File

@ -2902,6 +2902,7 @@ begin
if (Modifiers = QtAltModifier) then if (Modifiers = QtAltModifier) then
begin begin
if (QApplication_activeModalWidget() = nil) and if (QApplication_activeModalWidget() = nil) and
(QEvent_type(Event) <> QEventKeyRelease) and
QtWidgetSet.ShortcutInGlobalActions('Alt+'+Text, GlobalAction) then QtWidgetSet.ShortcutInGlobalActions('Alt+'+Text, GlobalAction) then
begin begin
QtWidgetSet.TriggerGlobalAction(GlobalAction); QtWidgetSet.TriggerGlobalAction(GlobalAction);