forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

project group, fix reg, segv on attempt to add new items

This commit is contained in:
Basile Burg 2022-05-14 14:51:09 +02:00
parent 425248e81d
commit 85a67e4473
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -10,6 +10,7 @@
- Crash to desktop for certain invalid or incomplete D constructs. (#107)
- Project configuration index not handled with option "reloadLastDocuments".
- Project groups widget, adding new items was broken.
## Other

7
src/u_projgroup.pas
View File

@ -277,7 +277,8 @@ begin
fFreeStanding := nil;
result.fProj.activate;
end;
result.configurationIndex:=result.fProj.getActiveConfigurationIndex;
if assigned(result.fProj) then
result.configurationIndex:=result.fProj.getActiveConfigurationIndex;
end;
function TProjectGroup.getProject(ix: Integer): ICommonProject;
@ -787,9 +788,9 @@ begin
Data:= prj;
fmt := prj.project.getFormat;
case fmt of
pfDEXED : Caption := prj.fFilename.extractFileName;
pfDEXED : Caption := prj.absoluteFilename().extractFileName();
pfDUB : Caption := TDubProject(prj.project.getProject).packageName;
pfMAKE : Caption := prj.fFilename.extractFileDir.extractFileName;
pfMAKE : Caption := prj.absoluteFilename().extractFileDir().extractFileName();
end;
SubItems.Add(typeStr[fmt]);
SubItems.Add(asyncStr[prj.fAsyncMode]);