Отправлено: 29.12.10 16:01. Заголовок: ON CHANGE (GET)

 
 #include "FiveWin.ch" 
  
 function Main() 
    LOCAL oDlg, oGet 
    LOCAL cCad := "   "  
  
    DEFINE DIALOG oDlg  
  
    @ 1,6 GET oGet VAR cCad OF oDlg SIZE 60, 10  on change test(ccad) 
  
    ACTIVATE DIALOG oDlg CENTERED 
  
 return nil 
  
 //------------------------------------------------------------------------// 
  
 Func test(ccad) 
 msginfo(ccad) 
 return nil 
 

Вводим в Get какой символ , но при первом нажатии в функции TEST , пусто. Почему ?
Вводим еще символ и только тогда в TEST видим первый введенный символ , без второго

 Отправлено: 09.01.11 18:46. Заголовок: fil пишет: if(empty..

fil пишет:

цитата:

if(empty(oGts)

Видать это не то же самое что ONS==0 , не пашет в общем.
За подход с cText() , спасибо , учту !!!

А что по вопросу WHEN второго и третьего GET ?

 Отправлено: 09.01.11 18:54. Заголовок: Напиши так iif(val(..

Напиши так

iif(val(oDlg:aControls[1]:cText())==0, (oDlg:aControls[2]:cText(0), oDlg:aControls[2]:Disable(),
oDlg:aControls[3]:cText(0), oDlg:aControls[3]:Disable() ), (oDlg:aControls[2]:Enable(), oDlg:aControls[3]:Enable()) )

 Отправлено: 09.01.11 19:25. Заголовок: fil Начинаю входить..

fil
Начинаю входить во вкус ООП
Спасибо.

 Отправлено: 09.01.11 20:47. Заголовок: А вообще крайне не у..

А вообще крайне не удобно конечно что функция форматирования @Z Picture для GET работает не так , как
в Clipper :)
Придется ёрзать способ с подменой Picture и символьными переменными....раз нет других идей :)

 Отправлено: 09.01.11 20:55. Заголовок: В свое время у меня ..

В свое время у меня тож не получилось, к томуже потребовали, чтоб усе как в Excel.. Пришлось делать свое

 Отправлено: 09.01.11 20:59. Заголовок: fil пишет: В свое в..

fil пишет:

цитата:

В свое время у меня тож не получилось

А что говорят по этому поводу на форуме у Линареса ?
Долго там копался и не нашел пока что.......

 Отправлено: 09.01.11 21:14. Заголовок: Dima пишет: А что ..

Dima пишет:

цитата:

А что говорят по этому поводу на форуме у Линареса ? Долго там копался и не нашел пока что.......

Научился

Вроде как они там довольно уверенно picture функциями пользуются. @Z я, правда, не нашел. Но эт надо все njgs picture get листать

 Отправлено: 09.01.11 21:47. Заголовок: fil пишет: Научился..

fil пишет:

цитата:

Научился

В начале я там ищу а потом если ответа не нахожу , спрашиваю тут.

 Отправлено: 10.01.11 17:06. Заголовок: Dima пишет: А вообщ..

Dima пишет:

цитата:

А вообще крайне не удобно конечно что функция форматирования @Z Picture для GET работает не так , как в Clipper :)

Ладно , как там Павел говорил , берем кувалду и напильник и правим ;)
Отыгрался цветами (написал не большую функцию) , которую как клин пришлось
вставлять в Bchange,blostfocus,bgotfocus и тд и тп

Для 3-х моих числовых GET , она такова

 
 Func Cvet(og,og1,og2) // типа аналог @Z 
 og:setcolor(if(val(og:ctext())==0 .and. !og:lfocused,CLR_WHITE,CLR_BLACK),CLR_WHITE) 
 og1:setcolor(if(val(og1:ctext())==0 .and. !og1:lfocused,CLR_WHITE,CLR_BLACK),CLR_WHITE) 
 og2:setcolor(if(val(og2:ctext())==0 .and. !og2:lfocused,CLR_WHITE,CLR_BLACK),CLR_WHITE) 
 return nil