anchor.diff:            begin
               layer.handleNewTime(aClient, selectedTime, fPrivateModelSensorEvent);
             end);
  +      end;
  +      if aPayload.TryGetValue<TJSONValue>('selectedEvent', selectedEvent) then
  +      begin
  +        Log.WriteLn('selected event: '+selectedEvent.toJSON, llWarning);
  +      end;
  +      if aPayload.TryGetValue<TJSONValue>('brush', brush) then
  +      begin
  +        Log.WriteLn('brush: '+brush.toJSON, llWarning);
         end;
       end);
   
  
positive.code:               entry :=
                  '"start":"'+startTime+'"'+','+
                  '"end":"'+endTime+'"'+','+
                  '"color":"'+fillColorPrev+'"';
                jsonAdd(Result, '{'+entry+'}');
              end;
              // start new range
              fillColorPrev := fillColor;
              startTime := endTime;
            end;
          until not cursor.Next;
          // add last step if exists
          endTime := FormatDateTime(publisherDateTimeFormat, cursor.fCurrentTimeStamp);
          if (startTime<>'') and (startTime<>endTime) then
          begin
            entry :=
              '"start":"'+startTime+'"'+','+
              '"end":"'+endTime+'"'+','+
              '"color":"'+fillColorPrev+'"';
            jsonAdd(Result, '{'+entry+'}');
          end;
        end;
  
negative.code:   endTime := '';
    fillColorPrev := '';
    fillColor := '';
    prevMax := 0;
    cursor := fDataSet.NewCursor;
    try
      TMonitor.Enter(fDataSet);
  