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

TAChart: Publish properties Marks and MarkPositions only when useful.

Browse Source 
git-svn-id: trunk@60432 -
This commit is contained in:
wp 2019-02-15 21:07:55 +00:00
parent 9c1b94fd8f
commit 5b206105d3
4 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tacustomseries.pas
View File

@ -221,6 +221,8 @@ type
AIndex: Integer; AFormat: String = ''; AYIndex: Integer = 0): String;
function IsEmpty: Boolean; override;
function ListSource: TListChartSource;
property Marks: TChartMarks
read FMarks write SetMarks;
property Source: TCustomChartSource
read GetSource write SetSource stored IsSourceStored;
public
@ -236,7 +238,6 @@ type
property YValues[AIndex, AYIndex: Integer]: Double read GetYValues write SetYValues;
published
property Active default true;
property Marks: TChartMarks read FMarks write SetMarks;
property ShowInLegend;
property Title;
property ZPosition;
@ -323,7 +324,8 @@ type
property MarkPositionCentered: Boolean
read FMarkPositionCentered write SetMarkPositionCentered default false;
property MarkPositions: TLinearMarkPositions
read FMarkPositions write SetMarkPositions default lmpOutside;
property XErrorBars: TChartErrorBar index 0 read GetErrorBars
write SetErrorBars stored IsErrorBarsStored;
property YErrorBars: TChartErrorBar index 1 read GetErrorBars
@ -345,8 +347,6 @@ type
procedure MovePoint(var AIndex: Integer; const ANewPos: TDoublePoint); override;
procedure MovePointEx(var AIndex: Integer; AXIndex, AYIndex: Integer;
const ANewPos: TDoublePoint); override;
property MarkPositions: TLinearMarkPositions
read FMarkPositions write SetMarkPositions default lmpOutside;
property ToolTargets default [nptPoint, nptYList];
property UseReticule: Boolean
read FUseReticule write SetUseReticule default false;

4
components/tachart/tafuncseries.pas
View File

@ -257,6 +257,8 @@ type
property Active default true;
property AxisIndexX;
property AxisIndexY;
property MarkPositions;
property Marks;
property Pointer;
property ShowInLegend;
property Source;
@ -378,6 +380,8 @@ type
property FitRange: TChartRange read FFitRange write SetFitRange;
property FixedParams: String read FFixedParams write SetFixedParams
stored IsFixedParamsStored;
property MarkPositions;
property Marks;
property ParamCount: Integer
read GetParamCount write SetParamCount default DEF_FIT_PARAM_COUNT;
property Pen: TChartPen read FPen write SetPen;

1
components/tachart/taradialseries.pas
View File

@ -159,6 +159,7 @@ type
property CloseCircle: Boolean read FCloseCircle write SetCloseCircle default false;
property Filled: Boolean read FFilled write SetFilled default false;
property LinePen: TPen read FLinePen write SetLinePen;
property Marks;
property OriginX: Double read FOriginX write SetOriginX stored IsOriginXStored;
property OriginY: Double read FOriginY write SetOriginY stored IsOriginYStored;
property Pointer;

4
components/tachart/taseries.pas
View File

@ -98,6 +98,7 @@ type
property Depth;
property MarkPositionCentered;
property MarkPositions;
property Marks;
property SeriesColor: TColor
read GetSeriesColor write SetSeriesColor stored false default clRed;
property Source;
@ -128,6 +129,7 @@ type
property FixedRadius;
property MarkDistancePercent;
property MarkPositions;
property Marks;
property RotateLabels;
property Source;
end;
@ -179,6 +181,7 @@ type
property Depth;
property MarkPositionCentered;
property MarkPositions;
property Marks;
property SeriesColor: TColor
read GetSeriesColor write SetSeriesColor stored false default clWhite;
property Source;
@ -240,6 +243,7 @@ type
property LineType: TLineType
read FLineType write SetLineType default ltFromPrevious;
property MarkPositions;
property Marks;
property Pointer;
property SeriesColor: TColor
read GetSeriesColor write SetSeriesColor stored false default clBlack;