Автор | Сообщение |
|
| постоянный участник
|
Пост 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:....
|
|
|
Новых ответов нет
, стр:
1
2
3
4
5
6
7
8
All
[см. все]
|
|
|
| постоянный участник
|
Пост N: 3850
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.12.14 19:13. Заголовок: Dima пишет: А Григо..
Dima пишет: цитата: | А Григорий что говорит по этому поводу ? |
| Не знает. Сказал обращаться к Haz .... Цвета задаю после объявления TBROWSE: END TBROWSE // 1 , "Цвет текста в ячейках таблицы" oBrwLic:SetColor( { 1 }, { { || CLR_WHITE }}) // 2 , "Цвет фона в ячейках таблицы" oBrwLic:SetColor( { 2 }, { { || CLR_HBLUE }}) // 3 , "Цвет текста шапки таблицы" oBrwLic:SetColor( { 3 }, { { || CLR_YELLOW }}) // 4 , "Цвет фона шапка таблицы" oBrwLic:SetColor( { 4 }, { { || { RGB( 43, 149, 168 ), RGB( 0, 54, 94 )}}}) // 5 , "Цвет текста курсора, текст в ячейках с фокусом" oBrwLic:SetColor( { 5 }, { { || CLR_BLACK }}) // 6 , "Цвет фона курсора" oBrwLic:SetColor( { 6 }, { { || { 4915199,255} } } ) // 7 , "Цвет текста редактируемого поля" oBrwLic:SetColor( { 7 }, { { || CLR_RED }}) // 8 , "Цвет фона редактируемого поля" oBrwLic:SetColor( { 8 }, { { || CLR_YELLOW }}) // 9 , "Цвет текста подвала таблицы" oBrwLic:SetColor( { 9 }, { { || CLR_YELLOW }}) // 10 , "Цвет фона подвала таблицы" oBrwLic:SetColor( { 10 }, { { || { RGB( 43, 149, 168 ), RGB( 0, 54, 94 )}}}) // 11 , "Цвет текста неактивного курсора (selected cell no focused)" oBrwLic:SetColor( { 11 }, { { || CLR_GRAY }}) // 12 , "Цвет фона неактивного курсора (selected cell no focused)" oBrwLic:SetColor( { 12 }, { { || { RGB( 255, 255, 74 ), RGB( 240, 240, 0 )}}}) // 13 , "Цвет текста шапки выбранного индекса" // 14 , "Цвет фона шапки выбранного индекса" // 15 , "Цвет линий между ячейками таблицы"
|
|
|
|
| постоянный участник
|
Пост N: 448
Зарегистрирован: 17.02.12
|
|
Отправлено: 19.12.14 00:04. Заголовок: Andrey цвет окну не..
Andrey цвет окну не пробовал устанавливать или label сцветной по tsb ?
|
|
|
|
| постоянный участник
|
Пост N: 3851
Зарегистрирован: 12.09.06
|
|
Отправлено: 19.12.14 00:11. Заголовок: SergKis пишет: цвет..
SergKis пишет: цитата: | цвет окну не пробовал устанавливать или label сцветной по tsb ? |
| Не догадался. Сделаю, отпишусь.
|
|
|
|
| постоянный участник
|
Пост N: 3852
Зарегистрирован: 12.09.06
|
|
Отправлено: 19.12.14 02:56. Заголовок: Блин, а ларчик откры..
Блин, а ларчик открывался просто... DEFINE TBROWSE oBrwLic ; ........ BACKCOLOR BLUE ; ......... END TBROWSE Спасибо за подсказку !
|
|
|
|
| постоянный участник
|
Пост N: 3855
Зарегистрирован: 12.09.06
|
|
Отправлено: 19.12.14 13:56. Заголовок: Мучаюсь с цветами в ..
Мучаюсь с цветами в TBROWSE. Как то по хитрому устроено с цветами, не ко всем есть доступ. Вот еще не знаю как закрасить ДВА квадратика 1) и 2). Подскажите кто знает ? Хотя один нашел: // Левый верхний уголок - specialаselector header background color oBrw:nClrSelectorHdBack := CLR_HMAGENTA Цвета нужны для примера MiniGUI\SAMPLES\Advanced\Tsb_config
|
|
|
|
| |
Пост N: 4365
Зарегистрирован: 17.05.05
|
|
Отправлено: 19.12.14 15:16. Заголовок: переменных по цветам..
переменных по цветам там не так много DATA nClrHeadBack, nClrHeadFore // headers colors DATA nClrFocuBack, nClrFocuFore // focused cell colors DATA nClrEditBack, nClrEditFore // editing cell colors DATA nClrFootBack, nClrFootFore // footers colors DATA nClrSeleBack, nClrSeleFore // selected cell no focused DATA nClrOrdeBack, nClrOrdeFore // order control column colors DATA nClrSpcHdBack,nClrSpcHdFore,nClrSpcHdActive // special headers colors DATA nClrSelectorHdBack // specialаselector header background color Поиграйся методом научного тыка ;) У Define TBROWSE тож есть цвета .......... [ BACKCOLOR <backcolor> ] ; [ FONTCOLOR <fontcolor> ] ; [ <color: COLOR, COLORS> <aColors,...> ] ;
|
|
|
|
| постоянный участник
|
Пост N: 3856
Зарегистрирован: 12.09.06
|
|
Отправлено: 19.12.14 18:19. Заголовок: Dima пишет: Поиграй..
Dima пишет: цитата: | Поиграйся методом научного тыка ;) |
| Поигрался. Не нашёл. Из-за этого и написал.
|
|
|
|
| постоянный участник
|
Пост N: 3867
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.12.14 13:18. Заголовок: Как можно получить в..
Как можно получить высоту таблицы уже нарисованной на экране ? Нужно рядом с таблицей, с такой же высотой нарисовать прямоугольник.
|
|
|
|
| |
Пост N: 404
Зарегистрирован: 20.02.11
|
|
Отправлено: 20.12.14 14:43. Заголовок: Andrey пишет: Как м..
Andrey пишет: цитата: | Как можно получить высоту таблицы уже нарисованной на экране ? |
| local aPos := {0,0,0,0} GetWindowRect(oBrw:oWnd:hWnd, aPos) Height := aPos [4] - aPos [2]
|
|
|
|
| |
Пост N: 4370
Зарегистрирован: 17.05.05
|
|
Отправлено: 20.12.14 15:15. Заголовок: oBrw:nBottom - oBrw:..
CLASS TSBrowse FROM TControl вероятно сработает oBrw:nBottom - oBrw:nTop не ?
|
|
|
|
| |
Пост N: 405
Зарегистрирован: 20.02.11
|
|
Отправлено: 20.12.14 15:37. Заголовок: Dima пишет: вероятн..
Dima пишет: цитата: | вероятно сработает oBrw:nBottom - oBrw:nTop не ? |
| точно, но простые пути нам не интересны
|
|
|
|
|
| |
Пост N: 4371
Зарегистрирован: 17.05.05
|
|
Отправлено: 20.12.14 15:47. Заголовок: Haz :sm12: ..
Haz
|
|
|
|
| |
Пост N: 4372
Зарегистрирован: 17.05.05
|
|
Отправлено: 20.12.14 16:07. Заголовок: Andrey что касается..
Andrey что касается цветов вот еще 2 из TCONTROL nClrText ,nClrPane
|
|
|
|
| постоянный участник
|
Пост N: 3868
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.12.14 18:50. Заголовок: Нашел еще лучше - oB..
Нашел еще лучше - oBrw:nHeightHead !
|
|
|
|
| постоянный участник
|
Пост N: 3869
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.12.14 18:56. Заголовок: Dima пишет: что кас..
Dima пишет: цитата: | что касается цветов вот еще 2 из TCONTROL nClrText ,nClrPane |
| Нет это не то ! Не перекрашивают то что нужно.
|
|
|
|
| |
Пост N: 4376
Зарегистрирован: 17.05.05
|
|
Отправлено: 20.12.14 18:57. Заголовок: Andrey пишет: oBrw:..
Andrey пишет: так это высота заголовка , не ?
|
|
|
|
| постоянный участник
|
Пост N: 3870
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.12.14 19:06. Заголовок: Точно, высота заголо..
Точно, высота заголовка. Я что-то не то увидел...
|
|
|
|
| постоянный участник
|
Пост N: 3871
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.12.14 19:09. Заголовок: Переношу цвета с одн..
Переношу цвета с одного бровса в другой. Если цвет - число, то переноситься, а если блок кода, то не переноситься. Как сделать перенос цвета (блока кода) ? nCol := 2 // или 3 колонка с цветом oCol := oBrw9:aColumns[ nCol ] // считаем цвет с oBrw9 oCol:SaveColor() aColor := oCol:aColorsBack FOR nI := 1 TO 15 IF VALTYPE(aColor[nI]) == "B" // Здесь как сделать ? ELSE oBrw8:Setcolor( { nI }, { aColor[nI] }, 1 ) // 1-я колонка oBrw8:Setcolor( { nI }, { aColor[nI] }, 2 ) // 2-я колонка ENDIF NEXT
|
|
|
|
| постоянный участник
|
Пост N: 3873
Зарегистрирован: 12.09.06
|
|
Отправлено: 23.12.14 23:36. Заголовок: Andrey пишет: Блин,..
Andrey пишет: цитата: | Блин, а ларчик открывался просто... DEFINE TBROWSE oBrwLic ; ........ BACKCOLOR BLUE ; ......... END TBROWSE |
| Цвет окна (где НЕТ записей) в таблице установил, а по ходу в задаче НЕ МОГУ исправить цвет: // ------ Установить фон окна таблицы ---------- Form_0.oBrw.BackColor := n2RGB(M->nTbrwColorPane) Что не так делаю ?
|
|
|
|
| постоянный участник
|
Пост N: 3875
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.12.14 14:01. Заголовок: Всем привет. Вот но..
Всем привет. Вот новая проблема. У меня в TBROWSE есть поиск, т.е. при нажатии анг. или русских букв включается фильтр и отбираются записи. Так вот после отбора, НАЧИНАЕТСЯ СРАЗУ редактирование первой записи попавшей по условию !!! Мне это не нужно. Нужно убрать это редактирование и поставить редактирование ТОЛЬКО после нажатия клавиши ENTER или по двойному клику мышки. Как это сделать ? У себя в коде делаю так: // обработка нажатий клавиш, включая ENTER &cBrw:bKeyDown := { | nKey , nFalgs| MyKeyAction(nKey,nFalgs) } // Двойной клик мышки на МАРКЕРЕ &cBrw:bLDblClick:= { || MyKey_Edit() } // ---------- назначить обработку клавиши F9 на первую колонку ----------- &cBrw:nFireKey := VK_F9 &cBrw:bUserKeys := { |a,b,c| MyKey_F9(a,b,c) } ................ Функция MyKeyAction(): Скрытый текст ////////////////////////////////////////////////////////////////////////////// STATIC FUNCTION MyKeyAction(nKey,nFlags) LOCAL ret :=.t. IF !Alltrim(cStSearchValue) == Form_Spr.Text_1.Value cStSearchValue := Form_Spr.Text_1.Value ENDIF DO CASE CASE nKey == VK_ESCAPE CASE nKey == VK_F2 MsgInfo("VK_F2 !") CASE nKey == VK_F3 MsgInfo("VK_F3 !") CASE nKey == VK_INSERT //"[Ins] Добавить запись" RecnoInsertSpr("oBrw_1") CASE nKey == VK_DELETE //"[Del] Удалить запись" RecnoDeleteSpr("oBrw_1") CASE nKey == VK_BACK // Backspace IF LEN(Form_Spr.Text_1.Value) > 0 // удалить символ слева cStSearchValue := LEFT(cStSearchValue,LEN(cStSearchValue)-1) Form_Spr.Text_1.Value := cStSearchValue RefreshBrowse() ENDIF CASE nKey > 31 .AND. nKey < 254 // добавить символ в поиск cStSearchValue := cStSearchValue + KeyToChar(nKey) Form_Spr.Text_1.Value := cStSearchValue RefreshBrowse() CASE nKey == VK_RETURN MyKey_Edit(nKey) OTHERWISE // MsgInfo("Нажата клавиша: "+STR(nKey)+" !") ENDCASE Return NIL
|
|
|
|
Новых ответов нет
, стр:
1
2
3
4
5
6
7
8
All
[см. все]
|
|