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

 Отправлено: 19.06.16 17:02. Заголовок: Есть редактируемый б..

Есть редактируемый бровс по базе.
В другой проге я заблочил какую то запись в той же базе.
В бровсе нашел эту же запись и пытаюсь ее редактировать , бровс легко это дает
но после окончания редактирования вежливо сообщает что запись заблочена :)
Можно как то изменить поведение бровса (переключатель может есть какой) что бы
в редактирование не пускало если запись уже заблочена ?

 Отправлено: 19.06.16 17:40. Заголовок: Dima пишет: Можно к..

Dima пишет:

цитата:

Можно как то изменить поведение бровса (переключатель может есть какой) что бы в редактирование не пускало если запись уже заблочена ?

oBrw:bPrevEdit := { |a, b, lLock| If( lLock := RLock(), dbUnLock(), MsgBox("Запись залочена") ), lLock }

 Отправлено: 19.06.16 18:08. Заголовок: Haz Спасибо. Ты вро..

Haz
Спасибо.
Ты вроде ж в отпуске ))

Режим отметки при obrw:lCanSelect:=TRUE повешен на пробел , можно ли изменить эту педаль на свою ?

 Отправлено: 19.06.16 18:50. Заголовок: Dima пишет: Режим о..

Dima пишет:

цитата:

Режим отметки при obrw:lCanSelect:=TRUE повешен на пробел , можно ли изменить эту педаль на свою ?

На что угодно, определив обработку в bUserKeys этой кнопки как
::Selection()
::GoDown()
и вернув FALSE

Да , и учти что отметка реализована через массив с номерами записей ( вроде так , давно не смотрел )
так что реализовать альтернативу со своей цветовой схемой - пустяк

 Отправлено: 19.06.16 21:48. Заголовок: Haz пишет: На что у..

Haz пишет:

цитата:

На что угодно, определив обработку в bUserKeys этой кнопки как

Это я понял уже , вопрос звучал иначе , есть ли какой то флаг позволяющий заюзать
другую педаль. Похоже его нет , да и ладно , сделаю своё ,через bUserKeys как и ты и советовал.

 Отправлено: 19.06.16 22:02. Заголовок: Что бы освежить толь..

Что бы освежить только текущую строку достаточно o:RefreshARow(o:nRowPos) или нужен o:Refresh() ?

PS
Хожу по базе.

 Отправлено: 19.06.16 22:07. Заголовок: Dima пишет: освежит..

Dima пишет:

цитата:

освежить только текущую строку

::Refresh(FASLE)
или
::DrawSelect()

 Отправлено: 19.06.16 22:15. Заголовок: Haz пишет: ::Refres..

Haz пишет:

цитата:

::Refresh(FASLE)

Понял , только при этом "дрыгается" весь бровс на выпуклый морской глаз , впрочем как и при RefreshARow ))
А вот DrawSelect() самое то (все красиво и без лишних прорисовок) !

 Отправлено: 20.06.16 22:41. Заголовок: Есть какой то метод ..

Есть какой то метод что бы дернуть данные с ячейки , типа obrw:GETCELLDATA(nrow , ncol) ?

PS
Хожу по базе.
Для массива понятно все.

 Отправлено: 20.06.16 23:06. Заголовок: Dima Для тек.записи..

Dima
Для тек.записи Eval(oBrw:aColumns[nCol]:bData)
для др. записи dbGoto(nRec) или dbSkip(nCount) и снова Eval(oBrw:aColumns[nCol]:bData)

 Отправлено: 21.06.16 08:36. Заголовок: SergKis Я не много ..

