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

ProjectGroups: show only existing project groups in recent menus

Browse Source
This commit is contained in:
Ondrej Pokorny 2024-08-23 12:58:37 +02:00
parent 4afb03e646
commit 5d74e0475d
2 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/projectgroups/projectgroup.pp
View File

@ -625,13 +625,17 @@ end;
procedure TIDEProjectGroupManager.UpdateRecentProjectGroupMenu; procedure TIDEProjectGroupManager.UpdateRecentProjectGroupMenu;
var var
i: Integer; i, l: Integer;
Item: TIDEMenuItem; Item: TIDEMenuItem;
aFilename: String; aFilename: String;
begin begin
i:=0; i:=0;
while i<Options.RecentProjectGroups.Count do begin l:=0;
aFilename:=Options.RecentProjectGroups[i]; while l<Options.RecentProjectGroups.Count do begin
aFilename:=Options.RecentProjectGroups[l];
inc(l);
if not FileExists(aFilename) then
continue;
if i<PGOpenRecentSubMenu.Count then begin if i<PGOpenRecentSubMenu.Count then begin
Item:=PGOpenRecentSubMenu[i]; Item:=PGOpenRecentSubMenu[i];
Item.Caption:=aFilename; Item.Caption:=aFilename;

10
components/projectgroups/projectgroupeditor.pas
View File

@ -1746,13 +1746,17 @@ end;
procedure TProjectGroupEditorForm.UpdateRecentProjectGroupMenu; procedure TProjectGroupEditorForm.UpdateRecentProjectGroupMenu;
var var
i: Integer; i, l: Integer;
Item: TMenuItem; Item: TMenuItem;
aFilename: String; aFilename: String;
begin begin
i:=0; i:=0;
while i<IDEProjectGroupManager.Options.RecentProjectGroups.Count do begin l:=0;
aFilename:=IDEProjectGroupManager.Options.RecentProjectGroups[i]; while l<IDEProjectGroupManager.Options.RecentProjectGroups.Count do begin
aFilename:=IDEProjectGroupManager.Options.RecentProjectGroups[l];
inc(l);
if not FileExists(aFilename) then
continue;
if i<PopupMenuOpen.Items.Count then begin if i<PopupMenuOpen.Items.Count then begin
Item:=PopupMenuOpen.Items[i]; Item:=PopupMenuOpen.Items[i];
end end