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

SourceEditor: Recent Tabs by Andrew Haines

Browse Source 
git-svn-id: trunk@36230 -
This commit is contained in:
martin 2012-03-22 22:51:40 +00:00
parent cf66447e96
commit e84b3bad31
2 changed files with 36 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/lazarusidestrconsts.pas
View File

@ -469,6 +469,7 @@ resourcestring
lisSearchProjectsFrom = 'Search projects from';
lisMEOther = 'Other tabs';
lisTabsFor = 'Tabs for %s';
lisRecentTabs = 'Recent tabs';
lisIncludeExamples = 'Include Examples';
lisIncludeTestcases = 'Include Testcases';
lisMEProjects = 'Projects';
@ -3629,6 +3630,10 @@ resourcestring
lisFindFileDirectory = 'D&irectory';
lisFindFileFileMask = 'Fi&le mask';
lisFindFileIncludeSubDirectories = 'Include &sub directories';
lisFindFileIgnoreBackupDirectores = 'Ignore backup directories';
lisFindFileIgnoreBackupDirectoresHint = 'Ignore files in subdirectories from '+LineEnding
+ 'Environment Options - Backup setting';
lisFindFileDirectoryIgnoreMask = 'Directory ignore mask';
lisFindFileOnlyTextFiles = 'Only text files';
// package manager

41
ide/sourceeditor.pp
View File

@ -5389,6 +5389,22 @@ var
end;
end;
{$ENDIF}
procedure AddEditorToMenuSection(AEditor: TSourceEditor; AMenu: TIDEMenuSection; AIndex: Integer);
var
S: String;
begin
S := ExtractFileName(AEditor.FileName);
//swap around so file name is first followed by the directory
if S <> AEditor.FileName then
S := S +' in '+ExtractFileDir(AEditor.FileName);
// check for modification after since * makes it different
if AEditor.Modified then
S := '*'+S;
RegisterIDEMenuCommand(AMenu, 'File'+IntToStr(AIndex),
S, @ExecuteEditorItemClick, nil, nil, '', PtrUInt(AEditor));
end;
var
NBAvail: Boolean;
@ -5399,7 +5415,7 @@ var
S: String;
EditorCur: TSourceEditor;
P: TIDEPackage;
M: TIDEMenuSection;
RecMenu, M: TIDEMenuSection;
begin
PopM:=TPopupMenu(Sender);
SourceTabMenuRoot.MenuItem:=PopM.Items;
@ -5443,6 +5459,8 @@ begin
SrcEditMenuSectionEditors.Clear;
if Manager <> nil then begin
RecMenu := RegisterIDESubMenu(SrcEditMenuSectionEditors, lisRecentTabs, lisRecentTabs);
RecMenu.Visible := False;
RegisterIDESubMenu(SrcEditMenuSectionEditors, dlgEnvProject, dlgEnvProject).Visible := False;
RegisterIDESubMenu(SrcEditMenuSectionEditors, lisMEOther, lisMEOther).Visible := False;
@ -5465,16 +5483,19 @@ begin
M := RegisterIDESubMenu(SrcEditMenuSectionEditors, S, S);
M.Visible := True;
S := ExtractFileName(EditorCur.FileName);
// check for modification
if EditorCur.Modified then
S := '*'+S;
//swap around so file name is first followed by the directory
if S <> EditorCur.FileName then
S := S +' in '+ExtractFileDir(EditorCur.FileName);
RegisterIDEMenuCommand(M, 'File'+IntToStr(i),
s, @ExecuteEditorItemClick, nil, nil, '', PtrUInt(EditorCur));
AddEditorToMenuSection(EditorCur, M, i);
end;
// add recent tabs. skip 0 since that is the active tab
for i := 1 to Min(10, FHistoryList.Count-1) do
begin
//HistoryGetTopPageIndex;
EditorCur := FindSourceEditorWithPageIndex(TTabSheet(FHistoryList[i]).PageIndex);
if not EditorCur.FEditor.HandleAllocated then continue; // show only if it was visited
AddEditorToMenuSection(EditorCur, RecMenu, i);
RecMenu.Visible := True;
end;
end;
finally
SourceTabMenuRoot.EndUpdate;