From 4778f486d4fc83abb6e42a035cc037e6ed5d3407 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 18 May 2015 22:31:42 +0000
Subject: [PATCH] LazBuild: Increment build number when auto increment is
 enabled. Issue #27820, patch from Sandro Cumerlato.

git-svn-id: trunk@49097 -
---
 ide/lazbuild.lpr | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/ide/lazbuild.lpr b/ide/lazbuild.lpr
index c0b2448812..1d41b44fda 100644
--- a/ide/lazbuild.lpr
+++ b/ide/lazbuild.lpr
@@ -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;