anchor.diff:      procedure RenderForegroundUI_Units;
       procedure RenderForegroundUI_PaintBucket(aHighlightAll: Boolean);
       procedure RenderForegroundUI_UniversalEraser(aHighlightAll: Boolean);
  -    function TryRenderUnitOrGroup(aObject: TObject; aUnitFilterFunc, aGroupFilterFunc: TBooleanFunc; aUseGroupFlagColor, aDoHighlight: Boolean; aHandColor, aFlagColor: Cardinal; aHighlightColor: Cardinal = 0): Boolean;
  +    function TryRenderUnitOrGroup(aEntity: TKMHandEntity; aUnitFilterFunc, aGroupFilterFunc: TBooleanFunc; aUseGroupFlagColor, aDoHighlight: Boolean; aHandColor, aFlagColor: Cardinal; aHighlightColor: Cardinal = 0): Boolean;
       procedure RenderUnit(U: TKMUnit; const P: TKMPoint; FlagColor: Cardinal; DoHighlight: Boolean; HighlightColor: Cardinal);
       function PaintBucket_UnitToRender(aUnit: TObject): Boolean;
       function PaintBucket_GroupToRender(aGroup: TObject): Boolean;
  
positive.code:   KM_HandTypes,
    KM_Projectiles,
    KM_TerrainTypes,
    KM_HandEntity,
    KM_ResInterpolation,
    KM_AITypes;
  
  
negative.code: 
  procedure TRenderPool.RenderForegroundUI_UniversalEraser(aHighlightAll: Boolean);
  var
    entity: TKMHandEntity;
    P: TKMPoint;
    isRendered: Boolean;
  begin
    P := gCursor.Cell;
    entity := gMySpectator.HitTestCursorWGroup(True);
  
    isRendered := TryRenderUnitOrGroup(entity, nil, nil, True, True, DELETE_COLOR, 0, DELETE_COLOR);
  
    if (entity is TKMHouse) then
    begin
      AddWholeHouse(TKMHouse(entity), gHands[entity.Owner].FlagColor, True, True, DELETE_COLOR);
      isRendered := True;
    end;
  
  