Отправлено: 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:....

 Отправлено: 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 
 

 Отправлено: 27.05.16 15:26. Заголовок: SergKis пишет: В пр..

SergKis пишет:

цитата:

В примере Tsb_seek2 уже было показано

Сергей, не обратил внимания. Пусть будет 2 варианта, хотя твой короче

 Отправлено: 27.05.16 15:30. Заголовок: Haz пишет:Пусть буде..

Haz пишет:

цитата:

Пусть будет 2 варианта, хотя твой короче

Дело не в этом, пример создавался специально для Vlad04 на его базе

 Отправлено: 27.05.16 16:41. Заголовок: Haz , SergKis :s..

Haz , SergKis



Спасибо, цель достигнута !!

 Отправлено: 27.05.16 17:16. Заголовок: Vlad04 пишет: цель ..

Vlad04 пишет:

цитата:

цель достигнута

а в чем она была ? что то я уже не пойму )

 Отправлено: 27.05.16 20:16. Заголовок: Из подчиненной формы..

Из подчиненной формы обновить бровс на Главной

 Отправлено: 27.05.16 20:18. Заголовок: Для выбранного метод..

Для выбранного метода определения Формы и бровсов

 Отправлено: 15.06.16 15:46. Заголовок: Как показать (редакт..

Как показать (редактировать) в Tsbrowse базу если кодировка в ней 866 а сырец проги в 1251 ?
Сейчас показывает крякозяблы.
В oBrw:aColumns[...]:bData:= я так понимаю ни чего не сделать....

 Отправлено: 15.06.16 15:55. Заголовок: Dima USE ( cTable )..

Dima
USE ( cTable ) ALIAS ( cAlias ) CODEPAGE "RU866" SHARED NEW

 Отправлено: 15.06.16 16:00. Заголовок: SergKis пишет: USE ..

SergKis пишет:

цитата:

USE ( cTable ) ALIAS ( cAlias ) CODEPAGE "RU866" SHARED NEW

Так и есть

 Отправлено: 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
...
и кракозябы ?

 Отправлено: 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" )

 Отправлено: 15.06.16 16:24. Заголовок: Dima пишет:HB_LANGSE..

Dima пишет:

цитата:

HB_LANGSELECT( "RU" )

i_lang.ch
#translate SET LANGUAGE TO RUSSIAN => _HMG_LANG_ID := ' ' ; REQUEST HB_LANG_RUWIN ; HB_LANGSELECT( "RUWIN" ) ; InitMessages()

 Отправлено: 15.06.16 16:25. Заголовок: SergKis Мой косяк ,..

SergKis
Мой косяк , не досмотрел.
База под ADS а у меня заявлено было AdsSetCharType(2 , .T.)
Второй параметр нужно указывать только для консольных приложений

 Отправлено: 16.06.16 14:36. Заголовок: Отредактировал запис..

Отредактировал запись , нажал ввод и курсор улетает на поле правее , как это запретить ?
В сырце что то ни чего не вижу...

 Отправлено: 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 
 ...

 Отправлено: 16.06.16 15:09. Заголовок: Dima пишет: как это..

Dima пишет:

цитата:

как это запретить ?

Попробуй указать

цитата:

oBrw_1:aColumns[ 1 ]:nEditMove := DT_DONT_MOVE

для редактируемого столбца

 Отправлено: 16.06.16 15:13. Заголовок: gfilatov2002 Точно ..

gfilatov2002
Точно , работает.
Видимо я смотрел не там ))
Спасибо.

 Отправлено: 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 тогда бровс должен получать
фокус ввода , но этого не происходит. Почему ?

 Отправлено: 17.06.16 09:48. Заголовок: Dima пишет: если ст..

Dima пишет:

цитата:

если строка поиска пустая и нажимается кнопка в BTNTEXTBOX тогда бровс должен получать фокус ввода , но этого не происходит. Почему ?

Решил добавлением в BTNTEXTBOX конструкции

 
 ON LOSTFOCUS {|| if ( empty(sirie.Text_1.Value),obrw:setfocus(),)  }