I've been using the s-grid control for some time now and i've corrected a few bugs. As these corrections aren't extensive i'm including them here:
NOTE: All of the changes/addings where made in vbalGrid (vbalGrid.ctl)
BUG #1: In Public Property Let ColumnWidth
'**********************************************************************
' When autoresizing the first column, the header didn't update its size
'**********************************************************************
'*** CHANGED: ***
'If (m_tCols(lCol).lHeadercolIndex - 1) > 0 Then
'*** TO: ***
If (m_tCols(lCol).lHeadercolIndex - 1) >= 0 Then
'*** END OF BUG FIX - REMAING LINES ONLY TO HELP REFERENCE THE CHANGE
If m_cHeader.ColumnWidth(m_tCols(lCol).lHeadercolIndex - 1) <> lWidth Then
m_cHeader.ColumnWidth(m_tCols(lCol).lHeadercolIndex - 1) = lWidth
End If
End If
BUG #2: In Public Sub AutoWidthColumn
‘**********************************************************************
' When autoresizing the columns, it didn't care for the size of the icon
' if this was IconIndex number 0 in the ImageList
'**********************************************************************
'*** CHANGED: ***
'lWidth = lWidth + ((m_tCells(iCCol, iRow).iIconIndex > 0) * -m_lIconSizeX)
'lWidth = lWidth + ((m_tCells(iCCol, iRow).lExtraIconIndex > 0) * -m_lIconSizeY)
'*** TO: ***
lWidth = lWidth + ((m_tCells(iCCol, iRow).iIconIndex >= 0) * -m_lIconSizeX)
lWidth = lWidth + ((m_tCells(iCCol, iRow).lExtraIconIndex >= 0) * -m_lIconSizeY)
BUG #3: In Private Sub m_cHeader_ColumnWidthChanged
'**********************************************************************
' Event returned the column in Base 0 and it should return it in Base 1
'**********************************************************************
'*** CHANGED: ***
'RaiseEvent ColumnWidthChanged(lColumn, lWidth, bCancel)
'*** TO: ***
RaiseEvent ColumnWidthChanged(lCCol, lWidth, bCancel)
|