Форум » GUI » TsBrowse в Минигуи (продолжение) » Ответить
TsBrowse в Минигуи (продолжение)
Vlad04: TsBrows определяется в виде строки ПАРМЕТРОВ объекта и их значений К примеру [quote] 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 [/quote] Здесь я собрал параметры из разных tBrows Можно или нет и какие парметры заменить выражением ( и каким) ? oBrw2:.... oBrw2:....
Andrey: 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 , "Цвет линий между ячейками таблицы"
SergKis: Andrey цвет окну не пробовал устанавливать или label сцветной по tsb ?
Andrey: SergKis пишет: цвет окну не пробовал устанавливать или label сцветной по tsb ? Не догадался. Сделаю, отпишусь.
Andrey: Блин, а ларчик открывался просто... DEFINE TBROWSE oBrwLic ; ........ BACKCOLOR BLUE ; ......... END TBROWSE Спасибо за подсказку !
Andrey: Мучаюсь с цветами в TBROWSE. Как то по хитрому устроено с цветами, не ко всем есть доступ. Вот еще не знаю как закрасить ДВА квадратика 1) и 2). Подскажите кто знает ? Хотя один нашел: // Левый верхний уголок - specialаselector header background color oBrw:nClrSelectorHdBack := CLR_HMAGENTA Цвета нужны для примера MiniGUI\SAMPLES\Advanced\Tsb_config
Dima: переменных по цветам там не так много [pre2] 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 [/pre2] Поиграйся методом научного тыка ;) У Define TBROWSE тож есть цвета [pre2] .......... [ BACKCOLOR <backcolor> ] ; [ FONTCOLOR <fontcolor> ] ; [ <color: COLOR, COLORS> <aColors,...> ] ; [/pre2]
Andrey: Dima пишет: Поиграйся методом научного тыка ;) Поигрался. Не нашёл. Из-за этого и написал.
Andrey: Как можно получить высоту таблицы уже нарисованной на экране ? Нужно рядом с таблицей, с такой же высотой нарисовать прямоугольник.
Haz: Andrey пишет: Как можно получить высоту таблицы уже нарисованной на экране ? local aPos := {0,0,0,0} GetWindowRect(oBrw:oWnd:hWnd, aPos) Height := aPos [4] - aPos [2]
Dima: CLASS TSBrowse FROM TControl вероятно сработает oBrw:nBottom - oBrw:nTop не ?
Haz: Dima пишет: вероятно сработает oBrw:nBottom - oBrw:nTop не ? точно, но простые пути нам не интересны
Dima: Haz
Dima: Andrey что касается цветов вот еще 2 из TCONTROL nClrText ,nClrPane
Andrey: Нашел еще лучше - oBrw:nHeightHead !
Andrey: Dima пишет: что касается цветов вот еще 2 из TCONTROL nClrText ,nClrPane Нет это не то ! Не перекрашивают то что нужно.
Dima: Andrey пишет: oBrw:nHeightHead так это высота заголовка , не ?
Andrey: Точно, высота заголовка. Я что-то не то увидел...
Andrey: Переношу цвета с одного бровса в другой. Если цвет - число, то переноситься, а если блок кода, то не переноситься. Как сделать перенос цвета (блока кода) ? 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
Andrey: Andrey пишет: Блин, а ларчик открывался просто... DEFINE TBROWSE oBrwLic ; ........ BACKCOLOR BLUE ; ......... END TBROWSE Цвет окна (где НЕТ записей) в таблице установил, а по ходу в задаче НЕ МОГУ исправить цвет: // ------ Установить фон окна таблицы ---------- Form_0.oBrw.BackColor := n2RGB(M->nTbrwColorPane) Что не так делаю ?
Andrey: Всем привет. Вот новая проблема. У меня в 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
полная версия страницы