LazBuild: Increment build number when auto increment is enabled. Issue #27820, patch from Sandro Cumerlato.

git-svn-id: trunk@49097 -
This commit is contained in:
juha 2015-05-18 22:31:42 +00:00
parent 4be547210a
commit 4778f486d4

View File

@ -952,6 +952,19 @@ begin
end
else
Result := StartBuilding;
// Auto increment build number
if Result then
begin
with Project1.ProjResources.VersionInfo do
begin
if UseVersionInfo and AutoIncrementBuild then
begin
BuildNr := BuildNr + 1;
Project1.WriteProject(Project1.PublishOptions.WriteFlags,AFileName,EnvironmentOptions.BuildMatrixOptions);
end;
end;
end;
end;
function TLazBuildApplication.LoadProject(const AFilename: string): TProject;