implemented hiding component palette and IDE speed buttons

git-svn-id: trunk@8020 -

ide/environmentopts.pp

@@ -122,13 +122,16 @@ const
 
 type
   { class for storing environment options }
+
+  { TEnvironmentOptions }
+
   TEnvironmentOptions = class
   private
-    FDebuggerSearchPath: string;
     FDesignerPaintLazy: boolean;
     FFilename: string;
     FFileAge: longint;
     FFileHasChangedOnDisk: boolean;
+    FIDESpeedButtonsVisible: boolean;
     FXMLCfg: TXMLConfig;
     FConfigStore: TXMLOptionsStorage;
 
@@ -145,6 +148,8 @@ type
     FIDEDialogLayoutList: TIDEDialogLayoutList;
     FMinimizeAllOnMinimizeMain: boolean;
     FHideIDEOnRun: boolean;
+    FComponentPaletteVisible: boolean;
+    FDebuggerSearchPath: string;
 
     // EnvironmentOptionsDialog editor
     FShowGrid: boolean;
@@ -266,6 +271,10 @@ type
     property MinimizeAllOnMinimizeMain: boolean read FMinimizeAllOnMinimizeMain
                                                write FMinimizeAllOnMinimizeMain;
     property HideIDEOnRun: boolean read FHideIDEOnRun write FHideIDEOnRun;
+    property ComponentPaletteVisible: boolean read FComponentPaletteVisible
+                                              write FComponentPaletteVisible;
+    property IDESpeedButtonsVisible: boolean read FIDESpeedButtonsVisible
+                                             write FIDESpeedButtonsVisible;
 
     // EnvironmentOptionsDialog editor
     property ShowGrid: boolean read FShowGrid write FShowGrid;
@@ -799,6 +808,8 @@ begin
     IDEWindowIntf.IDEDialogLayoutList:=FIDEDialogLayoutList;
   FMinimizeAllOnMinimizeMain:=false;
   FHideIDEOnRun:=false;
+  FComponentPaletteVisible:=true;
+  FIDESpeedButtonsVisible:=true;
 
   // EnvironmentOptionsDialog editor
   FShowGrid:=true;
@@ -1012,6 +1023,10 @@ begin
       Path+'Desktop/MinimizeAllOnMinimizeMain/Value',true);
     FHideIDEOnRun:=XMLConfig.GetValue(
       Path+'Desktop/HideIDEOnRun/Value',false);
+    FComponentPaletteVisible:=XMLConfig.GetValue(
+      Path+'Desktop/ComponentPaletteVisible/Value',true);
+    FIDESpeedButtonsVisible:=XMLConfig.GetValue(
+      Path+'Desktop/IDESpeedButtonsVisible/Value',true);
 
     // EnvironmentOptionsDialog editor
     FShowGrid:=XMLConfig.GetValue(
@@ -1249,9 +1264,13 @@ begin
     FIDEWindowLayoutList.SaveToXMLConfig(XMLConfig,Path+'Desktop/');
     FIDEDialogLayoutList.SaveToConfig(FConfigStore,Path+'Desktop/Dialogs/');
     XMLConfig.SetDeleteValue(Path+'Desktop/MinimizeAllOnMinimizeMain/Value',
-      FMinimizeAllOnMinimizeMain,true);
+                             FMinimizeAllOnMinimizeMain,true);
     XMLConfig.SetDeleteValue(Path+'Desktop/HideIDEOnRun/Value',FHideIDEOnRun,
-      false);
+                             false);
+    XMLConfig.SetDeleteValue(Path+'Desktop/ComponentPaletteVisible/Value',
+                             FComponentPaletteVisible,true);
+    XMLConfig.SetDeleteValue(Path+'Desktop/IDESpeedButtonsVisible/Value',
+                             FIDESpeedButtonsVisible,true);
 
     // EnvironmentOptionsDialog editor
     XMLConfig.SetDeleteValue(Path+'FormEditor/ShowGrid',FShowGrid,true);

ide/keymapping.pp

@@ -164,6 +164,8 @@ const
   ecToggleCallStack      = ecUserFirst + 314;
   ecToggleSearchResults  = ecUserFirst + 315;
   ecViewAnchorEditor     = ecUserFirst + 316;
