Aunque a lo largo de este hilo ya lo he comentado en alguna otra ocasión, no quiero dejar de recordar que la clase fue desarrollada por D. Daniel Garcia-Gil
Lo que envío son pequeños ajustes y modificaciones de dicha clase
DEFAULT oItem:nColEnd := 1
n = max(0, min(oItem:nColEnd,oData:nNewColEnd) - max(oItem:nColStart,oData:nNewColStart))