diff --git a/comp/src/gb.gui.base/.src/Label.class b/comp/src/gb.gui.base/.src/Label.class index df93b2e2e..24fbeebbd 100644 --- a/comp/src/gb.gui.base/.src/Label.class +++ b/comp/src/gb.gui.base/.src/Label.class @@ -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 diff --git a/comp/src/gb.gui.base/.src/SpinBox.class b/comp/src/gb.gui.base/.src/SpinBox.class index 328a2c4dc..16985a39d 100644 --- a/comp/src/gb.gui.base/.src/SpinBox.class +++ b/comp/src/gb.gui.base/.src/SpinBox.class @@ -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