anchor.diff:    endTime := '';
     fillColorPrev := '';
     fillColor := '';
  +  prevMax := 0;
     cursor := fDataSet.NewCursor;
     try
       TMonitor.Enter(fDataSet);
  
positive.code:     procedure setLive(aClient: TClient; const aValue: Boolean);
      function getLive(aClient: TClient): Boolean;
      procedure signalCursorValues(aClient: TClient; aCursor: TCursor; aPrivateModelSensorEvent: TEventEntry);
  
    protected
      function IsReceivingLayerUpdates(aClient: TClient): Boolean; override;
      function jsonTimesliderData: string;
  
negative.code:     var
        selectedTime: string;
        active: Boolean;
        selectedEvent: TJSONValue;
      brush: TJSONValue;
      begin
        if aPayload.TryGetValue<boolean>('active', active) then
        begin
  