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

MaskBox: Modifier keys do not hide selection anymore.

[GB.FORM]
* BUG: MaskBox: Modifier keys do not hide selection anymore.
parent e3ee5a41
Pipeline #325406287 passed with stage
in 23 minutes and 35 seconds
# Gambas Project File 3.0
Title=More controls for graphical components
Startup=FTestFileView
Startup=FTestDateChooser
Icon=.hidden/icon.png
Version=3.16.90
VersionFile=1
......
......@@ -330,9 +330,7 @@ Public Sub TextBox_KeyPress()
Dim bChange As Boolean
If Not $sMaskOrg Then Return
If Me.ReadOnly Then
Return
Endif
If Me.ReadOnly Then Return
sText = UnmaskText(Me.Text)
sTextOrg = sText
......@@ -371,7 +369,7 @@ Public Sub TextBox_KeyPress()
bBefore = IsRightAlign(iPos)
Endif
Case Key.Tab, Key.BackTab, Key.Up, Key.Down, Key.Enter, Key.Return
Case Key.Tab, Key.BackTab, Key.Up, Key.Down, Key.Enter, Key.Return, Key.ControlKey, Key.AltKey, Key.ShiftKey, Key.AltGrKey
Return
Case Else
......
# Gambas Form File 3.0
{ Form Form
MoveScaled(0,0,88,69)
Arrangement = Arrange.Fill
Margin = True
{ Panel1 HSplit
MoveScaled(5,16,68,34)
{ tvwMain TableView
MoveScaled(0,0,29,27)
Expand = True
Mode = Select.Single
ShowCursor = True
Header = GridView.Horizontal
}
}
}
# Gambas Form File 3.0
{ Form Form
MoveScaled(0,0,88,69)
Arrangement = Arrange.Vertical
Margin = True
{ Panel2 Panel
MoveScaled(6,2,62,12)
{ TextBox1 TextBox
MoveScaled(4,4,25,4)
}
{ TextBox2 TextBox
MoveScaled(31,4,28,4)
Border = False
}
}
{ tvwMain TableView
MoveScaled(6,21,29,27)
Expand = True
Mode = Select.Single
ShowCursor = True
Header = GridView.Horizontal
}
}
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