paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 18:00:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: accelerators are now shared between non modal forms

Browse Source 
git-svn-id: trunk@2193 -
This commit is contained in:
lazarus 2002-08-17 23:41:06 +00:00
parent 9dc9fb808f
commit 67e947a35b
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,7 +89,7 @@ begin
Result := True; Result := True;
EventTrace('realize', nil); EventTrace('realize', nil);
if Data<>nil then begin if (Data<>nil) then begin
if TObject(Data) is TCustomForm then begin if TObject(Data) is TCustomForm then begin
TheForm:=TCustomForm(Data); TheForm:=TCustomForm(Data);
TheWindow:=GetControlWindow(Widget); TheWindow:=GetControlWindow(Widget);
@ -124,7 +124,8 @@ begin
end; end;
end; end;
RealizeAccelerator(TComponent(Data),Widget); if not (csDesigning in TComponent(Data).ComponentState) then
RealizeAccelerator(TComponent(Data),Widget);
end; end;
end; end;
@ -2536,6 +2537,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.154 2002/10/22 12:12:08 lazarus
MG: accelerators are now shared between non modal forms
Revision 1.153 2002/10/21 22:12:47 lazarus Revision 1.153 2002/10/21 22:12:47 lazarus
MG: fixed frmactivate MG: fixed frmactivate