Автор | Сообщение |
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
[только новые]
|
|
Dima
|
| |
Пост N: 6077
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.11.16 14:05. Заголовок: SergKis пишет: Окна..
SergKis пишет: цитата: | Окна с тсб без заголовков и всего, так можно пробнуть, отпишись, что выйдет. |
| конечно
|
|
|
ММК
|
| постоянный участник
|
Пост N: 247
Зарегистрирован: 29.05.10
|
|
Отправлено: 09.11.16 15:45. Заголовок: Dima пишет: Такое в..
Dima пишет: цитата: | Такое впечатление что где то утечка памяти. |
| Да, такое впечатление. Под FW с TsBrows ом у меня такие проблемы были. Отследи утечку, потом можно будет пободаться. Например убрать все фонты ....
|
|
|
Dima
|
| |
Пост N: 6078
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.11.16 16:13. Заголовок: ММК в Xбровсе FW та..
ММК в Xбровсе FW такого нет ?
|
|
|
ММК
|
| постоянный участник
|
Пост N: 248
Зарегистрирован: 29.05.10
|
|
Отправлено: 09.11.16 16:20. Заголовок: Dima пишет: в Xбров..
Dima пишет: цитата: | в Xбровсе FW такого нет ? |
| Нет. Xбровс это уже другой уровень, другие возможности.
|
|
|
Dima
|
| |
Пост N: 6079
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.11.16 16:43. Заголовок: ММК То есть ни чего..
ММК То есть ни чего в нем само не ломается если сам ошибок не сделал , так ?
|
|
|
Dima
|
| |
Пост N: 6080
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.11.16 16:53. Заголовок: SergKis Значит сдел..
SergKis Значит сделал я в отдельном окне. Одно окно STANDART большое на весь экран , под главный бровс внутри этого окна сделал окно WINDOWTYPE PANEL и в нем поселил главный бровс. Поездил и глюки повторились (не сразу) . Печаль......
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 1263
Зарегистрирован: 17.02.12
|
|
Отправлено: 09.11.16 17:51. Заголовок: Dima А если не пане..
Dima А если не панель (там вроде не все ок), а child на каждый тсб, а сверху standart ?
|
|
|
Dima
|
| |
Пост N: 6082
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.11.16 18:00. Заголовок: SergKis Да что то я..
SergKis Да что то я сразу не допер , так как смутил первый вылет когда я просто внутри окна определил другое окно и когда запустил , выпала месага что внутри окна можно создать только окно типа Panel Я пока что делаю чистый эксперимент , езжу только клавишами......о снова все сломалось при чем в обоих бровсах сразу. Хрен знает что делать.......а клиент уже лютует ЗЫ Чем больше ездим по бровсу , не важно как , мышка или клава , тем он быстрее дурнеет и дурнеет...... Может ему какую оздоравливающую процедуру делать по таймеру ? Вопрос в том какую... Говорю о двух бровсах в одном окне. Когда один то такого не происходит , мне не удалось это сделать.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 5162
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.11.16 18:29. Заголовок: Dima пишет: Хрен зн..
Dima пишет: цитата: | Хрен знает что делать.......а клиент уже лютует |
| Сочувствую... Аналогично бывает... Я только один бровс в окне использую. SergKis пишет: цитата: | А если не панель (там вроде не все ок), а child на каждый тсб, а сверху standart ? |
| Вот это интересное решение, но столько проблем начинается при перетаскивании окна. Если каждое окно - само за себя то это классное решение.
|
|
|
Dima
|
| |
Пост N: 6085
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.11.16 18:40. Заголовок: Dima пишет: Может е..
Dima пишет: цитата: | Может ему какую оздоравливающую процедуру делать по таймеру ? |
| Сунул пока что в bchange бровса doevents() , буду тестить......
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 1264
Зарегистрирован: 17.02.12
|
|
Отправлено: 09.11.16 18:44. Заголовок: Dima пишет Может ему..
Dima пишет цитата: | Может ему какую оздоравливающую процедуру делать |
| Я тебе ее предлагал, стрелкой вниз держим, через ~50 строк отжимаем и жмем PgDn, снова стрелкой вниз держим, через ~50 строк отжимаем и жмем PgDn, ... потом стрелкой вверх тоже самое, если не рушится, то процедуру можно делать (у меня есть такое), если нет, то ... хз.
|
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 1265
Зарегистрирован: 17.02.12
|
|
Отправлено: 09.11.16 18:50. Заголовок: Dima пишет Хрен знае..
Dima пишет цитата: | Хрен знает что делать.......а клиент уже лютует |
| Замени левый тсб (с первой картинки) browse, там только 2-х строчный заголовок -> сделай в строку для browse, места хватит. должно работать, есть разница, конено, но не смертельная, а выиграть аремя можно.
|
|
|
Dima
|
| |
Пост N: 6086
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.11.16 18:52. Заголовок: SergKis пишет: Я те..
SergKis пишет: цитата: | Я тебе ее предлагал, стрелкой вниз держим, через ~50 строк отжимаем и жмем PgDn |
| Как же я на глазок определю что отмотал 50 строк руками ? :) Вообще процедура не понятна.........отмотали 50 строк вниз и зачем то нажали PgDn ....он еще отмотает страницу , как то не логично. И потом почему на твой взгляд такой подход должен решить проблему ? Что то я не до конца усекаю
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 1266
Зарегистрирован: 17.02.12
|
|
Отправлено: 09.11.16 18:54. Заголовок: Andrey пишет но сто..
Andrey пишет цитата: | но столько проблем начинается при перетаскивании окна. |
| Совсем проблемы нет менять координаты row,col child окон при перетаскивании standart окна
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 1267
Зарегистрирован: 17.02.12
|
|
Отправлено: 09.11.16 19:09. Заголовок: Dima пишет И потом ..
Dima пишет цитата: | И потом почему на твой взгляд такой подход должен решить проблему ? Что то я не до конца усекаю |
| У себя я именно так нащупал оздоравливающую процедуру и встроил ее в либу - пока работает. Стрелка .. работает типа скрол экрана, а PgDn прорисовывает весь лист (окно) тсб, в этом разница. ~50-100 строк я нащупал пробуя, в либу поставил 100, т.е. крутим колесико или жмем стрелку ..., через 100 строк проскакивает отжатие стрелки и PgDn или PgUp
|
|
|
Dima
|
| |
Пост N: 6087
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.11.16 19:16. Заголовок: SergKis Похоже на ш..
SergKis Похоже на шаманство и танец с бубном Если не жалко , сложи на фтп + как ее правильно применить. Спасибо. PS С 7 утра пытаюсь решить эту проблему и ни как..........
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 1268
Зарегистрирован: 17.02.12
|
|
Отправлено: 09.11.16 19:40. Заголовок: Dima пишет Похоже на..
Dima пишет цитата: | Похоже на шаманство и танец с бубном |
| Так я и плясал вокруг этого не один день Просто понять поможет или нет (время на разбирательсво не тратить) жмешь чуть чуть стрелку вниз, отпускаешь, жмешь PgDn один раз и снова стрелку вниз чуть чуть и т.д. Еще пробни нажатия PgDn (с отпусканием или зажатый на срок) ломают тсб ? тексты тут положу, найду что менял.
|
|
|
Dima
|
| |
Пост N: 6088
Зарегистрирован: 17.05.05
|
|
Отправлено: 09.11.16 19:50. Заголовок: SergKis пишет: Так ..
SergKis пишет: цитата: | Так я и плясал вокруг этого не один день |
| Смотри сам , не хочешь , не выкладывай , я пойму Буду тогда сам ковыряться не один день
|
|
|
ММК
|
| постоянный участник
|
Пост N: 249
Зарегистрирован: 29.05.10
|
|
Отправлено: 09.11.16 20:05. Заголовок: Dima пишет: То есть..
Dima пишет: цитата: | То есть ни чего в нем само не ломается если сам ошибок не сделал , так |
| Так нет. У меня есть пару мест , где на окне пара бровсов-жалоб не поступало. Правда не пробовал 15 минут крутить колесико :) SergKis пишет: цитата: | Стрелка .. работает типа скрол экрана, а PgDn прорисовывает весь лист (окно) тсб, в этом разница. |
| Уже не помню, поэтому могу ошибаться :) Делал что-то типа oBr:upstable() oBr:Setfocus() или oBr:upstable() oBr:Refresh(.T.) Иногда помогало :)
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 1269
Зарегистрирован: 17.02.12
|
|
Отправлено: 09.11.16 20:05. Заголовок: Тут изменения CLASS..
Тут изменения Скрытый текст
CLASS TSBrowse FROM TControl ... DATA nKeyDownOld AS NUMERIC INIT 0 // BK 11.08.2015 DATA nKeyDownCnt AS NUMERIC INIT 0 // BK ... METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TSBrowse ... ElseIf nMsg == WM_KEYDOWN return ::KeyDown( nWParam, nLParam ) ElseIf nMsg == WM_KEYUP ::nKeyDownOld := 0 // BK 11.08.2015 ::nKeyDownCnt := 0 // BK Return ::KeyUp( nWParam, nLParam ) Elseif nMsg == WM_HSCROLL ... METHOD KeyDown( nKey, nFlags ) CLASS TSBrowse ... Case nKey == VK_UP ::GoUp() If ::nRowPos == 1 // BK 11.08.2015 If ::nKeyDownOld == nKey ::nKeyDownCnt += 1 EndIf If ::nKeyDownCnt >= ( ::nRowCount() ) PostMessage(::hWnd, WM_KEYUP , VK_UP , 0) PostMessage(::hWnd, WM_KEYDOWN, VK_PRIOR, 0) EndIf EndIf ::nKeyDownOld := nKey // BK 11.08.2015 Case nKey == VK_DOWN ::GoDown() If ::nRowPos == ::nRowCount() // BK 11.08.2015 If ::nKeyDownOld == nKey ::nKeyDownCnt += 1 EndIf If ::nKeyDownCnt >= ( ::nRowCount() ) PostMessage(::hWnd, WM_KEYUP , VK_DOWN, 0) PostMessage(::hWnd, WM_KEYDOWN, VK_NEXT, 0) EndIf EndIf ::nKeyDownOld := nKey // BK 11.08.2015 Case nKey == VK_LEFT ::GoLeft() Case nKey == VK_RIGHT ::GoRight() ... METHOD KeyUp( nKey, nFlags ) CLASS TSBrowse ::nKeyDownOld := 0 // BK 11.08.2015 ::nKeyDownCnt := 0 // BK If lNoAppend != Nil ...
|
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|