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

 Отправлено: 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 , "Цвет линий между ячейками таблицы"

 Отправлено: 19.12.14 00:04. Заголовок: Andrey цвет окну не..

Andrey
цвет окну не пробовал устанавливать или label сцветной по tsb ?

 Отправлено: 19.12.14 00:11. Заголовок: SergKis пишет: цвет..

SergKis пишет:

цитата:

цвет окну не пробовал устанавливать или label сцветной по tsb ?

Не догадался. Сделаю, отпишусь.

 Отправлено: 19.12.14 02:56. Заголовок: Блин, а ларчик откры..

Блин, а ларчик открывался просто...
DEFINE TBROWSE oBrwLic ;
........
BACKCOLOR BLUE ;
.........
END TBROWSE

Спасибо за подсказку !

 Отправлено: 19.12.14 13:56. Заголовок: Мучаюсь с цветами в ..

Мучаюсь с цветами в TBROWSE. Как то по хитрому устроено с цветами, не ко всем есть доступ.
Вот еще не знаю как закрасить ДВА квадратика 1) и 2). Подскажите кто знает ?


Хотя один нашел:
// Левый верхний уголок - specialаselector header background color
oBrw:nClrSelectorHdBack := CLR_HMAGENTA

Цвета нужны для примера MiniGUI\SAMPLES\Advanced\Tsb_config

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

 Отправлено: 19.12.14 18:19. Заголовок: Dima пишет: Поиграй..

Dima пишет:

цитата:

Поиграйся методом научного тыка ;)

Поигрался. Не нашёл. Из-за этого и написал.

 Отправлено: 20.12.14 13:18. Заголовок: Как можно получить в..

Как можно получить высоту таблицы уже нарисованной на экране ?
Нужно рядом с таблицей, с такой же высотой нарисовать прямоугольник.

 Отправлено: 20.12.14 14:43. Заголовок: Andrey пишет: Как м..

Andrey пишет:

цитата:

Как можно получить высоту таблицы уже нарисованной на экране ?

local aPos := {0,0,0,0}

GetWindowRect(oBrw:oWnd:hWnd, aPos)
Height := aPos [4] - aPos [2]

 Отправлено: 20.12.14 15:15. Заголовок: oBrw:nBottom - oBrw:..

CLASS TSBrowse FROM TControl

вероятно сработает oBrw:nBottom - oBrw:nTop не ?

 Отправлено: 20.12.14 15:37. Заголовок: Dima пишет: вероятн..

Dima пишет:

цитата:

вероятно сработает oBrw:nBottom - oBrw:nTop не ?

точно, но простые пути нам не интересны

 Отправлено: 20.12.14 15:47. Заголовок: Haz :sm12: ..

Haz

 Отправлено: 20.12.14 16:07. Заголовок: Andrey что касается..

Andrey
что касается цветов вот еще 2 из TCONTROL nClrText ,nClrPane

 Отправлено: 20.12.14 18:50. Заголовок: Нашел еще лучше - oB..

Нашел еще лучше - oBrw:nHeightHead !

 Отправлено: 20.12.14 18:56. Заголовок: Dima пишет: что кас..

Dima пишет:

цитата:

что касается цветов вот еще 2 из TCONTROL nClrText ,nClrPane

Нет это не то ! Не перекрашивают то что нужно.

 Отправлено: 20.12.14 18:57. Заголовок: Andrey пишет: oBrw:..

Andrey пишет:

цитата:

oBrw:nHeightHead

так это высота заголовка , не ?

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

 Отправлено: 23.12.14 23:36. Заголовок: Andrey пишет: Блин,..

Andrey пишет:

цитата:

Блин, а ларчик открывался просто... DEFINE TBROWSE oBrwLic ; ........ BACKCOLOR BLUE ; ......... END TBROWSE

Цвет окна (где НЕТ записей) в таблице установил, а по ходу в задаче НЕ МОГУ исправить цвет:
// ------ Установить фон окна таблицы ----------
Form_0.oBrw.BackColor := n2RGB(M->nTbrwColorPane)

Что не так делаю ?

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