Страница 2 из 2
Мигание окна при печати
Добавлено: 07 Декабрь 2018, 11:19
Игорь Столяров
Yufil писал(а): ↑07 Декабрь 2018, 11:14 цель, скорее всего, аккуратно закрыть окошко с термометром
Я конечно извиняюсь, а что для того, что бы закрыть окно - его обязательно нужно сначала показать ?!
Мигание окна при печати
Добавлено: 07 Декабрь 2018, 11:29
Игорь Столяров
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:59
kreator
Игорь Столяров писал(а): ↑07 Декабрь 2018, 11:29
Только наверно, лучше стирание параметров окна делать после проверки его существования и после его скрытия ?
Ну, да. Согласен. Вдруг, действительно, окна не будет.
А вообще хорошо, что сырцы есть. А не закрытый ящик. У меня таких заплаток вагон и маленькая тележка (утрирую немного). SV реагировать вряд ли будет.
Мигание окна при печати
Добавлено: 07 Декабрь 2018, 12:28
Yufil
Если закрыты все окна треда, тем более с атрибутом 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 и более-менее адекватно вернуться обратно. Скорее всего, и здесь аналогичная проблема.
Мигание окна при печати
Добавлено: 07 Декабрь 2018, 12:35
Yufil
1. Так и остался непонятным вопрос, что же такое W &= System{Ptop:Target} + 0
2. А зачем все манипуляции с фреймом и иконкой, если окно все равно прячется.
Загнать его за край экрана по SetPosition - и точно не увидим
Мигание окна при печати
Добавлено: 07 Декабрь 2018, 12:52
Дед Пахом
Yufil писал(а): ↑07 Декабрь 2018, 11:14Там есть удивительный оператор W &= SYSTEM{PROP:TARGET} + 0 . Что это означает ?
Обычный dereference значения SYSTEM{PROP:TARGET} в ссылку на окно?
Мигание окна при печати
Добавлено: 07 Декабрь 2018, 13:15
Игорь Столяров
Yufil писал(а): ↑07 Декабрь 2018, 12:35что же такое W &= System{Ptop:Target} + 0
Как я понимаю - все проперти возвращают тип STRING. Поэтому при присвоении адреса "+ 0" это неявное преобразование в LONG.
Yufil писал(а): ↑07 Декабрь 2018, 12:35Загнать его за край экрана по SetPosition
Сейчас отрицательные координаты работают. Но кто знает, что придёт в голову завтра разработчикам Clarion ?
Как это будет работать при включённом скроллинге внутри APPFRAME или при расширении рабочего стола на 2 монитора ?
И т.д. Слишком много вопросов …
Мигание окна при печати
Добавлено: 07 Декабрь 2018, 13:46
Yufil
Возможно, лучше всего просто отключить mdi для Preview и термометра.
Мигание окна при печати
Добавлено: 07 Декабрь 2018, 14:29
kreator
Yufil писал(а): ↑07 Декабрь 2018, 13:46
Возможно, лучше всего просто отключить mdi для Preview и термометра.
Они и так не mdi.
Yufil писал(а): ↑07 Декабрь 2018, 12:35
2. А зачем все манипуляции с фреймом и иконкой, если окно все равно прячется.
Пока окно схайдено, проблем нет. Но чтобы сделать на него таргет, приходиться делать анхайд. И в этот момент оно становиться видным. Причём принудительная установка размеров в ноль ни к чему не приводит, поскольку у окна есть текст, иконка и рамка. Их и надо убрать. Я пока не пойму - почему без этих костылей при выходе из превью фокус улетает на другое приложение? В описании окна ничего странного не наблюдаю. Где-то в тексте prop:Active для приложения в 0 выставляется? Маловероятно.
Мигание окна при печати
Добавлено: 07 Декабрь 2018, 19:06
gopstop2007
kreator писал(а): ↑07 Декабрь 2018, 14:29
Я пока не пойму - почему без этих костылей при выходе из превью фокус улетает на другое приложение?
может потому, что в
W (W &= System{Ptop:Target} + 0) записывается номер Tread-а окна в винде, а не апп
Мигание окна при печати
Добавлено: 09 Декабрь 2018, 14:47
kreator
gopstop2007 писал(а): ↑07 Декабрь 2018, 19:06kreator писал(а): ↑07 Декабрь 2018, 14:29
Я пока не пойму - почему без этих костылей при выходе из превью фокус улетает на другое приложение?
может потому, что в
W (W &= System{Ptop:Target} + 0) записывается номер Tread-а окна в винде, а не апп
Разбираться неохота. Вообще весь текст в этом методе представляется каким-то костылём
.