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

ProjectGroups: Call ActiveChanged() when compiling all. Updates an indicator in the GUI. Issue #32475.

Browse Source
This commit is contained in:
Juha 2021-11-22 12:24:59 +02:00
parent 3abc423cba
commit 229162c203
2 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/projectgroups/projectgroup.pp
View File

@ -1211,13 +1211,13 @@ end;
procedure TIDEProjectGroup.ActiveTargetChanged(T: TPGCompileTarget);
var
Root: TIDEProjectGroup;
begin
if T.Active then begin
FActiveTarget:=T;
end else begin
begin // T=Nil means the compilation ended and the GUI should be restored.
if Assigned(T) then
if T.Active then
FActiveTarget:=T
else
if FActiveTarget=T then
FActiveTarget:=nil;
end;
Root:=TIDEProjectGroup(GetRootGroup);
if Assigned(Root.OnTargetActiveChanged) then
Root.OnTargetActiveChanged(Self,T);
@ -2002,14 +2002,18 @@ begin
taSettings: ;
taCompile,
taCompileClean:
begin
try
for i:=0 to ProjectGroup.TargetCount-1 do begin
aTarget:=TIDECompileTarget(ProjectGroup.Targets[i]);
if AAction in aTarget.AllowedActions then
if AAction in aTarget.AllowedActions then begin
ActiveChanged(aTarget);
if aTarget.PerformAction(AAction)<>arOk then
exit;
end;
end;
Result:=arOk;
finally
ActiveChanged(Nil);
end;
taCompileFromHere:
begin
@ -2017,6 +2021,7 @@ begin
exit;
Result:=arOK;
aTarget:=TIDECompileTarget(GetNext(true));
ActiveChanged(aTarget);
if aTarget=nil then exit;
Result:=aTarget.PerformAction(taCompileFromHere);
end;

6
components/projectgroups/projectgroupeditor.pas
View File

@ -888,8 +888,10 @@ begin
NewActiveTVNode.StateIndex:=NSIActive;
FActiveTarget:=Target;
end;
//N:=DisplayFileName(Target);
//SBPG.Panels[piActiveTarget].Text:=Format(lisActiveTarget,[N]);
if Assigned(Target) then
SBPG.Panels[piActiveTarget].Text:=Format(lisActiveTarget,[DisplayFileName(Target)])
else
TVPGSelectionChanged(Nil); // Restore the original status text.
end;
procedure TProjectGroupEditorForm.OnTargetExchanged(Sender: TObject; Target1,