Автор | Сообщение |
|
| |
Пост N: 113
Зарегистрирован: 17.10.05
|
|
Отправлено: 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"
|
|
|
Ответов - 4
[только новые]
|
|
|
| постоянный участник
|
Пост N: 1007
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.12.09 00:36. Заголовок: krutoff пишет: Може..
krutoff пишет: цитата: | Может кому-то пригодится. |
| Спасибо, пригодиться .... Подскажи пожалуйста, если разбираешься с TSBrowse... Я только начал с ним разбираться... Беру и добавляю в базу новую запись, как обычно на хХарборе: APPEND BLANK А в TSBrowse эта запись не отображается.... Я понял что нужно обновить TSBrowse, но у меня там фильтр стоит по базе и индекс тоже ... Как сделать ? И как сделать на удаление записи ?
|
|
|
|
| |
Пост N: 114
Зарегистрирован: 17.10.05
|
|
Отправлено: 29.12.09 19:01. Заголовок: В этом случае необхо..
В этом случае необходимо убирать фильтр и индекс - иначе фильтр новую запись не покажет, а по индексу курсор с новой записью перебросит согласно инд.ключу. Удаление как обычно - команда DELETE ( учитывая set delete) Я обычно удаленные записи показываю со значком - делаю 1-й служебный столбец с картинками Примерно так: oBrw:aColumns[ 1 ]:uBmpCell := {||If(RowSelected(oBrw),SelBmp,iif((oBrw:cAlias)->(DELETED()),DelBmp,NIL))}
|
|
|
|
| постоянный участник
|
Пост N: 1013
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.12.09 22:54. Заголовок: krutoff пишет: Я об..
krutoff пишет: цитата: | Я обычно удаленные записи показываю со значком |
| А можешь пример отдельный сделать ? Очень прошу ! Хочется посмотреть как пишутся такие вещи..... Заранее спасибо !
|
|
|
|
| |
Пост N: 115
Зарегистрирован: 17.10.05
|
|
Отправлено: 02.01.10 14:15. Заголовок: С Новым Годом! Андр..
С Новым Годом! Андрей, отдельный пример подготовить сложно, т.к. у меня одна процедура с TSBrowse используется во всех программах и много дополнительных ссылок на всякие функции расскрасок, выборок, проверок и т.д. Задавай вопрос, отвечу.
|
|
|
|