Отправлено: 05.09.06 13:54. Заголовок: Ввод float в TSBrowse

Теперь при вводе дробных цифр "глотает" первую цифру.

И еще - при нажатии ENTER на последнем поле новой записи
и переходе на ввод след.новой записи - это поле предыдущей
записи остается пустым. И если вводить таким образом много
записей - появляется "пустой" последний столбец.

Может кто это тоже заметил?

 Отправлено: 05.09.06 15:25. Заголовок: Ввод в TSBrowse ...

krutoff пишет:

цитата:

Может кто это тоже заметил?

Заметил !!! Я писал об этом 30.08.06 в 19:36 ...
Надеюсь на положительное решение вопроса ?!

 Отправлено: 06.09.06 11:04. Заголовок: Надеюсь

С глотанием 1-й цифры я разобрался (по крайней мере, надеюсь)
и послал Янушу исходный код изменения.
А с пустым столбцом пока у меня ничего не выходит.

 Отправлено: 06.09.06 11:44. Заголовок: Re:

krutoff пишет:

цитата:

послал Янушу исходный код изменения

Олег!
Если возможно, пришли эти изменения (и демо-пример) мне тоже

P.S. Януш сейчас занят ремонтом квартиры у своей дочери...

 Отправлено: 06.09.06 15:42. Заголовок: Ok

Ok, Сейчас закончу установку XP для кумы и пришлю.
С демо сложнее (в своей программе я наворотил подключение
словаря и дополнительных переменных класса )
просто если поле числовое - то сразу видно .

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

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

 Отправлено: 08.09.06 09:20. Заголовок: Спасибо, Григорий.

 Отправлено: 08.09.06 13:01. Заголовок: Получилось!

"при нажатии ENTER на последнем поле новой записи
и переходе на ввод след.новой записи - это поле предыдущей
записи остается пустым. И если вводить таким образом много
записей - появляется "пустой" последний столбец"

Ура, получилось исправить!

3584: Вставить перед ::PostEdit( uValue, nCol, bValid ) -> ProcessMessages()

Григорий, если прочтешь - попробуй, а то вдруг есть еще грабли.
( Да, если не трудно - черкни про ProcessMessages())

 Отправлено: 08.09.06 13:59. Заголовок: Re:

krutoff пишет:

цитата:

черкни про ProcessMessages()

Эта функция представляет из себя цикл задержки, во время которого программа ожидает выполнения всех системных сообщений.
Аналог этой функции в библиотеке FiveWin (и библиотеке TSBrowse также) - функция SysRefresh().

 Отправлено: 08.09.06 16:39. Заголовок: Спасибо, Григорий

Спасибо, Григорий, еще раз - закончил адаптацию
огромного комплекса по зарплате под xHarbour + hmg20
-> даже в XP все работает, как часы!