Merge branch 'make-exe-versioning' into 'master'

Make executable dialog. Major/Minor/Release values can be changed on make executable dialog

See merge request gambas/gambas!207

app/src/gambas3/.src/Project/FMakeExecutable.class

@@ -25,6 +25,13 @@ Public Sub Form_Open()
   chkIncVersion.Value = Not Project.Config["/Executable/DoNotIncrementVersion", False]
   chkIncVersion.Visible = Not Project.VersionFile
 
+  Dim sVers As String[] = Split(Project.FormatVersion(), ".")
+    txtMajor.Value = sVers[0]
+    txtMinor.Value = sVers[1]
+    Try txtRelease.Value = sVers[2]
+
+  If Not chkIncVersion.Value And If chkIncVersion.Visible Then pnlVersion.Visible = True
+
   chkNoTest.Visible = Project.HasTest()
   chkNoTest.Value = Project.Config["/Executable/NoTestModule", False]
 
@@ -68,3 +75,19 @@ Public Sub btnCancel_Click()
 
 End
 
+
+Public Sub grpVersion_Change()
+
+   With Project
+     .MajorVersion = txtMajor.Value 
+     .MinorVersion = txtMinor.Value
+     .ReleaseVersion = txtRelease.Value
+   End With
+  
+End
+
+Public Sub chkIncVersion_Click()
+
+  pnlVersion.Visible = Not Last.Value
+
+End

app/src/gambas3/.src/Project/FMakeExecutable.form

@@ -25,9 +25,42 @@
     { VBox1 VBox
       MoveScaled(1,1,87,50)
       Margin = True
-      { chkIncVersion CheckBox
-        MoveScaled(1,1,19,4)
-        Text = ("Increment version")
+      { hbVersion HBox
+        MoveScaled(1,1,85,4)
+        Spacing = True
+        { chkIncVersion CheckBox
+          MoveScaled(0,0,19,4)
+          AutoResize = True
+          Text = ("Increment version")
+        }
+        { Spring2 Spring
+          MoveScaled(30,2,4,1)
+        }
+        { pnlVersion HBox
+          MoveScaled(35,0,49,4)
+          Visible = False
+          Spacing = True
+          { Label2 Label
+            MoveScaled(3,0,9,4)
+            AutoResize = True
+            Text = ("Version")
+          }
+          { txtMajor SpinBox grpVersion
+            Name = "txtMajor"
+            MoveScaled(14,0,9,4)
+            MaxValue = 9999
+          }
+          { txtMinor SpinBox grpVersion
+            Name = "txtMinor"
+            MoveScaled(24,0,9,4)
+            MaxValue = 9999
+          }
+          { txtRelease SpinBox grpVersion
+            Name = "txtRelease"
+            MoveScaled(35,0,12,4)
+            MaxValue = 999999
+          }
+        }
       }
       { chkDebug CheckBox
         MoveScaled(1,5,39,4)
@@ -78,15 +111,15 @@
     MoveScaled(6,62,79,4)
     Spacing = True
     { Spring1 Spring
-      MoveScaled(16,2,9,1)
+      MoveScaled(7,2,9,1)
     }
     { btnOK Button
-      MoveScaled(35,0,16,4)
+      MoveScaled(40,0,16,4)
       Text = ("OK")
       Default = True
     }
     { btnCancel Button
-      MoveScaled(54,0,16,4)
+      MoveScaled(59,0,16,4)
       Text = ("Cancel")
       Cancel = True
     }