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

 Отправлено: 09.05.17 21:44. Заголовок: Andrey пишет: Разоб..

Andrey пишет:

цитата:

Разобрался сам... Оказывается если нет такого пути к файлу, то Ексель и не создаёт и не открывает его

Про это уже писалось и не раз !
Бывает :)

 Отправлено: 10.05.17 13:57. Заголовок: Haz Редактирование ..

Haz
Редактирование Ключевого поля в TsBrows. Я писал, что после выхода из редактирования курсор не поднимается на нужную строку
Игорь, как-то выкладывал пример редактирования ключевого поля, но в примере были особенности- вторая форма для редактирования,
программное построение Бровса и т.д.
Посмотрите пример построенный в основном в Дизайнере - click here,
может удастся заставить курсор подниматься ?
И еще , при входе в редактирование сетка пропадает.

 Отправлено: 10.05.17 14:08. Заголовок: Vlad04 пишет: И еще..

Vlad04 пишет:

цитата:

И еще , при входе в редактирование сетка пропадает.

Почитай начиная с поста 6376 этой темы

 Отправлено: 10.05.17 14:25. Заголовок: Dima Все темы читаю..

Dima
Все темы читаю. В примере кода практически нет, все должно работать по- умолчанию ( или почти всё)
без танцев с бубном.

 Отправлено: 10.05.17 16:11. Заголовок: Vlad04 пишет В прим..

Vlad04 пишет

цитата:

В примере кода практически нет, все должно работать по- умолчанию ( или почти всё) без танцев с бубном.

Танцы вы сами придумали себе кодом:
oBrw_1:aColumns[1]:bPrevEdit := { || oBrw_1:Upstable() , oBrw_1:Refresh(.T.) , oBrw_1:ResetVScroll() , .t. }
запустив перед edit кучу процедур по прорисовке тсб, при этом совершенно забыв про очередь сообщений, по которой и происходят действия прорисовки.

цитата:

Все темы читаю

но чуть чуть по диагонали. В примере Tsb_addrecord_3 ситуация с обработкой очереди для прорисовки показана была:

 
  STATIC FUNC Add_Rec( oBrw )  
 ... 
   If ! Empty(aResult)  
      dbSelectArea(cAls)  
      dbAppend()  
      If ! NetErr() .and. RLock()  
         nRec := RecNo()  
         REPL KODS with aResult[1], ;  
              NAME with aResult[2]  
         If oBrw:nLen == oBrw:nRowCount()  
            oBrw:oHScroll:SetRange(0,0)  
         EndIf  
         oBrw:GotoRec(nRec)  
         nCol := oBrw:nColumn("NAME")  
         If nCol != oBrw:nCell  
            oBrw:nCell := nCol  
            oBrw:DrawSelect()  
         EndIf  
         oBrw:lChanged := .T.  
         oBrw:PostEdit(aResult[2], nCol, Nil)  
         DO EVENTS  
         oBrw:PostMsg(WM_KEYDOWN, VK_F4, 0)  
      EndIf   
   EndIf  
 ... 
 

т.е. если убрать DO EVENTS много разного увидите

 Отправлено: 10.05.17 16:34. Заголовок: Dima пишет: может у..

Vlad04 пишет:

цитата:

может удастся заставить курсор подниматься ? И еще , при входе в редактирование сетка пропадает.

Нет ничего проще

1) в Form_0.fmg удалить это ON INIT Init_Form_0() и соответственно саму функцию в програмном модуле tsb.prg
2) в tsb.prg сделать так

LOAD WINDOW Form_0

oBrw_1:SetIndexCols( 1 )
oBrw_1:SetOrder( 1 )

Form_0.Center
Form_0.Activate

PS Сергей прав по поводу танцев, но уверен со временем все уляжется в голове и танцы будут не нужны

 Отправлено: 10.05.17 17:45. Заголовок: SergKis примере Tsb..

SergKis

цитата:

примере Tsb_addrecord_3

Конечно,смотрел и этот пример. Многое не понял. Для такого простого результата - на форме одна таблица с 4-мя кнопками, код
очень сложный. А если на форме несколько таблиц, а в программе десяток форм....

Haz

цитата:

oBrw_1:SetIndexCols( 1 ) oBrw_1:SetOrder( 1 )

просто и работает

 Отправлено: 10.05.17 17:57. Заголовок: Курсор поднимается ,..

Курсор поднимается , но на одно строку промахивается.
При движении вниз так же ошибка на одну строку.

 Отправлено: 10.05.17 18:08. Заголовок: Vlad04 пишет А если ..

Vlad04 пишет

цитата:

А если на форме несколько таблиц

Код в примере практически не изменится для всех таблиц, используемых на окне(ах). Изменятся параметры задания колонок, валидности и др. не стандартных действий. И в примере есть ввод, едит и удаление (все сводится к примерно tsb_array_2 для таблиц). В вашем нет (якобы кода) ничего,кроме едит, но будет куча fmg для справочников в чилд\модал окнах, привязанных к железным алиасам. Не уверен, что это проще.

цитата:

Многое не понял

Так лучше спросить, чем оставаться в не понятках.

цитата:

просто и работает

Так это работало со времен примера Tsb_addrecord_2

 
        oBrw:SetIndexCols( oBrw:nColumn("ID"),  ; 
                           oBrw:nColumn("INFO") ) 
        oBrw:SetOrder( oBrw:nColumn("ID") ) 
 

 Отправлено: 10.05.17 18:46. Заголовок: Vlad04 пишет но на о..

Vlad04 пишет

цитата:

но на одно строку промахивается.

