Clickable icons in ListBox

Bodevinaat

I have a ListBox with two SVG icons drawn in the last Column. I want to make these icons clickable. They are type Picture and I want to change the mouse cursor into a finger pointer when hovering over these icons.

rgb

Bodevinaat

Hi,
Sample here:

lb.objo

3kB

In example, column 3 have hand mouse cursor
Note: ColumnWidths need have pixels value, not % elsewhere need write a method for calc columns width

Missing in class Listbox a method like:
Listbox.ColumnWidth(column As Integer) As Integer

Bodevinaat

Hi,

thanks. It would be great if the cursor only reacts on the icons.

Any ideas about that?

Cheers

rgb

Bodevinaat

  Var IconOffset As Integer = 10 # left position of icon in Cell
  Var IconWidth As Integer = 20 # width  icon with 

  If x >= wi And x <= wi + mx Then

    If x >= wi + IconOffset And x <= wi + IconOffset + IconWidth Then

      Me.MouseCursor = .Hand

      Return

    End If

  End If

Example for check a unique icon, if multiple need made multiple test for each icon position

Bodevinaat

ah will try this at home. Keep you posted. Thanks.

Bodevinaat

rgb Where do you place this? In ListBox.MouseOver event? The Mouse X and Y should be checked against Icon width and height relative to position. But there is no Cell.MouseOver.

rgb

Bodevinaat
Put this code in MouseMove event


Var row As Integer = Me.RowAtPoint(x, y)

If row > -1 Then

  Var tb() As String = Me.ColumnWidths.Split(",")

  Var nb, wi, mx As Integer

  For Each s As String In tb

    If nb < 3 Then

      wi += Integer.Parse(s)

    End If

    nb += 1

  Next

  mx = Integer.Parse(tb[3])

  Var IconOffset As Integer = 10
  Var IconWidth As Integer = 20

  If x >= wi And x <= wi + mx Then

    If x >= wi + IconOffset And x <= wi + IconOffset + IconWidth Then

      Me.MouseCursor = .SizeAll

      Return

    End If

  End If

End If

Me.MouseCursor = .Default

Garry

Thanks both. This highlighted a missing piece in the ListBox API, so I’ve added:

ListBox.CellAtPoint(x As Double, y As Double) As ListBoxCellHit

The coordinates can be passed directly from MouseMove, MouseDown, MouseUp or MouseDrag. The returned snapshot contains the displayed Row, Column, cell-relative X and Y, and the rendered cell Width and Height. It returns Nothing when the pointer is not over a visible data cell.

The geometry uses the actual rendered cell, so it accounts for percentage/fill widths, resized columns, scrolling and frozen columns. It also uses the same coordinate space as the Graphics object supplied to the cell-painting events.

For two icons drawn in column 3:

Function IconAt(hit As ListBoxCellHit) As Integer
    If hit = Nothing Then Return -1
    If hit.Column <> 3 Then Return -1

    If hit.Y < 4 Or hit.Y >= 24 Then Return -1
    If hit.X >= 10 And hit.X < 30 Then Return 0
    If hit.X >= 40 And hit.X < 60 Then Return 1

    Return -1
End Function

Sub List_MouseMove(x As Double, y As Double)
    Var icon As Integer = IconAt(Me.CellAtPoint(x, y))

    If icon >= 0 Then
        Me.MouseCursor = MouseCursor.Hand
    Else
        Me.MouseCursor = MouseCursor.Default
    End If
End Sub

Sub List_MouseUp(x As Double, y As Double, button As MouseButton)
    If button <> MouseButton.Left Then Return

    Var hit As ListBoxCellHit = Me.CellAtPoint(x, y)
    Var icon As Integer = IconAt(hit)

    If icon >= 0 Then
        Print("Pressed icon " + icon.ToString() +
              " in row " + hit.Row.ToString())
    End If
End Sub

This will be included in the next release: Hit-test ListBox cells at a point.

Bodevinaat

Great! Thanks.