paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-12 07:59:25 +01: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;); 0: (FRect: TRect;);
1: (FCoords: TRectArray;); 1: (FCoords: TRectArray;);
end; end;
function GetValue(AIndex: Integer): integer;
procedure SetValue(AIndex: integer; AValue: TChartDistance);
public public
constructor Create(AOwner: TCustomChart); constructor Create(AOwner: TCustomChart);
function GetValue(AIndex: Integer): Integer;
procedure SetValue(AIndex: Integer; AValue: TChartDistance);
public public
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;
property Data: TRect read FData.FRect; property Data: TRect read FData.FRect;
@ -1164,12 +1165,12 @@ begin
FData.FRect := Rect(DEF_MARGIN, DEF_MARGIN, DEF_MARGIN, DEF_MARGIN); FData.FRect := Rect(DEF_MARGIN, DEF_MARGIN, DEF_MARGIN, DEF_MARGIN);
end; end;
function TChartMargins.GetValue(AIndex: Integer): integer; function TChartMargins.GetValue(AIndex: Integer): Integer;
begin begin
Result := FData.FCoords[AIndex]; Result := FData.FCoords[AIndex];
end; end;
procedure TChartMargins.SetValue(AIndex: integer; AValue: TChartDistance); procedure TChartMargins.SetValue(AIndex: Integer; AValue: TChartDistance);
begin begin
if FData.FCoords[AIndex] = AValue then exit; if FData.FCoords[AIndex] = AValue then exit;
FData.FCoords[AIndex] := AValue; FData.FCoords[AIndex] := AValue;