>*---------------------- Location Section ------------------------ >* Library: Acustomcontrols.vcx >* Class: Cboviscodes >* Method: Adjustwidth() >*----------------------- Usage Section -------------------------- >*) Description: >*) > >* Scope: Public >* Parameters: >*$ Usage: >*$ >* Returns: >*--------------------- Maintenance Section ---------------------- >* Change Log: >* CREATED 08/23/2005 - NN (Ideas by Fabio Lunadron) >* MODIFIED >*---------------------------------------------------------------- >WITH this > #IF VERSION(2)<900 > .ColumnCount = MAX(.ColumnCount,.BoundColumn, 2) > #ENDIF > > IF .Width > 60 > .ColumnWidths = LTRIM(STR(.Width-39))+ REPLICATE(',0',.ColumnCount-1) > ENDIF >ENDWITH >>
#IF VERSION( 2 )<900should read
#IF VERSION( 5 )<900