BOOL _blnHistory ; premenná, ktorá určuje, či je schéma v režime História
TIME _historyTime ; aktuálne zobrazený čas histórie, ak existuje
ENTRY OnHistoryTime(IN TIME _newTime)
IF _newTime\VLD THEN
IF ! _blnHistory THEN
; prepnutie schémy do režimu História
_blnHistory := @TRUE
ENDIF
; čas v histórii
_historyTime := _newTime
ELSE ; ukončenie režimu História
_blnHistory := @FALSE
ENDIF
END OnHistoryTime
BEGIN
_blnHistory := @FALSE
ENDIF
Pridať komentár