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

* fixed crash

Browse Source 
git-svn-id: trunk@10357 -
This commit is contained in:
marc 2006-12-28 22:50:15 +00:00
parent 574e1e3688
commit d4ef9bafdd
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3088,6 +3088,7 @@ var
KeySym: array[0..3] of TKeySym;
VKey, FreeVK, Flags: Byte;
VKeyRec: TVKeyRecord;
VKeyRecPtr: PVKeyRecord;
HasMultiVK, DoMultiVK, Extended, HasKey, ComputeVK: Boolean;
KeySymChars: array[0..16] of Char;
KeySymCharLen: Integer;
@ -3192,7 +3193,16 @@ begin
if (KeySymCharLen > SizeOf(TVKeyUTF8Char))
then DebugLn('[WARNING] InitKeyboardTables - Keysymstring for keycode=%u longer than %u bytes: %s', [n, SizeOf(TVKeyUTF8Char), KeySymChars]);
MSymCharToVKMap.Add(KeySymChars, VKeyRec);
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]);
end;
if VKey <> $FF
then Move(KeySymChars[0], MVKeyInfo[VKey].KeyChar[m], SizeOf(TVKeyUTF8Char));