anchor.diff:    end;
   end;
   
  +procedure TBlkTurnout.MenuAdminRadPlusCLick(SenderPnl: TIDContext; SenderOR: TObject);
  +begin
  +  if (not Self.m_settings.controllers.enabled) then
  +    Exit();
  +
  +  try
  +    RCSi.SetInput(Self.m_settings.controllers.rcsPlus, 1);
  +    RCSi.SetInput(Self.m_settings.controllers.rcsMinus, 0);
  +  except
  +    PanelServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TArea(SenderOR).ShortName,
  +      'SIMULACE');
  +  end;
  +end;
  +
  +procedure TBlkTurnout.MenuAdminRadMinusCLick(SenderPnl: TIDContext; SenderOR: TObject);
  +begin
  +  if (not Self.m_settings.controllers.enabled) then
  +    Exit();
  +
  +  try
  +    RCSi.SetInput(Self.m_settings.controllers.rcsPlus, 0);
  +    RCSi.SetInput(Self.m_settings.controllers.rcsMinus, 1);
  +  except
  +    PanelServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TArea(SenderOR).ShortName,
  +      'SIMULACE');
  +  end;
  +end;
  +
  +procedure TBlkTurnout.MenuAdminRadNepolCLick(SenderPnl: TIDContext; SenderOR: TObject);
  +begin
  +  if (not Self.m_settings.controllers.enabled) then
  +    Exit();
  +
  +  try
  +    RCSi.SetInput(Self.m_settings.controllers.rcsPlus, 0);
  +    RCSi.SetInput(Self.m_settings.controllers.rcsMinus, 0);
  +  except
  +    PanelServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TArea(SenderOR).ShortName,
  +      'SIMULACE');
  +  end;
  +end;
  +
   /// /////////////////////////////////////////////////////////////////////////////
   
   function TBlkTurnout.ShowPanelMenu(SenderPnl: TIDContext; SenderOR: TObject; rights: TAreaRights): string;
  
positive.code:   else if (item = 'POL-') then
      Self.MenuAdminPolMinusCLick(SenderPnl, SenderOR)
    else if (item = 'NEPOL') then
      Self.MenuAdminNepolCLick(SenderPnl, SenderOR);
  end;
  
  /// /////////////////////////////////////////////////////////////////////////////
  
negative.code:       Result := Result + '*ZRUŠ REDUKCI,';
    end;
  
    if (RCSi.simulation) then
    begin
      Result := Result + '-,';
  
      if (Self.posDetection) then
      begin
        if (Self.position <> TTurnoutPosition.plus) then
          Result := Result + '*POL+,';
        if (Self.position <> TTurnoutPosition.minus) then
          Result := Result + '*POL-,';
        if (Self.position <> TTurnoutPosition.none) then
          Result := Result + '*NEPOL,';
      end;
  
      if (Self.m_settings.controllers.enabled) then
      begin
        try
          var plus := (RCSi.GetInput(Self.m_settings.controllers.rcsPlus) = isOn);
          var minus := (RCSi.GetInput(Self.m_settings.controllers.rcsMinus) = isOn);
  
          if (not plus) then
            Result := Result + '*RAD+,';
          if (not minus) then
            Result := Result + '*RAD-,';
          if (plus or minus) then
            Result := Result + '*RAD?,';
        except
          on E: RCSException do begin end;
        end;
      end;
    end;
  end;
  
  