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

Qt,Qt5,Qt6: do not send KeyUp if key is autorepeated. issue #41472

Browse Source
This commit is contained in:
zeljan1 2025-02-26 12:26:24 +01:00
parent 3360fef947
commit f90db81742
3 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3112,6 +3112,12 @@ begin
if not CanSendLCLMessage then if not CanSendLCLMessage then
exit; exit;
if (QEvent_type(Event) = QEventKeyRelease) and QKeyEvent_isAutoRepeat(QKeyEventH(Event)) then
begin
QEvent_ignore(Event);
exit(False);
end;
FillChar(KeyMsg{%H-}, SizeOf(KeyMsg), #0); FillChar(KeyMsg{%H-}, SizeOf(KeyMsg), #0);
FillChar(CharMsg{%H-}, SizeOf(CharMsg), #0); FillChar(CharMsg{%H-}, SizeOf(CharMsg), #0);
UTF8Text := ''; UTF8Text := '';

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

@ -3240,6 +3240,12 @@ begin
if not CanSendLCLMessage then if not CanSendLCLMessage then
exit; exit;
if (QEvent_type(Event) = QEventKeyRelease) and QKeyEvent_isAutoRepeat(QKeyEventH(Event)) then
begin
QEvent_ignore(Event);
exit(False);
end;
FillChar(KeyMsg{%H-}, SizeOf(KeyMsg), #0); FillChar(KeyMsg{%H-}, SizeOf(KeyMsg), #0);
FillChar(CharMsg{%H-}, SizeOf(CharMsg), #0); FillChar(CharMsg{%H-}, SizeOf(CharMsg), #0);
UTF8Text := ''; UTF8Text := '';

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

@ -3237,6 +3237,12 @@ begin
if not CanSendLCLMessage then if not CanSendLCLMessage then
exit; exit;
if (QEvent_type(Event) = QEventKeyRelease) and QKeyEvent_isAutoRepeat(QKeyEventH(Event)) then
begin
QEvent_ignore(Event);
exit;
end;
FillChar(KeyMsg{%H-}, SizeOf(KeyMsg), #0); FillChar(KeyMsg{%H-}, SizeOf(KeyMsg), #0);
FillChar(CharMsg{%H-}, SizeOf(CharMsg), #0); FillChar(CharMsg{%H-}, SizeOf(CharMsg), #0);
UTF8Text := ''; UTF8Text := '';