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

IDE+IDEIntf: renamed some Issue Browser to Restriction Browser

Browse Source 
git-svn-id: trunk@14473 -
This commit is contained in:
mattias 2008-03-08 19:36:12 +00:00
parent ac77c786a6
commit 3d959035bb
7 changed files with 20 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/keymapping.pp
View File

@ -1429,7 +1429,7 @@ begin
ecViewUnitInfo : Result:= srkmecViewUnitInfo;
ecViewAnchorEditor : Result:= srkmecViewAnchorEditor;
ecToggleCodeBrowser : Result:= srkmecToggleCodeBrowser;
ecToggleIssueBrowser : Result:= srkmecToggleIssueBrowser;
ecToggleIssueBrowser : Result:= srkmecToggleRestrictionBrowser;
ecViewComponents : Result:= srkmecViewComponents;
ecToggleCompPalette : Result:= srkmecToggleCompPalette;
ecToggleIDESpeedBtns : Result:= srkmecToggleIDESpeedBtns;

6
ide/lazarusidestrconsts.pas
View File

@ -253,7 +253,7 @@ resourcestring
lisMenuViewSourceEditor = 'Source Editor';
lisMenuViewCodeExplorer = 'Code Explorer';
lisMenuViewCodeBrowser = 'Code Browser';
lisMenuViewIssueBrowser = 'Issue Browser';
lisMenuViewRestrictionBrowser = 'Restriction Browser';
lisMenuViewComponents = '&Components';
lisMenuJumpTo = 'Jump to';
lisMenuViewUnits = 'Units...';
@ -907,8 +907,6 @@ resourcestring
dlgEdFiles = 'Editor files';
dlgEnvProject = 'Project';
lisCodeBrowser = 'Code browser';
lisIssueBrowser = 'Issue browser';
lisFilterIssues = 'Filter issues';
dlgIntvInSec = 'Interval in secs';
dlgDesktopFiles = 'Desktop files';
dlgSaveDFile = 'Save desktop settings to file';
@ -1831,7 +1829,7 @@ resourcestring
srkmecViewUnitInfo = 'View unit information';
srkmecViewAnchorEditor = 'View anchor editor';
srkmecToggleCodeBrowser = 'View code browser';
srkmecToggleIssueBrowser = 'View issue browser';
srkmecToggleRestrictionBrowser = 'View restriction browser';
srkmecToggleCompPalette = 'View component palette';
srkmecToggleIDESpeedBtns = 'View IDE speed buttons';

22
ide/main.pp
View File

