From 056464689cfd8da0ba5facd9444a90d953e24ae7 Mon Sep 17 00:00:00 2001 From: gambas Date: Mon, 8 Mar 2021 20:12:22 +0100 Subject: [PATCH] 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. --- comp/src/gb.gui.base/.src/Label.class | 2 +- comp/src/gb.gui.base/.src/SpinBox.class | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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