From 2c02c136ae6f365fb7a8d4bed9bbbedc81fc9c54 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <gambas@users.sourceforge.net>
Date: Wed, 1 Feb 2017 22:47:17 +0000
Subject: [PATCH] [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
---
 .../gambas3/.src/Editor/{Other => }/MCompressFile.module    | 1 -
 app/src/gambas3/.src/Project/Farm/FPublish.class            | 6 ++++--
 app/src/gambas3/.src/Project/Farm/FPublish.form             | 2 +-
 3 files changed, 5 insertions(+), 4 deletions(-)
 rename app/src/gambas3/.src/Editor/{Other => }/MCompressFile.module (99%)

diff --git a/app/src/gambas3/.src/Editor/Other/MCompressFile.module b/app/src/gambas3/.src/Editor/MCompressFile.module
similarity index 99%
rename from app/src/gambas3/.src/Editor/Other/MCompressFile.module
rename to app/src/gambas3/.src/Editor/MCompressFile.module
index a7855e882..9f59760a0 100644
--- a/app/src/gambas3/.src/Editor/Other/MCompressFile.module
+++ b/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
diff --git a/app/src/gambas3/.src/Project/Farm/FPublish.class b/app/src/gambas3/.src/Project/Farm/FPublish.class
index 8d53b7c9e..70fe55682 100644
--- a/app/src/gambas3/.src/Project/Farm/FPublish.class
+++ b/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)
diff --git a/app/src/gambas3/.src/Project/Farm/FPublish.form b/app/src/gambas3/.src/Project/Farm/FPublish.form
index 1caeeaafd..9e3b7cb65 100644
--- a/app/src/gambas3/.src/Project/Farm/FPublish.form
+++ b/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