Commit fbf3479c authored by Benoît Minisini's avatar Benoît Minisini
Browse files

MaskBox: Handle space separators correctly when setting the Text property.

[GB.FORM]
* BUG: MaskBox: Handle space separators correctly when setting the Text property.
parent a5032e80
Pipeline #342364199 passed with stage
in 24 minutes and 27 seconds
# Gambas Project File 3.0
Title=More controls for graphical components
Startup=FTestMaskBox
Startup=FTestDateChooser
Icon=.hidden/icon.png
Version=3.16.90
VersionFile=1
......@@ -10,7 +10,7 @@ Component=gb.form
Component=gb.settings
Component=gb.form.stock
Authors="Benoît Minisini"
Environment="GB_GUI=gb.gtk3\n GB_STOCK_DEBUG=1\n LANG=zh_CN.UTF-8\n LC_ALL=en_US.UTF-8\n LC_ALL=zh_CN.UTF-8\n GTK_DEBUG=interactive"
Environment="GB_GUI=gb.qt5\n GB_STOCK_DEBUG=1\n LANG=zh_CN.UTF-8\n LC_ALL=en_US.UTF-8\n LC_ALL=zh_CN.UTF-8\n GTK_DEBUG=interactive"
TabSize=2
Translate=1
Language=en
......
......@@ -807,6 +807,7 @@ Private Sub IsValid(sText As String) As Boolean
If sMask Then
If sCar <> GetDefaultCharacter(I - 1) And If sCar Not Like sMask Then Return False
Else
If sCar = $sPrompt Then sCar = " "
If sCar <> String.Mid$($sSeparator, I, 1) Then Return False
Endif
......
' Gambas class file
Public Sub _new()
Dim d As Date
d = Date(2021, 1, 1, 12, 45)
'DateBox1.Mode = DateChooser.DateTime
DateBox3.Value = d
'Message("DateBox1 should display the date " & d & " but does not")
End
Public Sub DateBox1_Change()
Debug DateBox1.Value
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment