paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 18:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Restart Lazarus after package install also when "Build LCL" profile is selected.

Browse Source 
git-svn-id: trunk@28731 -
This commit is contained in:
juha 2010-12-16 20:07:11 +00:00
parent 0308e84da6
commit 177583dd55
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/main.pp
View File

@ -11643,23 +11643,20 @@ begin
end;
function TMainIDE.DoBuildLazarus(Flags: TBuildLazarusFlags): TModalResult;
var
Profiles: TBuildLazarusProfiles;
begin
Result:=DoBuildLazarusSub(Flags);
Profiles:=MiscellaneousOptions.BuildLazProfiles;
//debugln(['TMainIDE.DoBuildLazarus Profiles.RestartAfterBuild=',Profiles.RestartAfterBuild,' Profiles.Current.TargetDirectory=',Profiles.Current.TargetDirectory,' ',MainBuildBoss.BuildTargetIDEIsDefault]);
if (Result=mrOK) then begin
if Profiles.RestartAfterBuild
and (Profiles.Current.TargetDirectory='')
and MainBuildBoss.BuildTargetIDEIsDefault then
begin
CompileProgress.Close;
mnuRestartClicked(nil);
with MiscellaneousOptions do
if (Result=mrOK) then begin
if BuildLazProfiles.RestartAfterBuild
and (BuildLazProfiles.Current.TargetDirectory='')
and ((blfWithStaticPackages in Flags) or MainBuildBoss.BuildTargetIDEIsDefault)
then begin
CompileProgress.Close;
mnuRestartClicked(nil);
end
end
end
else if Result=mrIgnore then
Result:=mrOK;
else if Result=mrIgnore then
Result:=mrOK;
end;
function TMainIDE.DoBuildAdvancedLazarus(ProfileNames: TStringList): TModalResult;