Форум » GUI » TsBrowse в Минигуи (продолжение) » Ответить
TsBrowse в Минигуи (продолжение)
Vlad04: TsBrows определяется в виде строки ПАРМЕТРОВ объекта и их значений К примеру [quote] 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 [/quote] Здесь я собрал параметры из разных tBrows Можно или нет и какие парметры заменить выражением ( и каким) ? oBrw2:.... oBrw2:....
SergKis: Vlad04 В примере Tsb_seek2 уже было показано [pre2] *----------------------------------- 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 [/pre2]
Haz: SergKis пишет: В примере Tsb_seek2 уже было показано Сергей, не обратил внимания. Пусть будет 2 варианта, хотя твой короче
SergKis: Haz пишет:Пусть будет 2 варианта, хотя твой короче Дело не в этом, пример создавался специально для Vlad04 на его базе
Vlad04: Haz , SergKis Спасибо, цель достигнута !!
Haz: Vlad04 пишет: цель достигнута а в чем она была ? что то я уже не пойму )
Vlad04: Из подчиненной формы обновить бровс на Главной
Vlad04: Для выбранного метода определения Формы и бровсов
Dima: Как показать (редактировать) в Tsbrowse базу если кодировка в ней 866 а сырец проги в 1251 ? Сейчас показывает крякозяблы. В oBrw:aColumns[...]:bData:= я так понимаю ни чего не сделать....
SergKis: Dima USE ( cTable ) ALIAS ( cAlias ) CODEPAGE "RU866" SHARED NEW
Dima: SergKis пишет: USE ( cTable ) ALIAS ( cAlias ) CODEPAGE "RU866" SHARED NEW Так и есть
SergKis: 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: 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: Dima пишет:HB_LANGSELECT( "RU" ) i_lang.ch #translate SET LANGUAGE TO RUSSIAN => _HMG_LANG_ID := ' ' ; REQUEST HB_LANG_RUWIN ; HB_LANGSELECT( "RUWIN" ) ; InitMessages()
Dima: SergKis Мой косяк , не досмотрел. База под ADS а у меня заявлено было AdsSetCharType(2 , .T.) Второй параметр нужно указывать только для консольных приложений
Dima: Отредактировал запись , нажал ввод и курсор улетает на поле правее , как это запретить ? В сырце что то ни чего не вижу...
SergKis: Dima пишет: курсор улетает на поле правее , как это запретить ? oCol:nEditMove := DT_MOVE_RIGHT // по умолчанию стоит Tbrowse.ch ...[pre2] // 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 ...[/pre2]
gfilatov2002: Dima пишет: как это запретить ? Попробуй указать oBrw_1:aColumns[ 1 ]:nEditMove := DT_DONT_MOVE для редактируемого столбца
Dima: gfilatov2002 Точно , работает. Видимо я смотрел не там )) Спасибо.
Dima: В окне живет бровс и BTNTEXTBOX. [pre2] @ 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 [/pre2] Процедура поиска по бровсу [pre2] 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. [/pre2] если строка поиска пустая и нажимается кнопка в BTNTEXTBOX тогда бровс должен получать фокус ввода , но этого не происходит. Почему ?
Dima: Dima пишет: если строка поиска пустая и нажимается кнопка в BTNTEXTBOX тогда бровс должен получать фокус ввода , но этого не происходит. Почему ? Решил добавлением в BTNTEXTBOX конструкции [pre2] ON LOSTFOCUS {|| if ( empty(sirie.Text_1.Value),obrw:setfocus(),) } [/pre2]
полная версия страницы