Amilmanпроходящий.пропущено...
Вы мое сообщение читали?

Читал.
Вот и говорю надо понят как это сделать )))
1 и 2 пункт выполнил 3 я не знаю команду 4 сделал.

ок

результат?

Dima TAmilmanИ всё больше я не чего не прописывал.
Я же написал выше
Dima TНе обращал никогда внимания, но похоже оно всегда "моргает" при выходе при screen=off
Значит никак ты от этого не избавишься.
Разве что окно фокса свернуть попробовать, добавь в начало


дурашко, не путай человека, котор дизайнер и тупо, как мартышка копирует все подряд.

Amilman Вот код 1 PRG:

DO form "Form\addition_of_debtors"
ON SHUTDOWN DO "PRG\my_quit"
READ EVENTS
quit

Вот 2:

Public oTmrExit
oTmrExit = createobject("tmrExit")
if vartype(oTmrExit)<>"O"
return .f.
endif
oTmrExit.interval = 10
Return .t.


define class tmrExit as timer

interval = 0
nMode = 0

procedure timer
this.interval = 0
LOCAL lnFormCount, lnNum, loForm
lnFormCount = _screen.formcount
for lnNum=lnFormCount to 1 step -1
try
loForm = _screen.forms(lnNum)
catch
loForm = .f.
endtry
if vartype(loForm)="O"
loForm.visible = .f.
loForm.release()
endif
endfor

close data
clear events
clear dlls
on shutdown
quit
EndDefine

У формы в Destroy прописан CLEAR EVENTS

И всё больше я не чего не прописывал.

я по-человечьи просил убрать строку

ON SHUTDOWN DO "PRG\my_quit"

весь код, который в май кваит Вам сто лет не нужен
и вся эта процедура не нужна.
(кстате в ней Вы видите пляски со скрином - это и приводит к мерцанию оного)


вывод:
заставь ... богу молиться ...

не мучьте лису и себя.

пожалуйста.

терзаюсь проблемой как купить пяток банок лососевой икры
и не попасть в просак