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

* Fixed Shift+Fn menu captions

Browse Source 
git-svn-id: trunk@5157 -
This commit is contained in:
marc 2004-02-03 23:42:43 +00:00
parent 8c529dfafe
commit e79cacbb9c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3863,8 +3863,8 @@ begin
// Send the unmodified keysym ?
if (ssShift in Msg.NewModifier)
and ((Msg.NewKey < VK_F1) or (Msg.NewKey > VK_F24) )
then GDKKey := GetVKeyInfo(Msg.NewKey).KeySym[0]
else GDKKey := GetVKeyInfo(Msg.NewKey).KeySym[1];
then GDKKey := GetVKeyInfo(Msg.NewKey).KeySym[1]
else GDKKey := GetVKeyInfo(Msg.NewKey).KeySym[0];
Accelerate(Component,Widget,GDKKey,GDKModifier,Signal);
end;
@ -6314,6 +6314,9 @@ end;
{ =============================================================================
$Log$
Revision 1.255 2004/02/03 23:42:43 marc
* Fixed Shift+Fn menu captions
Revision 1.254 2004/02/02 15:46:19 mattias
implemented basic TSplitter, still many ToDos