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

 Отправлено: 03.09.16 15:41. Заголовок: Dima пишет: Уверен ..

Dima пишет:

цитата:

Уверен что cDataType возвращается тот что надо ?

Даже не задумывался...
Блин опять исходники Tsbrowse не то возвращают...
Или не они виноваты ?

Точно, проверил не работает, вернее возвращает U oBrw1:aColumns[nJ]:cDataType -> "U"

 Отправлено: 03.09.16 16:15. Заголовок: Из сырца ::cDataType..

Из сырца ::cDataType = ValType( Eval( ::bData ) ) , может наведет на какие мысли

 Отправлено: 03.09.16 16:26. Заголовок: Да какие тут мысли....

Да какие тут мысли... Править надо исходник бровса и всё тут !

 Отправлено: 03.09.16 16:43. Заголовок: Andrey пишет: Да к..

Andrey пишет:

цитата:

Да какие тут мысли... Править надо исходник бровса и всё тут !

Ну вообще то нет
Считывать и проверять нужно не тип а ФЛАГ (тип поля).
Примерно так
? dbFieldInfo( DBS_TYPE, FieldPos( "t" ) )
? dbFieldInfo( DBS_TYPE, FieldPos( "t2" ) )

ЗЫ
По ходу Петр разжевал для тебя этот вопрос в теме , Новые типы переменных , но ты снова фСё забыл

 Отправлено: 03.09.16 16:51. Заголовок: Dima пишет Уверен чт..

Dima пишет

цитата:

Уверен что cDataType возвращается тот что надо ?

Вот формирование cDataType
::cDataType = ValType( Eval( ::bData ) )
Привязываться надо к именам колонок
aEval( oBrw:aColumns, {|oCol| oCol:lEdit := ! ','+oCol:cName+ ',' $ ",ID,DTM,DTM2," } )

 Отправлено: 03.09.16 17:10. Заголовок: SergKis пишет: Прив..

SergKis пишет:

цитата:

Привязываться надо к именам колонок aEval( oBrw:aColumns, {|oCol| oCol:lEdit := ! ','+oCol:cName+ ',' $ ",ID,DTM,DTM2," } )

Не согласен. Берём чужую базу и тупо её открываем. Я откуда знаю какие имена колонок типа: "+", "=", "^", "@" ?

 Отправлено: 03.09.16 17:13. Заголовок: Andrey пишет Не согл..

Andrey пишет

цитата:

Не согласен.

повторяю

цитата:

Выход - взять метод METHOD LoadFields( lEditable ) CLASS TSBrowse преобразовать в функцию, подправить под свое понимание ситуации и предложть в использование, если будет хорошо, можно поправить старый или сделать новый метод LoadField2(...) в TsBrowse

 Отправлено: 03.09.16 17:17. Заголовок: PS У себя так и сдел..

PS
У себя так и сделал, по аналогии с ::SetArrayTo(...), написал ::SetFieldTo(...)

 Отправлено: 03.09.16 17:33. Заголовок: Andrey пишет Берём ..

Andrey пишет

цитата:

Берём чужую базу и тупо её открываем. Я откуда знаю какие имена колонок типа: "+", "=", "^","@

Для этого надо исп. утилиту DbEdit
TsBrowse предполагает программируемую работу над таблицей. А следить за всеми новыми полями и как их обрабатывать, не уверен что надо, к примеру поле @ - TimeStamp корректировать можно, его, вроде самому заполнять надо (често подзабыл уже)

 Отправлено: 03.09.16 18:25. Заголовок: SergKis пишет: @ - ..

SergKis пишет:

цитата:

@ - TimeStamp корректировать можно, его, вроде самому заполнять надо (често подзабыл уже)

Да, это поле нормально редактируется. Из-за этого и не включил его в запрет редактирования.

SergKis пишет:

цитата:

Выход - взять метод METHOD LoadFields( lEditable ) CLASS TSBrowse преобразовать в функцию, подправить под свое понимание ситуации и предложть в использование, если будет хорошо, можно поправить старый или сделать новый метод LoadField2(...) в TsBrowse

Ну не согласен с этим.
Есть нормальная функция, которая сделана для Харбора !!! Это же типы уже есть в Харборе.
Чуток отредактировать и будет служить 100 лет ещё...

 Отправлено: 03.09.16 19:07. Заголовок: Andrey если по всей..

