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

TAChart: Add TChartExtent.FixTo utility function

Browse Source 
git-svn-id: trunk@38609 -
This commit is contained in:
ask 2012-09-10 09:44:05 +00:00
parent 160fa589a7
commit a06d48f63f
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tatypes.pas
View File

@ -160,6 +160,7 @@ type
public public
procedure Assign(ASource: TPersistent); override; procedure Assign(ASource: TPersistent); override;
procedure CheckBoundsOrder; procedure CheckBoundsOrder;
procedure FixTo(const ABounds: TDoubleRect);
published published
property UseXMax: Boolean index 3 read GetUseBounds write SetUseBounds default false; property UseXMax: Boolean index 3 read GetUseBounds write SetUseBounds default false;
property UseXMin: Boolean index 1 read GetUseBounds write SetUseBounds default false; property UseXMin: Boolean index 1 read GetUseBounds write SetUseBounds default false;
@ -509,6 +510,13 @@ begin
end; end;
end; end;
procedure TChartExtent.FixTo(const ABounds: TDoubleRect);
begin
FExtent := ABounds;
FillChar(FUseBounds, SizeOf(FUseBounds), true);
StyleChanged(Self);
end;
function TChartExtent.GetBounds(AIndex: Integer): Double; function TChartExtent.GetBounds(AIndex: Integer): Double;
begin begin
Result := FExtent.coords[AIndex]; Result := FExtent.coords[AIndex];