В следующем примере открывается окно и в нем рисуется прямоугольный узор из укв X. Этот прямоугольник также служит прокручиваемой областью. Сначала прямоуго ьник прокручивается на две позиции вверх и на две позиции влево. Затем он прок учивается на четыре позиции вниз и на четыре позиции вправо.

Код Visual FoxPro

SET LIBRARY TO WSCROLL

Код C

#include <pro_ext.h>

FAR WScrollEx(ParamBlk FAR *parm)

{

WHANDLE wh;

Point pos;

Rect rect;

wh = _WOpen(2,2,20,70,WEVENT | CLOSE,WINDOW_SCHEME,(Scheme FAR *) 0,

WO_SYSTEMBORDER);

_WShow(wh);

rect.top = 6;

rect.left = 6;

rect.bottom = 12;

rect.right = 12;

for (pos.v = rect.top; pos.v < rect.bottom; pos.v++)

{

for (pos.h = rect.left; pos.h < rect.right; pos.h++)

{

_WPosCursor(wh, pos);

_WPutChr(wh, 'X');

}

}

_Execute("WAIT WINDOW 'Press any key to _WScroll(wh,rect,-2,-2)'");

_WScroll(wh, rect, -2, -2);

_Execute("WAIT WINDOW 'Press any key to _WScroll(wh,rect,+4,+4)'");

_WScroll(wh, rect, +4, +4);

}

FoxInfo myFoxInfo[] = {

{"ONLOAD", (FPFI) WScrollEx, CALLONLOAD, ""},

};

FoxTable _FoxTable = {

(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo

};