Generic indicator factory

AuraTrader/MainForm.pas

@@ -51,7 +51,7 @@ uses
     FMX.ActnList,
     DynamicFMXControl,
     Myc.FMX.Chart,
-    Myc.Trade.Indicators,
+    Myc.Trade.Indicators.Common,
     StrategyTest,
     TestMethodCallFromRecordParams;
 
@@ -486,6 +486,7 @@ begin
 
     ////////////
 
+    (*
     var Params: TEMA.TParam;
     Params.Period := 20;
 
@@ -499,12 +500,12 @@ begin
             .Chain<TEMA.TInput>(function(const Value: Double): TEMA.TInput begin Result.Price := Value end)
             .Chain<TEMA.TResult>(EMAConv)
             .Chain<Double>(function(const Value: TEMA.TResult): Double begin Result := Value.MA end);
-
+*)
     //////////////
 
     panel := pnlChart.AddPanel;
     panel.AddDoubleSeries(equity.Producer, TAlphaColors.Blue, 3);
-    panel.AddDoubleSeries(equityEMA, TAlphaColors.Gray, 2);
+    //    panel.AddDoubleSeries(equityEMA, TAlphaColors.Gray, 2);
 
     /////
 end;