Good afternoon (o;
Have a DesktopListBox here where I can select multiple rows…works fine on Desktop with Ctrl and mouse click…
However…what is the trick to make multiple rows selectable on touchscreen?
Working with tags and PaintCellText and PaintCellBackground events?
Ah got…wasn’t that hard with PaintCellText, PaintCellBackground, CellPressed and Tags (o;
CellPressed event:
If Me.RowTagAt(row) = "" Then
Me.RowTagAt(row) = "S"
Else
Me.RowTagAt(row) = ""
End If
PaintCellBackground:
If row < Me.RowCount Then
If Me.RowTagAt(row) = "" Then
g.DrawingColor = Color.White
Else
g.DrawingColor = Color.Blue
End If
g.FillRectangle(0, 0, g.Width, g.Height)
Return True
End If
PaintCellText:
If row < Me.RowCount Then
If Me.RowTagAt(row) = "" Then
g.DrawingColor = Color.Black
g.DrawText(Me.CellTextAt(row, column), x, y)
Else
g.DrawingColor = Color.White
g.DrawText(Me.CellTextAt(row, column), x, y)
End If
Return True
End If