paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-05 16:32:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fixed compilation on FPC 2.3.1

Browse Source 
git-svn-id: trunk@19170 -
This commit is contained in:
ask 2009-03-31 07:48:56 +00:00
parent 53478c37f8
commit a95dcafbfb
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tachartutils.pas
View File

@ -50,7 +50,13 @@ type
end; end;
TDoubleRect = record TDoubleRect = record
a, b: TDoublePoint; case Integer of
0: (
a, b: TDoublePoint;
);
1: (
coords: array [1..4] of Double;
);
end; end;
TPointDistFunc = function (const A, B: TPoint): Integer; TPointDistFunc = function (const A, B: TPoint): Integer;

8
components/tachart/tatypes.pas
View File

@ -776,10 +776,8 @@ begin
end; end;
function TChartExtent.GetBorder(AIndex: Integer): Double; function TChartExtent.GetBorder(AIndex: Integer): Double;
var
a: array [1..4] of Double absolute FExtent;
begin begin
Result := a[AIndex]; Result := Extent.coords[AIndex];
end; end;
procedure TChartExtent.SetAuto(AIndex: Integer; AValue: Boolean); procedure TChartExtent.SetAuto(AIndex: Integer; AValue: Boolean);
@ -789,10 +787,8 @@ begin
end; end;
procedure TChartExtent.SetBorder(AIndex: Integer; const AValue: Double); procedure TChartExtent.SetBorder(AIndex: Integer; const AValue: Double);
var
a: array [1..4] of Double absolute FExtent;
begin begin
a[AIndex] := AValue; Extent.coords[AIndex] := AValue;
StyleChanged(Self); StyleChanged(Self);
end; end;