anchor.diff:       end;
      end;
    end;//case
  -
   end;
   
   ////////////////////////////////////////////////////////////////////////////////
  
positive.code:  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)
   else if (item = 'AKTIV>') then Self.MenuAktivOnClick(SenderPnl, SenderOR)
   else if (item = 'AKTIV<') then Self.MenuAktivOffClick(SenderPnl, SenderOR);
  
negative.code: 
  procedure TBlkRozp.PanelClick(SenderPnl:TIdContext; SenderOR:TObject ;Button:TPanelButton; rights:TORCOntrolRights; params:string = '');
  begin
   case (Button) of
     F2: ORTCPServer.Menu(SenderPnl, Self, (SenderOR as TOR), Self.ShowPanelMenu(SenderPnl, SenderOR, rights));
  
     ENTER: begin
       case (Self.status) of
         TRozpStatus.disabled: ORTCPServer.Menu(SenderPnl, Self, (SenderOR as TOR), Self.ShowPanelMenu(SenderPnl, SenderOR, rights));
         TRozpStatus.not_selected: Self.Mount();
         TRozpStatus.mounting: Self.Activate();
         TRozpStatus.active: Self.Prolong();
       end;
     end;
  
     ESCAPE: begin
       case (Self.status) of
  