Автор | Сообщение |
|
| |
Пост N: 1915
Зарегистрирован: 17.05.05
|
|
Отправлено: 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 видим первый введенный символ , без второго
|
|
|
Ответов - 29
, стр:
1
2
All
[только новые]
|
|
|
| |
Пост N: 1970
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.01.11 18:46. Заголовок: fil пишет: if(empty..
fil пишет: Видать это не то же самое что ONS==0 , не пашет в общем. За подход с cText() , спасибо , учту !!! А что по вопросу WHEN второго и третьего GET ?
|
|
|
|
| |
Пост N: 72
Зарегистрирован: 17.06.10
|
|
Отправлено: 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()) )
|
|
|
|
| |
Пост N: 1971
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.01.11 19:25. Заголовок: fil Начинаю входить..
fil Начинаю входить во вкус ООП Спасибо.
|
|
|
|
| |
Пост N: 1973
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.01.11 20:47. Заголовок: А вообще крайне не у..
А вообще крайне не удобно конечно что функция форматирования @Z Picture для GET работает не так , как в Clipper :) Придется ёрзать способ с подменой Picture и символьными переменными....раз нет других идей :)
|
|
|
|
| |
Пост N: 74
Зарегистрирован: 17.06.10
|
|
Отправлено: 09.01.11 20:55. Заголовок: В свое время у меня ..
В свое время у меня тож не получилось, к томуже потребовали, чтоб усе как в Excel.. Пришлось делать свое
|
|
|
|
| |
Пост N: 1974
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.01.11 20:59. Заголовок: fil пишет: В свое в..
fil пишет: цитата: | В свое время у меня тож не получилось |
| А что говорят по этому поводу на форуме у Линареса ? Долго там копался и не нашел пока что.......
|
|
|
|
| |
Пост N: 75
Зарегистрирован: 17.06.10
|
|
Отправлено: 09.01.11 21:14. Заголовок: Dima пишет: А что ..
Dima пишет: цитата: | А что говорят по этому поводу на форуме у Линареса ? Долго там копался и не нашел пока что....... |
| Научился Вроде как они там довольно уверенно picture функциями пользуются. @Z я, правда, не нашел. Но эт надо все njgs picture get листать
|
|
|
|
| |
Пост N: 1975
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.01.11 21:47. Заголовок: fil пишет: Научился..
fil пишет: В начале я там ищу а потом если ответа не нахожу , спрашиваю тут.
|
|
|
|
| |
Пост N: 1978
Зарегистрирован: 17.05.05
|
|
Отправлено: 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
|
|
|
Ответов - 29
, стр:
1
2
All
[только новые]
|
|