paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 13:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Make TChartMargins.GetValue and SetValue public

Browse Source 
git-svn-id: trunk@36917 -
This commit is contained in:
ask 2012-04-20 06:28:55 +00:00
parent c83efdd1fb
commit ecb19032a8
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tatypes.pas
View File

@ -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;