anchor.diff:  begin
     Result := '';
     for key in fXValues.Keys do
  +  begin
  +    if Result <> '' then
  +      Result := Result + ',';
  +    Result := Result + '[';
  +    columnString := '"' + key + '"';
  +    dataList := fXValues[key];
  +    for index := 0 to dataList.Count - 1 do
  +      begin
  +        columnString := columnString + ',' + dataList[index].GetJSON;
  +      end;
  +      Result := Result + columnString + ']';
  +  end;
  +  for serie in fSeries.Values do
  +  begin
  +    if serie.Active then
       begin
         if Result <> '' then
           Result := Result + ',';
  -      Result := Result + '[';
  -      columnString := '"' + key + '"';
  -      dataList := fXValues[key];
  -      for index := 0 to dataList.Count - 1 do
  -        begin
  -          columnString := columnString + ',' + dataList[index].GetJSON;
  -        end;
  -        Result := Result + columnString + ']';
  +      Result := Result + '[' + serie.GetColumnJSON + ']';
       end;
  -  for serie in fSeries.Values do
  -  begin
  -    if serie.Active then
  -      begin
  -        if Result <> '' then
  -          Result := Result + ',';
  -        Result := Result + '[' + serie.GetColumnJSON + ']';
  -      end;
     end;
   end;
   
   function TUSChart.getJSONData: string;
   begin
  -    Result := '"columns":[' + getJSONColumns +'],';
  -    if fXValues.Count > 1 then
  -      Result := Result + '"xs":{' + getJSONXS + '},'
  -    else if fXValues.Count = 1 then
  -      Result := Result + '"x":' + getJSONX + ',';
  -
  -    Result := Result + '"groups":[' + getJSONGroups + '],' +
  +  Result := '"columns":[' + getJSONColumns +'],';
  +  if fXValues.Count > 1 then
  +    Result := Result + '"xs":{' + getJSONXS + '},'
  +  else if fXValues.Count = 1 then
  +    Result := Result + '"x":' + getJSONX + ',';
  +
  +  Result := Result + '"groups":[' + getJSONGroups + '],' +
       '"types":[' + getJSONTypes + '],' +
       '"axes":{' + getJSONAxes + '}';
   end;
  
positive.code:         'WHERE PROJECTID='''+aProjectID+'''';
        query.Execute;
        if query.RowsAffected=0 then
      begin
          query.SQL.Text :=
            'INSERT INTO '+PROJECT_TABLE_NAME+' (PROJECTID, LAT, LON, ZOOM) '+
            'VALUES ('''+aProjectID+''', '+aLat.ToString(dotFormat)+', '+aLon.ToString(dotFormat)+', '+aZoomLevel.ToString+')';
  
negative.code: //                      if ((changeCount mod 1000) = 0) then
  //                        Log.WriteLn('Calculating changes...' + changeCount.ToString);
                        if FindObject(wdid, o) then
                        begin
  //                          fChangeQuery.ParamByName('OBJECT_ID').AsInteger := entry.objectID;
  //                          fChangeQuery.Execute;
  //                          if not fChangeQuery.Eof then
  