rm_pchart.pas

进销存·完整的·有数据库的·非常完整·只得参考

unit RM_PChart;

interface

{$I RM.inc}

{$IFDEF TeeChart}
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, TeeProcs, TeEngine, Chart, Series, RM_Class, RM_Chart, RM_FormReport;

type
  TRMPrintChart = class(TComponent) // fake component
  end;

 { TRMFormPrintChart }
  TRMFormPrintChart = class(TRMFormReportObject)
  public
    procedure OnGenerate_Object(aFormReport: TRMFormReport; Page: TRMPage;
      Control: TControl; var t: TRMView); override;
  end;
{$ENDIF}

implementation

{$IFDEF TeeChart}
uses RM_CmpReg, RM_Utils;

type
  THackFormReport = class(TRMFormReport)
  end;
  
procedure TRMFormPrintChart.OnGenerate_Object(aFormReport: TRMFormReport;
  Page: TRMPage; Control: TControl; var t: TRMView);
begin
  t := RMCreateObject(gtAddin, 'TRMChartView');
  t.CreateUniqueName;
  t.x := Control.Left + THackFormReport(aFormReport).OffsX;
  t.y := Control.Top + THackFormReport(aFormReport).OffsY;
  t.dx := Control.Width + 4;
  t.dy := Control.Height + 4;
  TRMChartView(t).AssignChart(TCustomChart(Control));
  if rmgoDrawBorder in aFormReport.ReportOptions then
    t.Prop['FrameTyp'] := $F
  else
    t.Prop['FrameTyp'] := 0;

  Page.Objects.Add(t);
  if aFormReport.DrawOnPageFooter then
    aFormReport.ColumnFooterViews.Add(t)
  else
    aFormReport.PageHeaderViews.Add(t);
end;

initialization
  RMRegisterFormReportControl(TCustomChart, TRMFormPrintChart);
{$ENDIF}
end.