+  ecToggleCompPalette    = ecUserFirst + 317;
+  ecToggleIDESpeedBtns   = ecUserFirst + 318;
 
   // sourcenotebook commands
   ecNextEditor           = ecUserFirst + 330;
@@ -685,6 +687,8 @@ begin
   ecJumpToEditor: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
   ecToggleFormUnit: SetResult(VK_F12,[],VK_UNKNOWN,[]);
   ecViewAnchorEditor: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
+  ecToggleCompPalette: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
+  ecToggleIDESpeedBtns: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
 
   // project menu
   ecNewProject: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
@@ -992,6 +996,8 @@ begin
   ecJumpToEditor: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
   ecToggleFormUnit: SetResult(VK_F12,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
   ecViewAnchorEditor: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
+  ecToggleCompPalette: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
+  ecToggleIDESpeedBtns: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
 
   // project menu
   ecNewProject: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
@@ -1535,6 +1541,8 @@ begin
     ecViewUnitDependencies  : Result:= srkmecViewUnitDependencies;
     ecViewUnitInfo          : Result:= srkmecViewUnitInfo;
     ecViewAnchorEditor      : Result:= srkmecViewAnchorEditor;
+    ecToggleCompPalette     : Result:= srkmecToggleCompPalette;
+    ecToggleIDESpeedBtns    : Result:= srkmecToggleIDESpeedBtns;
 
     // codetools
     ecWordCompletion        : Result:= srkmecWordCompletion;
@@ -2470,6 +2478,8 @@ begin
   AddDefault(C,'Focus to source editor',ecJumpToEditor);
   AddDefault(C,'Toggle between Unit and Form',ecToggleFormUnit);
   AddDefault(C,'View Anchor Editor',ecViewAnchorEditor);
+  AddDefault(C,'Toggle view component palette',ecToggleCompPalette);
+  AddDefault(C,'Toggle view IDE speed buttons',ecToggleIDESpeedBtns);
 
   // project menu
   C:=Categories[AddCategory('ProjectMenu',srkmCatProjectMenu,nil)];

ide/lazarusidestrconsts.pas

@@ -205,6 +205,8 @@ resourcestring
   lisMenuViewSearchResults = 'Search Results';
   lisSearchAgain = 'Search again';
   lisMenuViewAnchorEditor = 'View Anchor Editor';
+  lisMenuViewComponentPalette = 'View Component Palette';
+  lisMenuViewIDESpeedButtons = 'View IDE speed buttons';
   lisMenuDebugWindows = 'Debug windows';
   lisMenuViewWatches = 'Watches';
   lisMenuViewBreakPoints = 'BreakPoints';
@@ -1400,6 +1402,8 @@ resourcestring
   srkmecViewUnitDependencies      = 'View unit dependencies';
   srkmecViewUnitInfo              = 'View unit information';
   srkmecViewAnchorEditor          = 'View anchor editor';
+  srkmecToggleCompPalette         = 'View component palette';
+  srkmecToggleIDESpeedBtns        = 'View IDE speed buttons';
 
   // codetools
   srkmecWordCompletion            = 'Word completion';

ide/main.pp

@@ -215,6 +215,8 @@ type
     procedure mnuViewSearchResultsClick(Sender: TObject);
     procedure mnuToggleFormUnitClicked(Sender: TObject);
     procedure mnuViewAnchorEditorClicked(Sender: TObject);
+    procedure mnuViewComponentPaletteClicked(Sender: TObject);
+    procedure mnuViewIDESpeedButtonsClicked(Sender: TObject);
 
     // project menu
     procedure mnuNewProjectClicked(Sender: TObject);
@@ -799,6 +801,8 @@ type
     procedure UpdateIDEComponentPalette;
     procedure ShowDesignerForm(AForm: TCustomForm);
     procedure DoViewAnchorEditor;
+    procedure DoToggleViewComponentPalette;
+    procedure DoToggleViewIDESpeedButtons;
 
     // editor and environment options
     procedure SaveEnvironment; override;
@@ -1296,6 +1300,7 @@ begin
     Caption:= '';
     BevelWidth:=1;
     BevelOuter:=bvRaised;
+    Visible:=EnvironmentOptions.IDESpeedButtonsVisible;
   end;
 
 
@@ -1349,6 +1354,7 @@ begin
     Top := 0;
     Width := MainIDEBar.ClientWidth - Left;
     Height := 60; //Self.ClientHeight - ComponentNotebook.Top;
+    Visible:=EnvironmentOptions.ComponentPaletteVisible;
   end;
 end;
 
@@ -1871,6 +1877,8 @@ begin
     itmViewMessage.OnClick := @mnuViewMessagesClick;
     itmViewSearchResults.OnClick := @mnuViewSearchResultsClick;
     itmViewAnchorEditor.OnClick := @mnuViewAnchorEditorClicked;
+    itmViewComponentPalette.OnClick := @mnuViewComponentPaletteClicked;
+    itmViewIDESpeedButtons.OnClick := @mnuViewIDESpeedButtonsClicked;
   end;
 end;
 
@@ -1991,6 +1999,16 @@ begin
   DoViewAnchorEditor;
 end;
 
+procedure TMainIDE.mnuViewComponentPaletteClicked(Sender: TObject);
+begin
+  DoToggleViewComponentPalette;
+end;
+
+procedure TMainIDE.mnuViewIDESpeedButtonsClicked(Sender: TObject);
+begin
+  DoToggleViewIDESpeedButtons;
+end;
+
 Procedure TMainIDE.SetDesigning(AComponent: TComponent; Value: Boolean);
 Begin
   AComponent.SetDesigning(Value);
@@ -2604,6 +2622,18 @@ begin
     AnchorDesigner.ShowOnTop;
 end;
 
+procedure TMainIDE.DoToggleViewComponentPalette;
+begin
+  MainIDEBar.ComponentNotebook.Visible:=not MainIDEBar.ComponentNotebook.Visible;
+  EnvironmentOptions.ComponentPaletteVisible:=MainIDEBar.ComponentNotebook.Visible;
+end;
+
+procedure TMainIDE.DoToggleViewIDESpeedButtons;
+begin
+  MainIDEBar.pnlSpeedButtons.Visible:=not MainIDEBar.pnlSpeedButtons.Visible;
+  EnvironmentOptions.IDESpeedButtonsVisible:=MainIDEBar.pnlSpeedButtons.Visible;
+end;
+
 procedure TMainIDE.SetToolStatus(const AValue: TIDEToolStatus);
 begin
   inherited SetToolStatus(AValue);

ide/mainbar.pas

@@ -185,6 +185,8 @@ type
         itmViewToggleFormUnit: TIDEMenuCommand;
       //itmViewSecondaryWindows: TIDEMenuSection;
         itmViewAnchorEditor: TIDEMenuCommand;
+        itmViewComponentPalette: TIDEMenuCommand;
+        itmViewIDESpeedButtons: TIDEMenuCommand;
         itmViewMessage: TIDEMenuCommand;
         itmViewSearchResults: TIDEMenuCommand;
         //itmViewDebugWindows: TIDEMenuSection;

ide/mainbase.pas

@@ -531,6 +531,8 @@ begin
     CreateMenuItem(ParentMI,itmViewMessage,'itmViewMessage',lisMenuViewMessages);
     CreateMenuItem(ParentMI,itmViewSearchResults,'itmViewSearchResults',lisMenuViewSearchResults);
     CreateMenuItem(ParentMI,itmViewAnchorEditor,'itmViewAnchorEditor',lisMenuViewAnchorEditor);
+    CreateMenuItem(ParentMI,itmViewComponentPalette,'itmViewComponentPalette',lisMenuViewComponentPalette);
+    CreateMenuItem(ParentMI,itmViewIDESpeedButtons,'itmViewIDESpeedButtons',lisMenuViewIDESpeedButtons);
     CreateMenuSubSection(ParentMI,itmViewDebugWindows,'itmViewDebugWindows',lisMenuDebugWindows,'menu_debugger');
     begin
       CreateMenuItem(itmViewDebugWindows,itmViewWatches,'itmViewWatches',lisMenuViewWatches,'menu_watches');
@@ -859,6 +861,8 @@ begin
     itmViewMessage.Command:=GetCommand(ecToggleMessages);
     itmViewSearchResults.Command:=GetCommand(ecToggleSearchResults);
     itmViewAnchorEditor.Command:=GetCommand(ecViewAnchorEditor);
+    itmViewComponentPalette.Command:=GetCommand(ecToggleCompPalette);
+    itmViewIDESpeedButtons.Command:=GetCommand(ecToggleIDESpeedBtns);
 
     // project menu
     itmProjectNew.Command:=GetCommand(ecNewProject);