void ScrollLines( Word fldindex, Word sbarindex, int numLinesToScroll, Boolean redraw ) { FormPtr frm=FrmGetActiveForm(); FieldPtr fld; fld = FrmGetObjectPtr( frm, FrmGetObjectIndex( frm, fldindex ) ); if( numLinesToScroll<0 ) FldScrollField( fld, -numLinesToScroll, up ); else FldScrollField( fld, numLinesToScroll, down ); if( (FldGetNumberOfBlankLines(fld) && numLinesToScroll<0) || redraw ) UpdateScrollbar( fldindex, sbarindex ); }
/*----------------------------------------------------------------linesScroll-+ | | +----------------------------------------------------------------------------*/ void linesScroll(int numLinesToScroll, Boolean redraw) { FormPtr frm = FrmGetActiveForm(); FieldPtr field = (FieldPtr)FrmGetObjectPtr( frm, FrmGetObjectIndex(frm, MainConsoleField) ); if (numLinesToScroll < 0) { FldScrollField(field, -numLinesToScroll, winUp); }else { FldScrollField(field, numLinesToScroll, winDown); } if ((FldGetNumberOfBlankLines(field) && numLinesToScroll < 0) || redraw) { updateScroll(); } }