paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 07:08:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: make keys work with synedit.

Browse Source
This commit is contained in:
zeljan1 2025-02-11 19:51:01 +01:00
parent fd115f2c71
commit 18d03966ff
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/gtk3/gtk3procs.pas
View File

@ -733,7 +733,24 @@ end;
function GdkKeyToLCLKey(AValue: Word): Word;
begin
if AValue <= $FF then
exit(AValue);
begin
if (AValue = GDK_KEY_plus) then
exit(VK_OEM_PLUS)
else
if (AValue = GDK_KEY_comma) then
exit(VK_OEM_COMMA)
else
if (AValue = GDK_KEY_minus) then
exit(VK_OEM_MINUS)
else
if (AValue = GDK_KEY_period) then
exit(VK_OEM_PERIOD)
else
if (AValue >= GDK_KEY_exclam) and (AValue <= GDK_KEY_parenleft) then
exit(AValue + 16)
else
exit(AValue);
end;
Result := VK_UNKNOWN;
case AValue of
GDK_KEY_Return, GDK_KEY_KP_Enter, GDK_KEY_3270_Enter: Result := VK_RETURN;