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

[Игорь Столяров]

Привет всем !

Прошу сразу не ставить мне диагноз … если пью, то всегда закусываю.

Но не обращал ли кто внимание на следующий эффект.
При закрытии стандартного окна предварительного просмотра отчёта (даже в "родных" Example),
быстро мелькает какое-то окно, точнее его левый верхний угол … такое ощущение, что это
отрабатывается DISPLAY на скрытом WINDOW.

В LibSrc я такого не вижу, может где-то Template … Проявляется везде и C63 и C11.
Заранее спасибо !

[kreator]

А поконкретней? В каком месте экрана может это окно появляться? И при отправке на печать или закрытие без печати? Мы не замечали и наши пользователи тоже. Но вот если внимательно присмотреться...

[finsoftrz]

Если внимательно присмотреться, можно и не такое увидеть...

[PavelNK]

Прошу сразу не ставить мне диагноз … если пью, то всегда закусываю.

еще зависит от того, что пить и в каких количествах

[vic7tar]

Я вот когда пью, всегда не закусываю, и окна не мелькают, стоят на месте, иногда в них пролетают птички.

[finsoftrz]

Вначале надо в зеркале зайчика увидеть, потом уже можно идти мелькающие окна искать...

[Игорь Столяров]

Сразу хочу сказать огромное спасибо всем, кто нашёл возможность поделиться богатым
жизненным опытом и даже пытался смешно шутить.
Это действительно очень здорово, но предлагаю всё-таки рассмотреть вопрос по существу.

Эффект возникает именно при закрытии окна предпросмотра с печатью отчёта.
В принципе, его можно поймать на снимке, сразу хочу добавить, что он существует
тот короткий промежуток времени, когда идёт закрытие окна предпросмотра.

Была мысль, что это как-то связано с конкретным драйвером принтера ... но нет.
Проявляется на любом драйвере принтера.

[kreator]

Вот теперь вижу. Что-то открывается и сразу закрывается. Надо копать класс. Теперь не успокоюсь, блин.

[Игорь Столяров]

Теперь не успокоюсь, блин.

Тут надо добавить, что эта "проблема" - древняя. Я пытался с ней разобраться ещё много лет назад,
когда в C55 валились большие отчёты при печати … Но там беда была с моделью памяти потоков,
всё благополучно устранилось в C63 и как-то оно никому не мешало. Мыргает - и фиг с ним.

Сейчас стало явно проявляться на Win10, если компьютер перегружен выполнением в фоне каких-то задач
(т.е. попросту "тупит", работает медленно). Поэтому решил поинтересоваться одни ли мы во вселенной …

[kreator]

Нашёл. В методе ReportManager.TakeCloseEvent есть такое:

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

  IF NOT W &= NULL
    SETTARGET (W)

    TARGET{PROP:Width}  = 0
    TARGET{PROP:Height} = 0
    TARGET{PROP:Hide}   = FALSE

  END

Смысл не ясен. Но, если закомментировать этот кусок, то после выхода из превью фокус оказывается на другом приложении. Есть какие мысли?

[kreator]

Причём при выходе без печати ситуация такая же. Только окно очень быстро закрывается и незаметно.

[Игорь Столяров]

Круто ! Спасибо !
В принципе, какая-то бесмыслица …
Если существует окно, то сделать его текущим, сжать размеры в ноль … и показать.
Какой сакральный смысл в этом действии ...

[Yufil]

Нашёл. В методе ReportManager.TakeCloseEvent есть такое:

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

  IF NOT W &= NULL
    SETTARGET (W)

    TARGET{PROP:Width}  = 0
    TARGET{PROP:Height} = 0
    TARGET{PROP:Hide}   = FALSE

  END

Смысл не ясен. Но, если закомментировать этот кусок, то после выхода из превью фокус оказывается на другом приложении. Есть какие мысли?

Там есть удивительный оператор W &= SYSTEM{PROP:TARGET} + 0 . Что это означает ?
А цель, скорее всего, аккуратно закрыть окошко с термометром, если таковое есть. Может быть, стоит окно отправить совсем за край, чтобы не мигало.
0{Prop:Buffer} = 1
SetPosition( 0, -100, -100, 0, 0)
Unhide(0)

[Yufil]

Нашёл. В методе ReportManager.TakeCloseEvent есть такое:

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

  IF NOT W &= NULL
    SETTARGET (W)

    TARGET{PROP:Width}  = 0
    TARGET{PROP:Height} = 0
    TARGET{PROP:Hide}   = FALSE

  END

Смысл не ясен. Но, если закомментировать этот кусок, то после выхода из превью фокус оказывается на другом приложении. Есть какие мысли?

Там есть удивительный оператор W &= SYSTEM{PROP:TARGET} + 0 . Что это означает ?
А цель, скорее всего, аккуратно закрыть окошко с термометром, если таковое есть. Может быть, стоит окно отправить совсем за край, чтобы не мигало.
0{Prop:Buffer} = 1
SetPosition( 0, -100, -100, 0, 0)
Unhide(0)

[kreator]

Оказывается, это окно, действительно, с термометром. На него делается таргет. Нужно его подправить. В этом же методе ReportManager.TakeCloseEvent нужно написать следующее:

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

  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
      W{prop:Icon} = ''								 ! *** KreatoR ***
      W{prop:NoFrame} = True						 ! *** KreatoR ***
      W{prop:Text} = ''								 ! *** KreatoR ***

      IF NOT W &= NULL
        TARGET{PROP:Hide} = TRUE
      END
    END
  END

Вроде, проблему решает.