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

SrcEdit: Tab-Menu: names

Browse Source 
git-svn-id: trunk@36225 -
This commit is contained in:
martin 2012-03-22 16:39:04 +00:00
parent eda13d28d1
commit 575e24d917
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/lazarusidestrconsts.pas
View File

@ -467,7 +467,8 @@ resourcestring
lisEditorWindowManager = 'Editor Window Manager';
lisSearchProjectsFrom = 'Search projects from';
lisMEOther = 'Other';
lisMEOther = 'Other tabs';
lisTabsFor = 'Tabs for %s';
lisIncludeExamples = 'Include Examples';
lisIncludeTestcases = 'Include Testcases';
lisMEProjects = 'Projects';
@ -1108,7 +1109,7 @@ resourcestring
dlgAutoSave = 'Auto Save';
lisAskBeforeSavingProjectSSession = 'Ask before saving project''s session';
dlgEdFiles = 'Editor Files';
dlgEnvProject = 'Project';
dlgEnvProject = 'Tabs for project';
lisNumberOfFilesToConvert = 'Number of files to convert: %s';
lisConvertEncoding = 'Convert Encoding';
lisConvertProjectOrPackage = 'Convert project or package';

9
ide/sourceeditor.pp
View File

@ -5441,8 +5441,10 @@ begin
SrcEditMenuMoveEditorFirst.MenuItem.Enabled:= (PageCount>1) and (PageIndex>0);
SrcEditMenuMoveEditorLast.MenuItem.Enabled:= (PageCount>1) and (PageIndex<(PageCount-1));
if SourceEditorManager<>nil then begin
SrcEditMenuSectionEditors.Clear;
SrcEditMenuSectionEditors.Clear;
if Manager <> nil then begin
RegisterIDESubMenu(SrcEditMenuSectionEditors, dlgEnvProject, dlgEnvProject).Visible := False;
RegisterIDESubMenu(SrcEditMenuSectionEditors, lisMEOther, lisMEOther).Visible := False;
//first add all pages in the correct order since the editor order can be different from the tab order
for i := 0 to EditorCount - 1 do
@ -5454,13 +5456,14 @@ begin
else begin
Manager.OnPackageForSourceEditor(P, EditorCur);
if P <> nil then
s := p.Name;
s := Format(lisTabsFor, [p.Name]);
end;
if SrcEditMenuSectionEditors.FindByName(S) is TIDEMenuSection then
M := TIDEMenuSection(SrcEditMenuSectionEditors.FindByName(S))
else
M := RegisterIDESubMenu(SrcEditMenuSectionEditors, S, S);
M.Visible := True;
S := ExtractFileName(EditorCur.FileName);
// check for modification