paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 16:00:16 +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'; lisEditorWindowManager = 'Editor Window Manager';
lisSearchProjectsFrom = 'Search projects from'; lisSearchProjectsFrom = 'Search projects from';
lisMEOther = 'Other'; lisMEOther = 'Other tabs';
lisTabsFor = 'Tabs for %s';
lisIncludeExamples = 'Include Examples'; lisIncludeExamples = 'Include Examples';
lisIncludeTestcases = 'Include Testcases'; lisIncludeTestcases = 'Include Testcases';
lisMEProjects = 'Projects'; lisMEProjects = 'Projects';
@ -1108,7 +1109,7 @@ resourcestring
dlgAutoSave = 'Auto Save'; dlgAutoSave = 'Auto Save';
lisAskBeforeSavingProjectSSession = 'Ask before saving project''s session'; lisAskBeforeSavingProjectSSession = 'Ask before saving project''s session';
dlgEdFiles = 'Editor Files'; dlgEdFiles = 'Editor Files';
dlgEnvProject = 'Project'; dlgEnvProject = 'Tabs for project';
lisNumberOfFilesToConvert = 'Number of files to convert: %s'; lisNumberOfFilesToConvert = 'Number of files to convert: %s';
lisConvertEncoding = 'Convert Encoding'; lisConvertEncoding = 'Convert Encoding';
lisConvertProjectOrPackage = 'Convert project or package'; lisConvertProjectOrPackage = 'Convert project or package';

9
ide/sourceeditor.pp
View File

@ -5441,8 +5441,10 @@ begin
SrcEditMenuMoveEditorFirst.MenuItem.Enabled:= (PageCount>1) and (PageIndex>0); SrcEditMenuMoveEditorFirst.MenuItem.Enabled:= (PageCount>1) and (PageIndex>0);
SrcEditMenuMoveEditorLast.MenuItem.Enabled:= (PageCount>1) and (PageIndex<(PageCount-1)); 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 //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 for i := 0 to EditorCount - 1 do
@ -5454,13 +5456,14 @@ begin
else begin else begin
Manager.OnPackageForSourceEditor(P, EditorCur); Manager.OnPackageForSourceEditor(P, EditorCur);
if P <> nil then if P <> nil then
s := p.Name; s := Format(lisTabsFor, [p.Name]);
end; end;
if SrcEditMenuSectionEditors.FindByName(S) is TIDEMenuSection then if SrcEditMenuSectionEditors.FindByName(S) is TIDEMenuSection then
M := TIDEMenuSection(SrcEditMenuSectionEditors.FindByName(S)) M := TIDEMenuSection(SrcEditMenuSectionEditors.FindByName(S))
else else
M := RegisterIDESubMenu(SrcEditMenuSectionEditors, S, S); M := RegisterIDESubMenu(SrcEditMenuSectionEditors, S, S);
M.Visible := True;
S := ExtractFileName(EditorCur.FileName); S := ExtractFileName(EditorCur.FileName);
// check for modification // check for modification