...
 
Commits (2)
# Gambas Project File 3.0
Title=Common controls and classes for GUI components
Startup=FGridView
Startup=FTreeView
Version=3.14.90
VersionFile=1
Component=gb.image
......
......@@ -121,6 +121,7 @@ Private $iTextHeight As Integer
Private $bDoNotRaiseSelect As Boolean
Private $hTimerClick As Timer
Private $bMoveRaiseSelect As Boolean
Public Sub _new()
......@@ -1216,8 +1217,10 @@ Public Sub ScrollArea_MouseDown()
$hTimerClick.Trigger
bCancel = Raise MouseDown
Stop Event
If bCancel Then Return
If bCancel Then
Stop Event
Return
Endif
iOldRow = $iRow
......@@ -1322,7 +1325,10 @@ Private Sub AfterMouseUp()
If $bMoveSelect Or If $bMoveUnselect Then
$bDoNotRaiseSelect = False
_RaiseSelect
If $bMoveRaiseSelect Then
$bMoveRaiseSelect = False
_RaiseSelect
Endif
Endif
If _NoMouse Then Return
......@@ -1479,6 +1485,7 @@ Public Sub MoveTo(Row As Integer, Column As Integer)
$hRows.UnSelect(S, L)
Endif
$bDoNotRaiseSelect = False
$bMoveRaiseSelect = True
Endif
Else If $bKeyEvent And If $iMode = Select.Multiple And If Not _NoMouse Then
$hRows._GetSelection().UnSelectAll
......
......@@ -188,3 +188,19 @@ Public Sub gvwInfo_Click()
Debug gvwInfo.Row;; gvwInfo.Column
End
Public Sub Button3_Click()
Dim aSel As String[]
aSel = gvwInfo.Rows.Selection
Debug aSel.Join()
End
Public Sub gvwInfo_MouseDown()
Debug
End
# Gambas Form File 3.0
{ Form Form
MoveScaled(0,0,87,68)
MoveScaled(0,0,106,68)
Arrangement = Arrange.Vertical
Margin = True
{ HBox1 HBox
MoveScaled(6,1,75,4)
MoveScaled(6,1,87,4)
Spacing = True
{ txtPadding SpinBox
MoveScaled(3,0,8,4)
......@@ -23,6 +23,10 @@
Text = ("Drag me")
Border = Border.Plain
}
{ Button3 Button
MoveScaled(68,0,16,4)
Text = ("Selection")
}
}
{ Separator1 Separator
MoveScaled(23,7,14,0)
......
......@@ -152,3 +152,9 @@ Public Sub Button6_Click()
tvwTest.ShowCheck = Not tvwTest.ShowCheck
End
Public Sub tvwTest_MouseDown()
Debug
End