示例#1
0
文件: scdir.c 项目: 12019/scez-ng
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 );
}
示例#2
0
文件: screen.cpp 项目: Jaxo/yaxx
/*----------------------------------------------------------------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();
   }
}