On-line:гостей 5. Всего: 5 [подробнее..]
АвторСообщение





Пост N:604
Зарегистрирован:08.07.06
ссылка на сообщение  Отправлено:17.02.18 02:04.Заголовок:@ a,b SAY ... GET - нестандартные вопросы


Добрый день

Чет я застрял или туплю - есть программа:
#include "inkey.ch"  

FUNC Main()

LOCAL cOne := cTwo := cThree := space( 10 )
LOCAL GetList := {}

SETKEY( K_F1, { || MyProc1( GetList ) } )
SETKEY( K_F2, { || MyProc2( GetList ) } )
SETKEY( K_F3, { || MyProc3( GetList ) } )

@ 0,0 CLEAR
@ 2,2 SAY " cOne" GET cOne
@ 3,2 SAY " cTwo" GET cTwo WHEN !EMPTY(cOne)
@ 4,2 SAY "cThree" GET cThree
READ

RETURN NIL

* ------------------- *
FUNC MyProc1( GetList )

GetActive():KillFocus()
GetList[ 1 ]:SetFocus()
GetList[ 1 ]:Display()

RETURN NIL

* ------------------- *
FUNC MyProc2( GetList )

GetActive():KillFocus()
GetList[ 2 ]:SetFocus()
GetList[ 2 ]:Display()

RETURN NIL

* ------------------- *
FUNC MyProc3( GetList )

GetActive():KillFocus()
GetList[ 3 ]:SetFocus()
GetList[ 3 ]:Display()

RETURN NIL


Фокус между GET полями переключается кнопками F1 .. F3, а ввести ничего нельзя до тех пор, пока стрелками/табуляцией в него не попадешь...
Чего не хватает ?

PS: Где-бы вообще почитать поподробнее про эти get/getlist объекты и "нестандартное" управление ими ?
Спасибо.

Спасибо: 0 
ПрофильЦитата Ответить
Новых ответов нет


Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
-участник сейчас на форуме
-участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 490
Права: смайлыда,картинкида,шрифтыда,голосованиянет
аватарыда,автозамена ссылоквкл,премодерацияоткл,правканет