paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 11:56:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk: hide some warnings when HideKeyTableWarnings is defined

Browse Source 
git-svn-id: trunk@21519 -
This commit is contained in:
paul 2009-09-01 14:01:10 +00:00
parent 3311008f4b
commit 040131af50
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkproc.inc
View File

@ -3002,7 +3002,9 @@ procedure InitKeyboardTables;
$E4: AFreeVK := $E6;
$E6: AFreeVK := $E9;
$F5: begin
{$ifndef HideKeyTableWarnings}
DebugLn('[WARNING] Out of OEM specific VK codes, changing to unassigned');
{$endif}
AFreeVK := $88;
end;
$8F: AFreeVK := $97;
@ -3010,7 +3012,9 @@ procedure InitKeyboardTables;
$DA: AFreeVK := $E5;
$E5: AFreeVK := $E8;
$E8: begin
{$ifndef HideKeyTableWarnings}
DebugLn('[WARNING] Out of unassigned VK codes, assigning $FF');
{$endif}
AFreeVK := $FF;
end;
$FF: AFreeVK := $FF; // stay there