From ecb19032a80f0bee4f550f1e7eaf6c8eb336349a Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Fri, 20 Apr 2012 06:28:55 +0000
Subject: [PATCH] TAChart: Make TChartMargins.GetValue and SetValue public

git-svn-id: trunk@36917 -
---
 components/tachart/tatypes.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/components/tachart/tatypes.pas b/components/tachart/tatypes.pas
index bfe4007651..20034c66b8 100644
--- a/components/tachart/tatypes.pas
+++ b/components/tachart/tatypes.pas
@@ -365,10 +365,11 @@ type
         0: (FRect: TRect;);
         1: (FCoords: TRectArray;);
       end;
-    function GetValue(AIndex: Integer): integer;
-    procedure SetValue(AIndex: integer; AValue: TChartDistance);
   public
     constructor Create(AOwner: TCustomChart);
+
+    function GetValue(AIndex: Integer): Integer;
+    procedure SetValue(AIndex: Integer; AValue: TChartDistance);
   public
     procedure Assign(Source: TPersistent); override;
     property Data: TRect read FData.FRect;
@@ -1164,12 +1165,12 @@ begin
   FData.FRect := Rect(DEF_MARGIN, DEF_MARGIN, DEF_MARGIN, DEF_MARGIN);
 end;
 
-function TChartMargins.GetValue(AIndex: Integer): integer;
+function TChartMargins.GetValue(AIndex: Integer): Integer;
 begin
   Result := FData.FCoords[AIndex];
 end;
 
-procedure TChartMargins.SetValue(AIndex: integer; AValue: TChartDistance);
+procedure TChartMargins.SetValue(AIndex: Integer; AValue: TChartDistance);
 begin
   if FData.FCoords[AIndex] = AValue then exit;
   FData.FCoords[AIndex] := AValue;