Автор | Сообщение |
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: 4956
Зарегистрирован: 17.05.05
|
|
Отправлено: 25.06.15 13:46. Заголовок: Andrey пишет: Народ..
Andrey пишет: цитата: | Народ, подскажите как убрать белизну |
| Решил вопрос ? Тоже попал на это
|
|
|
Dima
|
| |
Пост N: 4957
Зарегистрирован: 17.05.05
|
|
Отправлено: 25.06.15 21:23. Заголовок: Подсказали добрые лю..
Подсказали добрые люди oBrw:hBrush := CreateSolidBrush( 210, 210, 210 ) // заливаем чем надо
|
|
|
Dima
|
| |
Пост N: 5010
Зарегистрирован: 17.05.05
|
|
Отправлено: 02.07.15 14:48. Заголовок: Понадобилось сделать..
Понадобилось сделать полноэкранный курсор. Сделал oBrw:lCellBrw :=.F. Пашет , но пропал курсорчик который на CELL , то есть нужен курсор внутри полноэкранного курсора , что бы видеть в какой колонке стоим. В консоли без проблем а тут как ? Сделал авторастяжение колонки 6 oBrw:nAdjColumn := 6 Это не работает если oBrw:lNoHScroll := TRUE , какая связь nAdjColumn с гор. скролом не пойму.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 684
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.07.15 14:53. Заголовок: Dima пишет: нужен ку..
Dima пишет: цитата: | нужен курсор внутри полноэкранного |
| надо работать в режиме CELL и красить нужным цвеьом тек. строку row
|
|
|
Dima
|
| |
Пост N: 5011
Зарегистрирован: 17.05.05
|
|
Отправлено: 02.07.15 15:01. Заголовок: SergKis красить чер..
SergKis красить через Method TSBrowse: SetColor() ? Вот это в каком положении должно быть oBrw:lCellBrw ?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 685
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.07.15 15:16. Заголовок: Dima oBrw:lCellBrw ..
Dima oBrw:lCellBrw := .T. SetColor() см. надо для 1,2,5,6,11,12 сам только думал попробовать - реально не делал
|
|
|
Dima
|
| |
Пост N: 5012
Зарегистрирован: 17.05.05
|
|
Отправлено: 02.07.15 15:55. Заголовок: SergKis Что то пока..
SergKis Что то пока понять не могу как это правильно сделать. В примерах (все пересмотрел) ни чего подобного нет а оно надо.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 686
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.07.15 16:11. Заголовок: Dima Farом поищи в ..
Dima Farом поищи в samples\advanced :SetColor( будет список применения на разные ситуации - надо смотреть эти примеры
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 687
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.07.15 16:15. Заголовок: Dima oBrw:SetColor(..
Dima oBrw:SetColor( { 1 }, { { || CLR_BLACK } } ) // 1 , текста в ячейках таблицы oBrw:SetColor( { 2 }, { { || MyRGB(aBack2) } } ) // 2 , фона в ячейках таблицы oBrw:SetColor( { 5 }, { { || CLR_BLACK } } ) // 5 , текста курсора, текст в ячейках с фокусом oBrw:SetColor( { 6 }, { { || { 4915199,255} } } ) // 6 , фона курсора oBrw:SetColor( { 11 }, { { || CLR_GRAY } } ) // 11, текста неактивного курсора (selected cell no focused) oBrw:SetColor( { 12 }, { { || { RGB(255,255,74), RGB(240,240,0)}} } ) // 12, фона неактивного курсора (selected cell no focused) у Andrey в примере есть такое
|
|
|
Dima
|
| |
Пост N: 5014
Зарегистрирован: 17.05.05
|
|
Отправлено: 02.07.15 16:37. Заголовок: SergKis пишет: oBrw..
SergKis пишет: цитата: | oBrw:SetColor( { 11 }, { { || CLR_GRAY } } ) // 11, текста неактивного курсора (selected cell no focused) oBrw:SetColor( { 12 }, { { || { RGB(255,255,74), RGB(240,240,0)}} } ) // 12, фона неактивного курсора (selected cell no focused) |
| Вот эти фичи как раз и не срабатывают......
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4353
Зарегистрирован: 12.09.06
|
|
Отправлено: 02.07.15 17:56. Заголовок: Dima пишет: Вот эти..
Dima пишет: цитата: | Вот эти фичи как раз и не срабатывают...... |
| Я тоже наткнулся на не срабатывания этого кода. Нужно ставить эти цвета ПОСЛЕ всех обработок до выхода из процедуры. Типа: oBrw3:bKeyDown := { | nKey | MyKeyAction3(nKey,oBrw9, ThisWindow.Name, 0), lOk := nKey != VK_ESCAPE } oBrw3:bLDblClick:= { || MyAction3(oBrw9, ThisWindow.Name, 0) } // Двойной клик мышки на МАРКЕРЕ oBrw3:SetColor( { 16 }, { { || { RGB(0,54,94) , RGB(aBack2[1],aBack2[2],aBack2[3]) } } } ) oBrw3:SetColor( { 17 }, { { || CLR_WHITE } } ) // 17, текста спецхидер oBrw3:Refresh(.T.) //oBrw3:nAt := 5 // передвинуть МАРКЕР на 5 строку oBrw3:nCell := 4 // передвинуть МАРКЕР на 3 колонку //oBrw3:GoPos( 5,3 ) // передвинуть МАРКЕР на 5 строку и 3 колонку SetProperty(ThisWindow.Name, "oBrw3", "Setfocus" ) RETURN NIL Смотри пример с многострочным браузером - https://cloud.mail.ru/public/DkoH/nSzvMbeCh
|
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 688
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.07.15 18:55. Заголовок: Dima наверно тут, у..
Dima наверно тут, усложнив, выражение надо копать (раскраска четных\нечетных строк) oBrw5:SetColor( { 2 }, { { || iif( oBrw5:nAt % 2 == 0, RGB(255,255,255), RGB(230, 230, 230) ) }})
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 689
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.07.15 18:57. Заголовок: PS. и ON CHANGE ..
PS. и ON CHANGE
|
|
|
Dima
|
| |
Пост N: 5016
Зарегистрирован: 17.05.05
|
|
Отправлено: 02.07.15 19:12. Заголовок: SergKis пишет: наве..
SergKis пишет: цитата: | наверно тут, усложнив, выражение надо копать (раскраска четных\нечетных строк) oBrw5:SetColor( { 2 }, { { || iif( oBrw5:nAt % 2 == 0, RGB(255,255,255), RGB(230, 230, 230) ) }}) |
| Видимо да , только условие там правильное надо задать. Типа бровс в фокусе и NROW == не понятно с чем сравнить ЗЫ Has предлагает все делать в скипере.......это просто идея.
|
|
|
Dima
|
| |
Пост N: 5020
Зарегистрирован: 17.05.05
|
|
Отправлено: 02.07.15 22:00. Заголовок: Вот так красит строк..
Вот так красит строку oBrw:SetColor( { 2 }, { { || iif( obrw:nat == obrw:nRowPos, RGB(255, 255, 159),RGB(255,255,255) ) }}) Но курсор вниз (вверх) и окраска остается..........на строках где ранее полежал курсор...
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 693
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.07.15 22:26. Заголовок: Dima добавь к этому..
Dima добавь к этому oBrw:bChange := {|| oBrw:Refresh(.F.) }
|
|
|
Dima
|
| |
Пост N: 5021
Зарегистрирован: 17.05.05
|
|
Отправлено: 02.07.15 23:11. Заголовок: SergKis пишет: oBrw..
SergKis пишет: цитата: | oBrw:bChange := {|| oBrw:Refresh(.F.) } |
| Спасибо ! Работает . Но фон курсора на ячейке синий и белые буковки........я это не назначал. Где крутить гайки ?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 694
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.07.15 23:17. Заголовок: Dima пишет:Где крути..
Dima пишет: тут oBrw:SetColor( { 5 }, { { || CLR_BLACK } } ) // 5 , текста курсора, текст в ячейках с фокусом oBrw:SetColor( { 6 }, { { || { 4915199,255} } } ) // 6 , фона курсора назначены по умолчанию в oBrw:New(...) aTmpColor[ 5 ] := GetSysColor( COLOR_CAPTIONTEXT ), ; // nClrForeFocu aTmpColor[ 6 ] := GetSysColor( COLOR_ACTIVECAPTION ) // nClrFocuBack
|
|
|
Dima
|
| |
Пост N: 5023
Зарегистрирован: 17.05.05
|
|
Отправлено: 03.07.15 09:36. Заголовок: SergKis С этим разо..
SergKis С этим разобрался. Сенкс. А как быть с oBrw:nAdjColumn , вроде ж должно автоматом выравнивать ширину колонки под ширину бровса и все колонки должны вписаться в ширину бровса. Колонок не много 10 штук с суперхеадером. Но нормально не вписывается да и часть колонок уходит за пределы видимости и нужно скролить вправо что бы их увидеть. Задача простая , вписать все колонки четко в ширину бровса. На ум приходит следующая идея. Задать фиксированную ширину 9-и колонкам а затем присвоить ширину 10-ой колонке которая будет равна Ширина бровса - ширины 9-и колонок. Правильный подход или можно как то проще реализовать ?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 695
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.07.15 10:14. Заголовок: Dima пишет:Правильны..
Dima пишет: цитата: | Правильный подход или можно как то проще реализовать ? |
| Я TsBrowse, как ты Mdi отложил в ящик, использую Browse без горизонтального скролинга колонок (но на mdi окнах). oBrw:nAdjColumn не пробовал (руки не дошли), но она на одну колонку (может и не так), т.е. на первом экране, а следующие - уже твои проблеммы. Можно ли подключать блоки кода на горизонт. скролинг (клавиши\мыша, для пересчета размеров видимых\невидимых колонок) не знаю. В Browse (модиф. своя версия) делаем так: - определяем колонки для скролинга (размер колонки для "нормального" показа всех прокручиваемых данных) - width размер browse от колонок по окну (всегда, когда нет других контролов справа от browse) или считаем %-том от размера поля ширину в пиксклях, или просто задать от балды - поправят как надо мышой. - клиент мышой может менять ширину любой колонки - это сохраняется в cfg под именем окна+browse и при след. входе в окно размеры колонок беруться от cfg (с mdi main окном и modal окнами, также размеры можно менять, сохраняются в cfg под именем окна) - и при горизонт. скролинге (от номера скролинга) меняется выражение показа всей строки
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|