forum.clarionlife.net

Yufil писал(а): 07 Декабрь 2018, 11:14 цель, скорее всего, аккуратно закрыть окошко с термометром

Я конечно извиняюсь, а что для того, что бы закрыть окно - его обязательно нужно сначала показать ?!

kreator писал(а): 07 Декабрь 2018, 11:18Вроде, проблему решает.

Да. Всё волшебно - спасибо !

Только наверно, лучше стирание параметров окна делать после проверки его существования и после его скрытия ?

Код: Выделить всё

  W &= NULL

  IF NOT SELF.KeepVisible
    IF NOT SELF.Preview &= NULL AND NOT SELF.Report &= NULL AND NOT SELF.SkipPreview
      W &= SYSTEM{PROP:TARGET} + 0
      
      IF NOT W &= NULL       
          TARGET{PROP:Hide} = TRUE
          
          W{prop:Icon} = ''								 ! *** KreatoR ***
          W{prop:NoFrame} = True						 ! *** KreatoR ***
          W{prop:Text} = ''								 ! *** KreatoR ***           
      END
    END
  END

Игорь Столяров писал(а): 07 Декабрь 2018, 11:29 Только наверно, лучше стирание параметров окна делать после проверки его существования и после его скрытия ?

Ну, да. Согласен. Вдруг, действительно, окна не будет.
А вообще хорошо, что сырцы есть. А не закрытый ящик. У меня таких заплаток вагон и маленькая тележка (утрирую немного). SV реагировать вряд ли будет.

Если закрыты все окна треда, тем более с атрибутом MDI, происходит переключение на другой тред.
Вот у меня есть совершенно нелепая функция, в некоторых местах заменяющая стандартный Popup, потому что после выхода
регулярно случается авария или возврат не туда.

Код: Выделить всё

MyPopup              PROCEDURE  (S)                        ! Declare Procedure
W      WINDOW(''),AT(-100,-100,1,1),GRAY
       END

  CODE
    Open(W)
    Display()
    Accept
      If Event() = Event:OpenWindow
        L#=Popup(S)
        Break
      End
    End
    Close(W)
    0{Prop:Active}=True
    Return(L#)

То же самое - если хочется открыть документ по ShellExecute и более-менее адекватно вернуться обратно. Скорее всего, и здесь аналогичная проблема.

1. Так и остался непонятным вопрос, что же такое W &= System{Ptop:Target} + 0
2. А зачем все манипуляции с фреймом и иконкой, если окно все равно прячется.
Загнать его за край экрана по SetPosition - и точно не увидим

Yufil писал(а): 07 Декабрь 2018, 11:14Там есть удивительный оператор W &= SYSTEM{PROP:TARGET} + 0 . Что это означает ?

Обычный dereference значения SYSTEM{PROP:TARGET} в ссылку на окно?

Yufil писал(а): 07 Декабрь 2018, 12:35что же такое W &= System{Ptop:Target} + 0

Как я понимаю - все проперти возвращают тип STRING. Поэтому при присвоении адреса "+ 0" это неявное преобразование в LONG.

Yufil писал(а): 07 Декабрь 2018, 12:35Загнать его за край экрана по SetPosition

Сейчас отрицательные координаты работают. Но кто знает, что придёт в голову завтра разработчикам Clarion ?
Как это будет работать при включённом скроллинге внутри APPFRAME или при расширении рабочего стола на 2 монитора ?
И т.д. Слишком много вопросов …

Возможно, лучше всего просто отключить mdi для Preview и термометра.

Yufil писал(а): 07 Декабрь 2018, 13:46 Возможно, лучше всего просто отключить mdi для Preview и термометра.

Они и так не mdi.

Yufil писал(а): 07 Декабрь 2018, 12:35 2. А зачем все манипуляции с фреймом и иконкой, если окно все равно прячется.

Пока окно схайдено, проблем нет. Но чтобы сделать на него таргет, приходиться делать анхайд. И в этот момент оно становиться видным. Причём принудительная установка размеров в ноль ни к чему не приводит, поскольку у окна есть текст, иконка и рамка. Их и надо убрать. Я пока не пойму - почему без этих костылей при выходе из превью фокус улетает на другое приложение? В описании окна ничего странного не наблюдаю. Где-то в тексте prop:Active для приложения в 0 выставляется? Маловероятно.

kreator писал(а): 07 Декабрь 2018, 14:29 Я пока не пойму - почему без этих костылей при выходе из превью фокус улетает на другое приложение?

может потому, что в W (W &= System{Ptop:Target} + 0) записывается номер Tread-а окна в винде, а не апп

gopstop2007 писал(а): 07 Декабрь 2018, 19:06
kreator писал(а): 07 Декабрь 2018, 14:29 Я пока не пойму - почему без этих костылей при выходе из превью фокус улетает на другое приложение?
может потому, что в W (W &= System{Ptop:Target} + 0) записывается номер Tread-а окна в винде, а не апп

Разбираться неохота. Вообще весь текст в этом методе представляется каким-то костылём

.

forum.clarionlife.net

Мигание окна при печати

Мигание окна при печати

Мигание окна при печати

Мигание окна при печати

Мигание окна при печати

Мигание окна при печати

Мигание окна при печати

Мигание окна при печати

Мигание окна при печати

Мигание окна при печати

Мигание окна при печати

Мигание окна при печати