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

 Отправлено: 26.08.15 16:17. Заголовок: Dima пишет: Что бы ..

Dima пишет:

цитата:

Что бы не флудить еще пару-тройку страниц , самодостаточный пример.

Спасибо Дима !

Только жалко, что там нет 1-ой колонки с нумерацией DATA oBrw:nLogicPos ....
-----
Помнишь, говорили в этом фильме : Да гранаты у него не той системы...
Жалко на ютубе не нашёл этого кусочка...

Ну да ладно, буду смотреть.

 Отправлено: 26.08.15 16:30. Заголовок: Andrey пишет: Ну да..

Andrey пишет:

цитата:

Ну да ладно, буду смотреть.

Ну куда там еще смотреть , все разжевано - пережевано дальше некуда

цитата:

жалко, что там нет 1-ой колонки с нумерацией DATA oBrw:nLogicPos ....

так добавь с DATA ( oBrw:cAlias)->(OrdkeyNo()) , это же можно сделать самостоятельно

 Отправлено: 01.09.15 09:40. Заголовок: Всем привет ! Можно..

Всем привет !

Можно ли при построение узнать размер пустой строки перед подвалом ?

 Отправлено: 01.09.15 10:22. Заголовок: Andrey Типа так Fu..

Andrey
Типа так

 
 Func GetHole(obrw) 
 local WorkHeight := oBrw:nHeight-oBrw:nHeightHead-oBrw:nHeightSuper-; 
                     oBrw:nHeightFoot-oBrw:nHeightSpecHd-if(!oBrw:lNoHScroll,16,0) 
 RETURN (WorkHeight-Int(WorkHeight/oBrw:nHeightCell)*oBrw:nHeightCell) 
 

 Отправлено: 01.09.15 11:16. Заголовок: Dima пишет: Типа та..

Dima пишет:

цитата:

Типа так

Спасибо !
А как узнать кол-во строк в бровсе ?
Хочу размер дырки/на кол-во строк в бровсе и добавить в oBrw:nHeightCell

 Отправлено: 01.09.15 11:24. Заголовок: Andrey пишет:Хочу ра..

Andrey пишет:

цитата:

Хочу размер дырки/на кол-во строк в бровсе и добавить в oBrw:nHeightCell

Если бы ровно делилось - не было бы дырки. Разницу надо относить к header, footer или менять размер по высоте tsb

 Отправлено: 01.09.15 11:36. Заголовок: Andrey пишет: Хочу ..

Andrey пишет:

цитата:

Хочу размер дырки/на кол-во строк в бровсе и добавить в oBrw:nHeightCell

типа так

 
 ngh:=GetHole(oBrw) 
  
           END TBROWSE 
            
 oBrw:nHeightHead+=ngh+1 
  
 

 Отправлено: 01.09.15 14:22. Заголовок: Dima пишет: oBrw:n..

Dima пишет:

цитата:

oBrw:nHeightHead+=ngh+1

Нет, так не пойдёт. Нужно ngh/ кол-во строк бровса !
Так как узнать кол-во строк в бровсе ?

 Отправлено: 01.09.15 14:35. Заголовок: Andrey пишет: Так к..

Andrey пишет:

цитата:

Так как узнать кол-во строк в бровсе ?

Да писали тебе уже 100 раз
oBrw:nrowcount()

 Отправлено: 01.09.15 15:11. Заголовок: Dima пишет: oBrw:nr..

Dima пишет:

цитата:

oBrw:nrowcount()

Спасибо !

Получилось ! Дырки больше нет !

 Отправлено: 01.09.15 19:56. Заголовок: Показываю массив в T..

Показываю массив в Tsbrowse.
4 элемент массива логический T/F

