anchor.diff:  function TBlkAC.ShowPanelMenu(SenderPnl:TIdContext; SenderOR:TObject; rights:TORCOntrolRights):string;
   begin
    Result := inherited;
  -end;
  -
  -////////////////////////////////////////////////////////////////////////////////
  -
  -procedure TBlkAC.PanelClick(SenderPnl:TIdContext; SenderOR:TObject; Button:TPanelButton; rights:TORCOntrolRights; params:string = '');
  -begin
  -// if (Self.Stav.enabled) then
  -//   ORTCPServer.Menu(SenderPnl, Self, (SenderOR as TOR), Self.ShowPanelMenu(SenderPnl, SenderOR, rights));
  +
  + if ((Self.m_state.client <> nil) and (Self.stopped)) then
  +   Result := Result + 'START,';
  +
  + if (Self.paused) then
  +   Result := Result + 'POKRA,';
  + if (Self.running) then
  +   Result := Result + 'PAUZA,';
  + if (not Self.stopped) then
  +   Result := Result + 'STOP,';
  +end;
  +
  +////////////////////////////////////////////////////////////////////////////////
  +
  +procedure TBlkAC.PanelClick(SenderPnl:TIdContext; SenderOR:TObject; Button:TPanelButton;
  +                            rights:TORCOntrolRights; params:string = '');
  +begin
  + if (Self.enabled) then
  +   ORTCPServer.Menu(SenderPnl, Self, (SenderOR as TOR), Self.ShowPanelMenu(SenderPnl, SenderOR, rights));
   end;
   
   ////////////////////////////////////////////////////////////////////////////////
  
positive.code:     constructor Create(index:Integer);
      destructor Destroy(); override;
  
      //load/save data
      procedure LoadData(ini_tech:TMemIniFile;const section:string;ini_rel,ini_stat:TMemIniFile); override;
      procedure SaveData(ini_tech:TMemIniFile;const section:string); override;
      procedure SaveStatus(ini_stat:TMemIniFile;const section:string); override;
  
      //enable or disable symbol on relief
      procedure Enable(); override;
      procedure Disable(); override;
  
      //update states
      procedure Update(); override;
      procedure Change(now:boolean = false); override;               // change do zamku je volano pri zmene zaveru jakekoliv vyhybky, kterou zaver obsluhuje
  
      //----- Ac own functions -----
  
      property Stav:TBlkACStav read ACStav;
  
      //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; rights:TORCOntrolRights; params:string = ''); override;
      function PanelStateString():string; override;
  
   end;//class TBlkUsek
  
  ////////////////////////////////////////////////////////////////////////////////
  
  
negative.code:   end;
  end;
  
  procedure TBlkAC.SaveData(ini_tech:TMemIniFile; const section:string);
  begin
   inherited SaveData(ini_tech, section);
   ini_tech.WriteString(section, 'accessToken', Self.m_settings.accessToken);
  end;
  
  procedure TBlkAC.SaveStatus(ini_stat:TMemIniFile; const section:string);
  begin
   // TODO
  end;
  