Отправлено: 27.12.09 21:01. Заголовок: Странности TSBrowse

Может кому-то пригодится.
Хочу поделиться странным поведением TSBrowse, начавшимся у меня, наверное с осени.
В режиме SetAppendMode(.T.), после ввода первого или другого (если перескакивать и не вводить до него)
программа почему-то осуществляла скачок GoTOP:

"... EVENTS(73)->TSBROWSE:HANDLEEVENT(6582)->TCONTROL:HANDLEEVENT(910)->TSBROWSE:GOTFOCUS(5444)->TSBROWSE:GOTOP(5535)->(b)Z_OMAS(167)->ONCHANGEBROWSE 465: OnChangeBrowse: sArea=_NU, sRec=1,sOrd=, indexKey= ..."

Сколько я не бился и не отлаживал - ничего не получалось.
Там (в h_tbrowse.prg) указан блок:
If ::lPainted
::GoTop()
...

Удалось победить такую ситуацию изменив мистический параметр:
oBrw:lNoResetPos := .T. // Было .F. "this is very important when working with the same database"

 Отправлено: 28.12.09 00:36. Заголовок: krutoff пишет: Може..

krutoff пишет:

цитата:

Может кому-то пригодится.

Спасибо, пригодиться ....

Подскажи пожалуйста, если разбираешься с TSBrowse...
Я только начал с ним разбираться...
Беру и добавляю в базу новую запись, как обычно на хХарборе: APPEND BLANK
А в TSBrowse эта запись не отображается.... Я понял что нужно обновить TSBrowse, но у меня там фильтр стоит по базе и индекс тоже ...
Как сделать ?
И как сделать на удаление записи ?

 Отправлено: 29.12.09 19:01. Заголовок: В этом случае необхо..

В этом случае необходимо убирать фильтр и индекс - иначе фильтр новую запись не покажет,
а по индексу курсор с новой записью перебросит согласно инд.ключу.
Удаление как обычно - команда DELETE ( учитывая set delete)
Я обычно удаленные записи показываю со значком - делаю 1-й служебный столбец с картинками
Примерно так:
oBrw:aColumns[ 1 ]:uBmpCell := {||If(RowSelected(oBrw),SelBmp,iif((oBrw:cAlias)->(DELETED()),DelBmp,NIL))}

 Отправлено: 29.12.09 22:54. Заголовок: krutoff пишет: Я об..

krutoff пишет:

цитата:

Я обычно удаленные записи показываю со значком

А можешь пример отдельный сделать ?
Очень прошу ! Хочется посмотреть как пишутся такие вещи.....
Заранее спасибо !

 Отправлено: 02.01.10 14:15. Заголовок: С Новым Годом! Андр..

С Новым Годом! Андрей, отдельный пример подготовить сложно, т.к. у меня одна процедура
с TSBrowse используется во всех программах и много дополнительных ссылок на всякие функции расскрасок,
выборок, проверок и т.д. Задавай вопрос, отвечу.