-------------- Original message -------------- From: CV <[EMAIL PROTECTED]> > Individually selected cells can also be implemented with code like > this in CellClick: > > Self.SelectedRow = row > Self.SelectedColumn = column > // rebuild all the cells to show only the clicked cell highlighted > dim i, j as integer > For i = 0 to me.ListCount - 1 > For j = 0 to me.ColumnCount - 1 > me.InvalidateCell(i, j) > Next > Next > Return True // to avoid a row highlight More efficent (at works least on Win2K): Function CellClick(row as Integer, column as Integer, x as Integer, y as Integer) As Boolean
If Self.SelectedRow >= 0 then me.InvalidateCell(Self.SelectedRow ,Self.SelectedColumn ) Self.SelectedRow = row Self.SelectedColumn = column me.InvalidateCell(row,column) Return True End Function - Karen _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives of this list here: <http://support.realsoftware.com/listarchives/lists.html>
