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

Merge branch 'IDE/Recent/OnlySpecList' into 'main'

Browse Source 
IDE/Menu: Add open LPI/LPK to only recent projects/packages (not files) if they were opened as a project/package. Issues #39554, #41297

See merge request freepascal.org/lazarus/lazarus!417
This commit is contained in:
n7800 2025-03-09 19:23:37 +00:00
commit 2df0752ba6
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourcefilemanager.pas
View File

@ -1286,10 +1286,6 @@ begin
exit(mrCancel);
end;
if ([ofAddToRecent,ofRevert,ofVirtualFile]*FFlags=[ofAddToRecent])
and (FFilename<>'') and FilenameIsAbsolute(FFilename) then
EnvironmentOptions.AddToRecentOpenFiles(FFilename);
// check if this is a hidden unit:
// if this is the main unit, it is already
// loaded and needs only to be shown in the sourceeditor/formeditor
@ -1349,6 +1345,10 @@ begin
if Result <> mrOK then exit;
end;
if ([ofAddToRecent,ofRevert,ofVirtualFile]*FFlags=[ofAddToRecent])
and (FFilename<>'') and FilenameIsAbsolute(FFilename) then
EnvironmentOptions.AddToRecentOpenFiles(FFilename);
if (FNewEditorInfo <> nil) and (ofAddToProject in FFlags) and (not FNewUnitInfo.IsPartOfProject) then
begin
FNewUnitInfo.IsPartOfProject:=true;