Отправлено: 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 ?

 Отправлено: 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.}) 
 

 Отправлено: 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

 Отправлено: 13.11.08 13:55. Заголовок: кажется и тут недавн..

кажется и тут недавно было -
в валидной процедуре перед выходом сделать

Aeval(GetList.{|og|og:display})

 Отправлено: 22.07.17 13:37. Заголовок: Похожая задачка. Еще..

Похожая задачка.
Еще нахожусь в процессе ввода a , нужно что бы c менялось по мере набора a

PS
Нужен вариант под Harbour

 Отправлено: 22.07.17 20:36. Заголовок: Dima пишет: Еще нах..

Dima пишет:

цитата:

Еще нахожусь в процессе ввода a , нужно что бы c менялось по мере набора a

Если на уровне исходников harbour, то, имхо, не стОит. Проще свой ввод сделать.

 Отправлено: 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 
 ... 
 

 Отправлено: 01.01.22 17:09. Заголовок: Pasha пишет: Settle..

Pasha пишет:

цитата:

Settle добавить строки

Паш не пойму (видимо спал мало ) а как использовать 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 
  
 

 Отправлено: 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. 
  
 

 Отправлено: 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 

 Отправлено: 01.01.22 21:46. Заголовок: oGet:Refresh() не?..

AEval( GetList, {|oGet| oGet:display() } )

 Отправлено: 01.01.22 22:37. Заголовок: SergKis Не работает..

SergKis
Не работает
PSP
Если перед READ то не работает

 Отправлено: 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 
 ************* 
 

 Отправлено: 02.01.22 10:31. Заголовок: SergKis пишет: Вот ..

SergKis пишет:

цитата:

Вот так работает

Мудрёно , но работает !

 Отправлено: 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))