Andrey
если по всей базе то вполне сработает такой код
дарю

 
 #include "dbstruct.ch" 
 ..... 
 Local Hfldtype:=hb_hash("=",nil,"+",nil,"^",nil) 
  
  
  
   for i := 1 To oBrw:nColCount() 
              if hb_hhaskey(Hfldtype,dbFieldInfo( DBS_TYPE, i )) 
         oBrw:aColumns[ i ]:lEdit := FALSE 
              endif  
   next                                               
  
 

Или можно в AEVAL все сделать

PS
Не проверял :)


Andrey пишет:

цитата:

// запрет редактирования полей типа: "+", "=", "^" aEval( oBrw1:aColumns, {|oCol| If( oCol:cDataType == "+", oCol:lEdit := .F., NIL) } ) aEval( oBrw1:aColumns, {|oCol| If( oCol:cDataType == "=", oCol:lEdit := .F., NIL) } ) aEval( oBrw1:aColumns, {|oCol| If( oCol:cDataType == "^", oCol:lEdit := .F., NIL) } )

Это по ходу бредосный подход :) Все надо делать за один подход в одном AEVAL , потому как
следующий AEVAL похерит результат предыдущего

 Отправлено: 03.09.16 20:22. Заголовок: Dima пишет: дарю ..

Dima пишет:

цитата:

дарю

Спасибо !
Хотел без цикла обойтись, но наверное лучше с ним.

 Отправлено: 03.09.16 20:47. Заголовок: Andrey пишет Ну не с..

Andrey пишет

цитата:

Ну не согласен с этим.

Взял бы текст h_tbrowse.prg и просканировал на cDataType, думаю многие вопросы отпали.
В основе лежит bData отображения, как задал, так и будет работать.
Если надо тебе спец. обработки, надо писать и спец. блок, т.е. TimeStamp превращать как надо для конкретного отображения, то же и по lEdit, ну или перелопатить весь TsBrowse.

 Отправлено: 03.09.16 20:51. Заголовок: Andrey пишет: TsBro..

SergKis пишет:

цитата:

TsBrowse предполагает программируемую работу над таблицей. А следить за всеми новыми полями и как их обрабатывать,

я за, проще самому определить как ТСБровс будет работать с базой в каждом конкретном, чем каждый раз переопределять то что почему то сделано стандартом.

 Отправлено: 03.09.16 20:53. Заголовок: PS Метод SetFields (..

PS
Метод SetFields (совместро с заданым\нет списком указанных полей) служит для первоначального заполнения\формирования колонок (вместо исп. ADD COLUMN ...), а дальше все ручками, меняешь bData, lEdit, Size, Color, ....

 Отправлено: 03.09.16 21:06. Заголовок: SergKis пишет: а да..

SergKis пишет:

цитата:

а дальше все ручками, меняешь bData, lEdit, Size, Color, ....

Нет в мире совершенства ...
Понял ! Спасибо !

 Отправлено: 03.09.16 21:52. Заголовок: Andrey пишет Нет в м..

Andrey пишет

цитата:

Нет в мире совершенства ...

Правильнее "Лучшее - враг хорошего"

 Отправлено: 12.09.16 16:38. Заголовок: Что то я снова в вид..

Что то я снова в виду того что долго не юзал Tsbrowse , торможу.
Есть бровс и в нем стоит фильтр по полю WB , строка фильтра WB==1.
На одной из записей меняю значение WB. Эта запись из фильтра должна уйти.
Что нужно корректно сказать бровсу что бы правильно его обновить ?
Было показано скажем 5 записей и после того как я сменил на одной из них значение WB ,
осталось 4 записи.
Reset() юзать не хочется.

 Отправлено: 12.09.16 20:44. Заголовок: Dima пишет: reset н..

Dima пишет:

цитата:

reset не хочется

Дима, пишу с мобилки и поэтому коротко и по пямяти ).
Глянь код в методе ::Delete (). Последовательность должна быть такой же как после dbDelete ()
в этом методе.

 Отправлено: 12.09.16 21:25. Заголовок: Haz пишет: Глянь ко..

Haz пишет:

цитата:

Глянь код в методе ::Delete ()

Ты в смысле про DeleteRow() ?
Покопаю завтра , спасибо.