Автор | Сообщение |
|
| |
Пост N: 5760
Зарегистрирован: 17.05.05
|
|
Отправлено: 23.06.16 21:20. Заголовок: [?] Простой вопрос
Есть главное окно программы , в нем живут несколько CHILD окон (не MDI). В процедуре ON INTERACTIVECLOSE главного окна есть блок кода , если он вернет TRUE тогда закроется главное окно и программа завершится. А вот если блок кода вернул FALSE , то как вернуть фокус ввода на окно на котором был фокус ввода до нажатия крестика главного окна ?
|
|
|
Новых ответов нет
, стр:
1
2
3
4
5
6
7
8
All
[см. все]
|
|
|
| постоянный участник
|
Пост N: 1025
Зарегистрирован: 17.02.12
|
|
Отправлено: 25.06.16 17:30. Заголовок: Dima пишет: не писат..
Dima пишет: цитата: | не писать же в INI nDelta для каждого бровса |
| у меня один nDelta на всю прогу и менять пришлось только 1 раз (правда и фонт для всех tsb один на всю прогу) есть др. путь написать resize для tsb и использовать его меняя размеры окна таже можно уст. размеры tsb заранее просчитав (константы для элементов header, line, footer) все высоты tsb и получив общую высоту tsb и установить ее (например от количества строк в tsb)
|
|
|
|
| |
Пост N: 5784
Зарегистрирован: 17.05.05
|
|
Отправлено: 25.06.16 17:34. Заголовок: SergKis пишет: таже..
SergKis пишет: цитата: | таже можно уст. размеры tsb заранее просчитав (константы для элементов header, line, footer) все высоты tsb и получив общую высоту tsb и установить ее (например от количества строк в tsb) |
| Понял.
|
|
|
|
| постоянный участник
|
Пост N: 1026
Зарегистрирован: 17.02.12
|
|
Отправлено: 25.06.16 17:35. Заголовок: Dima пишет:не писать..
Dima пишет: цитата: | не писать же в INI nDelta для каждого бровса |
| с др. стороны в ini сохраняются все размеры (устанавливает\раздвигает клиент) колонок для каждого бровсе, то добавить nDelta пустяковое дело
|
|
|
|
| |
Пост N: 5785
Зарегистрирован: 17.05.05
|
|
Отправлено: 25.06.16 17:45. Заголовок: SergKis Согласен...
SergKis Согласен.
|
|
|
|
| постоянный участник
|
Пост N: 1028
Зарегистрирован: 17.02.12
|
|
Отправлено: 26.06.16 08:24. Заголовок: Dima Еще про tsb, &..
Dima Еще про tsb, "дырку" и HScroll. Высота HScroll в расчетах исп. 16, а в реальности при LargeFont 24 (Андрей проверял по моей просьбе), т.е. с HScroll высота tsb может быть изначально посчитана с ошибкой и nDelta - должна подбираться руками. Я отказался от использования HScroll, поставил lNoHScroll := .T. глобально в своей либе
|
|
|
|
| |
Пост N: 5786
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.06.16 09:12. Заголовок: SergKis пишет: пост..
SergKis пишет: цитата: | поставил lNoHScroll := .T. |
| Но тут был подводный камень если не ошибаюсь , после такой установки переставала срабатывать растяжка в :nAdjColumn
|
|
|
|
| постоянный участник
|
Пост N: 1029
Зарегистрирован: 17.02.12
|
|
Отправлено: 26.06.16 09:28. Заголовок: Dima пишет: перестав..
Dima пишет: цитата: | переставала срабатывать растяжка в :nAdjColumn |
| Так она работает только на 1-м экране (если не ошибаюсь), так что толку от нее, на мой взгляд, не много, тем более пользователь сам уст. ширину колонок. В hwg сделано, на мой взгляд, лучше - последняя колонка растягивается на остаток ширины бровсе
|
|
|
|
| |
Пост N: 5787
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.06.16 09:33. Заголовок: SergKis пишет: В hw..
SergKis пишет: цитата: | В hwg сделано, на мой взгляд, лучше - последняя колонка растягивается на остаток ширины бровсе |
| Так и тут так же, только не последняя а та что указана в :nAdjColumn
|
|
|
|
| постоянный участник
|
Пост N: 1030
Зарегистрирован: 17.02.12
|
|
Отправлено: 26.06.16 09:37. Заголовок: это только на первом..
это только на первом экране, после происходит искажение последней колонки (header,line,footer), в hwg нет искажения правой последней колонки
|
|
|
|
| |
Пост N: 5788
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.06.16 10:47. Заголовок: SergKis пишет: это ..
SergKis пишет: цитата: | это только на первом экране, после происходит искажение последней колонки |
| не замечал такого
|
|
|
|
| |
Пост N: 5789
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.06.16 11:08. Заголовок: А как поймать имя бр..
А как поймать имя бровса в форме .. Имя формы так ThisWindow а бровс ? ps я про альтернативный синтаксис
|
|
|
|
|
| постоянный участник
|
Пост N: 1031
Зарегистрирован: 17.02.12
|
|
Отправлено: 26.06.16 11:36. Заголовок: Dima пишет:я про аль..
Dima пишет: цитата: | я про альтернативный синтаксис |
| Tsb мимо него проходит. Как объект tsb получать, см. Tsb_seek_2, Tsb_LoadFields
|
|
|
|
| постоянный участник
|
Пост N: 1032
Зарегистрирован: 17.02.12
|
|
Отправлено: 26.06.16 11:42. Заголовок: Dima пишет:не замеча..
Dima пишет: На след. экранах (при прокрутке HScroll) на короткий остаток колонки впихивается широкая колонка, если в ней superheader, то совсем беда с отображением. По мне лучше делать "управляемый" скролинг - удалять часть колонок (группой) и вставлять группу других, благо это не сложно
|
|
|
|
| |
Пост N: 5790
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.06.16 11:44. Заголовок: Понял. Спасибо..
Понял. Спасибо
|
|
|
|
| |
Пост N: 5791
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.06.16 11:46. Заголовок: Имею xy+=getproperty..
Имею xy+=getproperty(ThisWindow.name,"Button_1","Width")+11 Как это переписать не используя getproperty ?
|
|
|
|
| постоянный участник
|
Пост N: 1033
Зарегистрирован: 17.02.12
|
|
Отправлено: 26.06.16 12:12. Заголовок: Dima пишет:Как это п..
Dima пишет: цитата: | Как это переписать не используя getproperty ? |
| FormName.Button_1.Width GetWindowWidth(GetControlHandle("Button_1", _HMG_ThisFormName))
|
|
|
|
| постоянный участник
|
Пост N: 4978
Зарегистрирован: 12.09.06
|
|
Отправлено: 26.06.16 12:20. Заголовок: Добавлю 5 копеек про..
Добавлю 5 копеек про растяжку :nAdjColumn Заметил такую странность, если её использовать, то ширина некоторых колонок начинает сбиваться, срезается. В примере \MiniGUI\SAMPLES\Advanced\Tsb_config приходиться запоминать значение: oBrw:bInit := {|| oBrw:SetColSize( 2, nWidthFirstColumn )} А потом в ResizeBrowse() всегда восстанавливать: Eval(oBrw:bInit) Перестал использовать этот параметр, хотя удобный вроде.
|
|
|
|
| |
Пост N: 5794
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.06.16 12:29. Заголовок: SergKis пишет: Form..
SergKis пишет: Такой вариант не компилится совсем
|
|
|
|
| постоянный участник
|
Пост N: 1036
Зарегистрирован: 17.02.12
|
|
Отправлено: 26.06.16 13:55. Заголовок: Dima пишет:Такой вар..
Dima пишет: цитата: | Такой вариант не компилится совсем |
| ты вместо FormName дал реальное имя окна, на котором Button_1 и их DEFINE уже были. см. Minigui.chm -> ControlsCommand->button в самом конце properties:, events:, metods: тыкаешь Width и т.д. Я в основном пользуюсь от handle получать размеры GetWindow...(handle)
|
|
|
|
| |
Пост N: 5797
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.06.16 13:59. Заголовок: SergKis пишет: ты в..
SergKis пишет: цитата: | ты вместо FormName дал реальное имя окна |
| Понял , не хотел привязываться точно к имени окна , попробовал так xy+=ThisWindow.name.Button_1.Width+11 Не компилится Плюнул и оставил так xy+=getproperty(ThisWindow.name,"Button_1","Width")+11
|
|
|
Новых ответов нет
, стр:
1
2
3
4
5
6
7
8
All
[см. все]
|
|