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

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

 Отправлено: 26.06.16 14:29. Заголовок: Dima пробни xy+=Thi..

Dima
пробни
xy+=This.Button_1.Width+11
и глянь i_this.ch

 Отправлено: 26.06.16 14:42. Заголовок: SergKis пишет: xy+=..

SergKis пишет:

цитата:

xy+=This.Button_1.Width+11

Пробовал так , не компилится...

 Отправлено: 26.06.16 14:51. Заголовок: Dima пишет:Пробовал ..

Dima пишет:

цитата:

Пробовал так , не компилится...

Тады ОЙ !

 Отправлено: 28.06.16 21:42. Заголовок: Как узнать нажата кл..

Как узнать нажата клавиша (юзер на нее чашку кофе поставил ) или уже отпущена ?
Интересуют VK_DOWN и VK_UP
Через Sendmessage это можно получить ?

 Отправлено: 29.06.16 17:36. Заголовок: Dima пишет Интересую..

Dima пишет

цитата:

Интересуют VK_DOWN и VK_UP

с VK_DOWN - это bUserKeys, а с VK_UP нету, есть метод KeyUp, но в нем нет то, что надо
По идее надо было бы иметь bKeyDown и bKeyUp для таких целей

 Отправлено: 29.06.16 19:44. Заголовок: Сергей я не много не..

Сергей я не много не о том.
Есть главный бровс и подчиненный в одном окне.
При движении по главному , показываю данные в подчиненном по ключу из базы главного в :BChange
Там живет что то типа фильтра (SCOPE) + Obrw:Reset() подчиненного бровса.
Так вот если база довольно большая И юзер зажал стрелку ВНИЗ то через какой то момент
бровс может коника дать....то есть зависнет.
Нужна идея (Игорь в курсе) что бы освежать подчиненный бровс только после того как
юзер отпустил в конце концов стрелку вниз (вверх и тд и тп включая колесо мыши)

 Отправлено: 29.06.16 20:13. Заголовок: Дима, я о том же. Мн..

Дима, я о том же. Мне пришлось влезть в KeyDown и сделать (у меня базовая версия 2.07 и изменения [в рамках разумного переношу из тек.])

 
 METHOD KeyDown( nKey, nFlags )                                         CLASS TSBrowse 
 ... 
       Case nKey == VK_UP 
          ::GoUp() 
  
          If ::nRowPos == 1                                                   
             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                                             
  
       Case nKey == VK_DOWN 
          ::GoDown() 
 x 
          If ::nRowPos == ::nRowCount()                          
             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                                          
  
       Case nKey == VK_LEFT 
 ... 
 

 Отправлено: 29.06.16 20:17. Заголовок: PS а подчиненный бро..

PS
а подчиненный бровс обновлять по таймеру при смене ключа связки раз в 1 сек. такой механизм работает со времен VO

 Отправлено: 29.06.16 20:21. Заголовок: Понял , думал есть к..

Понял , думал есть какие другие идеи.
Игорь тоже предлагает по таймеру.
Проехали тогда.

 Отправлено: 29.06.16 20:24. Заголовок: ЗЫ В консоли по ходу..

ЗЫ
В консоли по ходу ни чего не виснет при обновлении подчиненного бровса и даже
ни какой велосипед сочинять не надо.
Пусть юзер хоть заснет на клаве :)

 Отправлено: 29.06.16 21:05. Заголовок: Dima пишет Через Sen..

Dima пишет

цитата:

Через Sendmessage это можно получить ? ... ни какой велосипед сочинять не надо

Дима, в чем сомнения ? в подчиненном бровсе переотображать надо (алгоритм делать), а управлять сообщеними (в гуи так принято), например смотри Tsb_Seek2 и on change с postmessage на кл.VK_F20.
у тебя похожая ситуация только по таймеру, т.е. подчиненный бровс знает как отображать, а таимер просто посылает сообщение на переотображение через время и все

 Отправлено: 29.06.16 21:26. Заголовок: SergKis пишет: Дима..

SergKis пишет:

цитата:

Дима, в чем сомнения ?

Да привык к консоли , вот оно и сказывается.
Мысль понял. Спасибо !

 Отправлено: 30.06.16 10:02. Заголовок: Хотел положить тень ..

Хотел положить тень на все окно а после .... ее убрать.
Есть ли пример ?

 Отправлено: 30.06.16 10:26. Заголовок: Dima пишет Хотел пол..

Dima пишет

цитата:

Хотел положить тень на все окно а после .... ее убрать.

"моя твоя не понимай", что хочешь
1. цвет в окне на серый
2. не активное окно
3. контролы disable
???

 Отправлено: 30.06.16 10:31. Заголовок: SergKis пишет: 1. ц..

SergKis пишет:

цитата:

1. цвет в окне на серый

вот так

 Отправлено: 30.06.16 10:41. Заголовок: я бы даже сказал зат..

я бы даже сказал затемнение как на скрине
http://3.bp.blogspot.com/-rQQn7_ClLss/VMKu_Hu01AI/AAAAAAAAE-o/CBTnCLAo8f0/s1600/ishop_.png

 Отправлено: 30.06.16 10:45. Заголовок: Dima а это пробовал..

Dima
а это пробовал (по chm) ?
<WindowName>.BackColor := aBackColor
SetProperty(cFrm, "BackColor", aBackColor)

 Отправлено: 30.06.16 10:50. Заголовок: Dima пишет я бы даже..

Dima пишет

цитата:

я бы даже сказал затемнение как на скрине

там не активное основное окно, поверх лежит модал окно NOSIZE NOMINIMIZE NOMAXMIZE

 Отправлено: 30.06.16 11:00. Заголовок: PS точнее с MODAL ..

PS
точнее с
MODAL
[ NOSIZE ]
[ NOSYSMENU ]
[ NOCAPTION ]
со своим X и астион выхода

 Отправлено: 30.06.16 11:10. Заголовок: SergKis пишет: SetP..

SergKis пишет:

цитата:

SetProperty(cFrm, "BackColor", aBackColor)

Счас пробну.


Это не то.