anchor.diff:   if (item = 'RBP')  then Self.MenuRBPClick(SenderPnl, SenderOR);
    if (item = 'ZAV>') then Self.MenuZAVOnClick(SenderPnl, SenderOR);
    if (item = 'ZAV<') then Self.MenuZAVOffClick(SenderPnl, SenderOR);
  - if (item = 'BP>')  then Self.MenuBPOnClick(SenderPnl, SenderOR);
  - if (item = 'BP<')  then Self.MenuBPOffClick(SenderPnl, SenderOR);
   end;//procedure
   
   ///////////////////////////////////////////////////////////////////////////////
  
positive.code:            menu := menu + 'UTS,OTS,';
          end;
        end;// else IsFirstUvazka
      end;
  
     end;//case
    end;//if not obsazeno and not zaver
  
   menu := menu + '-,';
  
   if (Self.nouzZaver) then
     menu := menu + '!ZAV<,'
  
negative.code: procedure TBlkUvazka.PanelPotvrSekvZAV(Sender:TIdContext; success:boolean);
  begin
   if (success) then Self.nouzZaver := false;
  end;//procedure
  
  ////////////////////////////////////////////////////////////////////////////////
  