Делает видимым выделенный текст в заданном окне.


void _EdScrollToSel(WHANDLE wh, int Center) WHANDLE wh; /* Дескриптор окна редактирования. / int Center; / Нужно ли центрировать точку привязки относительно окна. */

void _EdScrollToSel(WHANDLE wh, int Center)
WHANDLE wh;            /* Дескриптор окна редактирования. */
int Center;                  /* Нужно ли центрировать точку привязки относительно окна. */

Примечания

Если задать в качестве Center значение "истина", точка привязки будет центрироваться в окне по вертикали, а если задать "ложь", точка привязки центрироваться не будет.

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

Пример

В следующем примере открывается для редактирования файл, заданный параметром. Выделяется текст вблизи конца файла. После того как пользователь нажимает клавишу в ответ на команду Visual FoxPro WAIT, программа прокручивает окно редактирования до выделенного фрагмента с помощью _EdScrollToSel( ). Затем аналогичная операция выполняется для фрагмента, выделенного вблизи начала файла.

Код Visual FoxPro

	Copy Code
SET LIBRARY TO EDSCTOSE = TOSEL("x")

Код C

	Copy Code
#include <pro_ext.h> void putLong(long n) { Value val; val.ev_type = 'I'; val.ev_long = n; val.ev_width = 10; _PutValue(&val); } FAR Example(ParamBlk FAR parm) { #define pFILENAME ((char FAR ) _HandToPtr(parm->p[0].val.ev_handle)) WHANDLE wh; EDENV EdEnv; if (!_SetHandSize(parm->p[0].val.ev_handle, parm->p[0].val.ev_length+1)) { _Error(182); // "Insufficient memory" } pFILENAME[parm->p[0].val.ev_length] = '\0'; _HLock(parm->p[0].val.ev_handle); wh = _EdOpenFile(pFILENAME, FO_READONLY); _HUnLock(parm->p[0].val.ev_handle); _EdScrollToPos(wh, 0, TRUE); _EdGetEnv(wh, &EdEnv); _EdSelect(wh, EdEnv.length - 16, EdEnv.length); _PutStr("\nMade selection at end of file."); _Execute("WAIT WINDOW 'Press any key to scroll to selection.'"); _EdScrollToSel(wh, TRUE); _EdSelect(wh, 1, 16); _PutStr("\nMade selection at beginning of file."); _Execute("WAIT WINDOW 'Press any key to scroll to selection.'"); _EdScrollToSel(wh, TRUE); } FoxInfo myFoxInfo[] = { {"TOSEL", (FPFI) Example, 1, "C"}, }; FoxTable _FoxTable = { (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo };

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

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

Процедура библиотеки API _EdGetPos( )
Процедура библиотеки API _EdSelect( )
Процедура библиотеки API _EdSetPos( )

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

Конструкции библиотеки API