Устанавливает позицию вывода в заданном окне в точке pt, координаты которой выражены в строках и столбцах.


void _WPosCursor(WHANDLE wh, Point pt) WHANDLE wh; /* Дескриптор окна. / Point pt; / Местоположение позиции вывода. */

Remarks

_WPosCursor( ) не делает курсор видимым. Обычно он становится видимым, только когда Visual FoxPro ждет ввода.

Для получения дополнительной информации о том, как создавать библиотеку API и интегрировать её в Visual FoxPro, смотрите Доступ к API Visual FoxPro.

Пример

В следующем примере создается окно и в нем рисуется диагональный узор из букв X. Программа последовательно устанавливает курсор с помощью _WPosCursor( ) перед каждой записываемой буквой X и получает значение той же позиции с помощью _WGetCursor( ).

Код Visual FoxPro

	Copy Code
SET LIBRARY TO WPOSCUR

Код C

	Copy Code
#include <pro_ext.h> void putLong(long n, int width) { Value val; val.ev_type = 'I'; val.ev_long = n; val.ev_width = width; _PutValue(&val); } FAR Example(ParamBlk FAR parm) { WHANDLE wh; Point putPos, getPos; wh = _WOpen(4,4,20,70,0,WINDOW_SCHEME,(Scheme FAR ) 0, WO_SYSTEMBORDER); _WShow(wh); for (putPos.v = 2; putPos.v < 14; putPos.v++) { putPos.h = putPos.v; _WPosCursor(wh, putPos); _WPutChr(wh, 'X'); getPos = _WGetCursor(wh); _PutStr("\nCursor position:"); putLong(getPos.v, 5); putLong(getPos.h, 5); _Execute("WAIT"); } _WClose(wh); } FoxInfo myFoxInfo[] = { {"ONLOAD", (FPFI) Example, CALLONLOAD, ""}, }; FoxTable _FoxTable = { (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo };

Copy Code

#include <pro_ext.h>

void putLong(long n, int width)
{
   Value val;

   val.ev_type = 'I';
   val.ev_long = n;
   val.ev_width = width;

   _PutValue(&val);
}

FAR Example(ParamBlk FAR *parm)
{
   WHANDLE wh;
   Point putPos, getPos;

   wh = _WOpen(4,4,20,70,0,WINDOW_SCHEME,(Scheme FAR *) 0,
      WO_SYSTEMBORDER);
   _WShow(wh);

   for (putPos.v = 2; putPos.v < 14; putPos.v++)
   {
      putPos.h = putPos.v;

      _WPosCursor(wh, putPos);
      _WPutChr(wh, 'X');

      getPos = _WGetCursor(wh);

      _PutStr("\nCursor position:");
      putLong(getPos.v, 5);
      putLong(getPos.h, 5);

      _Execute("WAIT");
   }
   _WClose(wh);
}
FoxInfo myFoxInfo[] = {
   {"ONLOAD", (FPFI) Example, CALLONLOAD, ""},
};
FoxTable _FoxTable = {
   (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
};

Смотрите также

Справочное руководство

Процедура библиотеки API _WGetCursor( )
Процедура библиотеки API _WPosCursorP( )
Процедура библиотеки API _WPutChr( )
Процедура библиотеки API _WPutStr( )

Прочие ресурсы

Конструкции библиотеки API
Доступ к API Visual FoxPro

To make a suggestion or report a bug about Help or another feature of this product, go to the feedback site.
c Microsoft Corporation. All rights reserved. Microsoft is not reponsible for the contents of the translated help topics.