Отправлено: 23.06.16 21:20. Заголовок: [?] Простой вопрос

Есть главное окно программы , в нем живут несколько CHILD окон (не MDI).
В процедуре ON INTERACTIVECLOSE главного окна есть блок кода , если он вернет
TRUE тогда закроется главное окно и программа завершится.
А вот если блок кода вернул FALSE , то как вернуть фокус ввода на окно на котором
был фокус ввода до нажатия крестика главного окна ?

 Отправлено: 25.06.16 17:30. Заголовок: Dima пишет: не писат..

Dima пишет:

цитата:

не писать же в INI nDelta для каждого бровса

у меня один nDelta на всю прогу и менять пришлось только 1 раз (правда и фонт для всех tsb один на всю прогу)
есть др. путь написать resize для tsb и использовать его меняя размеры окна
таже можно уст. размеры tsb заранее просчитав (константы для элементов header, line, footer) все высоты tsb и получив общую высоту tsb и установить ее (например от количества строк в tsb)

 Отправлено: 25.06.16 17:34. Заголовок: SergKis пишет: таже..

SergKis пишет:

цитата:

таже можно уст. размеры tsb заранее просчитав (константы для элементов header, line, footer) все высоты tsb и получив общую высоту tsb и установить ее (например от количества строк в tsb)

Понял.

 Отправлено: 25.06.16 17:35. Заголовок: Dima пишет:не писать..

Dima пишет:

цитата:

не писать же в INI nDelta для каждого бровса

с др. стороны в ini сохраняются все размеры (устанавливает\раздвигает клиент) колонок для каждого бровсе, то добавить nDelta пустяковое дело

 Отправлено: 25.06.16 17:45. Заголовок: SergKis Согласен...

SergKis
Согласен.

 Отправлено: 26.06.16 08:24. Заголовок: Dima Еще про tsb, &..

Dima
Еще про tsb, "дырку" и HScroll. Высота HScroll в расчетах исп. 16, а в реальности при LargeFont 24 (Андрей проверял по моей просьбе), т.е. с HScroll высота tsb может быть изначально посчитана с ошибкой и nDelta - должна подбираться руками. Я отказался от использования HScroll, поставил lNoHScroll := .T. глобально в своей либе

 Отправлено: 26.06.16 09:12. Заголовок: SergKis пишет: пост..

SergKis пишет:

цитата:

поставил lNoHScroll := .T.

Но тут был подводный камень если не ошибаюсь , после такой установки переставала срабатывать
растяжка в :nAdjColumn

 Отправлено: 26.06.16 09:28. Заголовок: Dima пишет: перестав..

Dima пишет:

цитата:

переставала срабатывать растяжка в :nAdjColumn

Так она работает только на 1-м экране (если не ошибаюсь), так что толку от нее, на мой взгляд, не много, тем более пользователь сам уст. ширину колонок. В hwg сделано, на мой взгляд, лучше - последняя колонка растягивается на остаток ширины бровсе

 Отправлено: 26.06.16 09:33. Заголовок: SergKis пишет: В hw..

SergKis пишет:

цитата:

В hwg сделано, на мой взгляд, лучше - последняя колонка растягивается на остаток ширины бровсе

Так и тут так же, только не последняя а та что указана в :nAdjColumn

 Отправлено: 26.06.16 09:37. Заголовок: это только на первом..

это только на первом экране, после происходит искажение последней колонки (header,line,footer), в hwg нет искажения правой последней колонки

 Отправлено: 26.06.16 10:47. Заголовок: SergKis пишет: это ..

SergKis пишет:

цитата:

это только на первом экране, после происходит искажение последней колонки

не замечал такого

 Отправлено: 26.06.16 11:08. Заголовок: А как поймать имя бр..

А как поймать имя бровса в форме ..
Имя формы так ThisWindow а бровс ?

ps
я про альтернативный синтаксис

 Отправлено: 26.06.16 11:36. Заголовок: Dima пишет:я про аль..

Dima пишет:

цитата:

я про альтернативный синтаксис

Tsb мимо него проходит.
Как объект tsb получать, см. Tsb_seek_2, Tsb_LoadFields

 Отправлено: 26.06.16 11:42. Заголовок: Dima пишет:не замеча..

Dima пишет:

цитата:

не замечал такого

На след. экранах (при прокрутке HScroll) на короткий остаток колонки впихивается широкая колонка, если в ней superheader, то совсем беда с отображением. По мне лучше делать "управляемый" скролинг - удалять часть колонок (группой) и вставлять группу других, благо это не сложно

 Отправлено: 26.06.16 11:44. Заголовок: Понял. Спасибо..

Понял.
Спасибо

 Отправлено: 26.06.16 11:46. Заголовок: Имею xy+=getproperty..

Имею xy+=getproperty(ThisWindow.name,"Button_1","Width")+11
Как это переписать не используя getproperty ?

 Отправлено: 26.06.16 12:12. Заголовок: Dima пишет:Как это п..

Dima пишет:

цитата:

Как это переписать не используя getproperty ?

FormName.Button_1.Width
GetWindowWidth(GetControlHandle("Button_1", _HMG_ThisFormName))

 Отправлено: 26.06.16 12:20. Заголовок: Добавлю 5 копеек про..

Добавлю 5 копеек про растяжку :nAdjColumn
Заметил такую странность, если её использовать, то ширина некоторых колонок начинает сбиваться, срезается.
В примере \MiniGUI\SAMPLES\Advanced\Tsb_config приходиться запоминать значение:
oBrw:bInit := {|| oBrw:SetColSize( 2, nWidthFirstColumn )}
А потом в ResizeBrowse() всегда восстанавливать:
Eval(oBrw:bInit)

Перестал использовать этот параметр, хотя удобный вроде.

 Отправлено: 26.06.16 12:29. Заголовок: SergKis пишет: Form..

SergKis пишет:

цитата:

FormName.Button_1.Width

Такой вариант не компилится совсем

 Отправлено: 26.06.16 13:55. Заголовок: Dima пишет:Такой вар..

Dima пишет:

цитата:

Такой вариант не компилится совсем

ты вместо FormName дал реальное имя окна, на котором Button_1 и их DEFINE уже были. см. Minigui.chm -> ControlsCommand->button в самом конце properties:, events:, metods:
тыкаешь Width и т.д.
Я в основном пользуюсь от handle получать размеры GetWindow...(handle)

 Отправлено: 26.06.16 13:59. Заголовок: SergKis пишет: ты в..

SergKis пишет:

цитата:

ты вместо FormName дал реальное имя окна

Понял , не хотел привязываться точно к имени окна , попробовал так
xy+=ThisWindow.name.Button_1.Width+11
Не компилится
Плюнул и оставил так
xy+=getproperty(ThisWindow.name,"Button_1","Width")+11