procedure TImageEnMView.IEEndDrag;
begin
  EndDrag(true);
  fDragging := false;
  TerminateDragScrollTimer;
end;

// End automatic scrolling when dragging completes
procedure TImageEnMView.TerminateDragScrollTimer;
begin
  if assigned(FDragScrollTimer) then
    FDragScrollTimer.Enabled := False;
end;

procedure TForm1.DragMode1Click(Sender: TObject);
begin
  if DragMode1.Checked then
  begin
    ImageEnMView1.DragMode := dmAutomatic;
    DragMode1.Caption := 'Manual';
    This prevents selecting any thumbnail at all.
  end
  else
  begin
    ImageEnMView1.DragMode := dmManual;
    DragMode1.Caption := 'Automatic';
  end;
end;