После редактирования у колонки есть свойство, куда деть курсор после, по умолчанию переместиться дальше ...
Потому такой результат. Поставьте

 
    oBrw_1:aColumns[1]:nAlign      := DT_LEFT  
    oBrw_1:aColumns[ 1 ]:nEditMove := DT_DONT_MOVE 
     
    oBrw_1:SetIndexCols(1) 
    oBrw_1:SetOrder(1) 
    oBrw_1:SetFocus() 
  
    Form_0.Center 
    Form_0.Activate 
 

 Отправлено: 10.05.17 18:53. Заголовок: SergKis куча fmg дл..

SergKis

цитата:

куча fmg для справочников в чилд\модал окнах, привязанных к железным алиасам. Не уверен, что это проще.

Это и хорошо , что есть варианты.У меня есть одна универсальная форма для типовых справочников и отдельные формы для остальных случаев.

цитата:

Так это работало со времен примера Tsb_addrecord_2

Не понял сразу, в Делфи для Бровса( там это грид) несколько другая идеология - отображать данные, а не управлять ими.Да и консольный Харбор
ведет себя по-другому.

 Отправлено: 10.05.17 18:58. Заголовок: Уф!! Теперь все норм..

Уф!!
Теперь все нормально ! Спасибо всем !

 Отправлено: 10.05.17 19:07. Заголовок: Vlad04 пишет У меня ..

Vlad04 пишет

цитата:

У меня есть одна универсальная форма для типовых справочников и отдельные формы для остальных случаев.

т.е. из меню главного окна у вас нельзя вызвать несколько окон справочников одновременно, только по очереди, т.к. в fmg прописан конкретный алиас в одной унив. форме ?

 Отправлено: 10.05.17 19:55. Заголовок: SergKis пишет: т.е...

SergKis пишет:

цитата:

т.е. из меню главного окна у вас нельзя вызвать несколько окон справочников одновременно

А зачем юзеру редактировать/смотреть сразу несколько справочников ?
Я тоже сделал одно модальное окно для справочника и туда передаю параметры из ини-файла (алиасы, поля базы и т.д.) для различных справочников.
Иначе юзера начинают путаться с большим количеством справочников на экране.

 Отправлено: 10.05.17 20:42. Заголовок: Andrey пишет А зачем..

Andrey пишет

цитата:

А зачем юзеру редактировать/смотреть сразу несколько справочников ?

Загнать в рамки дос пользователя - это вариант.
А при работе с док. и спр. номенклатуры, разве не может возникнуть вопрос (по тел., от др. службы) по клиентскому спр., по автотранспорту (свой\чужой), по адресам погрузки\разгрузки, по ценнику клиента ...Что бросать (выходить) из того с чем работал или откладывать ответы на потом ...

цитата:

Иначе юзера начинают путаться с большим количеством справочников на экране

Так это твое дело организация, что бы не путался, не дублировался, не используемый убирался.
Ведь excel с sheetами не запрещают одновременно работать (типа можно но только последовательно). А ты выходит запрещаешь. Не демократично как то.

 Отправлено: 10.05.17 20:54. Заголовок: SergKis пишет: Не д..

SergKis пишет:

цитата:

Не демократично как то.

Не... с юзерами демократию разводить не надо ! Сказали бурундук птичка и никаких зверьков и все !

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

Интересно а как в 1С это реализовано или в других системах ?
Но это наверное уже для другой ветки обсуждения, а не здесь.

 Отправлено: 10.05.17 21:14. Заголовок: Andrey пишет: Интер..

Andrey пишет:

цитата:

Интересно а как в 1С это реализовано или в других системах ?

Демократично)

 Отправлено: 11.05.17 08:13. Заголовок: SergKis у главного ..

SergKis

цитата:

у главного окна у вас нельзя вызвать несколько окон справочников одновременно

Можно, форма универсальная для простых справочников, типа - код, наименование и т.д. В такой Форме алиасы , поля не прописаны и у меня считываются из файла
при открытии формы.Эта форма описана полностью в виде кода, т.е. без дизайнера ( в нем в этом случае точно нет смысла) .

 Отправлено: 14.05.17 22:05. Заголовок: Есть мой тестировочн..

Есть мой тестировочный проект. Раньше работал, сейчас нет. С какой версии перестал работать, даже не знаю.
Сейчас вешается ВЕСЬ проект вот с таким сообщением:


Вот сам проект - https://cloud.mail.ru/public/2SXc/UtNfso4gf

Виснет - там где выбор флагов производиться...
Один раз выбрать можно, на втором - программа НАГЛУХО ВИСНЕТ !!!
Там даже второй выбор не нужно производить.
Первый раз выбираем меню с флагами, потом мышкой кликаем на другой колонке (или стрелкой вверх/вниз) и тоже программа НАГЛУХО виснет !!

Методом отладки определил, что перестают работать вот эти функции ПОСЛЕ выбора из модуля Form_Lang.prg:

_SetMenuItemBitmap ( "MYTABLERECNOMARK" , cForm , "CheckF28" )	 
 _SetMenuItemBitmap ( "MYTABLERECNOPRINT", cForm , "CheckF28" )	 
 _SetMenuItemBitmap ( "MYTABLERECNOSAVE" , cForm , "CheckF28" )	 
 _SetMenuItemBitmap ( "MYTABLERECNOMAIL" , cForm , "CheckF28" )	

Модуль demo.prg - строка 534

Помогите пожалуйста разобраться....

 Отправлено: 15.05.17 09:28. Заголовок: Выбор правой мышкой ..

Выбор правой мышкой из контекстного меню ?

Все работает !