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

TAChart: Add TChartAxis.Value and .ValueCount properties

Browse Source 
git-svn-id: trunk@38661 -
This commit is contained in:
ask 2012-09-15 09:09:13 +00:00
parent 4b8e4641ab
commit 1ef9f780a2
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/tachart/tachartaxis.pas
View File

@ -118,6 +118,8 @@ type
FZPosition: TChartDistance;
function GetMarks: TChartAxisMarks; inline;
function GetValue(AIndex: Integer): TChartValueText; inline;
function GetValueCount: Integer; inline;
function PositionIsStored: Boolean;
procedure SetAxisPen(AValue: TChartAxisPen);
procedure SetGroup(AValue: Integer);
@ -158,6 +160,8 @@ type
ADrawer: IChartDrawer; const ATransf: ICoordTransformer;
AClipRect: PRect; AMaxZPosition: Integer);
procedure UpdateBounds(var AMin, AMax: Double);
property Value[AIndex: Integer]: TChartValueText read GetValue;
property ValueCount: Integer read GetValueCount;
published
property Alignment default calLeft;
property Arrow;
@ -597,6 +601,16 @@ begin
Result := VIdentityTransform;
end;
function TChartAxis.GetValue(AIndex: Integer): TChartValueText;
begin
Result := FMarkValues[AIndex];
end;
function TChartAxis.GetValueCount: Integer;
begin
Result := Length(FMarkValues);
end;
function TChartAxis.IsDefaultPosition: Boolean;
begin
Result := (PositionUnits = cuPercent) and (Position = 0);