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

 Отправлено: 05.11.15 21:52. Заголовок: Shift+INS у меня тож..

Shift+INS у меня тоже не сработал в этом примере , меняется только форма курсора , CTRL+V пашет

зы
Win7

 Отправлено: 05.11.15 21:53. Заголовок: Andrey пишет: Shif..

Andrey пишет:

цитата:

Shift+Insert/Ctrl+Insert НЕТ....

Да с шифтом не работает . Сергей пару постов назад сказал куда копать ...
Лови нажатие шифт+инс и пихай содержимое буфера

Хотя .... ловить кнопки скорее надо уже в объекте oGet который создался в бровсе после нажатия ентер

 Отправлено: 05.11.15 22:21. Заголовок: Haz пишет: Лови наж..

Haz пишет:

цитата:

Лови нажатие шифт+инс и пихай содержимое буфера Хотя .... ловить кнопки скорее надо уже в объекте oGet который создался в бровсе после нажатия ентер

А нельзя сделать это в самих исходниках TsBrowse ?
Чтобы не делать велосипед... Всем же это нужно !

 Отправлено: 05.11.15 22:26. Заголовок: Andrey пишет: Чтобы..

Andrey пишет:

цитата:

Чтобы не делать велосипед... Всем же это нужно !

Не знаю как всем , лично мне хватает стандарта CTRL+V

 Отправлено: 05.11.15 23:17. Заголовок: Тоже в основном поль..

Тоже в основном пользую ctrl-c/v
До ins тянуться через всю клаву надо ... лень

 Отправлено: 06.11.15 15:47. Заголовок: Работаю с SetArrayTo..

Работаю с SetArrayTo()
SergKis писал где-то, что после ввода в ячейку таблицы (для отображения границ ячеек таблицы) нужно делать oBrw1:Refresh(FALSE)

А в SetArrayTo() - это oBrw1:Refresh(FALSE) не работает !

oCol:bPostEdit := { || AADD( aStatExit, nYear ), AADD( aStatXTbr, cTbrName ),;
MyPostEdit(), oBrw1:Refresh(FALSE) }

Что делать или что использовать взамен ?

 Отправлено: 06.11.15 16:54. Заголовок: Andrey пишет: в Se..

Andrey пишет:

цитата:

в SetArrayTo() - это oBrw1:Refresh(FALSE) не работает

Не совсем понял про :SetArrayTo(), мне казалось этот метод просто позволяет сразу назначать шрифты , размеры , хидинги и футинги при инициализации массива.
В отличие от :SetArray() , где это все нужно делать позже.

как связаны разные методы :Refresh(...) и :SetArrayTo(...) не уловил

 Отправлено: 06.11.15 18:43. Заголовок: Andrey пишет:SergKis..

Andrey пишет:

цитата:

SergKis писал где-то, что после ввода в ячейку таблицы (для отображения границ ячеек таблицы) нужно делать oBrw1:Refresh(FALSE)

Запусти Tsb_array_2 и в строке ниже первой включи коректировку по Enter и пройди по нескольким полям и увидишь, что не прорисовываются линии между тек. строкой и предыдущей. Если воставить в bPostedit oBrw:Refresh(.F.), то линии прорисуются. Вот о чем я говорил. Возможно на dbf будет такое же поведение - не помню

 Отправлено: 06.11.15 21:33. Заголовок: SergKis пишет: про..

SergKis пишет:

цитата:

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

Благодарю за наводку
Вроде удалось поправить прорисовку разделительной линии в методах GoRight и GoDown

 Отправлено: 09.11.15 14:54. Заголовок: Делаю растяжку после..

Делаю растяжку последней колонки в SetArrayTo()
nColSpace := LEN(aDim)
oBrw1:nAdjColumn := nColSpace // растянуть колонку до заполнения пустоты в бровсе справа

Не растягивается.... Почему ?

 Отправлено: 09.11.15 15:08. Заголовок: Andrey Длина массив..

Andrey
Длина массива aDim равна кол-ву видимых колонок ?

 Отправлено: 09.11.15 15:19. Заголовок: Dima пишет: Длина м..

Dima пишет:

цитата:

Длина массива aDim равна кол-ву видимых колонок ?

Да ! На экране 14 колонок, последняя пустая и некрасиво из-за этого.

 Отправлено: 20.11.15 14:33. Заголовок: Привет всем ! Опять ..

Привет всем !
Опять небольшая проблема с цветами в SetArrayTo().

