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

implemented hiding component palette and IDE speed buttons

Browse Source 
git-svn-id: trunk@8020 -
This commit is contained in:
mattias 2005-11-01 10:11:38 +00:00
parent ecf75a0527
commit 2c645e2c5f
6 changed files with 72 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/environmentopts.pp
View File

@ -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);

10
ide/keymapping.pp
View File

@ -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)];

4
ide/lazarusidestrconsts.pas
View File

@ -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';

30
ide/main.pp
View File

@ -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);

2
ide/mainbar.pas
View File

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

4
ide/mainbase.pas
View File

@ -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);