Автор | Сообщение |
Vlad04
|
| постоянный участник
|
Пост N: 420
Зарегистрирован: 13.10.05
|
|
Отправлено: 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:....
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
Dima
|
| |
Пост N: 5332
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.11.15 21:52. Заголовок: Shift+INS у меня тож..
Shift+INS у меня тоже не сработал в этом примере , меняется только форма курсора , CTRL+V пашет зы Win7
|
|
|
Haz
|
| |
Пост N: 686
Зарегистрирован: 20.02.11
|
|
Отправлено: 05.11.15 21:53. Заголовок: Andrey пишет: Shif..
Andrey пишет: цитата: | Shift+Insert/Ctrl+Insert НЕТ.... |
| Да с шифтом не работает . Сергей пару постов назад сказал куда копать ... Лови нажатие шифт+инс и пихай содержимое буфера Хотя .... ловить кнопки скорее надо уже в объекте oGet который создался в бровсе после нажатия ентер
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4562
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.11.15 22:21. Заголовок: Haz пишет: Лови наж..
Haz пишет: цитата: | Лови нажатие шифт+инс и пихай содержимое буфера Хотя .... ловить кнопки скорее надо уже в объекте oGet который создался в бровсе после нажатия ентер |
| А нельзя сделать это в самих исходниках TsBrowse ? Чтобы не делать велосипед... Всем же это нужно !
|
|
|
Dima
|
| |
Пост N: 5333
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.11.15 22:26. Заголовок: Andrey пишет: Чтобы..
Andrey пишет: цитата: | Чтобы не делать велосипед... Всем же это нужно ! |
| Не знаю как всем , лично мне хватает стандарта CTRL+V
|
|
|
Haz
|
| |
Пост N: 687
Зарегистрирован: 20.02.11
|
|
Отправлено: 05.11.15 23:17. Заголовок: Тоже в основном поль..
Тоже в основном пользую ctrl-c/v До ins тянуться через всю клаву надо ... лень
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4563
Зарегистрирован: 12.09.06
|
|
Отправлено: 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) } Что делать или что использовать взамен ?
|
|
|
Haz
|
| |
Пост N: 688
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.11.15 16:54. Заголовок: Andrey пишет: в Se..
Andrey пишет: цитата: | в SetArrayTo() - это oBrw1:Refresh(FALSE) не работает |
| Не совсем понял про :SetArrayTo(), мне казалось этот метод просто позволяет сразу назначать шрифты , размеры , хидинги и футинги при инициализации массива. В отличие от :SetArray() , где это все нужно делать позже. как связаны разные методы :Refresh(...) и :SetArrayTo(...) не уловил
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 836
Зарегистрирован: 17.02.12
|
|
Отправлено: 06.11.15 18:43. Заголовок: Andrey пишет:SergKis..
Andrey пишет: цитата: | SergKis писал где-то, что после ввода в ячейку таблицы (для отображения границ ячеек таблицы) нужно делать oBrw1:Refresh(FALSE) |
| Запусти Tsb_array_2 и в строке ниже первой включи коректировку по Enter и пройди по нескольким полям и увидишь, что не прорисовываются линии между тек. строкой и предыдущей. Если воставить в bPostedit oBrw:Refresh(.F.), то линии прорисуются. Вот о чем я говорил. Возможно на dbf будет такое же поведение - не помню
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 848
Зарегистрирован: 11.02.10
|
|
Отправлено: 06.11.15 21:33. Заголовок: SergKis пишет: про..
SergKis пишет: цитата: | пройди по нескольким полям и увидишь, что не прорисовываются линии между тек. строкой и предыдущей. |
| Благодарю за наводку Вроде удалось поправить прорисовку разделительной линии в методах GoRight и GoDown
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4569
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.11.15 14:54. Заголовок: Делаю растяжку после..
Делаю растяжку последней колонки в SetArrayTo() nColSpace := LEN(aDim) oBrw1:nAdjColumn := nColSpace // растянуть колонку до заполнения пустоты в бровсе справа Не растягивается.... Почему ?
|
|
|
Dima
|
| |
Пост N: 5341
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.11.15 15:08. Заголовок: Andrey Длина массив..
Andrey Длина массива aDim равна кол-ву видимых колонок ?
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4570
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.11.15 15:19. Заголовок: Dima пишет: Длина м..
Dima пишет: цитата: | Длина массива aDim равна кол-ву видимых колонок ? |
| Да ! На экране 14 колонок, последняя пустая и некрасиво из-за этого.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4580
Зарегистрирован: 12.09.06
|
|
Отправлено: 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 день бьюсь... Помогите пожалуйста.
|
|
|
Haz
|
| |
Пост N: 696
Зарегистрирован: 20.02.11
|
|
Отправлено: 20.11.15 14:58. Заголовок: Andrey пишет: Чего ..
Andrey пишет: Не проверял , но уверен что с блоком кода не учитываешь. В блок кода передаются локальные переменные и когда этот блок исполняется при прорисовке бровса , значения этих переменных непредсказуемы , отсюда и ЗЫ. цитата: | Опять небольшая проблема с цветами в SetArrayTo(). |
|
не верно локализован источник проблемы
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4581
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.11.15 15:19. Заголовок: Haz пишет: В блок к..
Haz пишет: цитата: | В блок кода передаются локальные переменные и когда этот блок исполняется |
| Почему ? При первом построении тоже использую локал: LOCAL aBackClr Сделал так: PRIVATE nTsbColor, nTsbColor2 Ну и дальше все переменные переименовал. Всё равно цвета - светофор !
|
|
|
Haz
|
| |
Пост N: 697
Зарегистрирован: 20.02.11
|
|
Отправлено: 20.11.15 15:33. Заголовок: При чем тут local ....
При чем тут local ... Private говорю в блоке кода , к примеру в этом oBrw52:SetColor( { nVal }, { { || nColor } } ) . Чему равно nColor в момент прорисовки бровса при навигации по нему ? 100000% что не значению, которое было в цикле инициализации .... вот этим значением и рисует ЗЫ сделай так и удивись oBrw52:SetColor( { nVal }, { { || msgDebug(nVal, nColor), nColor } } )
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4582
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.11.15 15:53. Заголовок: Haz пишет: ЗЫ сдела..
Haz пишет: цитата: | ЗЫ сделай так и удивись oBrw52:SetColor( { nVal }, { { || msgDebug(nVal, nColor), nColor } } ) |
| Удивился... А как тогда правильно сделать ?
|
|
|
Haz
|
| |
Пост N: 698
Зарегистрирован: 20.02.11
|
|
Отправлено: 20.11.15 15:55. Заголовок: Andrey пишет: А как..
Andrey пишет: цитата: | А как тогда правильно сделать ? |
| делал же ... TSB_CONFIG глянь
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4583
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.11.15 16:12. Заголовок: Haz пишет: делал же..
Haz пишет: цитата: | делал же ... TSB_CONFIG глянь |
| Да, только там цветной блок попроще был.
|
|
|
Haz
|
| |
Пост N: 699
Зарегистрирован: 20.02.11
|
|
Отправлено: 20.11.15 16:18. Заголовок: Andrey пишет: Да, т..
Andrey пишет: цитата: | Да, только там цветной блок попроще был. |
| какая разница какой блок, важно как реализовано . или тут http://clipper.borda.ru/?1-1-0-00000399-000-240-0 твой пост N 3712 и два ответа ниже тоже с этой же ошибкой при вызоаве блока связаны
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|