Fix Label.Alignment property declaration. SpinBox.Background now works as expected.

[GB.GUI.BASE]
* BUG: Label: Fix the declaration of Alignment property default value.
* BUG: SpinBox: The Background property now works as expected.
This commit is contained in:
gambas 2021-03-08 20:12:22 +01:00
parent 8e2879f269
commit 056464689c
2 changed files with 2 additions and 2 deletions

View file

@ -3,7 +3,7 @@
Export
Inherits UserControl
Public Const _Properties As String = "*,Padding{Range:0;64},AutoResize,Alignment{Align.*}=TopLeft,Border{Border.None;Plain;Sunken;Raised;Etched},Text"
Public Const _Properties As String = "*,Padding{Range:0;64},AutoResize,Alignment{Align.*}=Normal,Border{Border.None;Plain;Sunken;Raised;Etched},Text"
Public Const _DefaultEvent As String = "MouseDown"
Public Const _DefaultSize As String = "8,3"
Public Const _IsContainer As Boolean = False

View file

@ -506,7 +506,7 @@ Private Sub Background_Write(Value As Integer)
If Value = Color.Default Then
$hTextBox.Background = Color.TextBackground
Else
$hTextBox.Background = Color.Default
$hTextBox.Background = Value
Endif
End