anchor.diff:  
   constructor THeavyElement.CreateBy(AOwner: TComponent; X: Integer; Y: Integer);
   var
  -  aPage: TPage;
  -begin
  -  if AOwner is TPage then
  -    aPage := AOwner as TPage
  +  aLayout: TLayout;
  +begin
  +  if AOwner is TLayout then
  +    aLayout := AOwner as TLayout
     else
  -    aPage := GetPageByPoint(AOwner as TRelated, DesignX, DesignY);
  -  inherited CreateBy(aPage, X, Y);
  +    aLayout := GetLayoutByPoint(AOwner as TContainer, DesignX, DesignY);
  +  inherited CreateBy(aLayout, X, Y);
   end;
   
   procedure THeavyElement.CreateHaftList;
  
positive.code:   end;
  end;
  
  procedure TRelated.CombineRegion(var Rgn: HRGN);
  var
    i: Integer;
  begin
  
negative.code:   inherited;
    if NextElement <> nil then
    begin
      DesignElement := NextElement.CreateBy(Container, X, Y);
      //NextElement := nil;
    end
    else if (DesignElement = nil) or not ((DesignElement.Captured) or (DesignElement.PtInHaft(X, Y))) then
    begin
      Container.HitTest(X, Y, aElement);
      DesignElement := aElement;
    end;
    if DesignElement <> nil then
  