anchor.diff:  
   procedure TElement.CreateHaftList;
   begin
  -  inherited;
   end;
   
   function TElement.HitTest(X, Y: Integer): Boolean;
  
positive.code:     DesignRect: TRect;
    public
      procedure Move(DX, DY: Integer); override;
      function CreateRegion: HRGN; override;
      procedure CreateHaftList; override;
      function PtInHaft(X, Y: Integer; out vHaftIndex: Integer): Boolean; override;
      procedure SetCursor(Shift: TShiftState; X, Y: Integer); override;
  
negative.code:   i: Integer;
  begin
    Result := PtInHaft(X, Y, i);
  end;
  
  procedure TElement.SetModified(const Value: Boolean);
  