From 4c06816eaa1fd7a4740634bd3d7123cb9ee1db06 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 22 Nov 2010 00:00:42 +0000
Subject: [PATCH] IDE: Remove unneeded setting of menu command and speed button
 enabled states.

git-svn-id: trunk@28385 -
---
 ide/main.pp      | 6 ------
 ide/mainbase.pas | 7 ++++---
 2 files changed, 4 insertions(+), 9 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index f1336a40ae..fce651adcb 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -1820,9 +1820,6 @@ begin
   MainIDEBar.BuildModeSpeedButton.Style:=tbsDropDown;
   MainIDEBar.BuildModeSpeedButton.DropdownMenu:=MainIDEBar.SetBuildModePopupMenu;
   MainIDEBar.SetBuildModePopupMenu.OnPopup := @SetBuildModePopupMenuPopup;
-
-  MainIDEBar.PauseSpeedButton.Enabled := False;
-  MainIDEBar.StopSpeedButton.Enabled := False;  
 end;
 
 procedure TMainIDE.SetupDialogs;
@@ -2467,15 +2464,12 @@ begin
     itmRunMenuQuickCompile.OnClick := @mnuQuickCompileProjectClicked;
     itmRunMenuAbortBuild.OnClick := @mnuAbortBuildProjectClicked;
     itmRunMenuRun.OnClick := @mnuRunProjectClicked;
-    itmRunMenuPause.Enabled := False;
     itmRunMenuPause.OnClick := @mnuPauseProjectClicked;
-    itmRunMenuShowExecutionPoint.Enabled := False;
     itmRunMenuShowExecutionPoint.OnClick := @mnuShowExecutionPointClicked;
     itmRunMenuStepInto.OnClick := @mnuStepIntoProjectClicked;
     itmRunMenuStepOver.OnClick := @mnuStepOverProjectClicked;
     itmRunMenuStepOut.OnClick := @mnuStepOutProjectClicked;
     itmRunMenuRunToCursor.OnClick := @mnuRunToCursorProjectClicked;
-    itmRunMenuStop.Enabled := False;
     itmRunMenuStop.OnClick := @mnuStopProjectClicked;
     itmRunMenuRunParameters.OnClick := @mnuRunParametersClicked;
     itmRunMenuBuildFile.OnClick := @mnuBuildFileClicked;
diff --git a/ide/mainbase.pas b/ide/mainbase.pas
index 71532e4959..a5b58be858 100644
--- a/ide/mainbase.pas
+++ b/ide/mainbase.pas
@@ -653,13 +653,14 @@ begin
     ParentMI:=itmRunnning;
 
     CreateMenuItem(ParentMI,itmRunMenuRun,'itmRunMenuRun',lisMenuProjectRun,'menu_run');
-    CreateMenuItem(ParentMI,itmRunMenuPause,'itmRunMenuPause',lisMenuPause,'menu_pause');
-    CreateMenuItem(ParentMI,itmRunMenuShowExecutionPoint,'itmRunMenuShowExecutionPoint',lisMenuShowExecutionPoint,'debugger_show_execution_point');
+    CreateMenuItem(ParentMI,itmRunMenuPause,'itmRunMenuPause',lisMenuPause,'menu_pause', False);
+    CreateMenuItem(ParentMI,itmRunMenuShowExecutionPoint,'itmRunMenuShowExecutionPoint',
+                   lisMenuShowExecutionPoint,'debugger_show_execution_point', False);
     CreateMenuItem(ParentMI,itmRunMenuStepInto,'itmRunMenuStepInto',lisMenuStepInto,'menu_stepinto');
     CreateMenuItem(ParentMI,itmRunMenuStepOver,'itmRunMenuStepOver',lisMenuStepOver,'menu_stepover');
     CreateMenuItem(ParentMI,itmRunMenuStepOut,'itmRunMenuStepOut',lisMenuStepOut,'menu_stepout');
     CreateMenuItem(ParentMI,itmRunMenuRunToCursor,'itmRunMenuRunToCursor',lisMenuRunToCursor,'menu_run_cursor');
-    CreateMenuItem(ParentMI,itmRunMenuStop,'itmRunMenuStop',lisMenuStop,'menu_stop');
+    CreateMenuItem(ParentMI,itmRunMenuStop,'itmRunMenuStop',lisMenuStop,'menu_stop', False);
     CreateMenuItem(ParentMI,itmRunMenuRunParameters,'itmRunMenuRunParameters',lisMenuRunParameters, 'menu_run_parameters');
     CreateMenuItem(ParentMI,itmRunMenuResetDebugger,'itmRunMenuResetDebugger',lisMenuResetDebugger, 'menu_reset_debugger');