anchor.diff:    //TODO: Implement
   end;
   
  +{ TUSControlsLayer }
  +
  +constructor TUSControlsLayer.Create(aScenario: TUSScenario; const aDomain, aID, aName, aDescription: string; aDefaultLoad: Boolean;
  +  const aConnectString: string; aSourceProjection: TGIS_CSProjectedCoordinateSystem);
  +begin
  +  fConnectString := aConnectString;
  +  fSourceProjection := aSourceProjection;
  +  //fControls := TObjectDictionary<integer, TUSControl>.Create([doOwnsValues]);
  +  inherited Create(aScenario, aDomain, aID, aName, aDescription, [], [], aDefaultLoad);
  +end;
  +
  +destructor TUSControlsLayer.Destroy;
  +begin
  +  //FreeAndNil(fControls);
  +  inherited;
  +end;
  +
  +procedure TUSControlsLayer.handleChangeObject(aAction, aObjectID: Integer; const aObjectName, aAttribute: string);
  +begin
  +  // todo: implement
  +end;
  +
  +procedure TUSControlsLayer.ReadObjects(aSender: TObject);
  +begin
  +  // todo: implement
  +
  +end;
  +
   end.
  
positive.code: procedure TUSScenario.ReadBasicData;
  var
    mlp: TPair<Integer, TMetaLayerEntry>;
    layer: TUSLayer;
    indicTableNames: TAllRowsSingleFieldResult;
    oraSession: TOraSession;
    metaLayer: TMetaLayer;
  
negative.code:       aDataEvent,
        aSourceProjection,
        CreatePaletteFromODB(LEGEND_DESC, odbList, True));
      (Result as TUSLayer).fLegendJSON := BuildLegendJSON(lfVertical);
      (Result as TUSLayer).query := SQLQuery(aTableprefix);
    end;
  end;
  
  