From 87023d86586b85c92bfdbec8922568a9bad2d451 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Tue, 14 Jan 2014 22:02:48 +0000
Subject: [PATCH] Components, TAChart: make TChart GetChartHeight return height
 and GetChartWidth return width, note vice versa, patch by Michael Fuchs, bug
 #25437

git-svn-id: trunk@43722 -
---
 components/tachart/tagraph.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/tachart/tagraph.pas b/components/tachart/tagraph.pas
index ef036f9bd9..23722ed4b7 100644
--- a/components/tachart/tagraph.pas
+++ b/components/tachart/tagraph.pas
@@ -953,12 +953,12 @@ end;
 
 function TChart.GetChartHeight: Integer;
 begin
-  Result := FClipRect.Right - FClipRect.Left;
+  Result := FClipRect.Bottom - FClipRect.Top;
 end;
 
 function TChart.GetChartWidth: Integer;
 begin
-  Result := FClipRect.Bottom - FClipRect.Top;
+  Result := FClipRect.Right - FClipRect.Left;
 end;
 
 procedure TChart.GetChildren(AProc: TGetChildProc; ARoot: TComponent);