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

fixed key grabbing

Browse Source 
git-svn-id: trunk@2379 -
This commit is contained in:
mattias 2002-08-17 23:41:19 +00:00
parent 97244c2c91
commit 63eadbb635
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -433,7 +433,6 @@ begin
if Extended then Flags := KF_EXTENDED;
if SysKey then Flags := Flags or KF_ALTDOWN;
Msg.KeyData := $00000000; //TODO: OEM char
//writeln('[GTKKeyUpDown] ',TControl(Data).Name,':',TControl(Data).ClassName,' ',Event^.theType);
@ -2542,6 +2541,9 @@ end;
{ =============================================================================
$Log$
Revision 1.167 2003/02/18 22:56:23 mattias
fixed key grabbing
Revision 1.166 2003/02/04 11:44:13 mattias
fixed modified and loading xpms for button glyphs