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

IDEIntf: Prevent executing menu commands twice. Issue #28870, patch from Ondrej.

Browse Source 
git-svn-id: trunk@50093 -
This commit is contained in:
juha 2015-10-17 08:17:08 +00:00
parent 6daf156ce1
commit 709d37fee1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/ideintf/menuintf.pas
View File

@ -543,8 +543,11 @@ end;
procedure TIDEMenuItem.MenuItemClick(Sender: TObject); procedure TIDEMenuItem.MenuItemClick(Sender: TObject);
begin begin
if Assigned(OnClick) then OnClick(Self); if Assigned(OnClick) then
if Assigned(OnClickProc) then OnClickProc(Self); OnClick(Self)
else
if Assigned(OnClickProc) then
OnClickProc(Self);
end; end;
procedure TIDEMenuItem.MenuItemDestroy(Sender: TObject); procedure TIDEMenuItem.MenuItemDestroy(Sender: TObject);