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

Qt: block QtKey_Space on QRadioButton when it's not child of TRadioGroup.

Browse Source 
git-svn-id: trunk@26763 -
This commit is contained in:
zeljko 2010-07-21 10:00:59 +00:00
parent 3d8f047dc7
commit a18bbff0f4
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5104,7 +5104,11 @@ function TQtRadioButton.EventFilter(Sender: QObjectH; Event: QEventH): Boolean;
begin
Result := inherited EventFilter(Sender, Event);
if (LCLObject <> nil) and
(QEvent_type(Event) in [QEventMouseButtonPress, QEventMouseButtonRelease])
((QEvent_type(Event) in [QEventMouseButtonPress, QEventMouseButtonRelease])
or
((QEvent_type(Event) in [QEventKeyPress, QEventKeyRelease]) and
(QKeyEvent_key(QKeyEventH(Event)) = QtKey_Space) and
isChecked))
then
Result := not (LCLObject.Parent is TRadioGroup);
end;