From 2c645e2c5f533b359879563c55e986acc0fb17f4 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 1 Nov 2005 10:11:38 +0000 Subject: [PATCH] implemented hiding component palette and IDE speed buttons git-svn-id: trunk@8020 - --- ide/environmentopts.pp | 25 ++++++++++++++++++++++--- ide/keymapping.pp | 10 ++++++++++ ide/lazarusidestrconsts.pas | 4 ++++ ide/main.pp | 30 ++++++++++++++++++++++++++++++ ide/mainbar.pas | 2 ++ ide/mainbase.pas | 4 ++++ 6 files changed, 72 insertions(+), 3 deletions(-) diff --git a/ide/environmentopts.pp b/ide/environmentopts.pp index d53e730d36..753416c4b9 100644 --- a/ide/environmentopts.pp +++ b/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); diff --git a/ide/keymapping.pp b/ide/keymapping.pp index a16067043c..7c08fad1d1 100644 --- a/ide/keymapping.pp +++ b/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)]; diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index 0c74f63a5f..ab053d4800 100644 --- a/ide/lazarusidestrconsts.pas +++ b/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'; diff --git a/ide/main.pp b/ide/main.pp index 95872de03b..e7887015dc 100644 --- a/ide/main.pp +++ b/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); diff --git a/ide/mainbar.pas b/ide/mainbar.pas index 9c8b86e275..ecce502f46 100644 --- a/ide/mainbar.pas +++ b/ide/mainbar.pas @@ -185,6 +185,8 @@ type itmViewToggleFormUnit: TIDEMenuCommand; //itmViewSecondaryWindows: TIDEMenuSection; itmViewAnchorEditor: TIDEMenuCommand; + itmViewComponentPalette: TIDEMenuCommand; + itmViewIDESpeedButtons: TIDEMenuCommand; itmViewMessage: TIDEMenuCommand; itmViewSearchResults: TIDEMenuCommand; //itmViewDebugWindows: TIDEMenuSection; diff --git a/ide/mainbase.pas b/ide/mainbase.pas index 57d65b7979..125f0a36fd 100644 --- a/ide/mainbase.pas +++ b/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);