Как сделать блок кода для цвета, чтобы с F была окраска другим цветом ?
oBrwF:SetColor( { 2 }, { ????

 Отправлено: 01.09.15 20:53. Заголовок: Andrey пишет: Как с..

Andrey пишет:

цитата:

Как сделать блок кода для цвета, чтобы с F была окраска другим цветом ? oBrwF:SetColor( { 2 }, { ????

Ты это серьезно , а что непонятно в примере который Dima неделю назад сюда же кидал показ/непоказ удаленных записей ?
Там же если Deleted() красилось серым. Заменить Deleted() на oBrw:aArray[oBrw:nAt][4] проблема ...
Или настолько лень читать что тебе же и пишут ...

 Отправлено: 01.09.15 21:15. Заголовок: Haz пишет: oBrw:aAr..

Haz пишет:

цитата:

oBrw:aArray[oBrw:nAt][4] проблема

Вот в этом и была проблема. Не понимал логику нумерации в массиве.
Теперь буду знать !

Читать не лень. Не всегда нужно сразу что обсуждается, а потом забывается.

Спасибо БОЛЬШОЕ !

 Отправлено: 01.09.15 21:22. Заголовок: Andrey пишет: Вот в..

Andrey пишет:

цитата:

Вот в этом и была проблема. Не понимал логику нумерации в массиве. Теперь буду знать !

Ага и потом спросишь тоже самое спустя месяц.
"Все" развивается по спирали. Похоже ты вышел на новый виток
Может тебе в отпуск нужно.....отдохни , сил наберись , мозги до кучи собери.

Andrey пишет:

цитата:

Читать не лень. Не всегда нужно сразу что обсуждается, а потом забывается.

Так ты же и спрашиваешь а потом БАЦ и оно у тебя забылось. Зачем спрашивал то ?

PS
Ни чего личного.

 Отправлено: 01.09.15 21:43. Заголовок: Dima пишет: Так ты ..

Dima пишет:

цитата:

Так ты же и спрашиваешь а потом БАЦ и оно у тебя забылось. Зачем спрашивал то ?

Спросил, не ответили. Потом другим отвлекли на работе. Взялся опять за то что не сделал. Вот и ещё раз спрашиваю.
Всё как у всех, работа отвлекает от освоения нового...
Так что не обижайтесь, на повторное расспрашивание.
Спасибо за помощь !
А в отпуск бы я с удовольствием уехал... Пока не отпускает работа...
Новое приходиться осваивать уже дома, по вечерам-ночам...

 Отправлено: 01.09.15 22:06. Заголовок: Andrey пишет: Не п..

Andrey пишет:

цитата:

Не понимал логику нумерации в массиве. Теперь буду знать !

Хочется верить что надолго

Tsb_Config - твой же пример

 
 FUNCTION ColorPicker(oBrw) 
     LOCAL aColor := {} 
  
     aColor := n2RGB(oBrw:aArray[oBrw:nAt][oBrw:nCell] ) // получить цвет из текущей ячейки 
     aColor := GetColor(aColor)            // стандартное меню цвета 
     IF aColor[1] # NIL 
        // поместить новый цвет в текущую ячейку 
        oBrw:aArray[oBrw:nAt][oBrw:nCell] := RGB(aColor[1], aColor[2], aColor[3] )  
     ENDIF 
 RETURN NIL 
 

что то быстро забывается
в отпуск

 Отправлено: 01.09.15 22:15. Заголовок: Haz пишет: что то б..

Haz пишет:

цитата:

что то быстро забывается

Забыл ! Точно, сам же делал...
Из совместного примера с тобой - \MiniGUI\SAMPLES\Advanced\Tsb_colors_2
Да, надо бы в отпуск...

 Отправлено: 02.09.15 17:55. Заголовок: Остался еще непоняте..

Остался еще непонятен один вопрос.
Есть ли в TsBrowse переменная ведущая подсчёт кол-ва ОТОБРАЖАЕМЫХ записей в зависимости от условий показа ?
Допустим стоит режим SET DELETED ON в бровсе отображается 3 записи, если SET DELETED OFF - то 4 записи.


Если использовать (oBrw:cAlias)->(OrdKeyCount()) или oBrw:nLen то они показывают ОБЩЕЕ кол-во записей в индексе и базе.
Держать специально индекс (как в примере что дал Дима) - думаю не совсем верно, доп.расходы на ресурсы и под Leto - не нужно вообще.
Самому считать/пересчитывать - как будет вести на больших базах не знаю...
Как быть ?

 Отправлено: 02.09.15 18:33. Заголовок: Andrey пишет: Есть ..

Andrey пишет:

цитата:

Есть ли в TsBrowse переменная ведущая подсчёт кол-ва ОТОБРАЖАЕМЫХ записей в зависимости от условий показа

TsBrowse тут не приделах , сам подумай где TS брать данные ?
Если ты знаешь как получить это число напрямую из RDD DBFCDX - используй его. Я знаю только метод тупого пересчета или OrdKeyCount() по условному индексу.
Другие RDD , например ADS позволяют дернуть количество записей в фильтре или получить нумератор в SQL запросе.

Andrey пишет:

цитата:

Как быть ?

Если хочешь что бы было сделано хорошо - сделай сам. Так что или считай или индексуй сам

PS Вспомнил еще метод для подсчета удаленки - чтение файла FRead() блоками = длинне записи и подсчет '*' в заголовке записей

 Отправлено: 02.09.15 18:48. Заголовок: Haz пишет: TsBrowse..

Haz пишет:

цитата:

TsBrowse тут не приделах , сам подумай где TS брать данные ?

А завести в TsBrowse специальную функцию, чтобы возвращала кол-во записей в TsBrowse ?
Там же есть переменные типа oBrw:nLogicPos()

В примере Tsb_Config.prg - Григорий делал подсчет:
oBrw:bLogicLen := {|| iif( Empty(( oBrw:cAlias )->( DbFilter() )), ;
( oBrw:cAlias )->( LastRec() ), ;
( oBrw:cAlias )->( DbEval( { || M->nRecnoDbFilter++ }, &("{||" + ( oBrw:cAlias )->( DbFilter() ) + "}") ) ) ) }

но он ломается, если стоишь на последней записи и нажимаешь стрелку вниз или мышкой вниз...

Разве только у меня такая проблема стоит - показать общее кол-во выбранных записей ? Всем нужно !