luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[DEVELOPMENT ENVIRONMENT]

Browse source 
* BUG: Software publish dialog: Fix screenshot management.
* BUG: Software farm: Fix layout of software description.


git-svn-id: svn://localhost/gambas/trunk@6736 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2014-12-14 03:31:43 +00:00
parent c208b22109
commit e7be450ad9
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
app/src/gambas3/.src/Project/Farm/FPublish.class
View file

@ -39,7 +39,7 @@ Public Sub Form_Open()
Next Next
Endif Endif
cmbScreenshot.Text = Project.PublishScreenshot cmbScreenshot.Text = File.Name(Project.PublishScreenshot)
If cmbScreenshot.Index < 0 Then cmbScreenshot.Index = 0 If cmbScreenshot.Index < 0 Then cmbScreenshot.Index = 0
If Project.HasModule("form") Or If Project.Components.Exist("gb.sdl") Then If Project.HasModule("form") Or If Project.Components.Exist("gb.sdl") Then
@ -77,7 +77,7 @@ Private Sub SaveProject()
If cmbScreenshot.Index <= 0 Then If cmbScreenshot.Index <= 0 Then
Project.PublishScreenshot = "" Project.PublishScreenshot = ""
Else Else
Project.PublishScreenshot = ".hidden/screenshots" &/ cmbScreenshot.Text Project.PublishScreenshot = cmbScreenshot.Text
Endif Endif
If Project.HasModule("form") Then Project.PublishCreateMenu = btnCreateMenu.Value If Project.HasModule("form") Then Project.PublishCreateMenu = btnCreateMenu.Value

2
app/src/gambas3/.src/Project/Farm/FSoftwareFarm.class
View file

@ -302,6 +302,7 @@ Private Sub UpdateSoftware()
txtDescription.Text = sText txtDescription.Text = sText
txtDescription.H = txtDescription.Font.RichTextHeight(Replace(Html(sText), "\n", "<br>"), txtDescription.W) txtDescription.H = txtDescription.Font.RichTextHeight(Replace(Html(sText), "\n", "<br>"), txtDescription.W)
txtDescription.Show
Endif Endif
@ -453,6 +454,7 @@ Public Sub panDesc_Arrange()
spnScreenshot.Move(imvScreenshot.ScreenX - spnScreenshot.Parent.ScreenX + imvScreenshot.W \ 2 - 16, imvScreenshot.ScreenY - spnScreenshot.Parent.ScreenY + imvScreenshot.H \ 2 - 16, 32, 32) spnScreenshot.Move(imvScreenshot.ScreenX - spnScreenshot.Parent.ScreenX + imvScreenshot.W \ 2 - 16, imvScreenshot.ScreenY - spnScreenshot.Parent.ScreenY + imvScreenshot.H \ 2 - 16, 32, 32)
If panSoftware.Visible Then imvScreenshot.ZoomFit If panSoftware.Visible Then imvScreenshot.ZoomFit
If txtDescription.Visible Then txtDescription.H = txtDescription.Font.RichTextHeight(Replace(Html(txtDescription.Text), "\n", "<br>"), txtDescription.W)
End End