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

* Fixed setting keyinfo flags

Browse Source 
git-svn-id: trunk@10724 -
This commit is contained in:
marc 2007-03-08 23:57:13 +00:00
parent e77c31ed38
commit de4fb4771b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3183,7 +3183,7 @@ begin
MKeyCodeInfo[KeyCode].Flags := $FF
end
else begin
MKeyCodeInfo[KeyCode].Flags := KEYFLAGS[m] or EXTFLAG[Extended] or MULTIFLAG[HasMultiVK];
MKeyCodeInfo[KeyCode].Flags := EXTFLAG[Extended] or MULTIFLAG[HasMultiVK];
MVKeyInfo[VKey].KeyCode[SecondKey] := KeyCode;
end;
MKeyCodeInfo[KeyCode].VKey1 := VKey;
@ -3206,7 +3206,9 @@ begin
end;
end;
if VKey = VK_UNDEFINED then Continue;
MKeyCodeInfo[KeyCode].Flags := MKeyCodeInfo[KeyCode].Flags or KEYFLAGS[m];
FillByte(KeySymChars, SizeOf(KeySymChars), 0);
{$ifdef gtk1}
// Retrieve the chars for this KeySym