,     ...  !
   
   - "WaveFormProgress"
1)      -;  ... "WaveFormHelperContainer";   ,       - (  "AligmenMargins");     -;
2)  " " (    "F3");   ""   "ScriptableOperatorCounter";  "WaveFormHelper"
3)    ,   ;   ,    ""        "waveform_helper.script"
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
   ,  : 
procedure Execute(var State: Integer);
var
  AObject: TComponent;
begin
  AObject := FindObject('WaveFormProgress');
  if AObject <> nil then
    case State of
      0: 
        begin
          AObject.Set('TextLabels.Template1', '%time(HMS;:;Z)');
          AObject.Set('TextLabels.Template2', '%time(HMS;:;Z)');
        end;
      1:
        begin
          AObject.Set('TextLabels.Template1', '%time(;:;Z)');
          AObject.Set('TextLabels.Template2', '%time(;:;Z)');
        end;        
    end;   
end;
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
4)  "",  ""
5)   () ""     :
  WaveFormHelper=Position <--> WaveFormHelperContainer=IsActive
 _  _
