paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 18:22:54 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2170,6 +2170,11 @@ begin
// this is just for testing purposes. // this is just for testing purposes.
ACharCode := GdkKeyToLCLKey(KeyValue); ACharCode := GdkKeyToLCLKey(KeyValue);
{$IFDEF GTK3DEBUGKEYPRESS}
writeln('==== ACharCode=',ACharCode,' KeyValue=',KeyValue);
{$ENDIF}
if KeyValue > VK_UNDEFINED then if KeyValue > VK_UNDEFINED then
KeyValue := ACharCode; // VK_UNKNOWN; KeyValue := ACharCode; // VK_UNKNOWN;