Автор | Сообщение |
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
[только новые]
|
|
SergKis
|
| постоянный участник
|
Пост N: 990
Зарегистрирован: 17.02.12
|
|
Отправлено: 27.05.16 15:23. Заголовок: Vlad04 В примере Ts..
Vlad04 В примере Tsb_seek2 уже было показано *----------------------------------- Static Function oMyBase( cForm ) // Get Tbrowse object *----------------------------------- Return TBrw_Obj("MyBase", cForm) ... *----------------------------------- Function TBrw_Obj( cTbrw, cForm ) *----------------------------------- Local oBrw, i Default cForm := _HMG_ThisFormName If ( i := GetControlIndex(cTBrw, cForm) ) > 0 oBrw:= _HMG_aControlIds [ i ] EndIf Return oBrw
|
|
|
Haz
|
| |
Пост N: 989
Зарегистрирован: 20.02.11
|
|
Отправлено: 27.05.16 15:26. Заголовок: SergKis пишет: В пр..
SergKis пишет: цитата: | В примере Tsb_seek2 уже было показано |
| Сергей, не обратил внимания. Пусть будет 2 варианта, хотя твой короче
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 991
Зарегистрирован: 17.02.12
|
|
Отправлено: 27.05.16 15:30. Заголовок: Haz пишет:Пусть буде..
Haz пишет: цитата: | Пусть будет 2 варианта, хотя твой короче |
| Дело не в этом, пример создавался специально для Vlad04 на его базе
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 578
Зарегистрирован: 13.10.05
|
|
Отправлено: 27.05.16 16:41. Заголовок: Haz , SergKis :s..
Haz , SergKis Спасибо, цель достигнута !!
|
|
|
Haz
|
| |
Пост N: 990
Зарегистрирован: 20.02.11
|
|
Отправлено: 27.05.16 17:16. Заголовок: Vlad04 пишет: цель ..
Vlad04 пишет: а в чем она была ? что то я уже не пойму )
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 579
Зарегистрирован: 13.10.05
|
|
Отправлено: 27.05.16 20:16. Заголовок: Из подчиненной формы..
Из подчиненной формы обновить бровс на Главной
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 580
Зарегистрирован: 13.10.05
|
|
Отправлено: 27.05.16 20:18. Заголовок: Для выбранного метод..
Для выбранного метода определения Формы и бровсов
|
|
|
Dima
|
| |
Пост N: 5723
Зарегистрирован: 17.05.05
|
|
Отправлено: 15.06.16 15:46. Заголовок: Как показать (редакт..
Как показать (редактировать) в Tsbrowse базу если кодировка в ней 866 а сырец проги в 1251 ? Сейчас показывает крякозяблы. В oBrw:aColumns[...]:bData:= я так понимаю ни чего не сделать....
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 1000
Зарегистрирован: 17.02.12
|
|
Отправлено: 15.06.16 15:55. Заголовок: Dima USE ( cTable )..
Dima USE ( cTable ) ALIAS ( cAlias ) CODEPAGE "RU866" SHARED NEW
|
|
|
Dima
|
| |
Пост N: 5724
Зарегистрирован: 17.05.05
|
|
Отправлено: 15.06.16 16:00. Заголовок: SergKis пишет: USE ..
SergKis пишет: цитата: | USE ( cTable ) ALIAS ( cAlias ) CODEPAGE "RU866" SHARED NEW |
| Так и есть
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 1001
Зарегистрирован: 17.02.12
|
|
Отправлено: 15.06.16 16:10. Заголовок: Dima пишет:Так и ест..
Dima пишет: т.е. REQUEST HB_CODEPAGE_RU1251, HB_CODEPAGE_RU866 ... SET LANGUAGE TO RUSSIAN SET CODEPAGE TO RUSSIAN ... USE ( cTable ) ALIAS ( cAlias ) CODEPAGE "RU866" SHARED NEW ... и кракозябы ?
|
|
|
|
Dima
|
| |
Пост N: 5725
Зарегистрирован: 17.05.05
|
|
Отправлено: 15.06.16 16:16. Заголовок: SergKis да у меня в..
SergKis да у меня вот так REQUEST HB_CODEPAGE_RU1251, HB_CODEPAGE_RU866, HB_LANG_RUWIN REQUEST HB_LANG_RUWIN REQUEST HB_LANG_RU866 SET CODEPAGE TO RUSSIAN HB_LANGSELECT( "RU" )
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 1002
Зарегистрирован: 17.02.12
|
|
Отправлено: 15.06.16 16:24. Заголовок: Dima пишет:HB_LANGSE..
Dima пишет: i_lang.ch #translate SET LANGUAGE TO RUSSIAN => _HMG_LANG_ID := ' ' ; REQUEST HB_LANG_RUWIN ; HB_LANGSELECT( "RUWIN" ) ; InitMessages()
|
|
|
Dima
|
| |
Пост N: 5726
Зарегистрирован: 17.05.05
|
|
Отправлено: 15.06.16 16:25. Заголовок: SergKis Мой косяк ,..
SergKis Мой косяк , не досмотрел. База под ADS а у меня заявлено было AdsSetCharType(2 , .T.) Второй параметр нужно указывать только для консольных приложений
|
|
|
Dima
|
| |
Пост N: 5728
Зарегистрирован: 17.05.05
|
|
Отправлено: 16.06.16 14:36. Заголовок: Отредактировал запис..
Отредактировал запись , нажал ввод и курсор улетает на поле правее , как это запретить ? В сырце что то ни чего не вижу...
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 1004
Зарегистрирован: 17.02.12
|
|
Отправлено: 16.06.16 15:08. Заголовок: Dima пишет: курсор у..
Dima пишет: цитата: | курсор улетает на поле правее , как это запретить ? |
| oCol:nEditMove := DT_MOVE_RIGHT // по умолчанию стоит Tbrowse.ch ... // Cursor movement after editing #define DT_DONT_MOVE 0 #define DT_MOVE_RIGHT 1 #define DT_MOVE_DOWN 2 #define DT_MOVE_LEFT 3 #define DT_MOVE_UP 4 #define DT_MOVE_NEXT 5 ...
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 955
Зарегистрирован: 11.02.10
|
|
Отправлено: 16.06.16 15:09. Заголовок: Dima пишет: как это..
Dima пишет: Попробуй указать цитата: | oBrw_1:aColumns[ 1 ]:nEditMove := DT_DONT_MOVE |
|
для редактируемого столбца
|
|
|
Dima
|
| |
Пост N: 5729
Зарегистрирован: 17.05.05
|
|
Отправлено: 16.06.16 15:13. Заголовок: gfilatov2002 Точно ..
gfilatov2002 Точно , работает. Видимо я смотрел не там )) Спасибо.
|
|
|
Dima
|
| |
Пост N: 5731
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.06.16 09:07. Заголовок: В окне живет бровс и..
В окне живет бровс и BTNTEXTBOX. @ 10, obrw:aColumns[1]:nwidth+1 BTNTEXTBOX Text_1 WIDTH obrw:aColumns[2]:nwidth ; HEIGHT 20 VALUE sea FONT "Lucida Console" SIZE 10 ; ACTION {|| Nsea( sirie.Text_1.Value,obrw,"naim" )} ; PICTURE "find" BUTTONWIDTH 20 Процедура поиска по бровсу Func Nsea(cstr,o,fldnm) local nrec:=(o:cAlias)->(recno()) cstr:=alltrim(upper(cstr)) if empty(cstr) o:setfocus() return .t. endif (o:cAlias)->(dbskip()) __Dblocate({|| cstr $ upper((o:cAlias)->&(fldnm)) }, , , ,.t.) if (o:cAlias)->(found()) nrec:=(o:cAlias)->(recno()) endif o:GoToRec( nRec ) return .t. если строка поиска пустая и нажимается кнопка в BTNTEXTBOX тогда бровс должен получать фокус ввода , но этого не происходит. Почему ?
|
|
|
Dima
|
| |
Пост N: 5732
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.06.16 09:48. Заголовок: Dima пишет: если ст..
Dima пишет: цитата: | если строка поиска пустая и нажимается кнопка в BTNTEXTBOX тогда бровс должен получать фокус ввода , но этого не происходит. Почему ? |
| Решил добавлением в BTNTEXTBOX конструкции ON LOSTFOCUS {|| if ( empty(sirie.Text_1.Value),obrw:setfocus(),) }
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|