Listing 7

// Add to end of TScrollWin constructor
Scroller->AutoOrg = FALSE;

// Change first 2 statements in GetCoords() to these
x1 = COLSEP + ((Scroller->XUnit * (1 - Scroller->XPos + col))
  - Scroller->XUnit);
y1 = ROWSEP + ((Scroller->YUnit * (1 - Scroller->YPos + row))
  - Scroller->YUnit);
