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

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

Browse Source 
(cherry picked from commit f90db81742)

Co-authored-by: zeljan1 <zeljko@holobit.hr>
This commit is contained in:
Željan Rikalo 2025-02-26 12:17:22 +00:00 committed by Željan Rikalo
parent 85a1c9e578
commit 969c4bf8ae
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
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(CharMsg{%H-}, SizeOf(CharMsg), #0);
UTF8Text := '';

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

@ -3240,6 +3240,12 @@ begin
if not CanSendLCLMessage then
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(CharMsg{%H-}, SizeOf(CharMsg), #0);
UTF8Text := '';

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

@ -3237,6 +3237,12 @@ begin
if not CanSendLCLMessage then
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(CharMsg{%H-}, SizeOf(CharMsg), #0);
UTF8Text := '';