paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 12:03:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: debug for keypresses.

Browse Source
This commit is contained in:
zeljan1 2025-02-11 21:39:14 +01:00
parent 2feb873d51
commit 597fe6af9d
1 changed files with 5 additions and 0 deletions

5
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -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;