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) - Crash to desktop for certain invalid or incomplete D constructs. (#107)
- Project configuration index not handled with option "reloadLastDocuments". - Project configuration index not handled with option "reloadLastDocuments".
- Project groups widget, adding new items was broken.
## Other ## Other

7
src/u_projgroup.pas
View File

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