Form editor: Fix reading and writing of color properties so that they do not trigger an overflow. Forms must be updated and recompiled!
[DEVELOPMENT ENVIRONMENT] * BUG: Form editor: Fix reading and writing of color properties so that they do not trigger an overflow. Forms must be updated and recompiled!
This commit is contained in:
parent
529e382122
commit
74bb0fde23
@ -875,7 +875,7 @@ Private Function ConvertToString(vVal As Variant, hProp As CPropertyInfo) As Str
|
||||
If IsLong(vVal) Then
|
||||
sVal = Hex$(vVal, 8)
|
||||
If sVal Begins "00" Then sVal = Mid$(sVal, 3)
|
||||
Return "&H" & sVal & "&"
|
||||
Return "&H" & sVal
|
||||
Else
|
||||
Return vVal
|
||||
Endif
|
||||
|
@ -440,6 +440,10 @@ Private Sub FromString(sData As String, Optional hParent As CControl) As String
|
||||
|
||||
Else
|
||||
|
||||
If sValue Begins "&" And If sValue Ends "&" Then
|
||||
sValue = Left(sValue, -1)
|
||||
Endif
|
||||
|
||||
Try vValue = CInt(Val(sValue))
|
||||
If Not Error Then Goto SET_PROPERTY
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user