[DEVELOPMENT ENVIRONMENT]

* NEW: Published software screenshots are now stretched to 640 pixels instead of 320 pixels.


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

app/src/gambas3/.src/Editor/MCompressFile.module

@@ -99,7 +99,6 @@ Public Sub Javascript(sText As String) As String
   If Not $cKeyword Then InitJavascriptKeywords
 
   $cIdent = New Collection
-
   $cSubst = New Collection
   $iSubst = 0
   $iDoNotCompress = 0

app/src/gambas3/.src/Project/Farm/FPublish.class

@@ -4,6 +4,8 @@ Private $aDep As String[]
 Private $sScreenshot As String
 Private $hIdentity As FarmIdentity
 
+Private Const SCREENSHOT_SIZE As Integer = 640
+
 Public Sub Run() As Boolean
 
   If Project.MajorVersion = 0 And If Project.MinorVersion = 0 Then
@@ -309,8 +311,8 @@ Private Sub SetScreenshot()
   Endif
   
   If hImage Then
-    If hImage.Width > 320 Then hImage = hImage.Stretch(320, -1)
-    If hImage.Height > 320 Then hImage = hImage.Stretch(-1, 320)
+    If hImage.Width > SCREENSHOT_SIZE Then hImage = hImage.Stretch(SCREENSHOT_SIZE, -1)
+    If hImage.Height > SCREENSHOT_SIZE Then hImage = hImage.Stretch(-1, SCREENSHOT_SIZE)
     
     If Not $sScreenshot Then $sScreenshot = File.SetExt(Temp$(), "jpg")
     hImage.Save($sScreenshot, 75)

app/src/gambas3/.src/Project/Farm/FPublish.form

@@ -7,7 +7,7 @@
   Arrangement = Arrange.Fill
   Margin = True
   { wizPublish Wizard
-    MoveScaled(0,2,72,61)
+    MoveScaled(1,1,72,61)
     Arrangement = Arrange.Vertical
     Spacing = True
     Count = 5