Commit 2f8fccb4 authored by Benoît Minisini's avatar Benoît Minisini

GridView: Click event works again.

[GB.GUI.BASE]
* BUG: GridView: Click event works again.
parent 8c962c9b
# Gambas Project File 3.0
Title=Common controls and classes for GUI components
Startup=FTreeView
Startup=FGridView
Version=3.14.90
VersionFile=1
Component=gb.image
......
......@@ -116,11 +116,12 @@ Private $bSorted As Boolean
Private $bHasDrawEvent As Boolean
Private $hObsClick As Observer
Private $iPadding As Integer = 2
Private $iTextHeight As Integer
Private $bDoNotRaiseSelect As Boolean
Private $hTimerClick As Timer
Public Sub _new()
$hRows = New _GridView_Rows As "Rows"
......@@ -138,7 +139,7 @@ Public Sub _new()
Me.Proxy = $hView
$hObsClick = New Observer(Me, True) As "GridViewClick"
$hTimerClick = New Timer As "GridViewClick"
End
......@@ -1212,6 +1213,8 @@ Public Sub ScrollArea_MouseDown()
Me.SetFocus
$hTimerClick.Trigger
bCancel = Raise MouseDown
Stop Event
If bCancel Then Return
......@@ -2383,7 +2386,7 @@ Private Sub Background_Write(Value As Integer)
End
Public Sub GridViewClick_MouseDown()
Public Sub GridViewClick_Timer()
If $bInCell Then Raise Click
......
......@@ -182,3 +182,9 @@ Public Sub gvwInfo_Drop()
Debug Drag.Paste()
End
Public Sub gvwInfo_Click()
Debug gvwInfo.Row;; gvwInfo.Column
End
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