anchor.diff:  
   function TBlkRozp.ShowPanelMenu(SenderPnl:TIdContext; SenderOR:TObject; rights:TORCOntrolRights):string;
   begin
  - Result := inherited + 'STIT,';
  + Result := inherited;
  + if (Self.status = TRozpStatus.active) then
  +   Result := Result + 'AKTIV<,'
  + else
  +   Result := Result + 'AKTIV>,';
  + Result := Result + 'STIT,';
   end;
   
   procedure TBlkRozp.PanelMenuClick(SenderPnl:TIdContext; SenderOR:TObject; item:string; itemindex:Integer);
   begin
    if (Self.status = TRozpStatus.disabled) then Exit();
   
  - if (item = 'STIT') then Self.MenuStitClick(SenderPnl, SenderOR);
  + if (item = 'STIT') then Self.MenuStitClick(SenderPnl, SenderOR)
  + else if (item = 'AKTIV>') then Self.MenuAktivOnClick(SenderPnl, SenderOR)
  + else if (item = 'AKTIV<') then Self.MenuAktivOffClick(SenderPnl, SenderOR);
   end;
   
   ////////////////////////////////////////////////////////////////////////////////
  
positive.code:  ORTCPServer.Stitek(SenderPnl, Self, Self.Stav.Stit);
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  
negative.code:    procedure Prolong();
  
     procedure MenuStitClick(SenderPnl:TIdContext; SenderOR:TObject);
     procedure MenuAktivOnClick(SenderPnl:TIdContext; SenderOR:TObject);
     procedure MenuAktivOffClick(SenderPnl:TIdContext; SenderOR:TObject);
  
    public
      constructor Create(index:Integer);
  