Отправлено: 19.12.13 18:16. Заголовок: TsBrowse в Минигуи (продолжение)

TsBrows определяется в виде строки ПАРМЕТРОВ объекта и их значений
К примеру

цитата:

DEFINE TBROWSE oBrw2 ; AT 60,450 ; ALIAS cAlias ; OF Form1 ; WIDTH 330 ; HEIGHT 340 ; FONT "Verdana" ; SIZE 9 ; ON DBLCLICK CopyRec(); ON GOTFOCUS fModelo_Hab(2) ; AUTOFILTER ; CELLED EDIT; VALUE nRec; GRID

Здесь я собрал параметры из разных tBrows
Можно или нет и какие парметры заменить
выражением ( и каким) ?
oBrw2:....
oBrw2:....

 Отправлено: 06.05.16 16:45. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как тогда первую колонку сделать ?

цитата:

выведи в поле не просто номер OrdKeyNo() , а Alias() + "/" + oBrwS:cAlias + "/" + NTOC((oBrwS:cAlias)->(OrdKeyNo())) + "/" + (oBrwS:cAlias)->(OrdKeyFocus())

{|| Alias() + "/" + oBrwS:cAlias + "/" + NTOC((oBrwS:cAlias)->(OrdKeyNo())) + "/" + (oBrwS:cAlias)->(OrdKeyFocus()) }
ну и посмотреть что меняется за последней записью

 Отправлено: 06.05.16 16:47. Заголовок: Haz пишет: (oBrwS:c..

Haz пишет:

цитата:

(oBrwS:cAlias)->(OrdKeyFocus())

Что за функция ? Не компилируется.

 Отправлено: 06.05.16 16:48. Заголовок: Andrey пишет: Что з..

Andrey пишет:

цитата:

Что за функция ?

http://www.ousob.com/ng/53guide/ng89ad4.php

 Отправлено: 06.05.16 16:50. Заголовок: опечатка OrdSetFocus..

опечатка OrdSetFocus()
можно заменить любой возвращающей активный TEG

 Отправлено: 06.05.16 16:50. Заголовок: Понял что надо OrdSe..

Понял что надо OrdSetFocus()

 Отправлено: 06.05.16 16:57. Заголовок: Сделал. Вот до нажат..

Сделал. Вот до нажатия вниз стрелкой за пределы бровса:


Вот после нажатия вниз. А потом стрелка вверх:


/////////////////////////////////////////////////////////////////////////////////
STATIC FUNCTION TblFocus()
DoMethod(oBrwS:cParentWnd, oBrwS:cControlName, "SetFocus")
RETURN NIL

 Отправлено: 06.05.16 17:06. Заголовок: Я понимаю, что в инд..

Я понимаю, что в индекс можно добавить условие FOR "!Deleted()" - и будет работать.
Но я тогда не смогу переключаться на удалённые записи.

 Отправлено: 06.05.16 17:09. Заголовок: Andrey пишет: Я пон..

Andrey пишет:

цитата:

Я понимаю, что в индекс можно добавить условие FOR "!Deleted()" - и будет работать. Но я тогда не смогу переключаться на удалённые записи.

Сможешь если будет два индекса и переключение между ними
А так - вторая картинка правильная где 25 ,26, 27
На первой что то не то с OrdKeyNo()

 Отправлено: 06.05.16 17:10. Заголовок: Andrey пишет: FOR &..

Andrey пишет:

цитата:

FOR "!Deleted()"

Без кавычек только.

 Отправлено: 06.05.16 17:18. Заголовок: Haz пишет: На перво..

Haz пишет:

цитата:

На первой что то не то с OrdKeyNo()

Может что-то в исходниках не то...

 Отправлено: 06.05.16 17:36. Заголовок: Столкнулся с другой ..

Столкнулся с другой непоняткой:
Стою на записи - допустим 5. Меняю поле входящее в индекс - допустим KDEL := 2
Заканчиваю редактирование, запись-5 улетает по индексу правильно, а я остаюсь на другой записи.

Если же делаю такую обработку:
oBrwS:aColumns[nJ]:bPrevEdit := {|| nRecBuff := (oBrwS:cAlias)->(RecNo()), ;
MyFieldEdit( oBrwS:aColumns[oBrwS:nCell]:Cargo ) }
oBrwS:aColumns[nI]:bPostEdit := {|| oBrwS:GoToRec(nRecBuff), oBrwS:GoLeft(), oBrwS:Refresh(.T.) }

то у меня создаётся полностью вторая таблица (я выше об этом писал и приводил картинку).

Как мне сейчас делать ?
Т.е. поле попадает в индексное выражение....

 Отправлено: 06.05.16 21:31. Заголовок: Andrey пишет: Как м..

Andrey пишет:

цитата:

Как мне сейчас делать ? Т.е. поле попадает в индексное выражение....

позже. ок ?

 Отправлено: 06.05.16 21:57. Заголовок: Andrey пишет: Как м..

Andrey пишет:

цитата:

Как мне сейчас делать ?

так отвечал вроде
oBrwS:aColumns[nJ]:bPrevEdit := {|| nRecBuff := (oBrwS:cAlias)->(RecNo()), ;
MyFieldEdit( oBrwS:aColumns[oBrwS:nCell]:Cargo ) }
oBrwS:aColumns[nI]:bPostEdit := {|| oBrwS:GoToRec(nRecBuff), oBrwS:GoLeft(), oBrwS:Refresh(.T.) }
oBrwS:aColumns[nI]:bEditEnd := {|| oBrwS:GoToRec((oBrwS:cAlias)->(RecNo())) }

ЗЫ для внешнего редактирования есть :bExtEdit и пример есть

 Отправлено: 07.05.16 12:07. Заголовок: Haz пишет: ЗЫ для в..

Haz пишет:

цитата:

ЗЫ для внешнего редактирования есть :bExtEdit и пример есть

А что за метод :bExtEdit ? Чуток описать можно ?

 Отправлено: 07.05.16 14:53. Заголовок: Andrey пишет: А что..

Andrey пишет:

цитата:

А что за метод :bExtEdit ? Чуток описать можно ?

вызывается для организации внешнего редактирования
Пример в C:\MiniGUI\SAMPLES\Advanced\TsBrowse\ через меню в Sample4 колонка Age редактируется внешне
остальное описание - только в исходниках там 5 строк к нему относится и так все понятно

 Отправлено: 07.05.16 15:58. Заголовок: Andrey пишет:Как мне..

Andrey пишет:

цитата:

Как мне сейчас делать ?

вот пример, похож на твой, вроде работает click here

 Отправлено: 07.05.16 20:10. Заголовок: Haz пишет: oBrwS:aC..

Haz пишет:

цитата:

oBrwS:aColumns[nI]:bEditEnd := {|| oBrwS:GoToRec((oBrwS:cAlias)->(RecNo())) }

Вот это помогло. Спасибо !

SergKis пишет:

цитата:

вот пример, похож на твой, вроде работает click here

Принял к сведению. Главное не забыть бы про него...

 Отправлено: 18.05.16 08:56. Заголовок: oBrwS:aColumns:bEdi..

цитата:

oBrwS:aColumns[nI]:bEditEnd := {|| oBrwS:GoToRec((oBrwS:cAlias)->(RecNo())) } Вот это помогло.

Если после редактирования значение индексированного поля возрастает, то происходит перемещение курсора но новую позицию вниз, а если уменьшается,
то курсор вверх но новую позицию не поднимается.

 Отправлено: 18.05.16 08:59. Заголовок: И можно в общем случ..

И можно в общем случае как-то избавиться от указания номера колонки ?

 Отправлено: 18.05.16 13:59. Заголовок: Vlad04 пишет: И мож..

Vlad04 пишет:

цитата:

И можно в общем случае как-то избавиться от указания номера колонки ?

Присоединяюсь обеими руками !!!

Зачем для простой таблицы приходиться указывать обработку при смене значений индекса ?
Сам Tsbоrwse не может это отследить и остаться на той записи, которую редактировали ?