Автор | Сообщение |
|
| |
Пост N: 33
Зарегистрирован: 17.10.05
|
|
Отправлено: 05.09.06 13:54. Заголовок: Ввод float в TSBrowse
Теперь при вводе дробных цифр "глотает" первую цифру. И еще - при нажатии ENTER на последнем поле новой записи и переходе на ввод след.новой записи - это поле предыдущей записи остается пустым. И если вводить таким образом много записей - появляется "пустой" последний столбец. Может кто это тоже заметил?
|
|
|
Ответов - 10
[только новые]
|
|
|
| |
Пост N: 25
Зарегистрирован: 12.06.06
|
|
Отправлено: 05.09.06 15:25. Заголовок: Ввод в TSBrowse ...
krutoff пишет: цитата: | Может кто это тоже заметил? |
| Заметил !!! Я писал об этом 30.08.06 в 19:36 ... Надеюсь на положительное решение вопроса ?!
|
|
|
|
| |
Пост N: 34
Зарегистрирован: 17.10.05
|
|
Отправлено: 06.09.06 11:04. Заголовок: Надеюсь
С глотанием 1-й цифры я разобрался (по крайней мере, надеюсь) и послал Янушу исходный код изменения. А с пустым столбцом пока у меня ничего не выходит.
|
|
|
|
| модератор
|
Пост N: 261
Зарегистрирован: 25.05.05
|
|
Отправлено: 06.09.06 11:44. Заголовок: Re:
krutoff пишет: цитата: | послал Янушу исходный код изменения |
| Олег! Если возможно, пришли эти изменения (и демо-пример) мне тоже P.S. Януш сейчас занят ремонтом квартиры у своей дочери...
|
|
|
|
| |
Пост N: 36
Зарегистрирован: 17.10.05
|
|
Отправлено: 06.09.06 15:42. Заголовок: Ok
Ok, Сейчас закончу установку XP для кумы и пришлю. С демо сложнее (в своей программе я наворотил подключение словаря и дополнительных переменных класса ) просто если поле числовое - то сразу видно .
|
|
|
|
| |
Пост N: 37
Зарегистрирован: 17.10.05
|
|
Отправлено: 07.09.06 13:23. Заголовок: Письмо не прошло
Григорий, письмо к Тебе не доходит (ругает про английски not be delivered ...). Выкладываю текст письма Янушу здесь. << I have done change TSBrowse for entering the number with fractional part. Hereon the first numeral when entering does not swallow. Сheck, Please. 3427: oCol:oEdit := TGetBox():New(...., NiL) // nKey -> NiL 3460: oCol:oEdit:KeyChar( nKey, nKeyFlags ) ---> ::PostMsg( WM_KEYDOWN, nKey, nMakeLong( 0, 0 ) ) There is one moment - after entering the last field new record - when turning on new record - a last field does not show. >>
|
|
|
|
| модератор
|
Пост N: 263
Зарегистрирован: 25.05.05
|
|
Отправлено: 07.09.06 13:47. Заголовок: Re:
krutoff пишет: цитата: | I have done change TSBrowse for entering the number with fractional part. Hereon the first numeral when entering does not swallow. Сheck, Please. 3427: oCol:oEdit := TGetBox():New(...., NiL) // nKey -> NiL 3460: oCol:oEdit:KeyChar( nKey, nKeyFlags ) ---> ::PostMsg( WM_KEYDOWN, nKey, nMakeLong( 0, 0 ) ) There is one moment - after entering the last field new record - when turning on new record - a last field does not show. |
| Спасибо! Просто к сведению: Януш будет недоступен в сети до 12 сентября
|
|
|
|
| |
Пост N: 38
Зарегистрирован: 17.10.05
|
|
Отправлено: 08.09.06 09:20. Заголовок: Спасибо, Григорий.
|
|
|
|
| |
Пост N: 39
Зарегистрирован: 17.10.05
|
|
Отправлено: 08.09.06 13:01. Заголовок: Получилось!
"при нажатии ENTER на последнем поле новой записи и переходе на ввод след.новой записи - это поле предыдущей записи остается пустым. И если вводить таким образом много записей - появляется "пустой" последний столбец" Ура, получилось исправить! 3584: Вставить перед ::PostEdit( uValue, nCol, bValid ) -> ProcessMessages() Григорий, если прочтешь - попробуй, а то вдруг есть еще грабли. ( Да, если не трудно - черкни про ProcessMessages())
|
|
|
|
| модератор
|
Пост N: 264
Зарегистрирован: 25.05.05
|
|
Отправлено: 08.09.06 13:59. Заголовок: Re:
krutoff пишет: цитата: | черкни про ProcessMessages() |
| Эта функция представляет из себя цикл задержки, во время которого программа ожидает выполнения всех системных сообщений. Аналог этой функции в библиотеке FiveWin (и библиотеке TSBrowse также) - функция SysRefresh().
|
|
|
|
| |
Пост N: 40
Зарегистрирован: 17.10.05
|
|
Отправлено: 08.09.06 16:39. Заголовок: Спасибо, Григорий
Спасибо, Григорий, еще раз - закончил адаптацию огромного комплекса по зарплате под xHarbour + hmg20 -> даже в XP все работает, как часы!
|
|
|
|