paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 09:27:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: propagate QEvent::ShortcutOverride to parent, so stop key event if shortcut is executed. issue #22827

Browse Source 
git-svn-id: trunk@38572 -
This commit is contained in:
zeljko 2012-09-08 09:13:29 +00:00
parent 8448fbd197
commit f5bc6f0df1
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/interfaces/qt/qtobject.inc
View File

@ -512,6 +512,9 @@ var
AObject: TQtObject;
W: TQtMainWindow;
LCLEvent: QLCLMessageEventH;
ASequence: QKeySequenceH;
AKey: WideString;
AParent: QWidgetH;
function IsAnyWindowActive: Boolean;
begin
@ -523,6 +526,25 @@ var
begin
Result := False;
case QEvent_type(Event) of
QEventShortcutOverride: // issue #22827
begin
QKeyEvent_text(QKeyEventH(Event), @AKey);
if (QKeyEvent_modifiers(QKeyEventH(Event)) = QtAltModifier) and
(AKey <> '') then
begin
ASequence := QKeySequence_create(QKeyEvent_modifiers(QKeyEventH(Event))
or QKeyEvent_Key(QKeyEventH(Event)));
try
AParent := QWidget_parentWidget(QWidgetH(Sender));
if AParent <> nil then
Result := QApplication_notify(App, AParent, Event);
finally
QKeySequence_destroy(ASequence);
end;
end;
end;
QEventApplicationFontChange: SetDefaultAppFontName;
QEventStyleChange:
begin