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

TAChart: Add TChartRange.Assign and TChartExtent.Assign methods

Browse Source 
git-svn-id: trunk@31823 -
This commit is contained in:
ask 2011-07-30 06:45:50 +00:00
parent aa51debce9
commit b8bef2f439
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/tachart/tatypes.pas
View File

@ -318,6 +318,7 @@ type
procedure SetBounds(AIndex: Integer; const AValue: Double);
procedure SetUseBounds(AIndex: Integer; AValue: Boolean);
public
procedure Assign(ASource: TPersistent); override;
procedure CheckBoundsOrder;
published
property Max: Double index 2 read GetBounds write SetBounds stored IsBoundsStored;
@ -339,6 +340,7 @@ type
procedure SetBounds(AIndex: Integer; const AValue: Double);
procedure SetUseBounds(AIndex: Integer; AValue: Boolean);
public
procedure Assign(ASource: TPersistent); override;
procedure CheckBoundsOrder;
published
property UseXMax: Boolean index 3 read GetUseBounds write SetUseBounds default false;
@ -1036,6 +1038,16 @@ end;
{ TChartRange }
procedure TChartRange.Assign(ASource: TPersistent);
begin
if ASource is TChartRange then
with TChartRange(ASource) do begin
Self.FBounds := FBounds;
Self.FUseBounds := FUseBounds;
end;
inherited Assign(ASource);
end;
procedure TChartRange.CheckBoundsOrder;
begin
if UseMin and UseMax and (Min >= Max) then begin
@ -1074,6 +1086,16 @@ end;
{ TChartExtent }
procedure TChartExtent.Assign(ASource: TPersistent);
begin
if ASource is TChartExtent then
with TChartExtent(ASource) do begin
Self.FExtent := FExtent;
Self.FUseBounds := FUseBounds;
end;
inherited Assign(ASource);
end;
procedure TChartExtent.CheckBoundsOrder;
begin
if UseXMin and UseXMax and (XMin >= XMax) then begin