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

added Application OnKeyDownHandler

Browse Source 
git-svn-id: trunk@2377 -
This commit is contained in:
mattias 2002-08-17 23:41:19 +00:00
parent 7858855e34
commit e1ea39a662
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/wincontrol.inc
View File

@ -1431,7 +1431,10 @@ begin
KeyDown(CharCode, ShiftState);
if CharCode = VK_UNKNOWN then Exit;
end;
if Application<>nil then
Application.NotifyKeyDownHandler(CharCode, ShiftState);
end;
Result := False;
end;
@ -2593,6 +2596,9 @@ end;
{ =============================================================================
$Log$
Revision 1.127 2003/04/11 10:23:23 mattias
added Application OnKeyDownHandler
Revision 1.126 2003/04/10 09:22:42 mattias
implemented changing dependency version