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:
parent
796ec29fbb
commit
ccb5471dcf
2 changed files with 16 additions and 3 deletions
comp/src/gb.gui.base/.src
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in a new issue