anchor.diff:    tableName: String;
     isNew: Boolean;
     socChart: TChart;
  +  t: TDateTime;
   const
     SocChartID = 'santosSoc';
   begin
  -  zero := StrToTime('00:00');
  +  zero := SantosTimeToDateTime('00:00', fBaseDay);
  +  //StrToTime('00:00');
   
     TMonitor.Enter(fProjectCurrentScenario.Charts);
     try
  
positive.code:             marker := TCircleMarker.Create(Self, idPrefixBusStop+stop.id, stop.lat, stop.lon, 8, Nan,
                [],
                [ [sojnTooltip, '"' + stop.tooltip + '"'] ]); //, Double.NaN, [[sojnDraggable, 'true']]);
              marker.addOptionGeoColor( stop.geoColors);
              AddObject(marker, marker.jsonNewObject);
  
              TMonitor.Enter(fStopObjects);
  
negative.code:   LowChargeColor: TAlphaRGBPixel = $FFFFA500;
    MediumChargeColor: TAlphaRGBPixel = $FFFFFF00;
    HighChargeColor: TAlphaRGBPixel = $FF008000;
    Nothing: TAlphaRGBPixel = $AAAAAAAA;
  begin
    // TODO
    inherited Create(aScenario, aDomain, aID, aName, aDescription);
  