Steema Central

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
begin
  DashBoard1.AddChart('Chart1').AddSeries(TBarSeries).FillSampleValues;
  DashBoard1.AddChart('Chart2').AddSeries(TLineSeries).FillSampleValues;
  DashBoard1.AddChart('Chart2').AddSeries(TPieSeries).FillSampleValues;
end;

Code: Select all

--- a/TeeSubChart.pas
+++ b/TeeSubChart.pas
@@ -17,6 +17,11 @@ uses
 
   {$IFDEF FMX}
   FMX.Types, System.UITypes,
+
+  {$IFDEF D19}
+  FMX.Graphics,
+  {$ENDIF}
+
   {$IFDEF D17}
   System.UIConsts,
   {$ENDIF}
@@ -382,20 +387,57 @@ begin
 end;
 
+type
+  TCustomTeePanelAccess=class(TCustomTeePanel);
+
 procedure TSubChartTool.ChartEvent(AEvent: TChartToolEvent);
+
+  {$IFNDEF FMX}
+  procedure ApplyMetaScale(var R:TRect);
+  var tmp : TRect;
+      tmpR : TRect;
+      tmpW,
+      tmpH,
+      tmpX,
+      tmpY : Single;
+  begin
+    tmp:=ParentChart.ChartPrintRect;
+    tmpR:=ParentChart.GetRectangle;
+
+    tmpW:=(tmpR.Right-tmpR.Left);
+    tmpX:=(tmp.Right-tmp.Left)/tmpW;
+
+    R.Left:=Round(R.Left*tmpX);
+    R.Right:=Round(R.Right*tmpX);
+
+    tmpH:=(tmpR.Bottom-tmpR.Top);
+    tmpY:=(tmp.Bottom-tmp.Top)/tmpH;
+
+    R.Top:=Round(R.Top*tmpY);
+    R.Bottom:=Round(R.Bottom*tmpY);
+  end;
+  {$ENDIF}
+
 var t : Integer;
+    tmp : TCanvas;
+    tmpR : TRect;
+
+    {$IFNDEF FMX}
+    tmpScale : Boolean;
+    {$ENDIF}
 begin
   inherited;
 
   if Active and (AEvent=cteAfterDraw) and Assigned(ParentChart) then
-     for t:=0 to Charts.Count-1 do
-     with Charts[t] do
-     if Chart.Visible then
-     begin
-       // NOT A GOOD IDEA: Chart.View3D:=Self.ParentChart.View3D;
+  begin
+    tmp:=ParentChart.Canvas.ReferenceCanvas;
+
+    {$IFNDEF FMX}
+    tmpScale:=ParentChart.Printing and
+              ParentChart.Canvas.Metafiling and
+              TCustomTeePanelAccess(ParentChart).IsPrinterCanvas;
+    {$ENDIF}
+
-       Chart.BufferedDisplay:=False;
-       Chart.Draw(Self.ParentChart.Canvas.ReferenceCanvas,Bounds);
-     end;
+    for t:=0 to Charts.Count-1 do
+    with Charts[t] do
+    if Chart.Visible then
+    begin
+      Chart.BufferedDisplay:=False;
+
+      tmpR:=Bounds;
+      OffsetRect(tmpR,ParentChart.ChartBounds.Left,
+                      ParentChart.ChartBounds.Top);
+
+      {$IFNDEF FMX}
+      if tmpScale then
+         ApplyMetaScale(tmpR);
+      {$ENDIF}
+
+      Chart.Draw(tmp,tmpR);
+    end;
+  end;
 end;
 
 procedure TSubChartTool.ChartMouseEvent(AEvent: TChartMouseEvent;
@@ -1168,9 +1171,6 @@ end;
 
 { TChartCollection }
 
-type
-  TCustomTeePanelAccess=class(TCustomTeePanel);
-
 function TChartCollection.AddChart(const AName: String=''): TChart;
 var tmp : TCustomTeePanel;
 begin
-- 
-- 

Code: Select all

--- a/TeeProcs.pas
+++ b/TeeProcs.pas
@@ -439,6 +439,7 @@ type
     FCustomChartRect : Boolean;
     IsEmbedded       : Boolean;
     InternalCanvas   : TCanvas3D;
+    IsPrinterCanvas  : Boolean;
 
     Procedure ApplyMargins;
 
@@ -3591,7 +3592,9 @@ begin
   // FMX TODO: Change Scale.X and Y
 
   SetAnisotropic;
+
   FPrinting:=True;
+  IsPrinterCanvas:=True;
   try
     if CanClip then ClipCanvas(PrintCanvas,tmpR);
 
@@ -3601,6 +3604,7 @@ begin
     DrawToMetaCanvas(PrintCanvas,tmpR);
     UnClipCanvas(PrintCanvas);
   finally
+    IsPrinterCanvas:=False;
     FPrinting:=False;
   end;