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

fixed Sender of Application.OnKeyDownHandler bug #947

Browse Source 
git-svn-id: trunk@7269 -
This commit is contained in:
mattias 2005-06-22 21:09:50 +00:00
parent 9628a2b23e
commit cc18e577c8
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/include/application.inc
View File

@ -1169,7 +1169,7 @@ var
begin
i:=FApplicationHandlers[ahtKeyDownBefore].Count;
while FApplicationHandlers[ahtKeyDownBefore].NextDownIndex(i) do
TKeyEvent(FApplicationHandlers[ahtKeyDownBefore][i])(Self,Key,Shift);
TKeyEvent(FApplicationHandlers[ahtKeyDownBefore][i])(Sender,Key,Shift);
end;
procedure TApplication.NotifyKeyDownHandler(Sender: TObject;
@ -1179,7 +1179,7 @@ var
begin
i:=FApplicationHandlers[ahtKeyDownAfter].Count;
while FApplicationHandlers[ahtKeyDownAfter].NextDownIndex(i) do
TKeyEvent(FApplicationHandlers[ahtKeyDownAfter][i])(Self,Key,Shift);
TKeyEvent(FApplicationHandlers[ahtKeyDownAfter][i])(Sender,Key,Shift);
end;
procedure TApplication.ControlKeyDown(Sender: TObject; var Key: Word;
@ -1475,6 +1475,9 @@ end;
{ =============================================================================
$Log$
Revision 1.125 2005/06/22 21:09:50 mattias
fixed Sender of Application.OnKeyDownHandler bug 947
Revision 1.124 2005/06/22 09:04:48 vincents
added DumpExceptionBackTrace