Форум » GUI » Странности TSBrowse » Ответить
Странности TSBrowse
krutoff: Может кому-то пригодится. Хочу поделиться странным поведением 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
Andrey: krutoff пишет: Может кому-то пригодится. Спасибо, пригодиться .... Подскажи пожалуйста, если разбираешься с TSBrowse... Я только начал с ним разбираться... Беру и добавляю в базу новую запись, как обычно на хХарборе: APPEND BLANK А в TSBrowse эта запись не отображается.... Я понял что нужно обновить TSBrowse, но у меня там фильтр стоит по базе и индекс тоже ... Как сделать ? И как сделать на удаление записи ?
krutoff: В этом случае необходимо убирать фильтр и индекс - иначе фильтр новую запись не покажет, а по индексу курсор с новой записью перебросит согласно инд.ключу. Удаление как обычно - команда DELETE ( учитывая set delete) Я обычно удаленные записи показываю со значком - делаю 1-й служебный столбец с картинками Примерно так: oBrw:aColumns[ 1 ]:uBmpCell := {||If(RowSelected(oBrw),SelBmp,iif((oBrw:cAlias)->(DELETED()),DelBmp,NIL))}
Andrey: krutoff пишет: Я обычно удаленные записи показываю со значком А можешь пример отдельный сделать ? Очень прошу ! Хочется посмотреть как пишутся такие вещи..... Заранее спасибо !
krutoff: С Новым Годом! Андрей, отдельный пример подготовить сложно, т.к. у меня одна процедура с TSBrowse используется во всех программах и много дополнительных ссылок на всякие функции расскрасок, выборок, проверок и т.д. Задавай вопрос, отвечу.
полная версия страницы