Автор | Сообщение |
|
| постоянный участник
|
Пост N: 178
Зарегистрирован: 27.07.08
|
|
Отправлено: 15.11.11 03:06. Заголовок: TSBROWSE - "цепляется" последняя строка
Обьясните пожалуйста, почему при прокрутке TSBROWSE последняя строка часто не обновляется, а зависает, и её значение остаётся неизменным при прокрутке. В зависимости от установленного числа пикселей высоты, эта строка может быть в половину и в четверть нормальной высоты.
|
|
|
Ответов - 69
, стр:
1
2
3
4
All
[только новые]
|
|
|
| |
Пост N: 5035
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.07.15 15:39. Заголовок: SergKis Собственно ..
SergKis Собственно я пока играюсь что бы понять как и что Конструкция примерно такая Func NEW_Magaz(nmag,cTitle) DEFINE WINDOW MAGAZIN.......... if nmag==1 Magaz_po("MAGAZIN") // а тут в этой функции дефайню бровс который живет в окне MAGAZIN // и как бы не хотелось находясь в функции NEW_Magaz дергать сам бровс //после END WINDOW и все хотел сделать в Magaz_po() endif END WINDOW DoMethod("MAGAZIN","Activate") Return nil
|
|
|
|
| постоянный участник
|
Пост N: 705
Зарегистрирован: 17.02.12
|
|
Отправлено: 04.07.15 15:52. Заголовок: Попробуй через метод..
Попробуй через метод resize перед action nSizeType := 0 nWidth := Form_1.oBrw5.Width nHeight := Form_1.oBrw5.Height oBrw:ReSize( nSizeType, nWidth, nHeight ) в нем пересчет идет с учетом nAdjColumn
|
|
|
|
| |
Пост N: 5036
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.07.15 16:03. Заголовок: SergKis пишет: Попр..
SergKis пишет: цитата: | Попробуй через метод resize перед action |
| Сработало но как то "криво".......ладно бог с ним гориз.скролом , пусть живет ;)
|
|
|
|
| постоянный участник
|
Пост N: 706
Зарегистрирован: 17.02.12
|
|
Отправлено: 04.07.15 16:15. Заголовок: Dima пишет:Конструкц..
Dima пишет: цитата: | Конструкция примерно такая |
| Строю примерно так: Function Wnd_Child_Kassa(...) или Wnd_Modal_Kassa(...) Before_Wnd() // действия перед окном подчитываем что надо для работы Create_Wnd(...) // DEFINE WINDOW ... IF lErr MsgStop("Чего то не сраслось", "ERROR") ELSE Create_Menu() // созд.меню Create_TBar()// созд.toolbar Create_SBar() // statusbar Create_Brw1() Create_Brw2() или для окна ввода данных Create_Lbl_Get() ENDIF After_Create_Wnd() Show() After_Wnd() RETURN Static function Before_Wnd() ... Static function Create_Wnd() ... Static function Create_Menu() ... Static function Create_TBar() ... Static function Create_SBar() ... Static function Create_Brw1() ... Static function Create_Brw2() ... Static function Create_Lbl_Get() ... Static function After_Create_Wnd() END WINDOW действия перед ACTIVATE ... Static function Show() ACTIVATE ... ... Static function After_Wnd() ...
|
|
|
|
| |
Пост N: 5037
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.07.15 16:21. Заголовок: SergKis Понял. Сенк..
SergKis Понял. Сенкс !
|
|
|
|
| |
Пост N: 5038
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.07.15 16:53. Заголовок: До кучи так сказать...
До кучи так сказать. Это я исключительно про TSBrowse. Как в обычном не знаю , да и не нужно пока. Вот такое присвоение делать не следует если использовать nAdjColumn oBrw:aColumns[ 1 ]:nWidth:=470 Правильно вот так oBrw:SetColSize( 1, 470 )
|
|
|
|
| постоянный участник
|
Пост N: 707
Зарегистрирован: 17.02.12
|
|
Отправлено: 04.07.15 17:03. Заголовок: Dima пишет: делать н..
Dima пишет: цитата: | делать не следует если использовать nAdjColumn |
| я делал без nAdjColumn (и горизонт. scroll) так (TsBrowse) w := oBrw5:GetAllColsWidth() Form_1.Width := w+GetVScrollBarWidth()+GetBorderWidth()+10 // 10 - отступ справа, слева такой тоже есть Form_1.oBrw5.Width := w
|
|
|
|
| |
Пост N: 5039
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.07.15 17:10. Заголовок: SergKis пишет: w :=..
SergKis пишет: цитата: | w := oBrw5:GetAllColsWidth() |
| Так тоже не совсем правильно , так как учтены будут все колонки в том числе скрытые и ширина установится не правильно. SergKis пишет: что бы делать с ним корректно надо чуть поправить сырец h_tbrowse.prg в METHOD TSBrowse:ReSize()
|
|
|
|
| постоянный участник
|
Пост N: 708
Зарегистрирован: 17.02.12
|
|
Отправлено: 04.07.15 17:15. Заголовок: Dima Ты прав, я же ..
Dima Ты прав, я же у себя окно притягиваю к tsbrowse (колонки все на окне), но где то видел как получить только видимые колонки
|
|
|
|
| |
Пост N: 5041
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.07.15 17:18. Заголовок: SergKis Это правка ..
SergKis Это правка сырца AEval( ::aColumns, {|n| IF( n:lVisible, nTotPix += n:nWidth, nil ) } ) Copyright Has
|
|
|
|
| постоянный участник
|
Пост N: 709
Зарегистрирован: 17.02.12
|
|
Отправлено: 04.07.15 17:23. Заголовок: Dima пишет:Это правк..
Dima пишет: а она решает проблемку при oBrw5:lNoHScrol := .T.
|
|
|
|
|
| |
Пост N: 5042
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.07.15 17:31. Заголовок: SergKis пишет: а он..
SergKis пишет: цитата: | а она решает проблемку при oBrw5:lNoHScrol := .T. |
| Нет. Это решает проблему корректного выравнивания. Это установка у меня живет в коменте // oBrw5:lNoHScrol := .T.
|
|
|
|
| постоянный участник
|
Пост N: 710
Зарегистрирован: 17.02.12
|
|
Отправлено: 04.07.15 17:41. Заголовок: т.е. :Resize(...) Ср..
т.е. :Resize(...) цитата: | Сработало но как то "криво".......ладно бог с ним гориз.скролом , пусть живет |
|
|
|
|
|
| |
Пост N: 5043
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.07.15 17:43. Заголовок: SergKis пишет: т.е...
|
|
|
|
| постоянный участник
|
Пост N: 711
Зарегистрирован: 17.02.12
|
|
Отправлено: 04.07.15 17:50. Заголовок: Dima Спасибо..
Dima Спасибо
|
|
|
|
| |
Пост N: 5044
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.07.15 18:00. Заголовок: Сергей полный текст ..
Сергей полный текст правки // AEval( ::aColSizes, {|n| nTotPix += n } ) // это было AEval( ::aColumns, {|n| IF( n:lVisible, nTotPix += n:nWidth, nil ) } ) // добавлено do events // добавлено , удивительно но в ряде случаев без этого не работает
|
|
|
|
| постоянный участник
|
Пост N: 712
Зарегистрирован: 17.02.12
|
|
Отправлено: 04.07.15 18:13. Заголовок: Dima пишет:Сергей по..
Dima пишет: цитата: | Сергей полный текст правки |
| Спасибо. Загнал к себе. Правда TsBrowse отложил пока. Вроде пару недель прошло, а отключился от него сильно, да еще жара 31 ...
|
|
|
|
| |
Пост N: 5045
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.07.15 18:36. Заголовок: Да в жару сложно дум..
Да в жару сложно думать и работать. Включи кондей ! ЗЫ У нас дождик , прохладно....красота. В этом году кондей еще не включал ;)
|
|
|
|
| постоянный участник
|
Пост N: 713
Зарегистрирован: 17.02.12
|
|
Отправлено: 04.07.15 19:22. Заголовок: Dima Включил, но ещ..
Dima Включил, но еще первый раз в этом году (еще 2-а дня назад было прохладно). Но пока со второго этажа дойдет ... (я на огороде) Наверно надо перенести посты по общим вопр. TsBrowse (крайние) в тему TsBrowse. А то плавно засорили эту темеу др. вопросами, ну флуд удали, если возможно
|
|
|
|
| |
Пост N: 5046
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.07.15 19:41. Заголовок: Кому надо тот найдет..
Кому надо тот найдет. Тем более тут в названии фигурирует TSBROWSE. Поиск по TSBROWSE покажет и эту тему. А не много флуда это нормально ;)
|
|
|
Ответов - 69
, стр:
1
2
3
4
All
[только новые]
|
|