Автор | Сообщение |
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
[только новые]
|
|
Andrey
|
| постоянный участник
|
Пост N: 4469
Зарегистрирован: 12.09.06
|
|
Отправлено: 26.08.15 16:17. Заголовок: Dima пишет: Что бы ..
Dima пишет: цитата: | Что бы не флудить еще пару-тройку страниц , самодостаточный пример. |
| Спасибо Дима ! Только жалко, что там нет 1-ой колонки с нумерацией DATA oBrw:nLogicPos .... ----- Помнишь, говорили в этом фильме : Да гранаты у него не той системы... Жалко на ютубе не нашёл этого кусочка... Ну да ладно, буду смотреть.
|
|
|
Haz
|
| |
Пост N: 639
Зарегистрирован: 20.02.11
|
|
Отправлено: 26.08.15 16:30. Заголовок: Andrey пишет: Ну да..
Andrey пишет: цитата: | Ну да ладно, буду смотреть. |
| Ну куда там еще смотреть , все разжевано - пережевано дальше некуда цитата: | жалко, что там нет 1-ой колонки с нумерацией DATA oBrw:nLogicPos .... |
| так добавь с DATA ( oBrw:cAlias)->(OrdkeyNo()) , это же можно сделать самостоятельно
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4488
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.09.15 09:40. Заголовок: Всем привет ! Можно..
Всем привет ! Можно ли при построение узнать размер пустой строки перед подвалом ?
|
|
|
Dima
|
| |
Пост N: 5263
Зарегистрирован: 17.05.05
|
|
Отправлено: 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)
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4489
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.09.15 11:16. Заголовок: Dima пишет: Типа та..
Dima пишет: Спасибо ! А как узнать кол-во строк в бровсе ? Хочу размер дырки/на кол-во строк в бровсе и добавить в oBrw:nHeightCell
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 808
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.09.15 11:24. Заголовок: Andrey пишет:Хочу ра..
Andrey пишет: цитата: | Хочу размер дырки/на кол-во строк в бровсе и добавить в oBrw:nHeightCell |
| Если бы ровно делилось - не было бы дырки. Разницу надо относить к header, footer или менять размер по высоте tsb
|
|
|
Dima
|
| |
Пост N: 5264
Зарегистрирован: 17.05.05
|
|
Отправлено: 01.09.15 11:36. Заголовок: Andrey пишет: Хочу ..
Andrey пишет: цитата: | Хочу размер дырки/на кол-во строк в бровсе и добавить в oBrw:nHeightCell |
| типа так ngh:=GetHole(oBrw) END TBROWSE oBrw:nHeightHead+=ngh+1
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4490
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.09.15 14:22. Заголовок: Dima пишет: oBrw:n..
Dima пишет: Нет, так не пойдёт. Нужно ngh/ кол-во строк бровса ! Так как узнать кол-во строк в бровсе ?
|
|
|
Dima
|
| |
Пост N: 5265
Зарегистрирован: 17.05.05
|
|
Отправлено: 01.09.15 14:35. Заголовок: Andrey пишет: Так к..
Andrey пишет: цитата: | Так как узнать кол-во строк в бровсе ? |
| Да писали тебе уже 100 раз oBrw:nrowcount()
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4491
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.09.15 15:11. Заголовок: Dima пишет: oBrw:nr..
Dima пишет: Спасибо ! Получилось ! Дырки больше нет !
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4492
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.09.15 19:56. Заголовок: Показываю массив в T..
Показываю массив в Tsbrowse. 4 элемент массива логический T/F Как сделать блок кода для цвета, чтобы с F была окраска другим цветом ? oBrwF:SetColor( { 2 }, { ????
|
|
|
|
Haz
|
| |
Пост N: 647
Зарегистрирован: 20.02.11
|
|
Отправлено: 01.09.15 20:53. Заголовок: Andrey пишет: Как с..
Andrey пишет: цитата: | Как сделать блок кода для цвета, чтобы с F была окраска другим цветом ? oBrwF:SetColor( { 2 }, { ???? |
| Ты это серьезно , а что непонятно в примере который Dima неделю назад сюда же кидал показ/непоказ удаленных записей ? Там же если Deleted() красилось серым. Заменить Deleted() на oBrw:aArray[oBrw:nAt][4] проблема ... Или настолько лень читать что тебе же и пишут ...
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4493
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.09.15 21:15. Заголовок: Haz пишет: oBrw:aAr..
Haz пишет: цитата: | oBrw:aArray[oBrw:nAt][4] проблема |
| Вот в этом и была проблема. Не понимал логику нумерации в массиве. Теперь буду знать ! Читать не лень. Не всегда нужно сразу что обсуждается, а потом забывается. Спасибо БОЛЬШОЕ !
|
|
|
Dima
|
| |
Пост N: 5266
Зарегистрирован: 17.05.05
|
|
Отправлено: 01.09.15 21:22. Заголовок: Andrey пишет: Вот в..
Andrey пишет: цитата: | Вот в этом и была проблема. Не понимал логику нумерации в массиве. Теперь буду знать ! |
| Ага и потом спросишь тоже самое спустя месяц. "Все" развивается по спирали. Похоже ты вышел на новый виток Может тебе в отпуск нужно.....отдохни , сил наберись , мозги до кучи собери. Andrey пишет: цитата: | Читать не лень. Не всегда нужно сразу что обсуждается, а потом забывается. |
| Так ты же и спрашиваешь а потом БАЦ и оно у тебя забылось. Зачем спрашивал то ? PS Ни чего личного.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4494
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.09.15 21:43. Заголовок: Dima пишет: Так ты ..
Dima пишет: цитата: | Так ты же и спрашиваешь а потом БАЦ и оно у тебя забылось. Зачем спрашивал то ? |
| Спросил, не ответили. Потом другим отвлекли на работе. Взялся опять за то что не сделал. Вот и ещё раз спрашиваю. Всё как у всех, работа отвлекает от освоения нового... Так что не обижайтесь, на повторное расспрашивание. Спасибо за помощь ! А в отпуск бы я с удовольствием уехал... Пока не отпускает работа... Новое приходиться осваивать уже дома, по вечерам-ночам...
|
|
|
Haz
|
| |
Пост N: 648
Зарегистрирован: 20.02.11
|
|
Отправлено: 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 что то быстро забывается в отпуск
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4495
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.09.15 22:15. Заголовок: Haz пишет: что то б..
Haz пишет: Забыл ! Точно, сам же делал... Из совместного примера с тобой - \MiniGUI\SAMPLES\Advanced\Tsb_colors_2 Да, надо бы в отпуск...
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4497
Зарегистрирован: 12.09.06
|
|
Отправлено: 02.09.15 17:55. Заголовок: Остался еще непоняте..
Остался еще непонятен один вопрос. Есть ли в TsBrowse переменная ведущая подсчёт кол-ва ОТОБРАЖАЕМЫХ записей в зависимости от условий показа ? Если использовать (oBrw:cAlias)->(OrdKeyCount()) или oBrw:nLen то они показывают ОБЩЕЕ кол-во записей в индексе и базе. Держать специально индекс (как в примере что дал Дима) - думаю не совсем верно, доп.расходы на ресурсы и под Leto - не нужно вообще. Самому считать/пересчитывать - как будет вести на больших базах не знаю... Как быть ?
|
|
|
Haz
|
| |
Пост N: 650
Зарегистрирован: 20.02.11
|
|
Отправлено: 02.09.15 18:33. Заголовок: Andrey пишет: Есть ..
Andrey пишет: цитата: | Есть ли в TsBrowse переменная ведущая подсчёт кол-ва ОТОБРАЖАЕМЫХ записей в зависимости от условий показа |
| TsBrowse тут не приделах , сам подумай где TS брать данные ? Если ты знаешь как получить это число напрямую из RDD DBFCDX - используй его. Я знаю только метод тупого пересчета или OrdKeyCount() по условному индексу. Другие RDD , например ADS позволяют дернуть количество записей в фильтре или получить нумератор в SQL запросе. Andrey пишет: Если хочешь что бы было сделано хорошо - сделай сам. Так что или считай или индексуй сам PS Вспомнил еще метод для подсчета удаленки - чтение файла FRead() блоками = длинне записи и подсчет '*' в заголовке записей
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4499
Зарегистрирован: 12.09.06
|
|
Отправлено: 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() ) + "}") ) ) ) } но он ломается, если стоишь на последней записи и нажимаешь стрелку вниз или мышкой вниз... Разве только у меня такая проблема стоит - показать общее кол-во выбранных записей ? Всем нужно !
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|