ListBox: Click event is now raised on the next event loop.

[GB.GUI.BASE]
* NEW: ListBox: Click event is now raised on the next event loop.
This commit is contained in:
gambas 2020-08-20 01:41:34 +02:00
parent 796ec29fbb
commit ccb5471dcf
2 changed files with 16 additions and 3 deletions
comp/src/gb.gui.base/.src

View file

@ -1148,8 +1148,8 @@ End
Public Sub TimerScroll_Timer()
Dim X As Integer = $SX - If(System.RightToLeft, 0, $hRows.W) + $hView.ScrollX
Dim Y As Integer = $SY - $hColumns.Height + $hView.ScrollY
Dim X As Integer
Dim Y As Integer
Dim iCol As Integer
Dim iRow As Integer
@ -1158,6 +1158,9 @@ Public Sub TimerScroll_Timer()
Return
Endif
X = $SX - If(System.RightToLeft, 0, $hRows.W) + $hView.ScrollX
Y = $SY - $hColumns.Height + $hView.ScrollY
If InRowHeader($SX) Then
iCol = -1
Else

View file

@ -35,6 +35,7 @@ Private $hView As GridView
Private $aText As New String[]
Private $bSorted As Boolean
Private $hSortTimer As Timer
Private $hTimerClick As Timer
Public Sub _new()
@ -195,9 +196,18 @@ Public Sub GridView_Select()
End
Public Sub GridView_Change()
Public Sub TimerClick_Timer()
Raise Click
$hTimerClick = Null
End
Public Sub GridView_Change()
$hTimerClick = New Timer As "TimerClick"
$hTimerClick.Trigger
End