OberonCore

Пытаюсь сделать форму, на которой будет отображаться обратный отсчет.
Заметил такую вещь, если нажать и удерживать кноку мыши на заголовке окна или же выбрать меню, но не выбрать подменю, то отображение времени на форме останавливается.
Я использую BlackBox 1.6

Вот код:
MODULE FormsTableOperators;

IMPORT
Dialog, Services, Strings, StdTables;

TYPE
TimeAction = POINTER TO RECORD (Services.Action)
start, step: LONGINT;
END;

VAR
data*: RECORD
t*: StdTables.Table;
END;
timer: TimeAction;


PROCEDURE (timer: TimeAction) Do;
VAR
left: LONGINT;
str: ARRAY 40 OF CHAR;
BEGIN
left := 1000 - timer.step;
Strings.IntToString(left, str);
data.t.SetItem(0, 0, "Ожидание (" + str + " секунд)");
Dialog.Update(data);
INC(timer.step);
Services.DoLater(timer, timer.start + timer.step * Services.resolution);
END Do;

PROCEDURE InitTimer;
BEGIN
(* Инициализируем таймер *)
NEW(timer);
timer.start := Services.Ticks();
timer.step := 0;
Services.DoLater(timer, Services.now);
END InitTimer;

BEGIN
data.t.SetSize(1,1);
InitTimer;
END FormsTableOperators.

Как можно обойти эту проблему, чтобы при нажатии на кнопку мыши или при других действиях время не останавливалось?

Технически, Services.Action выполняются только тогда, когда фреймворк свободен от других задач. То есть, не гарантируется, что действие будет выполняться с заданой периодичностью. Для таймера оно не подходит.
При нажатии на заголовок подвисают многие программы, не только БлэкБокс.
Ещё, может быть, в этом причина: viewtopic.php?f=24&t=370&hilit=Ports

Есть какой-нибудь другой способ, как организовать фоновую работу (отображение часов и фоновое скачивание из сети), если Services.Action плохо подходит для этих целей?

Использовать Active BlackBox Там есть параллелизм. См. http://www.oberoncore.ru/blackbox/polygon

Services.Action нормально подходит для организации фоновой работы, такой, которая не требует строгой периодичности. Работа с сетью, например, отлично ложится на Services.Action (проверено). Если требуется просто отображать количество миллисекунд(секунд) то тут тоже Services.Action подойдёт. Если работа в фоне критична к периодичности таймера, тогда конечно, лучше использовать Active BlackBox + системный MMTimer(кажется так)

К тому же, похоже что у вас, из за неверно заданных параметров действие изначально получается апериодическим. Корректное переназначение действия(периодичного) надо оформить вот так:



Ещё я бы порекомендовал использовать Services.Ticks() для засекания прошедшего времени. например вот так:

Вот здесь посмотрите
http://forum.oberoncore.ru/viewtopic.php?f=23&t=834&sid=26fda99300707891c38d12f172490de4
Почему-то в Дельту это не вошло.
Такое же изменение верно и для 1.6