diff --git a/components/tachart/tacustomseries.pas b/components/tachart/tacustomseries.pas index d35418f3dd..9f96319bd9 100644 --- a/components/tachart/tacustomseries.pas +++ b/components/tachart/tacustomseries.pas @@ -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; diff --git a/components/tachart/tafuncseries.pas b/components/tachart/tafuncseries.pas index 2dd4c66276..57e38901e3 100644 --- a/components/tachart/tafuncseries.pas +++ b/components/tachart/tafuncseries.pas @@ -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; diff --git a/components/tachart/taradialseries.pas b/components/tachart/taradialseries.pas index 7cecfb5bba..5b4131f1b6 100644 --- a/components/tachart/taradialseries.pas +++ b/components/tachart/taradialseries.pas @@ -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; diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas index 750bc4510b..8d75ab20b1 100644 --- a/components/tachart/taseries.pas +++ b/components/tachart/taseries.pas @@ -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;