METHOD autosize CLASS ListView
    // Call this method to automatically resize
    // all the columns in the listview
    LOCAL i AS DWORD
    LOCAL o AS ListViewColumn
    
    FOR i := 1 TO SELF:columncount
        o := SELF:getcolumn(i)
        o:autosize()
    NEXT


METHOD AutoSize() CLASS ListViewColumn
    // This method will adjust the width of
    // the column so that the widest item is
    // completely visible

    LOCAL dwIndex AS DWORD
    LOCAL n AS DWORD

    IF oOwner != NULL_OBJECT
        dwIndex := oOwner:__GetColumnIndexFromSymbol(SELF:NameSym) - 1
        ListView_SetColumnWidth(oOwner:Handle(), dwIndex, DWORD(_CAST,LVSCW_AUTOSIZE))
        n := ListView_GetColumnWidth(oOwner:Handle(), dwIndex)
        ListView_SetColumnWidth(oOwner:Handle(), dwIndex, DWORD(_CAST,LVSCW_AUTOSIZE_USEHEADER))
        n := Max(n,ListView_GetColumnWidth(oOwner:Handle(), dwIndex))
        ListView_SetColumnWidth(oOwner:Handle(), dwIndex, n)
    ENDIF


Page generated from source code by VO Export Explorer, one of the utilities in the VO Productivity Pack
http://www.piko.com.au