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

fixed application modal for shortcut delegation from Martin Smat

Browse Source 
git-svn-id: trunk@7413 -
This commit is contained in:
mattias 2005-07-24 08:01:57 +00:00
parent 6dcd7874c3
commit aa507b9cb7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/application.inc
View File

@ -1314,7 +1314,7 @@ begin
// next: if there is a modal form, let it handle the short cut // next: if there is a modal form, let it handle the short cut
ModalForm:=Screen.GetCurrentModalForm; ModalForm:=Screen.GetCurrentModalForm;
if ModalForm<>nil then begin if ModalForm<>nil then begin
Result := FMainForm.IsShortcut(Message); Result := ModalForm.IsShortcut(Message);
end else begin end else begin
// there is no modal form // there is no modal form
@ -1476,6 +1476,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.127 2005/07/24 08:01:57 mattias
fixed application modal for shortcut delegation from Martin Smat
Revision 1.126 2005/07/22 12:44:04 vincents Revision 1.126 2005/07/22 12:44:04 vincents
initiliased Result of DispatchAction initiliased Result of DispatchAction