SergKis
Я не много не о том. Хотел для базы заюзать oBrw:cToolTip{|oBr, nCol, nRow| if( ncol ==2,.....
Строка и колонка известна. Указатель записи дергать не хотелось бы , но при наведении
мышки на нужную ячейку в колонке 2 , хотелось дернуть данные от туда и показать в cToolTip.
Изначально я так и поступил как ты пишешь но тогда показывает на любой ячейке 2-го столбца -
данные записи на которой лежит курсор (что и понятно).

 Отправлено: 21.06.16 09:07. Заголовок: Dima пишет: хотелось..

Dima пишет:

цитата:

хотелось дернуть данные от туда и показать в cToolTip

Без перемещения на нужную запись этого сделать не получиться, надо использовать значение nCol для получения bData, а nRow для вычисления nCount перемещения от тек. записи ( dbSkip(nCount) ), считывание данных с колонки и возврат на запись, где были ранее

 Отправлено: 21.06.16 09:11. Заголовок: SergKis Понял , дум..

SergKis
Понял , думал можно проще , без дергания указателя записи.
Спасибо.

 Отправлено: 26.06.16 12:11. Заголовок: Поймал косяк в Tsbro..

Поймал косяк в Tsbrowse
Есть 2 открытых справочника в разных Child окнах.
В одном из них я начал редактировать запись и не закончив редактирование
переключаюсь на другой справочник мышкой и получаю вылет

 
 Error BASE/1004 Метод не экспортирован: SHOW 
  
 Called from SHOW(0) 
 Called from TSBROWSE:EDIT(4003) 
 Called from TSBROWSE:KEYDOWN(6584) 
 Called from TSBROWSE:HANDLEEVENT(7348) 
 Called from EVENTS(0) 
 Called from DOEVENTS(0) 
 Called from TCONTROL:HANDLEEVENT(875) 
 Called from TSBROWSE:HANDLEEVENT(7385) 
 Called from EVENTS(0) 
 Called from UPDATEWINDOW(0) 
 Called from EVENTS(0) 
 Called from DOMESSAGELOOP(0) 
 Called from _ACTIVATEWINDOW(0)  
 

 Отправлено: 26.06.16 12:20. Заголовок: Тот же глюк в C:\..

Тот же глюк в C:\MiniGUI\SAMPLES\Advanced\TsBrowse\ если запустить DEMO.EXE
и заюзать 4 и 5 пример одновременно

Первоначально ломается бровс

 Отправлено: 26.06.16 12:51. Заголовок: Dima пишет:Тот же гл..

Dima пишет:

цитата:

Тот же глюк в C:\MiniGUI\SAMPLES\Advanced\TsBrowse\ если запустить DEMO.EXE и заюзать 4 и 5 пример одновременно

Как это тебе удалось ?
Вкл. edit в одном, переключаю фокус на др. тот edit выключился новый включается и так все время, не зависимо с какого примера 4\5 начинать

 Отправлено: 26.06.16 13:22. Заголовок: SergKis пишет:Как эт..

SergKis пишет:

цитата:

Как это тебе удалось ?

Получил на колонке Age, но там диалоговое окно MODAL. Почему оно дает переход на др. окно приложения ?

 Отправлено: 26.06.16 13:25. Заголовок: SergKis Смотрим при..

SergKis
Смотрим пример проще
C:\MiniGUI\SAMPLES\Advanced\Tsb_SetArrayTo\
Запускаем два окна вот так как на скрине

Входим в режим редактирования колонки order display в записи где цифра 1 и не выходя из него
мышкой щелкаем на втором окне такой же колонки , при чем если нажать на первой записи то вылет с ошибкой
если на другой записи то бровс с которого ушли просто портится , вот скрин

 Отправлено: 26.06.16 13:40. Заголовок: Косяк 2 Есть два акт..

Косяк 2
Есть два активных бровса в разных окнах
Когда бровс в фокусе курсор выглядит как и положено

Переключаюсь мышкой на другой бровс и после возврашаюсь назад
щелкая на той же записи , в этом случае фон курсора остался фоном
не активного курсора


Если во время перехода щелкать на другой записи , не там где стоял курсор
то все нормально.
Я пробовал уже "фокус" c oBrw:bGotFocus:={|| obrw:Refresh()} , не помогло

 Отправлено: 26.06.16 14:25. Заголовок: Dima пишет:Смотрим п..

Dima пишет:

цитата:

Смотрим пример проще C:\MiniGUI\SAMPLES\Advanced\Tsb_SetArrayTo\

запустил 6 разных примеров к ним 3 exe Tsb_setArrayTo - переключаюсь\вкл. едит по разному и по всем - ничего описанного тобой нет
Win 8.1, hmg последняя

цитата:

Я пробовал уже "фокус" c oBrw:bGotFocus:={|| obrw:Refresh()} , не помогло

попробуй oBrw:DrawSelect()
переменная oBrw - public или привате для обоих окон ?