Делаю так:

LOCAL oBrw1
.......
oBrw1:SetColor( { 2 }, { { |a,b,o| iif( Month(o:aArray[o:nAt][5]) % 2 == 0, ;
MyRGB( {0, 204, 255} ) ,;
MyRGB(aBackClr) ) } } )
Потом беру эти цвета помещаю в массив
AADD( aStatColorTable, { oBrw1:cControlName, 1, oBrw1:nClrText, NIL } )
AADD( aStatColorTable, { oBrw1:cControlName, 2, MyRGB({0,204,255}), MyRGB(aBackClr) } )
и записываю в ини-файл:
ObjTable_1={"Set_Columns1", 1, 0, NIL}
ObjTable_2={"Set_Columns1", 2, 16763904, 15515551}
ObjTable_3={"Set_Columns1", 13, 255, NIL}

Потом в ON INIT формы делаю считывание из ини-файла (массив aIni4Clr) и вывожу цвет в бровс:
LOCAL oBrw52
...............
oBrw52 := gBrw52(cForm,"Set_Columns1") // считываю объект SetArrayTo() в локал переменную
FOR nJ := 1 TO LEN(aIni4Clr)
nVal := aIni4Clr[nJ,2]
nColor := aIni4Clr[nJ,3]
nColor2 := aIni4Clr[nJ,4]
IF nVal == 2
oBrw52:SetColor( { 2 }, { { |a,b,o| iif( Month(o:aArray[o:nAt][5]) % 2 == 0, ;
nColor , nColor2 ) } } )
ELSE
IF nColor2 == NIL // если один цвет используется
oBrw52:SetColor( { nVal }, { { || nColor } } )
ELSE
oBrw52:SetColor( { nVal }, { { || { nColor , nColor2 } } } )
ENDIF
ENDIF
NEXT

Цвета становятся ну просто светофор ....

Чего я не учитываю ? Какая тонкость при восстановлении цветов ?
Уже 3 день бьюсь... Помогите пожалуйста.

 Отправлено: 20.11.15 14:58. Заголовок: Andrey пишет: Чего ..

Andrey пишет:

цитата:

Чего я не учитываю

Не проверял , но уверен что с блоком кода не учитываешь. В блок кода передаются локальные переменные и когда этот блок исполняется
при прорисовке бровса , значения этих переменных непредсказуемы , отсюда и

цитата:

ну просто светофор

ЗЫ.

цитата:

Опять небольшая проблема с цветами в SetArrayTo().

не верно локализован источник проблемы

 Отправлено: 20.11.15 15:19. Заголовок: Haz пишет: В блок к..

Haz пишет:

цитата:

В блок кода передаются локальные переменные и когда этот блок исполняется

Почему ? При первом построении тоже использую локал:
LOCAL aBackClr

Сделал так: PRIVATE nTsbColor, nTsbColor2
Ну и дальше все переменные переименовал.
Всё равно цвета - светофор !

 Отправлено: 20.11.15 15:33. Заголовок: При чем тут local ....

При чем тут local ... Private
говорю в блоке кода , к примеру в этом oBrw52:SetColor( { nVal }, { { || nColor } } ) .
Чему равно nColor в момент прорисовки бровса при навигации по нему ?
100000% что не значению, которое было в цикле инициализации .... вот этим значением и рисует

ЗЫ сделай так и удивись
oBrw52:SetColor( { nVal }, { { || msgDebug(nVal, nColor), nColor } } )

 Отправлено: 20.11.15 15:53. Заголовок: Haz пишет: ЗЫ сдела..

Haz пишет:

цитата:

ЗЫ сделай так и удивись oBrw52:SetColor( { nVal }, { { || msgDebug(nVal, nColor), nColor } } )

Удивился...
А как тогда правильно сделать ?

 Отправлено: 20.11.15 15:55. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как тогда правильно сделать ?

делал же ... TSB_CONFIG глянь

 Отправлено: 20.11.15 16:12. Заголовок: Haz пишет: делал же..

Haz пишет:

цитата:

делал же ... TSB_CONFIG глянь

Да, только там цветной блок попроще был.

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

Andrey пишет:

цитата:

Да, только там цветной блок попроще был.

какая разница какой блок, важно как реализовано .
или тут http://clipper.borda.ru/?1-1-0-00000399-000-240-0 твой пост N 3712 и два ответа ниже тоже с этой же ошибкой при вызоаве блока связаны