В Caption "(не отвечает), Progress Bar не перерисовывается. Как исправить?

Старое однопоточное приложение, Delphi 7, исходник есть.
В нём Progress Bar, показывающий процент выполнения вывода по USB. Процесс занимает секунд 20-40.
Примерно 50 на 50, примерно посередине времени выполнения процесса, система (Windows 7) замораживает форму, скачком чуть смещает её вправо и вниз на десяток пикселей, в её Caption система добавляет "(не отвечает)", перерисовки Progress Bar естественно нет. Причём программа прекрасно продолжает правильно работать, после завершения функции вывода по USB, форма "размораживается", и программа продолжает дальше работать.

Можно ли исправить такое "поведение" каким-нибудь простым "костылём"? Очень уж не хочется всю эту программу переписывать под потоки.

Видимо с этим уже пытались бороться, - есть Application.Process_Messages в местах смены значения Progress Bar.

0

Сообщение от Sinferno если можно приостановить в нужный момент нить обработки, нарисовать что нужно и продолжить.

Об этом и говорю. Циклом остановить и рисуй как хочешь. Даже подсказал как проверять зависший порт и остановить всю операцию. Если в чтении все зависнет, из него уже не выйти, провод пошевелил и кирдык.
Уперлись в поток, он типа сам справится. Тогда костыли надо прикручивать, но это может не сработать. Опять тестить.

0

119zero, никто не писал, что поток "сам справится". В потоке если зависнет/долго не будет возвращаться функция чтения или записи, то от этого пользовательский UI не подвиснет и можно будет нажать кнопку прерывания операции, например, или ещё что-нибудь.

Всё это уже оговорено N раз на нескольких страницах.

	Комментарий модератора
	Дальнейшие повторы одних и тех же аргументов буду удалять.

0

Автор указал, что пока не прочитается, комп не реагирует на интерфейс, все зависает.
Работа с портом идет на низком уровне.

0