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

IDE: clean up ecCompile

Browse Source 
git-svn-id: trunk@61549 -
This commit is contained in:
mattias 2019-07-09 10:41:03 +00:00
parent 358ce23913
commit 34266f2bc2
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/ideintf/menuintf.pas
View File

@ -1695,9 +1695,10 @@ end;
procedure TIDEMenuCommand.MenuItemClick(Sender: TObject);
begin
//debugln(['TIDEMenuCommand.MenuItemClick START ',Caption,' ',dbgs(Pointer(Self)),' OnClick=',Assigned(OnClick),' OnClickProc=',Assigned(OnClickProc),' ',Assigned(Command),' Command.OnExecuteProc=',(Command<>nil) and (Command.OnExecuteProc<>nil),' OnClick.Data=',DbgSName(TObject(TMethod(OnClick).Data))]);
inherited MenuItemClick(Sender);
// do not execute if something is already executed
//debugln(['TIDEMenuCommand.MenuItemClick ',Assigned(OnClick),' ',Assigned(OnClickProc),' ',Assigned(Command),' ',(Command<>nil) and (Command.OnExecuteProc<>nil)]);
//debugln(['TIDEMenuCommand.MenuItemClick Exec ',Caption,' OnClick=',Assigned(OnClick),' OnClickProc=',Assigned(OnClickProc),' ',Assigned(Command),' Command.OnExecuteProc=',(Command<>nil) and (Command.OnExecuteProc<>nil)]);
if (not Assigned(OnClick)) and (not Assigned(OnClickProc))
and Assigned(Command) then
Command.Execute(Sender);

2
ide/main.pp
View File

@ -3535,8 +3535,6 @@ begin
ecOpenUnit: DoUseUnitDlg(udOpenUnit);
ecSaveAll: DoSaveAll([sfCheckAmbiguousFiles]);
ecQuit: mnuQuitClicked(Self);
ecCompile:
DoCompile;
ecRun:
begin
GetCurrentUnit(ASrcEdit,AnUnitInfo);