rminterpreter_chart.pas

这是一个功能强大

unit RMInterpreter_Chart;

interface

{$I RM.inc}
{$IFDEF TeeChart}

uses
  Windows, Messages, SysUtils, Classes, TeeProcs, TeEngine, Chart, Series
{$IFDEF USE_INTERNAL_JVCL}, rm_JvInterpreter{$ELSE}, JvInterpreter{$ENDIF}
{$IFDEF COMPILER6_UP}, Variants{$ENDIF};

procedure RegisterJvInterpreterAdapter(JvInterpreterAdapter: TJvInterpreterAdapter);

{$ENDIF}
implementation

{$IFDEF TeeChart}
uses
  TeeShape, ArrowCha, GanttCh, BubbleCh
{$IFDEF TeeChartPro}, teestore{$ENDIF};

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
// TCustomSeries

procedure TCustomSeries_ParentChart(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomSeries(Args.Obj).ParentChart);
end;

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
// TChartSeries

procedure TChartSeries_Clear(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TChartSeries(Args.Obj).Clear;
end;

procedure TChartSeries_Count(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TChartSeries(Args.Obj).Count;
end;

procedure TChartSeries_Add(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TChartSeries(Args.Obj).Add(Args.Values[0], Args.Values[1], Args.Values[2]);
end;

procedure TChartSeries_Delete(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TChartSeries(Args.Obj).Delete(Args.Values[0]);
end;

procedure TChartSeries_MaxXValue(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TChartSeries(Args.Obj).MaxXValue;
end;

procedure TChartSeries_MaxYValue(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TChartSeries(Args.Obj).MaxYValue;
end;

procedure TChartSeries_MinXValue(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TChartSeries(Args.Obj).MinXValue;
end;

procedure TChartSeries_MinYValue(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TChartSeries(Args.Obj).MinYValue;
end;

procedure TChartSeries_AddNull(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TChartSeries(Args.Obj).AddNull(Args.Values[0]);
end;

procedure TChartSeries_AddXY(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TChartSeries(Args.Obj).AddXY(Args.Values[0], Args.Values[1], Args.Values[2],
    Args.Values[3]);
end;

procedure TChartSeries_FillSampleValues(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TChartSeries(Args.Obj).FillSampleValues(Args.Values[0]);
end;

procedure TChartSeries_AddY(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TChartSeries(Args.Obj).AddY(Args.Values[0], Args.Values[1], Args.Values[2]);
end;

procedure TChartSeries_NumSampleValues(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TChartSeries(Args.Obj).NumSampleValues;
end;

procedure TChartSeries_AssignValues(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TChartSeries(Args.Obj).AssignValues(TChartSeries(V2O(Args.Values[0])));
end;

procedure TChartSeries_XValueToText(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TChartSeries(Args.Obj).XValueToText(Args.Values[0]);
end;

procedure TChartSeries_YValueToText(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TChartSeries(Args.Obj).YValueToText(Args.Values[0]);
end;

procedure TChartSeries_MarkPercent(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TChartSeries(Args.Obj).MarkPercent(Args.Values[0], Args.Values[1]);
end;

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
// TLineSeries

procedure TLineSeries_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TLineSeries.Create(V2O(Args.Values[0]) as TComponent));
end;

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
// TAreaSeries

procedure TAreaSeries_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TAreaSeries.Create(V2O(Args.Values[0]) as TComponent));
end;

procedure TAreaSeries_GetOriginPos(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TAreaSeries(Args.Obj).GetOriginPos(Args.Values[0]);
end;

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
// TPointSeries

procedure TPointSeries_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TPointSeries.Create(V2O(Args.Values[0]) as TComponent));
end;

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
// TBarSeries

procedure TBarSeries_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TBarSeries.Create(V2O(Args.Values[0]) as TComponent));
end;

procedure TBarSeries_GetOriginPos(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TBarSeries(Args.Obj).GetOriginPos(Args.Values[0]);
end;

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
// THorizBarSeries

procedure THorizBarSeries_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(THorizBarSeries.Create(V2O(Args.Values[0]) as TComponent));
end;

procedure THorizBarSeries_AddBar(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := THorizBarSeries(Args.Obj).AddBar(Args.Values[0], Args.Values[1], Args.Values[2]);
end;

procedure THorizBarSeries_GetOriginPos(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := THorizBarSeries(Args.Obj).GetOriginPos(Args.Values[0]);
end;

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
// TPieSeries

procedure TPieSeries_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TPieSeries.Create(V2O(Args.Values[0]) as TComponent));
end;

procedure TPieSeries_AngleToPos(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TPieSeries(Args.Obj).AngleToPos(Args.Values[0], Args.Values[1], Args.Values[2],
    TVarData(Args.Values[3]).vInteger, TVarData(Args.Values[4]).vInteger);
end;

procedure TPieSeries_PointToAngle(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TPieSeries(Args.Obj).PointToAngle(Args.Values[0], Args.Values[1]);
end;


{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
// TChartShape

procedure TChartShape_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TChartShape.Create(V2O(Args.Values[0]) as TComponent));
end;

{procedure TChartShape_GetShapeRect(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TChartShape.GetI
  Value := TChartShape(Args.Obj).GetShapeRect;
end;
}


{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
// TFastLineSeries

procedure TFastLineSeries_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TFastLineSeries.Create(V2O(Args.Values[0]) as TComponent));
end;

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
// TArrowSerie

procedure TArrowSeries_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TArrowSeries.Create(V2O(Args.Values[0]) as TComponent));
end;

procedure TArrowSeries_AddArrow(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TArrowSeries(Args.Obj).AddArrow(Args.Values[0], Args.Values[1], Args.Values[2],
    Args.Values[3], Args.Values[4], Args.Values[5]);
end;

{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}
// TGanttSeries