From eda3f301760f1d5bde895079acaef97659a7053e Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Tue, 5 Apr 2011 17:15:24 +0000
Subject: [PATCH] TAChart: Add Chart.RenderingParams property

git-svn-id: trunk@30199 -
---
 components/tachart/tagraph.pas | 52 +++++++++++++++++++++++-----------
 1 file changed, 35 insertions(+), 17 deletions(-)

diff --git a/components/tachart/tagraph.pas b/components/tachart/tagraph.pas
index c3a09cd9fd..714bd970fa 100644
--- a/components/tachart/tagraph.pas
+++ b/components/tachart/tagraph.pas
@@ -141,6 +141,13 @@ type
     ASender: TChart; const ARect: TRect;
     var ADoDefaultDrawing: Boolean) of object;
 
+  TChartRenderingParams = record
+    FClipRect: TRect;
+    FIsZoomed: Boolean;
+    FLogicalExtent, FPrevLogicalExtent: TDoubleRect;
+    FScale, FOffset: TDoublePoint;
+  end;
+
   { TChart }
 
   TChart = class(TCustomChart, ICoordTransformer)
@@ -195,6 +202,7 @@ type
     function GetChartHeight: Integer;
     function GetChartWidth: Integer;
     function GetMargins(ADrawer: IChartDrawer): TRect;
+    function GetRenderingParams: TChartRenderingParams;
     function GetSeriesCount: Integer;
     function GetToolset: TBasicChartToolset;
     procedure HideReticule;
@@ -219,6 +227,7 @@ type
     procedure SetOnChartPaint(AValue: TChartPaintEvent);
     procedure SetOnDrawReticule(AValue: TDrawReticuleEvent);
     procedure SetProportional(AValue: Boolean);
+    procedure SetRenderingParams(AValue: TChartRenderingParams);
     procedure SetReticuleMode(const AValue: TReticuleMode);
     procedure SetReticulePos(const AValue: TPoint);
     procedure SetTitle(Value: TChartTitle);
@@ -274,6 +283,9 @@ type
     function SaveToImage(AClass: TRasterImageClass): TRasterImage;
     procedure StyleChanged(Sender: TObject); override;
     procedure ZoomFull; override;
+  public
+    property RenderingParams: TChartRenderingParams
+      read GetRenderingParams write SetRenderingParams;
   public // Coordinate conversion
     function GraphToImage(const AGraphPoint: TDoublePoint): TPoint;
     function ImageToGraph(const APoint: TPoint): TDoublePoint;
@@ -914,6 +926,16 @@ begin
     a[i] := ADrawer.Scale(a[i]);
 end;
 
+function TChart.GetRenderingParams: TChartRenderingParams;
+begin
+  Result.FScale := FScale;
+  Result.FOffset := FOffset;
+  Result.FClipRect := FClipRect;
+  Result.FLogicalExtent := FLogicalExtent;
+  Result.FPrevLogicalExtent := FPrevLogicalExtent;
+  Result.FIsZoomed := FIsZoomed;
+end;
+
 function TChart.GetSeriesCount: Integer;
 begin
   Result := FSeries.FList.Count;
@@ -987,29 +1009,15 @@ end;
 
 procedure TChart.PaintOnAuxCanvas(ACanvas: TCanvas; ARect: TRect);
 var
-  oldScale, oldOffset: TDoublePoint;
-  oldClipRect: TRect;
-  oldLogicalExtent, oldPrevLogicalExtent: TDoubleRect;
-  oldIsZoomed: Boolean;
+  rp: TChartRenderingParams;
 begin
-  // TODO: Group rendering params into a structure.
-  oldScale := FScale;
-  oldOffset := FOffset;
-  oldClipRect := FClipRect;
-  oldLogicalExtent := FLogicalExtent;
-  oldPrevLogicalExtent := FPrevLogicalExtent;
-  oldIsZoomed := FIsZoomed;
+  rp := RenderingParams;
   ExtentBroadcaster.Locked := true;
   try
     FIsZoomed := false;
     PaintOnCanvas(ACanvas, ARect);
   finally
-    FScale := oldScale;
-    FOffset := oldOffset;
-    FClipRect := oldClipRect;
-    FLogicalExtent := oldLogicalExtent;
-    FPrevLogicalExtent := oldPrevLogicalExtent;
-    FIsZoomed := oldIsZoomed;
+    RenderingParams := rp;
     ExtentBroadcaster.Locked := false;
   end;
 end;
@@ -1244,6 +1252,16 @@ begin
   Invalidate;
 end;
 
+procedure TChart.SetRenderingParams(AValue: TChartRenderingParams);
+begin
+  FScale := AValue.FScale;
+  FOffset := AValue.FOffset;
+  FClipRect := AValue.FClipRect;
+  FLogicalExtent := AValue.FLogicalExtent;
+  FPrevLogicalExtent := AValue.FPrevLogicalExtent;
+  FIsZoomed := AValue.FIsZoomed;
+end;
+
 procedure TChart.SetReticuleMode(const AValue: TReticuleMode);
 begin
   if FReticuleMode = AValue then exit;