anchor.diff:      // GUI:
       procedure PanelMenuClick(SenderPnl:TIdContext; SenderOR:TObject; item:string; itemindex:Integer); override;
       function ShowPanelMenu(SenderPnl:TIdContext; SenderOR:TObject; rights:TORCOntrolRights):string; override;
  -    procedure PanelClick(SenderPnl:TIdContext; SenderOR:TObject ;Button:TPanelButton;
  +    procedure PanelClick(SenderPnl:TIdContext; SenderOR:TObject; Button:TPanelButton;
                            rights:TORCOntrolRights; params:string = ''); override;
       function PanelStateString():string; override;
   
  - end;//class TBlkUsek
  + end;
   
   ////////////////////////////////////////////////////////////////////////////////
   
  
positive.code: begin
   Self.m_settings := data;
   Self.Change();
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  procedure TBlkAC.Update();
  begin
   inherited Update();
  end;
  
  // change je volan z vyhybky pri zmene zaveru
  procedure TBlkAC.Change(now:boolean = false);
  begin
   inherited Change(now);
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
negative.code:  end else if ((UpperCase(parsed[3]) = 'CONTROL') and (parsed.Count >= 5) and (UpperCase(parsed[4]) = 'DONE')) then begin
     if (Self.running) then
       Self.Stop();
   end else if ((UpperCase(parsed[3]) = 'CONTROL') and (parsed.Count >= 6) and (UpperCase(parsed[4]) = 'STATE')) then begin
     ExtractStringsEx([','], [], parsed[5], Self.m_state.lines);
   end;
  end;
  
  procedure TBlkAC.OnClientDisconnect();
  begin
   Self.m_state.client := nil;
   Self.m_state.lines.Clear();
   if (not Self.stopped) then
     Self.Stop();
  
  