Стирает содержимое заданной прямоугольной области указанного окна, устанавливая в ней цвет фона, принимаемый по умолчанию.
|
---|
void _WClearRectP(WHANDLE wh, Rect r)
WHANDLE wh; /* Дескриптор окна. */
Rect r; /* Очищаемый прямоугольник. */ |
Примечания
Пример
В следующем примере создается окно, заполняемое буквами X. Когда пользователь нажимает клавишу в ответ на команду Visual FoxPro WAIT, _WClearRectP( ) очищает прямоугольную область в окне.
Код Visual FoxPro
| Copy Code |
---|
SET LIBRARY TO WCLRECTP |
Код C
| Copy Code |
---|
#include <pro_ext.h>
FAR WClearEx(ParamBlk FAR *parm)
{
WHANDLE wh;
int row, col;
Rect r;
wh = _WOpen(2, 2, 20, 70, CLOSE, WINDOW_SCHEME, (Scheme FAR *) 0,
WO_SYSTEMBORDER);
_WShow(wh);
for (row = 0; row < _WHeight(wh); row++)
{
for (col = 0; col < _WWidth(wh); col++)
{
_WPutChr(wh, 'X');
}
}
_Execute("WAIT WINDOW 'Press any key to clear window rectangle'");
r.top = 20;
r.left = 20;
r.bottom = 100;
r.right = 300;
_WClearRectP(wh, r);
}
FoxInfo myFoxInfo[] = {
{"ONLOAD", WClearEx, CALLONLOAD, ""},
};
FoxTable _FoxTable = {
(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
}; |
Смотрите также