Автор | Сообщение |
Vlad04
|
| постоянный участник
|
Пост N: 420
Зарегистрирован: 13.10.05
|
|
Отправлено: 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:....
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
Haz
|
| |
Пост N: 949
Зарегистрирован: 20.02.11
|
|
Отправлено: 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()) } ну и посмотреть что меняется за последней записью
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4910
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.05.16 16:47. Заголовок: Haz пишет: (oBrwS:c..
Haz пишет: цитата: | (oBrwS:cAlias)->(OrdKeyFocus()) |
| Что за функция ? Не компилируется.
|
|
|
Haz
|
| |
Пост N: 950
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 16:48. Заголовок: Andrey пишет: Что з..
|
|
|
Haz
|
| |
Пост N: 951
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 16:50. Заголовок: опечатка OrdSetFocus..
опечатка OrdSetFocus() можно заменить любой возвращающей активный TEG
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4911
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.05.16 16:50. Заголовок: Понял что надо OrdSe..
Понял что надо OrdSetFocus()
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4912
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.05.16 16:57. Заголовок: Сделал. Вот до нажат..
Сделал. Вот до нажатия вниз стрелкой за пределы бровса: Вот после нажатия вниз. А потом стрелка вверх: / //////////////////////////////////////////////////////////////////////////////// STATIC FUNCTION TblFocus() DoMethod(oBrwS:cParentWnd, oBrwS:cControlName, "SetFocus") RETURN NIL
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4913
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.05.16 17:06. Заголовок: Я понимаю, что в инд..
Я понимаю, что в индекс можно добавить условие FOR "!Deleted()" - и будет работать. Но я тогда не смогу переключаться на удалённые записи.
|
|
|
Haz
|
| |
Пост N: 952
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 17:09. Заголовок: Andrey пишет: Я пон..
Andrey пишет: цитата: | Я понимаю, что в индекс можно добавить условие FOR "!Deleted()" - и будет работать. Но я тогда не смогу переключаться на удалённые записи. |
| Сможешь если будет два индекса и переключение между ними А так - вторая картинка правильная где 25 ,26, 27 На первой что то не то с OrdKeyNo()
|
|
|
Dima
|
| |
Пост N: 5649
Зарегистрирован: 17.05.05
|
|
Отправлено: 06.05.16 17:10. Заголовок: Andrey пишет: FOR &..
Andrey пишет: Без кавычек только.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4914
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.05.16 17:18. Заголовок: Haz пишет: На перво..
Haz пишет: цитата: | На первой что то не то с OrdKeyNo() |
| Может что-то в исходниках не то...
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4915
Зарегистрирован: 12.09.06
|
|
Отправлено: 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.) } то у меня создаётся полностью вторая таблица (я выше об этом писал и приводил картинку). Как мне сейчас делать ? Т.е. поле попадает в индексное выражение....
|
|
|
|
Haz
|
| |
Пост N: 953
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.05.16 21:31. Заголовок: Andrey пишет: Как м..
Andrey пишет: цитата: | Как мне сейчас делать ? Т.е. поле попадает в индексное выражение.... |
| позже. ок ?
|
|
|
Haz
|
| |
Пост N: 954
Зарегистрирован: 20.02.11
|
|
Отправлено: 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 и пример есть
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4916
Зарегистрирован: 12.09.06
|
|
Отправлено: 07.05.16 12:07. Заголовок: Haz пишет: ЗЫ для в..
Haz пишет: цитата: | ЗЫ для внешнего редактирования есть :bExtEdit и пример есть |
| А что за метод :bExtEdit ? Чуток описать можно ?
|
|
|
Haz
|
| |
Пост N: 955
Зарегистрирован: 20.02.11
|
|
Отправлено: 07.05.16 14:53. Заголовок: Andrey пишет: А что..
Andrey пишет: цитата: | А что за метод :bExtEdit ? Чуток описать можно ? |
| вызывается для организации внешнего редактирования Пример в C:\MiniGUI\SAMPLES\Advanced\TsBrowse\ через меню в Sample4 колонка Age редактируется внешне остальное описание - только в исходниках там 5 строк к нему относится и так все понятно
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 981
Зарегистрирован: 17.02.12
|
|
Отправлено: 07.05.16 15:58. Заголовок: Andrey пишет:Как мне..
Andrey пишет: вот пример, похож на твой, вроде работает click here
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4917
Зарегистрирован: 12.09.06
|
|
Отправлено: 07.05.16 20:10. Заголовок: Haz пишет: oBrwS:aC..
Haz пишет: цитата: | oBrwS:aColumns[nI]:bEditEnd := {|| oBrwS:GoToRec((oBrwS:cAlias)->(RecNo())) } |
| Вот это помогло. Спасибо ! SergKis пишет: цитата: | вот пример, похож на твой, вроде работает click here |
| Принял к сведению. Главное не забыть бы про него...
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 569
Зарегистрирован: 13.10.05
|
|
Отправлено: 18.05.16 08:56. Заголовок: oBrwS:aColumns:bEdi..
цитата: | oBrwS:aColumns[nI]:bEditEnd := {|| oBrwS:GoToRec((oBrwS:cAlias)->(RecNo())) } Вот это помогло. |
| Если после редактирования значение индексированного поля возрастает, то происходит перемещение курсора но новую позицию вниз, а если уменьшается, то курсор вверх но новую позицию не поднимается.
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 570
Зарегистрирован: 13.10.05
|
|
Отправлено: 18.05.16 08:59. Заголовок: И можно в общем случ..
И можно в общем случае как-то избавиться от указания номера колонки ?
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4938
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.05.16 13:59. Заголовок: Vlad04 пишет: И мож..
Vlad04 пишет: цитата: | И можно в общем случае как-то избавиться от указания номера колонки ? |
| Присоединяюсь обеими руками !!! Зачем для простой таблицы приходиться указывать обработку при смене значений индекса ? Сам Tsbоrwse не может это отследить и остаться на той записи, которую редактировали ?
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|