Laurens,

I am glad you found my postings useful. I ran your version and it looks great. I noticed a place where you left in

 ImageSize -> {400, 30}, 

Which should be

 ImageSize -> {w, h}, 

As far as the pure functions go. It is often easier to understand if you define a function and use it in that spot. It may be quicker to use a pure function but often I regret it later when I do that!

For example, you can define

sliderReleaseFunction[x_]:= ...

Regards

Neil

Thanks a lot Neil for your advice. I have also studied the code with the interval slider that you referred to. It took me some time to understand the working of the two pure functions, but I think I finally did. To test the code I had to find a replacement of the financial data, since these are unfortunately not available at this moment. I used an accumulation of random numbers. To fit this into the original code I also had to learn a bit on DayRange, DateObject and AbsoluteTime. I really enjoyed it. Here is the full code:

DynamicModule[{data, xmin, xmax, ymin, ymax, ticks, ticknum = 4, int, 
  w = 400, h = 30},
 data = Partition[
   Riffle[AbsoluteTime /@ 
     DayRange[DateObject[{2014, 1, 1}], DateObject[{2014, 12, 31}], 
      "BusinessDay"], 
    Abs[Accumulate[
      RandomVariate[NormalDistribution[0, 1], Length[x]]]]], 2];
 ymin = Min[data];
 ymax = Max[data];
 xmin = xy[[1, 1]];
 xmax = xy[[-1, 1]];
 int = {xmin, xmax};
 ticks = (xmax - xmin)/5*Range[4] + xmin;
 Column[{Dynamic[
    DateListPlot[data, ImageSize -> w, Joined -> True, 
     FrameTicks -> {Automatic, {ticks, None}}, 
     DateTicksFormat -> {"MonthNameShort", " ", "YearShort"}, 
     GridLines -> Automatic, PlotRange -> {int, Automatic}]], 
   IntervalSlider[
    Dynamic[int, {(int = #) &, (ticks = (int[[2]] - 
              int[[1]])/(ticknum + 1)*Range[ticknum] + 
          int[[1]]) &}], {xmin, xmax, 1}, ImageSize -> {400, 30}, 
    MinIntervalSize -> 1],
   DateListPlot[data, Frame -> False, Axes -> False, 
    ImageSize -> {w, h}, AspectRatio -> h/w, Joined -> True, 
    Epilog -> {Opacity[0.5], Orange, 
      Dynamic[Rectangle @@ Thread[{int, {ymin, ymax}}]]}], 
   Row[{"Number of Ticks: ", 
     PopupMenu[
      Dynamic[ticknum, {(ticknum = #) &, (ticks = (int[[2]] - 
                int[[1]])/(ticknum + 1)*Range[ticknum] + 
            int[[1]]) &}], Range[10]]}]}]]

Dear Neil, I very much like the solution you presented in your last post, since using this I would be able to add several controls for other parameters. But it does not seem to work for plotting an accumulation of random numbers, like in:

Panel[Column[{Row[{Slider[Dynamic[seed], {1, 100, 1}], Dynamic[seed]}],
   Dynamic[SeedRandom[Dynamic[seed]]];
   Dynamic[
    ListPlot[
     Accumulate[
      RandomVariate[NormalDistribution[0, 1], 200]]], {Dynamic[seed], 
     1, 100, 1}]}]]

The curve does not change when I move the thumb of the slider. I would like to make it work like this:

Manipulate[
SeedRandom[seed];
ListPlot[
Accumulate[RandomVariate[NormalDistribution[0, 1], 200]]], {seed, 1,
100, 1}]

Would that be possible? I have tried several things, but did not succeed. I hope you can help me. Thanks in advance. Laurens