anchor.diff:  var
     aTendency: TEditorTendency;
   begin
  -  aTendency := Engine.CurrentTendency;
   
     if Engine.Files.Current <> nil then
     begin
  
positive.code:   end;
    //  DebugPnl.Visible := DebugPnl.Caption <> '';
    UpdateMenu;
    UpdateFileHeaderPanel;
  end;
  
  
negative.code:     Engine.Files.Current.Group.Category.EnumMenuItems(@AddMenuItem);
    end;
  
    with Engine.CurrentTendency do
    begin
      MessagesTabs.PageItem[WatchesGrid].Visible := capDebug in Capabilities;
      MessagesTabs.PageItem[CallStackGrid].Visible := capTrace in Capabilities;
      MessagesTabs.PageItem[MessagesGrid].Visible := capErrors in Capabilities;
    end;
  end;
  
  procedure TMainForm.UpdateActions;
  begin
    with Engine.CurrentTendency do
    begin
      //ExecuteMnu.Visible := capRun in Engine.Tendency.Capabilities;
  
      DBGRunAct.Enabled := (capRun in Capabilities) and (not Engine.Session.Run.Active);
      DBGCompileAct.Visible := capCompile in Capabilities;
      DBGExecuteAct.Enabled := capRun in Capabilities;
      DBGResetAct.Enabled := capRun in Capabilities;
      DBGLintAct.Enabled := capLint in Capabilities;
  
      DBGStartServerAct.Enabled := (capDebugServer in Capabilities) and (Debug <> nil) and (not Debug.Active);
      DBGStopServerAct.Enabled := (capDebugServer in Capabilities) and (Debug <> nil) and (Debug.Active);
  
      DBGAddWatchAct.Enabled := capTrace in Capabilities;
      DBGBreakpointsAct.Enabled := capTrace in Capabilities;
      DBGToggleBreakpointAct.Enabled := capTrace in Capabilities;
  
      DBGStepOverAct.Enabled := capTrace in Capabilities;
      DBGStepIntoAct.Enabled := capTrace in Capabilities;
  