Bug fixes for column width handling

Summary

Id: 11.10
Type: Bug Bug
Current Status: Open

Detail

6 Feb 2003 Open Alfonso Susavila

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)