@ -237,7 +237,7 @@ type
procedure mnuViewCodeExplorerClick(Sender: TObject);
procedure mnuViewCodeBrowserClick(Sender: TObject);
procedure mnuViewComponentsClick(Sender: TObject);
procedure mnuViewIssueBrowserClick(Sender: TObject);
procedure mnuViewRestrictionBrowserClick(Sender: TObject);
procedure mnuViewMessagesClick(Sender: TObject);
procedure mnuViewSearchResultsClick(Sender: TObject);
procedure mnuToggleFormUnitClicked(Sender: TObject);
@ -689,7 +689,7 @@ type
procedure DoViewUnitInfo;
procedure DoShowCodeExplorer;
procedure DoShowCodeBrowser;
procedure DoShowIssueBrowser(const IssueName: String = '');
procedure DoShowRestrictionBrowser(const IssueName: String = '');
procedure DoShowComponentList;
procedure DoShowFPDocEditor;
function CreateNewUniqueFilename(const Prefix, Ext: string;
@ -1306,16 +1306,16 @@ begin
if ObjectInspector1.GetActivePropertyRow = nil then
begin
if C <> nil then
DoShowIssueBrowser(C.ClassName)
DoShowRestrictionBrowser(C.ClassName)
else
DoShowIssueBrowser;
DoShowRestrictionBrowser;
end
else
begin
if C <> nil then
DoShowIssueBrowser(C.ClassName + '.' + ObjectInspector1.GetActivePropertyRow.Name)
DoShowRestrictionBrowser(C.ClassName + '.' + ObjectInspector1.GetActivePropertyRow.Name)
else
DoShowIssueBrowser;
DoShowRestrictionBrowser;
end;
end;
@ -2129,7 +2129,7 @@ begin
itmViewSourceEditor.OnClick := @mnuViewSourceEditorClicked;
itmViewCodeExplorer.OnClick := @mnuViewCodeExplorerClick;
itmViewCodeBrowser.OnClick := @mnuViewCodeBrowserClick;
itmViewIssueBrowser.OnClick := @mnuViewIssueBrowserClick;
itmViewRestrictionBrowser.OnClick := @mnuViewRestrictionBrowserClick;
itmViewComponents.OnClick := @mnuViewComponentsClick;
itmViewFPDocEditor.OnClick := @mnuViewFPDocEditorClicked;
itmViewUnits.OnClick := @mnuViewUnitsClicked;
@ -2660,7 +2660,7 @@ begin
DoShowCodeBrowser;
ecToggleIssueBrowser:
DoShowIssueBrowser;
DoShowRestrictionBrowser;
ecViewComponents:
DoShowComponentList;
@ -3190,9 +3190,9 @@ begin
DoShowComponentList;
end;
procedure TMainIDE.mnuViewIssueBrowserClick(Sender: TObject);
procedure TMainIDE.mnuViewRestrictionBrowserClick(Sender: TObject);
begin
DoShowIssueBrowser;
DoShowRestrictionBrowser;
end;
Procedure TMainIDE.mnuViewMessagesClick(Sender: TObject);
@ -7283,7 +7283,7 @@ begin
CodeBrowserView.ShowOnTop;
end;
procedure TMainIDE.DoShowIssueBrowser(const IssueName: String);
procedure TMainIDE.DoShowRestrictionBrowser(const IssueName: String);
begin
if RestrictionBrowserView = nil then
RestrictionBrowserView := TRestrictionBrowserView.Create(OwningComponent);

2
ide/mainbar.pas
View File

@ -184,7 +184,7 @@ type
itmViewCodeExplorer: TIDEMenuCommand;
itmViewFPDocEditor: TIDEMenuCommand;
itmViewCodeBrowser: TIDEMenuCommand;
itmViewIssueBrowser: TIDEMenuCommand;
itmViewRestrictionBrowser: TIDEMenuCommand;
itmViewComponents: TIDEMenuCommand;
//itmViewUnitWindows: TIDEMenuSection;
itmViewUnits: TIDEMenuCommand;

4
ide/mainbase.pas
View File

@ -511,7 +511,7 @@ begin
CreateMenuItem(ParentMI,itmViewCodeExplorer,'itmViewCodeExplorer',lisMenuViewCodeExplorer, 'menu_view_code_explorer');
CreateMenuItem(ParentMI,itmViewFPDocEditor,'itmViewFPDocEditor',lisMenuFPDocEditor);
CreateMenuItem(ParentMI,itmViewCodeBrowser,'itmViewCodeBrowser',lisMenuViewCodeBrowser);
CreateMenuItem(ParentMI,itmViewIssueBrowser,'itmViewIssueBrowser',lisMenuViewIssueBrowser);
CreateMenuItem(ParentMI,itmViewRestrictionBrowser,'itmViewRestrictionBrowser',lisMenuViewRestrictionBrowser);
CreateMenuItem(ParentMI,itmViewComponents,'itmViewComponents',lisMenuViewComponents);
CreateMenuSeparatorSection(mnuView,itmViewUnitWindows,'itmViewUnitWindows');
@ -876,7 +876,7 @@ begin
itmViewCodeExplorer.Command:=GetCommand(ecToggleCodeExpl);
itmViewFPDocEditor.Command:=GetCommand(ecToggleFPDocEditor);
itmViewCodeBrowser.Command:=GetCommand(ecToggleCodeBrowser);
itmViewIssueBrowser.Command:=GetCommand(ecToggleIssueBrowser);
itmViewRestrictionBrowser.Command:=GetCommand(ecToggleIssueBrowser);
itmViewComponents.Command:=GetCommand(ecViewComponents);
itmViewUnitDependencies.Command:=GetCommand(ecViewUnitDependencies);
itmViewUnitInfo.Command:=GetCommand(ecViewUnitInfo);

4
ide/restrictionbrowser.pas
View File

@ -73,10 +73,10 @@ begin
FIssueList := GetIssueList;
Name := NonModalIDEWindowNames[mniwIssueBrowser];
Caption := lisIssueBrowser;
Caption := lisMenuViewRestrictionBrowser;
EnvironmentOptions.IDEWindowLayoutList.Apply(Self, Name);
IssueFilterGroupBox.Caption := lisFilterIssues;
IssueFilterGroupBox.Caption := lisFilter;
NameLabel.Caption := lisCodeToolsDefsName;
IssueTreeView.Images := IDEImages.Images_16;

2
ideintf/idecommands.pas
View File

@ -176,7 +176,7 @@ const
ecToggleCompPalette = ecFirstLazarus + 319;
ecToggleIDESpeedBtns = ecFirstLazarus + 320;
ecViewComponents = ecFirstLazarus + 321;
ecToggleIssueBrowser = ecFirstLazarus + 322;
ecToggleRestrictionBrowser = ecFirstLazarus + 322;
// sourcenotebook commands
ecNextEditor = ecFirstLazarus + 330;