paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-03 15:44:09 +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; AIndex: Integer; AFormat: String = ''; AYIndex: Integer = 0): String;
function IsEmpty: Boolean; override; function IsEmpty: Boolean; override;
function ListSource: TListChartSource; function ListSource: TListChartSource;
property Marks: TChartMarks
read FMarks write SetMarks;
property Source: TCustomChartSource property Source: TCustomChartSource
read GetSource write SetSource stored IsSourceStored; read GetSource write SetSource stored IsSourceStored;
public public
@ -236,7 +238,6 @@ type
property YValues[AIndex, AYIndex: Integer]: Double read GetYValues write SetYValues; property YValues[AIndex, AYIndex: Integer]: Double read GetYValues write SetYValues;
published published
property Active default true; property Active default true;
property Marks: TChartMarks read FMarks write SetMarks;
property ShowInLegend; property ShowInLegend;
property Title; property Title;
property ZPosition; property ZPosition;
@ -323,7 +324,8 @@ type
property MarkPositionCentered: Boolean property MarkPositionCentered: Boolean
read FMarkPositionCentered write SetMarkPositionCentered default false; read FMarkPositionCentered write SetMarkPositionCentered default false;
property MarkPositions: TLinearMarkPositions
read FMarkPositions write SetMarkPositions default lmpOutside;
property XErrorBars: TChartErrorBar index 0 read GetErrorBars property XErrorBars: TChartErrorBar index 0 read GetErrorBars
write SetErrorBars stored IsErrorBarsStored; write SetErrorBars stored IsErrorBarsStored;
property YErrorBars: TChartErrorBar index 1 read GetErrorBars property YErrorBars: TChartErrorBar index 1 read GetErrorBars
@ -345,8 +347,6 @@ type
procedure MovePoint(var AIndex: Integer; const ANewPos: TDoublePoint); override; procedure MovePoint(var AIndex: Integer; const ANewPos: TDoublePoint); override;
procedure MovePointEx(var AIndex: Integer; AXIndex, AYIndex: Integer; procedure MovePointEx(var AIndex: Integer; AXIndex, AYIndex: Integer;
const ANewPos: TDoublePoint); override; const ANewPos: TDoublePoint); override;
property MarkPositions: TLinearMarkPositions
read FMarkPositions write SetMarkPositions default lmpOutside;
property ToolTargets default [nptPoint, nptYList]; property ToolTargets default [nptPoint, nptYList];
property UseReticule: Boolean property UseReticule: Boolean
read FUseReticule write SetUseReticule default false; read FUseReticule write SetUseReticule default false;

4
components/tachart/tafuncseries.pas
View File

@ -257,6 +257,8 @@ type
property Active default true; property Active default true;
property AxisIndexX; property AxisIndexX;
property AxisIndexY; property AxisIndexY;
property MarkPositions;
property Marks;
property Pointer; property Pointer;
property ShowInLegend; property ShowInLegend;
property Source; property Source;
@ -378,6 +380,8 @@ type
property FitRange: TChartRange read FFitRange write SetFitRange; property FitRange: TChartRange read FFitRange write SetFitRange;
property FixedParams: String read FFixedParams write SetFixedParams property FixedParams: String read FFixedParams write SetFixedParams
stored IsFixedParamsStored; stored IsFixedParamsStored;
property MarkPositions;
property Marks;
property ParamCount: Integer property ParamCount: Integer
read GetParamCount write SetParamCount default DEF_FIT_PARAM_COUNT; read GetParamCount write SetParamCount default DEF_FIT_PARAM_COUNT;
property Pen: TChartPen read FPen write SetPen; 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 CloseCircle: Boolean read FCloseCircle write SetCloseCircle default false;
property Filled: Boolean read FFilled write SetFilled default false; property Filled: Boolean read FFilled write SetFilled default false;
property LinePen: TPen read FLinePen write SetLinePen; property LinePen: TPen read FLinePen write SetLinePen;
property Marks;
property OriginX: Double read FOriginX write SetOriginX stored IsOriginXStored; property OriginX: Double read FOriginX write SetOriginX stored IsOriginXStored;
property OriginY: Double read FOriginY write SetOriginY stored IsOriginYStored; property OriginY: Double read FOriginY write SetOriginY stored IsOriginYStored;
property Pointer; property Pointer;

4
components/tachart/taseries.pas
View File

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