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

TAChart: Save only non-default Axis.Position

Browse Source 
git-svn-id: trunk@37507 -
This commit is contained in:
ask 2012-06-04 10:12:25 +00:00
parent 98043f717a
commit 2ee0e2bafb
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tachartaxis.pas
View File

@ -117,6 +117,7 @@ type
FZPosition: TChartDistance;
function GetMarks: TChartAxisMarks; inline;
function PositionIsStored: Boolean;
procedure SetAxisPen(AValue: TChartAxisPen);
procedure SetGroup(AValue: Integer);
procedure SetInverted(AValue: Boolean);
@ -162,7 +163,7 @@ type
property Margin: TChartDistance read FMargin write SetMargin default 0;
property Marks: TChartAxisMarks read GetMarks write SetMarks;
property Minors: TChartMinorAxisList read FMinors write SetMinors;
property Position: Double read FPosition write SetPosition;
property Position: Double read FPosition write SetPosition stored PositionIsStored;
property Range: TChartRange read FRange write SetRange;
property TickLength default DEF_TICK_LENGTH;
property Title: TChartAxisTitle read FTitle write SetTitle;
@ -698,6 +699,11 @@ begin
end;
end;
function TChartAxis.PositionIsStored: Boolean;
begin
Result := Position <> 0;
end;
procedure TChartAxis.PrepareHelper(
ADrawer: IChartDrawer; const ATransf: ICoordTransformer;
AClipRect: PRect; AMaxZPosition: Integer);