anchor.diff:  
   //vytvoreni menu pro konkretni s-com:
   function TBlkSCom.ShowPanelMenu(SenderPnl:TIdContext; SenderOR:TObject; rights:TORCOntrolRights):string;
  +var Blk:TBlk;
   begin
    Result := inherited;
   
  
positive.code:  Self.Change();
  end;//procedure
  
  ////////////////////////////////////////////////////////////////////////////////
  
  procedure TBlkSCom.PanelClick(SenderPnl:TIdCOntext; SenderOR:TObject; Button:TPanelButton; rights:TORCOntrolRights);
  
negative.code:  else if (item = 'PN>')  then Self.MenuPNStartClick(SenderPnl, SenderOR)
   else if (item = 'PN<')  then Self.MenuPNStopClick (SenderPnl, SenderOR)
   else if (item = 'PPN')  then Self.MenuPPNClick    (SenderPnl, SenderOR)
   else if (item = 'RNZ')  then Self.MenuRNZClick    (SenderPnl, SenderOR)
   else if (item = 'IR>')  then Self.MenuAdminStopIR (SenderPnl, SenderOR, true)
   else if (item = 'IR<')  then Self.MenuAdminStopIR (SenderPnl, SenderOR, false);
  
   if (item = 'ZRU REDUKCI') then Self.MenuAdminREDUKClick(SenderPnl, SenderOR);
  end;//procedure
  