anchor.diff:  end;
   
   ////////////////////////////////////////////////////////////////////////////////
  -
  -//toto se zavola pri kliku na jakoukoliv itemu menu tohoto bloku
  -procedure TBlkRozp.PanelMenuClick(SenderPnl:TIdContext; SenderOR:TObject; item:string; itemindex:Integer);
  -begin
  - if (Self.status = TRozpStatus.disabled) then Exit();
  -end;
   
   procedure TBlkRozp.SetStatus(status:TRozpStatus);
   begin
  
positive.code:  if (Self.status = TRozpStatus.disabled) then Exit();
  
   case (Button) of
     F2: Self.ShowPanelMenu(SenderPnl, SenderOR, rights);
  
     ENTER: begin
       case (Self.status) of
         TRozpStatus.not_selected : Self.Mount();
         TRozpStatus.mounting     : Self.Activate();
         TRozpStatus.active       : Self.Prolong();
       end;
      end;//case TPanelButton.left
  
     ESCAPE: begin
       case (Self.status) of
         TRozpStatus.mounting     : Self.status := TRozpStatus.not_selected;
         TRozpStatus.active       : Self.status := TRozpStatus.not_selected;
       else //case
         Self.ShowPanelMenu(SenderPnl, SenderOR, rights);
       end;
     end;
   end;//case
  
negative.code: 
      //----- Rozpojovac own functions -----
  
      procedure PanelClick(SenderPnl:TIdContext; SenderOR:TObject; Button:TPanelButton;
                           rights:TORCOntrolRights; params:string = ''); override;
      function PanelStateString():string; override;
  