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

2
components/ideintf/idecommands.pas
View File

@ -1806,7 +1806,7 @@ procedure TIDESpecialCommand.SetOnClickMethod(const aOnClick: TNotifyEvent);
begin begin
if CompareMethods(TMethod(FOnClickMethod), TMethod(aOnClick)) then Exit; if CompareMethods(TMethod(FOnClickMethod), TMethod(aOnClick)) then Exit;
FOnClickMethod := aOnClick; FOnClickMethod := aOnClick;
if (FCommand<> nil) and SyncAvailable then if (FCommand<>nil) and SyncAvailable then
FCommand.OnExecute:=aOnClick; FCommand.OnExecute:=aOnClick;
end; end;

3
components/ideintf/menuintf.pas
View File

@ -1695,9 +1695,10 @@ end;
procedure TIDEMenuCommand.MenuItemClick(Sender: TObject); procedure TIDEMenuCommand.MenuItemClick(Sender: TObject);
begin 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); inherited MenuItemClick(Sender);
// do not execute if something is already executed // 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)) if (not Assigned(OnClick)) and (not Assigned(OnClickProc))
and Assigned(Command) then and Assigned(Command) then
Command.Execute(Sender); Command.Execute(Sender);

2
ide/main.pp
View File

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