anchor.diff:  end;
   
   procedure TATImageBox.ImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer);
  +var
  +  P: TPoint;
   begin
     if FFocusable then
       SetFocus;
  
positive.code:     end;
    end;
  
    Self.MouseDown(Button, Shift, X, Y);
  end;
  
  procedure TATImageBox.ImageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer);
  begin
    if (Button = mbLeft) then
    begin
  
negative.code:     Screen.Cursor:= crDefault;
    end;
  
    P:= FImage.ClientToScreen(Point(X, Y));
    P:= Self.ScreenToClient(P);
    Self.MouseUp(Button, Shift, P.X, P.Y);
  end;
  
  procedure TATImageBox.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer);
  var
    P: TPoint;
  begin
    if FDrag and FDragging then
    begin
  