TdxChartAreaSeriesPointDrawParameters.Appearance Property
Provides access to the appearance settings of the area segment between the currently processed and previous series points.
#Declaration
Delphi
property Appearance: TdxChartXYSeriesAreaAppearance read;
#Property Value
Type | Description |
---|---|
Tdx |
Stores Area series View appearance settings. |
#Remarks
Use MarkerAppearance and Appearance
properties to customize the appearance of the point marker and area segment associated with the currently processed series point.
#Code Example: Customize Individual Series Points
The following code example demonstrates a diagram’s OnGetSeriesPointDrawParameters event handler that changes the appearance settings of points with peak values in a Simple Area series:
procedure TMyForm.cdAreaGetSeriesPointDrawParameters(Sender: TdxChartCustomDiagram;
AArgs: TdxChartGetSeriesPointDrawParametersEventArgs);
var
AAreaDrawParameters: TdxChartAreaSeriesPointDrawParameters;
ASeries: TdxChartCustomSeries;
AIndex: Integer;
begin
if AArgs.SeriesPoint.Series.Caption = 'DevAV South' then
begin
if AArgs.DrawParameters.ClassType <> TdxChartAreaSeriesPointDrawParameters then Exit;
AAreaDrawParameters := AArgs.DrawParameters as TdxChartAreaSeriesPointDrawParameters;
AIndex := AArgs.SeriesPoint.Index;
ASeries := AArgs.SeriesPoint.Series;
if ((AIndex = 0) and (ASeries.Points.Values[AIndex] > ASeries.Points.Values[AIndex + 1])) or
((AIndex > 0) and (AIndex < ASeries.Points.Count - 1) and
(ASeries.Points.Values[AIndex] > ASeries.Points.Values[AIndex + 1]) and
(ASeries.Points.Values[AIndex] > ASeries.Points.Values[AIndex - 1])) then
begin
AAreaDrawParameters.MarkerAppearance.FillOptions.Color := TdxAlphaColors.Red;
AAreaDrawParameters.Appearance.BeginUpdate;
AAreaDrawParameters.Appearance.FillOptions.Color := TdxAlphaColors.OrangeRed;
AAreaDrawParameters.Appearance.FillOptions.Mode := TdxFillOptionsMode.Hatch;
AAreaDrawParameters.Appearance.FillOptions.HatchStyle := TdxFillOptionsHatchStyle.ForwardDiagonal;
AAreaDrawParameters.Appearance.FillOptions.Color2 := TdxAlphaColors.Teal;
AAreaDrawParameters.Appearance.StrokeOptions.Color := TdxAlphaColors.Red;
AAreaDrawParameters.Appearance.StrokeOptions.Style := TdxStrokeStyle.Solid;
AAreaDrawParameters.Appearance.EndUpdate;
end;
end;
end;
See Also