Автор | Сообщение |
|
| постоянный участник
|
Пост 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:....
|
|
|
Ответов - 148
, стр:
1
2
3
4
5
6
7
8
All
[только новые]
|
|
|
| |
Пост N: 4382
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.12.14 14:20. Заголовок: Andrey пишет: Так в..
Andrey пишет: цитата: | Так вот после отбора, НАЧИНАЕТСЯ СРАЗУ редактирование первой записи попавшей по условию |
| Очищай буфер после нажатия
|
|
|
|
| moderator
|
Пост N: 703
Зарегистрирован: 11.02.10
|
|
Отправлено: 29.12.14 15:04. Заголовок: Andrey пишет: Как э..
Andrey пишет: Попробуй перенести обработку нажатий клавиш для поиска из функции MyKeyAction() в обработчик bUserKeys Примерно это будет выглядеть так: STATIC FUNCTION MyKey_F9((nKey,nFlags) IF !Alltrim(cStSearchValue) == Form_Spr.Text_1.Value cStSearchValue := Form_Spr.Text_1.Value ENDIF DO CASE CASE nKey == VK_F9 MsgInfo("VK_F9 !") CASE nKey > 31 .AND. nKey < 254 // добавить символ в поиск cStSearchValue := cStSearchValue + KeyToChar(nKey) Form_Spr.Text_1.Value := cStSearchValue RefreshBrowse() Return .F. // <----------- важно вернуть здесь FALSE ENDCASE Return .T.
|
|
|
|
| постоянный участник
|
Пост N: 3876
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.12.14 16:48. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | Попробуй перенести обработку нажатий клавиш для поиска из функции MyKeyAction() в обработчик bUserKeys |
| А от MyKeyAction() тогда отказаться вообще ?
|
|
|
|
| постоянный участник
|
Пост N: 3877
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.12.14 07:39. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | Попробуй перенести обработку нажатий клавиш для поиска из функции MyKeyAction() в обработчик bUserKeys |
| Перенес. От MyKeyAction() отказался вообще, т.е. &cBrw:bKeyDown := { | nKey , nFalgs| MyKeyAction(nKey,nFalgs) } убрал. Перестали работать клавиши управления маркером - стрелки (вверх, вниз и т.д.) Как быть ?
|
|
|
|
| |
Пост N: 409
Зарегистрирован: 20.02.11
|
|
Отправлено: 31.12.14 12:27. Заголовок: Andrey пишет: Перес..
Andrey пишет: цитата: | Перестали работать клавиши управления маркером |
| сам их наверное и отключил вернув .F. из bUserkey Andrey пишет: смотреть как обрабатывается bUserKey в h_browse.prg строка 6197 If ::bUserKeys != Nil uReturn := Eval( ::bUserKeys, nKey, nFlags, Self ) If uReturn != Nil .and. ValType( uReturn ) == "N" .and. uReturn < 200 // interpreted as a virtual key code to nKey := uReturn //V90 // change the original key pressed ElseIf uReturn != Nil .and. ValType( uReturn ) == "L" .and. ! uReturn ::nUserKey := 255 // want to inhibit the KeyDown and KeyChar Methods for key pressed Return 0 EndIf EndIf
|
|
|
|
| постоянный участник
|
Пост N: 3879
Зарегистрирован: 12.09.06
|
|
Отправлено: 03.01.15 15:43. Заголовок: Haz пишет: сам их н..
Haz пишет: цитата: | сам их наверное и отключил вернув .F. из bUserkey |
| Да вроде не отключал. Модифицировал пример из \MiniGUI\SAMPLES\Advanced\Tsb_config т.е. поставил функцию обработки MyKeyEdit() и MyFieldEdit() и добавил фильтр по текстовому полю. Клавиши управления стрелок не работают. Помогите пожалуйста разобраться ? Пример Tsb_config-1.1.7z тут - https://cloud.mail.ru/public/5d315f972a72/MiniGui-Error
|
|
|
|
| |
Пост N: 410
Зарегистрирован: 20.02.11
|
|
Отправлено: 04.01.15 11:40. Заголовок: Andrey пишет: Да вр..
Andrey пишет: Ну-ну CASE nKey > 31 .AND. nKey < 254 cStaticSearch := cStaticSearch + KeyToChar(nKey) Form_0.Text_Seek.Value := cStaticSearch RefreshBrowse() xRet := .F. вот коды кнопок со стрелками #define VK_NEXT 34 #define VK_END 35 #define VK_HOME 36 #define VK_LEFT 37 #define VK_UP 38 #define VK_RIGHT 39 #define VK_DOWN 40 #define VK_SELECT 41 #define VK_EXECUTE 43 #define VK_SNAPSHOT 44 #define VK_INSERT 45 #define VK_DELETE 46 #define VK_HELP 47
|
|
|
|
| постоянный участник
|
Пост N: 3880
Зарегистрирован: 12.09.06
|
|
Отправлено: 04.01.15 19:42. Заголовок: Haz пишет: вот коды..
Haz пишет: цитата: | вот коды кнопок со стрелками |
| Спасибо БОЛЬШОЕ ! Я сделал как в терминалке. Ошибся. Как правильно сделать ? Достаточно ли сделать: CASE nKey > 47 .AND. nKey < 254 или еще что-то нужно сделать Так уже сделал - работает !
|
|
|
|
| постоянный участник
|
Пост N: 3892
Зарегистрирован: 12.09.06
|
|
Отправлено: 11.01.15 16:52. Заголовок: Всем привет. Как при..
Всем привет. Как при показе таблицы обойтись без дополнительных баз с SET RELATION. Есть массив aDim := {"---","город","село"} Создаю колонку: ADD COLUMN TO oBrw9 HEADER "Группа" + CRLF + "местности" ; DATA FieldWBlock( "KGROUP", Select() ) ; SIZE 150 ; ALIGN DT_CENTER,DT_CENTER,DT_RIGHT ; EDITABLE oBrw9:aColumns[6]:bPrevEdit := { || MyDimGroup(), FALSE } Как вместо кодов в базе выводить значения из массива ? Т.е. если в базе 0 - выводить aDim[1] := "---"? 1 - aDim[2] := "город" и т.д. Или ткните в пример, если он есть ?
|
|
|
|
| |
Пост N: 4399
Зарегистрирован: 17.05.05
|
|
Отправлено: 11.01.15 17:13. Заголовок: Andrey пишет: Как в..
Andrey пишет: цитата: | Как вместо кодов в базе выводить значения из массива ? |
| Этот вопрос ты уже задавал и тебе ответили , поройся в своей старой теме.
|
|
|
|
| постоянный участник
|
Пост N: 3893
Зарегистрирован: 12.09.06
|
|
Отправлено: 11.01.15 17:25. Заголовок: Dima пишет: Этот во..
Dima пишет: цитата: | Этот вопрос ты уже задавал и тебе ответили , поройся в своей старой теме. |
| Не помню, покажи пожалуйста. Я тогда не сделал, а сейчас нужно сделать.
|
|
|
|
|
| |
Пост N: 4400
Зарегистрирован: 17.05.05
|
|
Отправлено: 11.01.15 17:52. Заголовок: Andrey Да мне тоже ..
Andrey Да мне тоже лень вместо тебя рыться в твоей старой теме см. MiniGUI\SAMPLES\Advanced\Tsb_array\
|
|
|
|
| |
Пост N: 412
Зарегистрирован: 20.02.11
|
|
Отправлено: 11.01.15 18:56. Заголовок: Andrey пишет: Как в..
Andrey пишет: цитата: | Как вместо кодов в базе выводить значения из массива ? Т.е. если в базе 0 - выводить aDim[1] := "---"? 1 - aDim[2] := "город" и т.д. Или ткните в пример, если он есть ? |
| См. в примерах TsBrowse как использовать :bData или :SetData :bData - определяет кодовый блок выборки/записи в колонке TsBrowse :SetData - чуть сложнее и работает с двумя массивами aData и aValue , работает так - если значение в колонке будет найдено в aData то в ячейке отобразится соответствующее из aValue ( тут же в примерах использование ComboWBlock в :SetData - редактирование кода через выбор его соответствия из комбика )
|
|
|
|
| постоянный участник
|
Пост N: 3894
Зарегистрирован: 12.09.06
|
|
Отправлено: 11.01.15 19:57. Заголовок: Haz Спасибо БОЛЬШОЕ ..
Haz Спасибо БОЛЬШОЕ ! Буду рыться... Dima Где ты взял такого классного пирата ?
|
|
|
|
| |
Пост N: 4401
Зарегистрирован: 17.05.05
|
|
Отправлено: 11.01.15 22:31. Заголовок: Andrey пишет: Dima ..
Andrey пишет: цитата: | Dima Где ты взял такого классного пирата ? |
| В форме ответа слева есть смайлы а под ними цифирки Не пробовал на них нажимать ?
|
|
|
|
| постоянный участник
|
Пост N: 3895
Зарегистрирован: 12.09.06
|
|
Отправлено: 12.01.15 00:00. Заголовок: Dima пишет: В форме..
Dima пишет: цитата: | В форме ответа слева есть смайлы а под ними цифирки Не пробовал на них нажимать ? |
| Я пирата раньше не видел ....
|
|
|
|
| постоянный участник
|
Пост N: 3906
Зарегистрирован: 12.09.06
|
|
Отправлено: 19.01.15 00:15. Заголовок: Всем доброй ночи......
Всем доброй ночи.... Вот что-то не идет у меня контекстное меню для TBROWSE... Объявил окно DEFINE WINDOW Form_5 ; .......................... ОN INIT MyTbr2() END WINDOW /////// Function MyTbr2() ............... DEFINE TBROWSE oBrw_1 ; ................. END TBROWSE DEFINE CONTEXT MENU CONTROL oBrw_1 MENUITEM "Включить показ удаленных записей" ... ............................ END MENU // строка 794 Выдает ошибку: Error BASE/1132 Переполнение массива: Неверное количество аргументов Called from _ENDMENU(517) Called from SPRCREATEBROWSE(794) Подскажите пожалуйста, что не так делаю ?
|
|
|
|
| |
Пост N: 413
Зарегистрирован: 20.02.11
|
|
Отправлено: 19.01.15 10:07. Заголовок: Andrey пишет: что н..
Andrey пишет: DEFINE CONTEXT MENU CONTROL oBrw_1 OF Form_5
|
|
|
|
| постоянный участник
|
Пост N: 3907
Зарегистрирован: 12.09.06
|
|
Отправлено: 19.01.15 14:57. Заголовок: Haz пишет: OF Form_..
Haz пишет: Спасибо ! Заработало !
|
|
|
|
| постоянный участник
|
Пост N: 3919
Зарегистрирован: 12.09.06
|
|
Отправлено: 26.01.15 01:06. Заголовок: Поймал глюк... Очере..
Поймал глюк... Очередной... Если в моём справочнике несколько записей то в TBROWSE если раз 10 - колёсиком мышки покрутить, то база отсоединяется от TBROWSE ... пропадает соединение и всё.... После этого на экране можно листать базу вверх-вниз, но если попробовать редактировать, то вылет по ошибке: Error DBCMD/2001 Файл не открыт: Вот так выглядит это на экране: Как с этим бороться ?
|
|
|
Ответов - 148
, стр:
1
2
3
4
5
6
7
8
All
[только новые]
|
|