From 597fe6af9d6239eedd2387afddf4e5bcf779e3da Mon Sep 17 00:00:00 2001 From: zeljan1 Date: Tue, 11 Feb 2025 21:39:14 +0100 Subject: [PATCH] Gtk3: debug for keypresses. --- lcl/interfaces/gtk3/gtk3widgets.pas | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lcl/interfaces/gtk3/gtk3widgets.pas b/lcl/interfaces/gtk3/gtk3widgets.pas index 8c265180fa..9bdba5eeb4 100644 --- a/lcl/interfaces/gtk3/gtk3widgets.pas +++ b/lcl/interfaces/gtk3/gtk3widgets.pas @@ -2170,6 +2170,11 @@ begin // this is just for testing purposes. ACharCode := GdkKeyToLCLKey(KeyValue); + + {$IFDEF GTK3DEBUGKEYPRESS} + writeln('==== ACharCode=',ACharCode,' KeyValue=',KeyValue); + {$ENDIF} + if KeyValue > VK_UNDEFINED then KeyValue := ACharCode; // VK_UNKNOWN;