Форум » FiveWin » ON CHANGE (GET) » Ответить
ON CHANGE (GET)
Dima: [pre2] #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 [/pre2] Вводим в Get какой символ , но при первом нажатии в функции TEST , пусто. Почему ? Вводим еще символ и только тогда в TEST видим первый введенный символ , без второго
Ответов - 29, стр:
1 2 All
Dima: fil пишет: if(empty(oGts) Видать это не то же самое что ONS==0 , не пашет в общем. За подход с cText() , спасибо , учту !!! А что по вопросу WHEN второго и третьего GET ?
fil: Напиши так 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()) )
Dima: fil Начинаю входить во вкус ООП Спасибо.
Dima: А вообще крайне не удобно конечно что функция форматирования @Z Picture для GET работает не так , как в Clipper :) Придется ёрзать способ с подменой Picture и символьными переменными....раз нет других идей :)
fil: В свое время у меня тож не получилось, к томуже потребовали, чтоб усе как в Excel.. Пришлось делать свое
Dima: fil пишет: В свое время у меня тож не получилось А что говорят по этому поводу на форуме у Линареса ? Долго там копался и не нашел пока что.......
fil: Dima пишет: А что говорят по этому поводу на форуме у Линареса ? Долго там копался и не нашел пока что....... Научился Вроде как они там довольно уверенно picture функциями пользуются. @Z я, правда, не нашел. Но эт надо все njgs picture get листать
Dima: fil пишет: Научился В начале я там ищу а потом если ответа не нахожу , спрашиваю тут.
Dima: Dima пишет: А вообще крайне не удобно конечно что функция форматирования @Z Picture для GET работает не так , как в Clipper :) Ладно , как там Павел говорил , берем кувалду и напильник и правим ;) Отыгрался цветами (написал не большую функцию) , которую как клин пришлось вставлять в Bchange,blostfocus,bgotfocus и тд и тп Для 3-х моих числовых GET , она такова [pre2] 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 [/pre2]
полная версия страницы