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

[DEVELOPMENT ENVIRONMENT]

Browse source 
* BUG: Do not invert Blur and Spread


git-svn-id: svn://localhost/gambas/trunk@6837 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Fabien Bodard 2015-01-13 23:06:09 +00:00
parent 6acfc3bba3
commit 0e5f9bb3e8
2 changed files with 16 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
app/src/gambas3/.src/Dialog/Report/FReportBoxShadowChooser.class
View file

@ -90,13 +90,14 @@ Private Sub GetValue() As String
If Not sVal Then sVal = "0px" If Not sVal Then sVal = "0px"
sRet &= " " & sVal sRet &= " " & sVal
sVal = crdBlur.Value
If Not sVal Then sVal = "0px"
sRet &= " " & sVal
sVal = crdSpread.Value sVal = crdSpread.Value
If Not sVal Then sVal = "0px" If Not sVal Then sVal = "0px"
sRet &= " " & sVal sRet &= " " & sVal
sVal = crdBlur.Value
If Not sVal Then sVal = "0px"
sRet &= " " & sVal
sRet &= " " & CReportBrush.ColorToString(btnColor.Value) sRet &= " " & CReportBrush.ColorToString(btnColor.Value)
@ -114,7 +115,7 @@ End
Public Sub Form_Open() Public Sub Form_Open()
Dim a As String[] Dim a As String[]
Dim aCont As CoordBox[] = [crdX, crdY, crdSpread, crdBlur] Dim aCont As CoordBox[] = [crdX, crdY, crdBlur, crdSpread]
Dim i As Integer Dim i As Integer
'Value = "1px -2cm 3mm 1px #FF5641" 'Value = "1px -2cm 3mm 1px #FF5641"
If Not Value Then If Not Value Then

22
app/src/gambas3/.src/Dialog/Report/FReportBoxShadowChooser.form
View file

@ -21,10 +21,10 @@
MoveScaled(1,1,28,26) MoveScaled(1,1,28,26)
{ crdBlur CoordBox crdBrush { crdBlur CoordBox crdBrush
Name = "crdBlur" Name = "crdBlur"
MoveScaled(9,15,18,4) MoveScaled(9,10,18,4)
} }
{ Label4 Label { Label4 Label
MoveScaled(0,15,9,4) MoveScaled(0,10,9,4)
#Translate = False #Translate = False
Text = "Blur" Text = "Blur"
} }
@ -32,10 +32,6 @@
Name = "crdX" Name = "crdX"
MoveScaled(9,0,18,4) MoveScaled(9,0,18,4)
} }
{ crdSpread CoordBox crdBrush
Name = "crdSpread"
MoveScaled(9,10,18,4)
}
{ Label3 Label { Label3 Label
MoveScaled(0,0,9,4) MoveScaled(0,0,9,4)
#Translate = False #Translate = False
@ -46,11 +42,6 @@
#Translate = False #Translate = False
Text = "Y offset" Text = "Y offset"
} }
{ Label6 Label
MoveScaled(0,10,9,4)
#Translate = False
Text = "Spread"
}
{ crdY CoordBox crdBrush { crdY CoordBox crdBrush
Name = "crdY" Name = "crdY"
MoveScaled(9,5,18,4) MoveScaled(9,5,18,4)
@ -64,6 +55,15 @@
Name = "btnColor" Name = "btnColor"
MoveScaled(9,20,18,5) MoveScaled(9,20,18,5)
} }
{ Label6 Label
MoveScaled(0,15,9,4)
#Translate = False
Text = "Spread"
}
{ crdSpread CoordBox crdBrush
Name = "crdSpread"
MoveScaled(9,15,18,4)
}
} }
Index = 0 Index = 0
} }