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

LCL: TApplication.DispatchAction formatting by lagprogramming. Issue #26885

Browse Source 
git-svn-id: trunk@46602 -
This commit is contained in:
juha 2014-10-19 09:15:32 +00:00
parent 885a085db5
commit 00fc7489c9
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/application.inc
View File

@ -1444,13 +1444,9 @@ function TApplication.DispatchAction(Msg: Longint; Action: TBasicAction): Boolea
var
Form: TCustomForm;
begin
Result := False;
Form := Screen.ActiveForm;
if (Form <> nil) and (Form.Perform(Msg, 0, PtrInt(Action)) = 1) then
Result := True
else
if (MainForm <> Form) and (MainForm <> nil) and (MainForm.Perform(Msg, 0, PtrInt(Action)) = 1) then
Result := True;
Result := ((Form <> nil) and (Form.Perform(Msg, 0, PtrInt(Action)) = 1)) or
((MainForm <> Form) and (MainForm <> nil) and (MainForm.Perform(Msg, 0, PtrInt(Action)) = 1));
// Disable action if no "user" handler is available
if (not Result) and (Action is TCustomAction) and
TCustomAction(Action).Enabled and TCustomAction(Action).DisableIfNoHandler then