From 178ea522e77087975998eec2dcdbbbd1a0e8edbe Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Tue, 5 Apr 2011 17:16:16 +0000
Subject: [PATCH] TAChart: Synchronize extents of standard and BGRA view

git-svn-id: trunk@30200 -
---
 components/tachart/demo/bgra/Main.lfm | 1 +
 components/tachart/demo/bgra/Main.pas | 9 +++++++++
 2 files changed, 10 insertions(+)

diff --git a/components/tachart/demo/bgra/Main.lfm b/components/tachart/demo/bgra/Main.lfm
index 43affe2559..71b37a3460 100644
--- a/components/tachart/demo/bgra/Main.lfm
+++ b/components/tachart/demo/bgra/Main.lfm
@@ -32,6 +32,7 @@ object Form1: TForm1
       'Standard'
     )
     Title.Visible = True
+    OnAfterPaint = Chart1AfterPaint
     Align = alLeft
     Color = clGreen
     ParentColor = False
diff --git a/components/tachart/demo/bgra/Main.pas b/components/tachart/demo/bgra/Main.pas
index 320c68ece8..bec09930af 100644
--- a/components/tachart/demo/bgra/Main.pas
+++ b/components/tachart/demo/bgra/Main.pas
@@ -19,6 +19,7 @@ type
     PaintBox1: TPaintBox;
     RandomChartSource1: TRandomChartSource;
     Splitter1: TSplitter;
+    procedure Chart1AfterPaint(ASender: TChart);
     procedure PaintBox1Paint(Sender: TObject);
   end;
 
@@ -34,10 +35,16 @@ uses
 
 { TForm1 }
 
+procedure TForm1.Chart1AfterPaint(ASender: TChart);
+begin
+  PaintBox1.Invalidate;
+end;
+
 procedure TForm1.PaintBox1Paint(Sender: TObject);
 var
   bmp: TBGRABitmap;
   id: IChartDrawer;
+  rp: TChartRenderingParams;
 begin
   bmp := TBGRABitmap.Create(PaintBox1.Width, PaintBox1.Height);
   Chart1.DisableRedrawing;
@@ -45,7 +52,9 @@ begin
     Chart1.Title.Text.Text := 'BGRABitmap';
     id := TBGRABitmapDrawer.Create(bmp);
     id.DoGetFontOrientation := @CanvasGetFontOrientationFunc;
+    rp := Chart1.RenderingParams;
     Chart1.Draw(id, Rect(0, 0, PaintBox1.Width, PaintBox1.Height));
+    Chart1.RenderingParams := rp;
     bmp.Draw(PaintBox1.Canvas, 0, 0);
     Chart1.Title.Text.Text := 'Standard';
   finally