On Dec 6, 2006, at 3:00 PM, [EMAIL PROTECTED] wrote:



-------------- 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

Yes, super! It works on Mac OS also, and the Self.UpdateNow, mentioned in your later post, isn't needed.


Jack



_______________________________________________
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>

Reply via email to