anchor.diff:   inherited;
   
    if ((not Self.enabled) and
  -     (((not Self.isRCSoutput) or (RCSi.IsNonFailedModule(Self.IOsettings.RCSoutput.board))) or
  +     (((not Self.isRCSoutput) or (RCSi.IsNonFailedModule(Self.IOsettings.RCSoutput.board))) and
         ((not Self.isRCSinput) or (RCSi.IsNonFailedModule(Self.IOsettings.RCSinput.board))))) then
     begin
      Self.Enable();
  
positive.code: function TBlkIO.ShowPanelMenu(SenderPnl:TIdContext; SenderOR:TObject; rights:TORCOntrolRights):string;
  begin
   Result := inherited;
   if (Self.activeOutput) then
     Result := Result + 'AKTIV<,'
   else
     Result := Result + 'AKTIV>,';
   Result := Result + 'STIT,';
  
   if ((RCSi.simulation) and (Self.isRCSinput)) then
  
negative.code: procedure TBlkIO.PanelClick(SenderPnl:TIdContext; SenderOR:TObject;
                                  Button:TPanelButton; rights:TORCOntrolRights; params:string = '');
  begin
   if (Button = TPanelButton.F2) then
     ORTCPServer.Menu(SenderPnl, Self, (SenderOR as TOR), Self.ShowPanelMenu(SenderPnl, SenderOR, rights));
  
   if (Button = TPanelButton.ENTER) then begin
     if (Self.enabled) then
      begin
       try
         Self.Activate();
       except
         ORTCPServer.BottomError(SenderPnl, 'Nepodailo se aktivovat blok', TOR(SenderOR).ShortName, 'TECHNOLOGIE');
       end
      end else
       ORTCPServer.Menu(SenderPnl, Self, (SenderOR as TOR), Self.ShowPanelMenu(SenderPnl, SenderOR, rights));
   end else if (Button = TPanelButton.ESCAPE) then begin
     if (Self.enabled) then
      begin
       try
         Self.Deactivate();
       except
         ORTCPServer.BottomError(SenderPnl, 'Nepodailo se deaktivovat blok', TOR(SenderOR).ShortName, 'TECHNOLOGIE');
       end
      end;
   end;
  end;
  
  