| Автор | Сообщение |
|
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
[только новые]
|
|
- участник сейчас на форуме
- участник вне форума