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

* minor VK assignment fixes

Browse Source 
- Reduced some warnings

git-svn-id: trunk@10358 -
This commit is contained in:
marc 2006-12-29 01:09:59 +00:00
parent d4ef9bafdd
commit 977c77be92
1 changed files with 28 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2597,8 +2597,7 @@ procedure InitKeyboardTables;
end;
GDK_KEY_Tab,
GDK_KEY_ISO_Left_Tab,
GDK_KEY_KP_Tab: AVKey := VK_TAB;
GDK_KEY_ISO_Left_Tab: AVKey := VK_TAB;
GDK_KEY_RETURN: AVKey := VK_RETURN;
// GDK_KEY_LINEFEED; AVKey := $0A;
@ -2721,10 +2720,16 @@ procedure InitKeyboardTables;
end;
GDK_KEY_KP_F1..GDK_KEY_KP_F4:
begin
// I guess it is extended to differentiate between normal Fn
// not on "normal" keyboard so defined extended to differentiate between normal Fn
AExtended := True;
AVKey := VK_F1 + AKeySym - GDK_KEY_KP_F1;
end;
GDK_KEY_KP_TAB:
begin
// not on "normal" keyboard so defined extended to differentiate between normal TAB
AExtended := True;
AVKey := VK_TAB;
end;
GDK_KEY_KP_Multiply:
begin
// Keypad key is not extended
@ -3169,9 +3174,10 @@ begin
// else use the new VK. If the assigned VK was computed, bad luck.
// Some day we might this do smarter, but since those extra keys
// are at the end, we probably wont hit the situation.
if ComputeVK
if ComputeVK and not DoMultiVK
then begin
FreeVK := VKey;
ComputeVK := False;
VKey := VKeyRec.VKey;
Flags := VKeyRec.Flags;
end;
@ -3193,15 +3199,24 @@ begin
if (KeySymCharLen > SizeOf(TVKeyUTF8Char))
then DebugLn('[WARNING] InitKeyboardTables - Keysymstring for keycode=%u longer than %u bytes: %s', [n, SizeOf(TVKeyUTF8Char), KeySymChars]);
VKeyRecPtr := MSymCharToVKMap.GetDataPtr(KeySymChars);
if VKeyRecPtr = nil
then begin
MSymCharToVKMap.Add(KeySymChars, VKeyRec);
end
else begin
if (VKeyRecPtr^.VKey <> VKey)
or (VKeyRecPtr^.Flags <> Flags)
then DebugLn('InitKeyboardTables - Duplicate Keysymstring="%s" for keycode=%u. Existing: vkey=%u, flags=%u New: vkey=%u, flags=%u', [KeySymChars, n, VKeyRecPtr^.VKey, VKeyRecPtr^.Flags, VKey, Flags]);
// Add vkey to char lookups, keypad and functional keys are ignored
case VKey of
VK_TAB, VK_RETURN, VK_SPACE,
VK_0..VK_Z,
$5E,
$B8..$E4,
$E8..$F5: begin
VKeyRecPtr := MSymCharToVKMap.GetDataPtr(KeySymChars);
if VKeyRecPtr = nil
then begin
MSymCharToVKMap.Add(KeySymChars, VKeyRec);
end
else begin
if (VKeyRecPtr^.VKey <> VKey)
then DebugLn('InitKeyboardTables - Duplicate Keysymstring="%s" for keycode=%u ignored. Existing: vkey=%u, flags=0x%2.2x New: vkey=%u, flags=0x%2.2x', [KeySymChars, n, VKeyRecPtr^.VKey, VKeyRecPtr^.Flags, VKey, Flags])
end;
end;
end;
if VKey <> $FF