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

gtk intf: fixed RealizeAccelerate

Browse Source 
git-svn-id: trunk@14300 -
This commit is contained in:
mattias 2008-02-28 13:05:18 +00:00
parent a6dd95e3b2
commit e4cad5b120
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5394,17 +5394,17 @@ begin
AccelKey:=GetAccelKey(Widget);
if (AccelKey=nil) or (AccelKey^.Realized) then exit;
if AccelKey^.Key<0 then begin
if AccelKey^.Key>0 then begin
AccelGroup:=GetAccelGroupForComponent(Component,true);
if AccelGroup<>nil then begin
{ $IFDEF VerboseAccelerator}
{$IFDEF VerboseAccelerator}
DebugLn('RealizeAccelerator Add Accelerator ',
Component.Name,':',Component.ClassName,
' Widget=',DbgS(Widget),
' Signal=',AccelKey^.Signal,
' Key=',dbgs(AccelKey^.Key),' Mods=',dbgs(AccelKey^.Mods),
'');
{ $ENDIF}
{$ENDIF}
gtk_widget_add_accelerator(Widget, PChar(AccelKey^.Signal),
AccelGroup, AccelKey^.Key, AccelKey^.Mods, GTK_ACCEL_VISIBLE);
AccelKey^.Realized:=true;