anchor.diff:    end;
   end;
   
  -procedure TRelated.CombineRegion(var Rgn: HRGN);
  +procedure TContainer.CombineRegion(var Rgn: HRGN);
   var
     i: Integer;
   begin
  
positive.code: procedure TPolygonElement.PaintHaftList(vCanvas: TCanvas);
  begin
    inherited;
  
  end;
  
  { TDebateElement }
  
negative.code: 
  constructor THeavyElement.CreateBy(AOwner: TComponent; X: Integer; Y: Integer);
  var
    aLayout: TLayout;
  begin
    if AOwner is TLayout then
      aLayout := AOwner as TLayout
    else
      aLayout := GetLayoutByPoint(AOwner as TContainer, DesignX, DesignY);
    inherited CreateBy(aLayout, X, Y);
  end;
  
  procedure THeavyElement.CreateHaftList;
  