[DEVELOPMENT ENVIRONMENT]

* NEW: Some little changes in the welcome dialog.


git-svn-id: svn://localhost/gambas/trunk@5341 867c0c6c-44f3-4631-809d-bfa615b0a4ec

app/src/gambas3/.lang/.pot

@@ -2695,15 +2695,15 @@ msgstr ""
 msgid "Sort history"
 msgstr ""
 
-#: FMain.class:592 FOpenProject.form:116 FWelcome.form:39
+#: FMain.class:592 FOpenProject.form:116 FWelcome.form:42
 msgid "Sort by date"
 msgstr ""
 
-#: FMain.class:592 FOpenProject.form:125 FWelcome.form:46
+#: FMain.class:592 FOpenProject.form:125 FWelcome.form:49
 msgid "Sort by name"
 msgstr ""
 
-#: FMain.class:592 FOpenProject.form:133 FWelcome.form:52
+#: FMain.class:592 FOpenProject.form:133 FWelcome.form:55
 msgid "Sort by path"
 msgstr ""
 

app/src/gambas3/.src/FMain.class

@@ -2153,8 +2153,8 @@ Public Sub Form_Resize()
   Dim W, H As Integer
   
   If dwgWelcome.Visible Then
-    W = Desktop.Scale * 90
-    H = Desktop.Scale * 90
+    W = Desktop.Scale * 90 + 64
+    H = Desktop.Scale * 90 + 64
     dwgWelcome.Move((Me.ClientW - W) \ 2, (Me.ClientH - H) \ 2, W, H)
   Endif
 

app/src/gambas3/.src/Welcome/FWelcome.class

@@ -633,3 +633,4 @@ Public Sub panButton_BeforeArrange()
   dwgFrame.Move(0, 0, panButton.W, panButton.H)
 
 End
+

app/src/gambas3/.src/Welcome/FWelcome.form

@@ -7,6 +7,9 @@
   Text = ("Welcome to Gambas 3")
   Icon = Picture["img/logo/logo-ide.png"]
   Arrangement = Arrange.Vertical
+  Spacing = True
+  Margin = True
+  Padding = 24
   { mnuSort Menu
     { mnuSortByDate Menu mnuSort
       Name = "mnuSortByDate"
@@ -37,9 +40,12 @@
     Visible = False
     Background = &H000000&
   }
-  { HBox1 HBox
+  { HBox1 Panel
     MoveScaled(1,25,78,41)
+    Background = &HDF6B00&
     Expand = True
+    Arrangement = Arrange.Horizontal
+    Padding = 2
     { Panel7 Panel
       MoveScaled(1,2,37,37)
       Arrangement = Arrange.Fill
@@ -63,6 +69,7 @@
     { panList Panel
       MoveScaled(48,5,28,30)
       Visible = False
+      Background = &HFFFFFF&
       Mouse = Mouse.Arrow
       Expand = True
       Arrangement = Arrange.Vertical