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

Added cleanup code for keyboard tables

Browse Source 
git-svn-id: trunk@4731 -
This commit is contained in:
marc 2003-10-24 21:28:16 +00:00
parent 053ea37be4
commit 9077473f14
2 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1939,6 +1939,40 @@ begin
end;
{$ENDIF}
{------------------------------------------------------------------------------
Procedure: DoneKeyboardTables
Params: none
Returns: none
Frees the dynamic keyboard tables
------------------------------------------------------------------------------}
procedure DoneKeyboardTables;
var
n1, n2, n3: Byte;
K1: PVKeyArray1;
K2: PVKeyArray2;
K3: PVKeyArray3;
begin
for n3 := 0 to 255 do
begin
K3 := MKeySymToVK[n3];
if K3 = nil then Continue;
for n2 := 0 to 255 do
begin
K2 := K3^[n2];
if K2 = nil then Continue;
for n1 := 0 to 255 do
begin
K1 := K2^[n1];
if K1 = nil then Continue;
Dispose(K1);
end;
Dispose(K2);
end;
Dispose(K3);
end;
end;
{------------------------------------------------------------------------------
Function: CharToVKandFlags
Params: AChar: A character to translate
@ -5484,6 +5518,9 @@ end;
{ =============================================================================
$Log$
Revision 1.222 2003/10/24 21:28:16 marc
Added cleanup code for keyboard tables
Revision 1.221 2003/10/22 20:37:31 ajgenius
fix accel group test to remove GTK2 warnings

3
lcl/interfaces/gtk/gtkproc.pp
View File

@ -337,6 +337,7 @@ type
end;
procedure InitKeyboardTables;
procedure DoneKeyboardTables;
function CharToVKandFlags(const AChar: Char): Word;
function GetVKeyInfo(const AVKey: Byte): TVKeyInfo;
function IsToggleKey(const AVKey: Byte): Boolean;
@ -741,5 +742,7 @@ finalization
GdkTrapCalls := 0;
EndGDKErrorTrap;
DoneKeyboardTables;
end.