Автор | Сообщение |
|
| |
Пост N: 31
Зарегистрирован: 23.02.06
|
|
Отправлено: 13.11.08 12:16. Заголовок: Обновить GET'ы в процессе ввода
=== LOCAL a:=2, b:=3, c:=a+b @ 0,0 GET a VALID (c:=a+b, .t. ) @ 1,0 GET b VALID (c:=a+b, .t. ) @ 2,0 GET c === Новое значение c становится видно, только когда до него доходит фокус - как сделать, чтобы изменение значения было видно на экране сразу же после ввода a или b ?
|
|
|
Новых ответов нет
[см. все]
|
|
|
| |
Пост N: 1078
Зарегистрирован: 17.05.05
|
|
Отправлено: 13.11.08 12:31. Заголовок: Snake пишет: @ 0,0..
Snake пишет: цитата: | @ 0,0 GET a VALID (c:=a+b, .t. ) @ 1,0 GET b VALID (c:=a+b, .t. ) @ 2,0 GET c |
| Как то так @ 0,0 GET a VALID eval({|| c:=a+b,AEVAL( GetList, {|g| g:display()}),.t.})
|
|
|
|
| Администратор
|
Пост N: 1028
Зарегистрирован: 23.05.05
|
|
Отправлено: 13.11.08 13:46. Заголовок: Мне приходилось для ..
Мне приходилось для этих целей патчить getsys.prg еще для клиппера #define GE_DISPLAY 10 и в Settle добавить строки: if exitState == GE_DISPLAY AEval(GetList, {|get| get:display()}) exitState := GE_DOWN endif а в Valid-блоке ставить: oG:exitState := GE_DISPLAY
|
|
|
|
| |
Пост N: 26
Зарегистрирован: 17.10.05
|
|
Отправлено: 13.11.08 13:55. Заголовок: кажется и тут недавн..
кажется и тут недавно было - в валидной процедуре перед выходом сделать Aeval(GetList.{|og|og:display})
|
|
|
|
| |
Пост N: 6508
Зарегистрирован: 17.05.05
|
|
Отправлено: 22.07.17 13:37. Заголовок: Похожая задачка. Еще..
Похожая задачка. Еще нахожусь в процессе ввода a , нужно что бы c менялось по мере набора a PS Нужен вариант под Harbour
|
|
|
|
| постоянный участник
|
Пост N: 1317
Зарегистрирован: 27.01.07
|
|
Отправлено: 22.07.17 20:36. Заголовок: Dima пишет: Еще нах..
Dima пишет: цитата: | Еще нахожусь в процессе ввода a , нужно что бы c менялось по мере набора a |
| Если на уровне исходников harbour, то, имхо, не стОит. Проще свой ввод сделать.
|
|
|
|
| постоянный участник
|
Пост N: 1610
Зарегистрирован: 17.02.12
|
|
Отправлено: 23.07.17 14:59. Заголовок: Dima пишет Нужен вар..
Dima пишет цитата: | Нужен вариант под Harbour |
| Можно попробовать установить hb_gtInfo(HB_GTI_INKEYFILTER, {|| ... }) и в блоке исп. GetActive():varGet() и переменную GetList для поиска объекта get, где менять отображение ( GetList[5]:VarPut(...) ), думаю должно получиться. Сам не пробовал. Примеры в test есть get.prg, @ 10, 10 SAY "cVar :" GET cVar PICTURE "@K!" ... @ 20, 10 SAY "Picture of GET-1:" GET GetList[ 1 ]:Picture ...
|
|
|
|
| |
Пост N: 7521
Зарегистрирован: 17.05.05
|
|
Отправлено: 01.01.22 17:09. Заголовок: Pasha пишет: Settle..
Pasha пишет: Паш не пойму (видимо спал мало ) а как использовать Settle что бы попасть на последний GET , не используя передачу нажатий клавиш ? n1:=1 n2:=2 n3:=3 @ 0,0 get n1 picture "@Z 999" @ 1,0 get n2 picture "@Z 999" @ 2,0 get n3 picture "@Z 999" read
|
|
|
|
| |
Пост N: 7522
Зарегистрирован: 17.05.05
|
|
Отправлено: 01.01.22 20:42. Заголовок: Без нажатия педалей ..
Без нажатия педалей что то не получается , поэтому с педалями можно так #include "inkey.ch" local Getlist:={} local n1:=1 local n2:=2 local n3:=3 local cstr:="" @ 0,0 get cstr when {|| BottomGet(Getlist,"n3") } @ 1,0 get n1 picture "@Z 999" @ 2,0 get n2 picture "@Z 999" @ 3,0 get n3 picture "@Z 999" read ************* Func BottomGet(Gt,ncget) local elem for each elem in gt if elem:name==ncget exit else HB_KeyPut( K_DOWN ) endif next return .f.
|
|
|
|
| постоянный участник
|
Пост N: 4027
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.01.22 21:34. Заголовок: Dima Если так (с wv..
Dima Если так (с wvt GET давно не работаю, может подзабыл что) сделать @ 1,0 get n1 picture "@Z 999" @ 2,0 get n2 picture "@Z 999" @ 3,0 get n3 picture "@Z 999" ATail(GetList):SetFocus() read
|
|
|
|
| постоянный участник
|
Пост N: 1631
Зарегистрирован: 27.01.07
|
|
Отправлено: 01.01.22 21:46. Заголовок: oGet:Refresh() не?..
AEval( GetList, {|oGet| oGet:display() } )
|
|
|
|
| |
Пост N: 7523
Зарегистрирован: 17.05.05
|
|
Отправлено: 01.01.22 22:37. Заголовок: SergKis Не работает..
SergKis Не работает PSP Если перед READ то не работает
|
|
|
|
|
| постоянный участник
|
Пост N: 4028
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.01.22 01:15. Заголовок: Dima пишет Не работа..
Dima пишет Вот так работает local Getlist:={} local n1:=1, l1 := .f. local n2:=2, l2 := .f. local n3:=3, l3 := .t. @ 1,0 get n1 picture "@Z 999" when {|l| l := l1, l1 := .t., l } @ 2,0 get n2 picture "@Z 999" when {|l| l := l2, l2 := .t., l } @ 3,0 get n3 picture "@Z 999" when {|l| l := l3, l3 := .t., l } read *************
|
|
|
|
| |
Пост N: 7524
Зарегистрирован: 17.05.05
|
|
Отправлено: 02.01.22 10:31. Заголовок: SergKis пишет: Вот ..
SergKis пишет: Мудрёно , но работает !
|
|
|
|
| |
Пост N: 7525
Зарегистрирован: 17.05.05
|
|
Отправлено: 02.01.22 13:28. Заголовок: Самый простой вариан..
Самый простой вариант Local Getlist:={} @ 1,0 get n1 picture "@Z 999" @ 2,0 get n2 picture "@Z 999" @ 3,0 get n3 picture "@Z 999" readmodal(Getlist,len(Getlsit))
|
|
|
|