diff --git a/.gitattributes b/.gitattributes
index 65ffc8284c..5fddd5244c 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -5178,6 +5178,8 @@ components/tachart/demo/charteditor/cepointerframe.lfm svneol=native#text/plain
 components/tachart/demo/charteditor/cepointerframe.pas svneol=native#text/pascal
 components/tachart/demo/charteditor/ceseriesdlg.lfm svneol=native#text/plain
 components/tachart/demo/charteditor/ceseriesdlg.pas svneol=native#text/pascal
+components/tachart/demo/charteditor/ceseriesframe.lfm svneol=native#text/plain
+components/tachart/demo/charteditor/ceseriesframe.pas svneol=native#text/pascal
 components/tachart/demo/charteditor/ceshapebrushpenmarginsframe.lfm svneol=native#text/plain
 components/tachart/demo/charteditor/ceshapebrushpenmarginsframe.pas svneol=native#text/pascal
 components/tachart/demo/charteditor/cetitlefootdlg.lfm svneol=native#text/plain
diff --git a/components/tachart/demo/charteditor/ceseriesframe.lfm b/components/tachart/demo/charteditor/ceseriesframe.lfm
new file mode 100644
index 0000000000..8ad2a8adbb
--- /dev/null
+++ b/components/tachart/demo/charteditor/ceseriesframe.lfm
@@ -0,0 +1,474 @@
+object ChartSeriesFrame: TChartSeriesFrame
+  Left = 0
+  Height = 459
+  Top = 0
+  Width = 589
+  ClientHeight = 459
+  ClientWidth = 589
+  TabOrder = 0
+  DesignLeft = 575
+  DesignTop = 344
+  object PanelTop: TPanel
+    Left = 0
+    Height = 134
+    Top = 0
+    Width = 589
+    Align = alTop
+    AutoSize = True
+    BorderSpacing.Bottom = 12
+    BevelOuter = bvNone
+    ClientHeight = 134
+    ClientWidth = 589
+    TabOrder = 0
+    object cbShowSeries: TCheckBox
+      Left = 0
+      Height = 19
+      Top = 0
+      Width = 49
+      BorderSpacing.Bottom = 6
+      Caption = 'Show'
+      Checked = True
+      OnChange = cbShowSeriesChange
+      State = cbChecked
+      TabOrder = 0
+    end
+    object gbLegendText: TGroupBox
+      AnchorSideLeft.Control = PanelTop
+      AnchorSideTop.Control = cbShowSeries
+      AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = Bevel4
+      Left = 0
+      Height = 109
+      Top = 25
+      Width = 286
+      Anchors = [akTop, akLeft, akRight]
+      AutoSize = True
+      Caption = 'Legend text'
+      ClientHeight = 89
+      ClientWidth = 282
+      TabOrder = 1
+      object edSeriesTitle: TEdit
+        AnchorSideLeft.Control = gbLegendText
+        AnchorSideTop.Control = gbLegendText
+        AnchorSideRight.Control = gbLegendText
+        AnchorSideRight.Side = asrBottom
+        Left = 8
+        Height = 23
+        Top = 4
+        Width = 266
+        Anchors = [akTop, akLeft, akRight]
+        BorderSpacing.Left = 8
+        BorderSpacing.Top = 4
+        BorderSpacing.Right = 8
+        OnChange = edSeriesTitleChange
+        TabOrder = 0
+        Text = 'edSeriesTitle'
+      end
+      object cbShowInLegend: TCheckBox
+        AnchorSideLeft.Control = edSeriesTitle
+        AnchorSideTop.Control = edSeriesTitle
+        AnchorSideTop.Side = asrBottom
+        Left = 8
+        Height = 19
+        Top = 33
+        Width = 101
+        BorderSpacing.Top = 6
+        Caption = 'Show in legend'
+        OnChange = cbShowInLegendChange
+        TabOrder = 1
+      end
+      object cbLegendMultiplicity: TComboBox
+        AnchorSideLeft.Control = Label1
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = cbShowInLegend
+        AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = edSeriesTitle
+        AnchorSideRight.Side = asrBottom
+        Left = 87
+        Height = 23
+        Top = 58
+        Width = 187
+        Anchors = [akTop, akLeft, akRight]
+        BorderSpacing.Left = 8
+        BorderSpacing.Top = 6
+        BorderSpacing.Bottom = 8
+        ItemHeight = 15
+        ItemIndex = 0
+        Items.Strings = (
+          'single item per series'
+          'marks text per data point'
+        )
+        OnChange = cbLegendMultiplicityChange
+        Style = csDropDownList
+        TabOrder = 2
+        Text = 'single item per series'
+      end
+      object Label1: TLabel
+        AnchorSideLeft.Control = edSeriesTitle
+        AnchorSideTop.Control = cbLegendMultiplicity
+        AnchorSideTop.Side = asrCenter
+        Left = 8
+        Height = 15
+        Top = 62
+        Width = 71
+        Caption = 'Legend items'
+        ParentColor = False
+      end
+    end
+    object gbMarks: TGroupBox
+      AnchorSideLeft.Control = Bevel4
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = gbLegendText
+      AnchorSideRight.Control = PanelTop
+      AnchorSideRight.Side = asrBottom
+      AnchorSideBottom.Control = gbLegendText
+      AnchorSideBottom.Side = asrBottom
+      Left = 302
+      Height = 109
+      Top = 25
+      Width = 287
+      Anchors = [akTop, akLeft, akRight, akBottom]
+      AutoSize = True
+      Caption = 'Marks'
+      ClientHeight = 89
+      ClientWidth = 283
+      TabOrder = 2
+      object lblSeriesMarksStyle: TLabel
+        AnchorSideLeft.Control = gbMarks
+        AnchorSideTop.Control = cbMarksStyle
+        AnchorSideTop.Side = asrCenter
+        Left = 8
+        Height = 15
+        Top = 8
+        Width = 25
+        BorderSpacing.Left = 8
+        Caption = 'Style'
+        ParentColor = False
+      end
+      object cbMarksStyle: TComboBox
+        AnchorSideLeft.Control = edMarksFormat
+        AnchorSideTop.Control = gbMarks
+        AnchorSideRight.Control = gbMarks
+        AnchorSideRight.Side = asrBottom
+        Left = 54
+        Height = 23
+        Top = 4
+        Width = 221
+        Anchors = [akTop, akLeft, akRight]
+        BorderSpacing.Top = 4
+        BorderSpacing.Right = 8
+        ItemHeight = 15
+        ItemIndex = 1
+        Items.Strings = (
+          'User-defined'
+          'No labels'
+          'Value'
+          'Percent'
+          'Label'
+          'Label and percent'
+          'Label and value'
+          'Legend'
+          'Percent and total'
+          'Label, percent, and total'
+          'X value'
+        )
+        OnChange = cbMarksStyleChange
+        Style = csDropDownList
+        TabOrder = 0
+        Text = 'No labels'
+      end
+      object Label2: TLabel
+        AnchorSideLeft.Control = lblSeriesMarksStyle
+        AnchorSideTop.Control = edMarksFormat
+        AnchorSideTop.Side = asrCenter
+        Left = 8
+        Height = 15
+        Top = 37
+        Width = 38
+        Caption = 'Format'
+        ParentColor = False
+      end
+      object edMarksFormat: TEdit
+        AnchorSideLeft.Control = Label2
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = cbMarksStyle
+        AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = gbMarks
+        AnchorSideRight.Side = asrBottom
+        Left = 54
+        Height = 23
+        Top = 33
+        Width = 221
+        Anchors = [akTop, akLeft, akRight]
+        BorderSpacing.Left = 8
+        BorderSpacing.Top = 6
+        BorderSpacing.Right = 8
+        OnEditingDone = edMarksFormatEditingDone
+        TabOrder = 1
+        Text = 'edMarksFormat'
+      end
+      object cbShowMarks: TCheckBox
+        AnchorSideLeft.Control = edMarksFormat
+        AnchorSideTop.Control = edMarksFormat
+        AnchorSideTop.Side = asrBottom
+        Left = 54
+        Height = 19
+        Top = 62
+        Width = 156
+        BorderSpacing.Top = 6
+        Caption = 'Show at series data points'
+        OnChange = cbShowMarksChange
+        TabOrder = 2
+      end
+    end
+    object Bevel4: TBevel
+      AnchorSideLeft.Control = PanelTop
+      AnchorSideLeft.Side = asrCenter
+      Left = 286
+      Height = 94
+      Top = 40
+      Width = 16
+      Shape = bsSpacer
+    end
+  end
+  object nbSeriesTypes: TNotebook
+    Left = 0
+    Height = 313
+    Top = 146
+    Width = 589
+    PageIndex = 0
+    Align = alClient
+    TabOrder = 1
+    object pgLineSeries: TPage
+      object gbLineSeriesLineStyle: TGroupBox
+        AnchorSideLeft.Control = pgLineSeries
+        AnchorSideTop.Control = pgLineSeries
+        AnchorSideRight.Control = Bevel1
+        Left = 0
+        Height = 88
+        Top = 0
+        Width = 286
+        Anchors = [akTop, akLeft, akRight]
+        Caption = 'gbLineSeriesLineStyle'
+        ClientHeight = 68
+        ClientWidth = 282
+        TabOrder = 0
+        object cbLineSeriesShowLines: TCheckBox
+          Left = 8
+          Height = 19
+          Top = 6
+          Width = 274
+          Align = alTop
+          BorderSpacing.Left = 8
+          BorderSpacing.Top = 6
+          Caption = 'Visible'
+          OnChange = cbLineSeriesShowLinesChange
+          TabOrder = 0
+        end
+      end
+      object gbLineSeriesPointer: TGroupBox
+        AnchorSideLeft.Control = Bevel1
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = gbLineSeriesLineStyle
+        AnchorSideRight.Control = pgLineSeries
+        AnchorSideRight.Side = asrBottom
+        Left = 302
+        Height = 240
+        Top = 0
+        Width = 287
+        Anchors = [akTop, akLeft, akRight]
+        Caption = 'gbLineSeriesPointer'
+        ClientHeight = 220
+        ClientWidth = 283
+        TabOrder = 1
+        object cbLineSeriesShowPoints: TCheckBox
+          Left = 8
+          Height = 19
+          Top = 6
+          Width = 275
+          Align = alTop
+          BorderSpacing.Left = 8
+          BorderSpacing.Top = 6
+          Caption = 'Visible'
+          OnChange = cbLineSeriesShowPointsChange
+          TabOrder = 0
+        end
+      end
+      object Bevel1: TBevel
+        AnchorSideLeft.Control = pgLineSeries
+        AnchorSideLeft.Side = asrCenter
+        Left = 286
+        Height = 104
+        Top = 120
+        Width = 16
+        Shape = bsSpacer
+      end
+    end
+    object pgBarSeries: TPage
+      object gbBarSeriesBorder: TGroupBox
+        AnchorSideLeft.Control = pgBarSeries
+        AnchorSideTop.Control = gbBarSeriesBrush
+        AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = Bevel2
+        Left = 0
+        Height = 92
+        Top = 64
+        Width = 286
+        Anchors = [akTop, akLeft, akRight]
+        BorderSpacing.Top = 12
+        Caption = 'gbBarSeriesBorder'
+        TabOrder = 2
+      end
+      object gbBarSeriesBrush: TGroupBox
+        AnchorSideLeft.Control = pgBarSeries
+        AnchorSideTop.Control = pgBarSeries
+        AnchorSideRight.Control = Bevel2
+        Left = 0
+        Height = 52
+        Top = 0
+        Width = 286
+        Anchors = [akTop, akLeft, akRight]
+        Caption = 'gbBarSeriesBrush'
+        TabOrder = 0
+      end
+      object gbBarShape: TGroupBox
+        AnchorSideLeft.Control = Bevel2
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = gbBarSeriesBrush
+        AnchorSideRight.Control = pgBarSeries
+        AnchorSideRight.Side = asrBottom
+        AnchorSideBottom.Control = gbBarSeriesBrush
+        AnchorSideBottom.Side = asrBottom
+        Left = 302
+        Height = 52
+        Top = 0
+        Width = 287
+        Anchors = [akTop, akLeft, akRight, akBottom]
+        AutoSize = True
+        Caption = 'Bar shape'
+        ClientHeight = 32
+        ClientWidth = 283
+        TabOrder = 1
+        object cbBarShape: TComboBox
+          AnchorSideLeft.Control = gbBarShape
+          AnchorSideTop.Control = gbBarShape
+          AnchorSideRight.Control = gbBarShape
+          AnchorSideRight.Side = asrBottom
+          Left = 8
+          Height = 23
+          Top = 0
+          Width = 267
+          Anchors = [akTop, akLeft, akRight]
+          BorderSpacing.Left = 8
+          BorderSpacing.Right = 8
+          BorderSpacing.Bottom = 8
+          ItemHeight = 15
+          ItemIndex = 0
+          Items.Strings = (
+            'Rectangular'
+            'Cylindrical'
+            'Hexagonal prism'
+            'Pyramid'
+            'Conical'
+          )
+          OnChange = cbBarShapeChange
+          Style = csDropDownList
+          TabOrder = 0
+          Text = 'Rectangular'
+        end
+      end
+      object Bevel2: TBevel
+        AnchorSideLeft.Control = pgBarSeries
+        AnchorSideLeft.Side = asrCenter
+        Left = 286
+        Height = 11
+        Top = 208
+        Width = 16
+        Shape = bsSpacer
+      end
+    end
+    object pgAreaSeries: TPage
+      object gbAreaSeriesBrush: TGroupBox
+        AnchorSideLeft.Control = pgAreaSeries
+        AnchorSideTop.Control = pgAreaSeries
+        AnchorSideRight.Control = Bevel3
+        Left = 0
+        Height = 57
+        Top = 0
+        Width = 286
+        Anchors = [akTop, akLeft, akRight]
+        Caption = 'gbAreaSeriesBrush'
+        TabOrder = 0
+      end
+      object gbAreaContourPen: TGroupBox
+        AnchorSideLeft.Control = gbAreaSeriesBrush
+        AnchorSideTop.Control = gbAreaSeriesBrush
+        AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = Bevel3
+        Left = 0
+        Height = 115
+        Top = 69
+        Width = 286
+        Anchors = [akTop, akLeft, akRight]
+        BorderSpacing.Top = 12
+        Caption = 'gbAreaContourPen'
+        ClientHeight = 95
+        ClientWidth = 282
+        TabOrder = 1
+        object cbAreaShowContourLines: TCheckBox
+          Left = 8
+          Height = 19
+          Top = 8
+          Width = 274
+          Align = alTop
+          BorderSpacing.Left = 8
+          BorderSpacing.Top = 8
+          BorderSpacing.Bottom = 8
+          Caption = 'Visible'
+          OnChange = cbAreaShowContourLinesChange
+          TabOrder = 0
+        end
+      end
+      object Bevel3: TBevel
+        AnchorSideLeft.Control = pgAreaSeries
+        AnchorSideLeft.Side = asrCenter
+        Left = 286
+        Height = 104
+        Top = 72
+        Width = 16
+        Shape = bsSpacer
+      end
+      object gbAreaDropLinePen: TGroupBox
+        AnchorSideLeft.Control = Bevel3
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = gbAreaSeriesBrush
+        AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = pgAreaSeries
+        AnchorSideRight.Side = asrBottom
+        Left = 302
+        Height = 115
+        Top = 69
+        Width = 287
+        Anchors = [akTop, akLeft, akRight]
+        BorderSpacing.Top = 12
+        Caption = 'gbAreaDropLinePen'
+        ClientHeight = 95
+        ClientWidth = 283
+        TabOrder = 2
+        object cbAreaShowDropLines: TCheckBox
+          Left = 8
+          Height = 19
+          Top = 8
+          Width = 275
+          Align = alTop
+          BorderSpacing.Left = 8
+          BorderSpacing.Top = 8
+          BorderSpacing.Bottom = 8
+          Caption = 'Visible'
+          OnChange = cbAreaShowDropLinesChange
+          TabOrder = 0
+        end
+      end
+    end
+  end
+end
diff --git a/components/tachart/demo/charteditor/ceseriesframe.pas b/components/tachart/demo/charteditor/ceseriesframe.pas
new file mode 100644
index 0000000000..9505743285
--- /dev/null
+++ b/components/tachart/demo/charteditor/ceseriesframe.pas
@@ -0,0 +1,320 @@
+unit ceSeriesFrame;
+
+{$mode ObjFPC}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Graphics, Forms, Controls, ExtCtrls, StdCtrls,
+  TAGraph, TACustomSeries, TASeries,
+  ceBrushFrame, cePenFrame, cePointerFrame;
+
+type
+
+  { TChartSeriesFrame }
+
+  TChartSeriesFrame = class(TFrame)
+    Bevel1: TBevel;
+    Bevel2: TBevel;
+    Bevel3: TBevel;
+    Bevel4: TBevel;
+    cbAreaShowContourLines: TCheckBox;
+    cbAreaShowDropLines: TCheckBox;
+    cbBarShape: TComboBox;
+    cbLegendMultiplicity: TComboBox;
+    cbLineSeriesShowLines: TCheckBox;
+    cbLineSeriesShowPoints: TCheckBox;
+    cbMarksStyle: TComboBox;
+    cbShowInLegend: TCheckBox;
+    cbShowMarks: TCheckBox;
+    cbShowSeries: TCheckBox;
+    edMarksFormat: TEdit;
+    edSeriesTitle: TEdit;
+    gbAreaContourPen: TGroupBox;
+    gbAreaDropLinePen: TGroupBox;
+    gbAreaSeriesBrush: TGroupBox;
+    gbBarSeriesBorder: TGroupBox;
+    gbBarSeriesBrush: TGroupBox;
+    gbBarShape: TGroupBox;
+    gbLegendText: TGroupBox;
+    gbLineSeriesLineStyle: TGroupBox;
+    gbLineSeriesPointer: TGroupBox;
+    gbMarks: TGroupBox;
+    Label1: TLabel;
+    Label2: TLabel;
+    lblSeriesMarksStyle: TLabel;
+    nbSeriesTypes: TNotebook;
+    PanelTop: TPanel;
+    pgAreaSeries: TPage;
+    pgBarSeries: TPage;
+    pgLineSeries: TPage;
+    procedure cbAreaShowContourLinesChange(Sender: TObject);
+    procedure cbAreaShowDropLinesChange(Sender: TObject);
+    procedure cbBarShapeChange(Sender: TObject);
+    procedure cbLegendMultiplicityChange(Sender: TObject);
+    procedure cbLineSeriesShowLinesChange(Sender: TObject);
+    procedure cbLineSeriesShowPointsChange(Sender: TObject);
+    procedure cbMarksStyleChange(Sender: TObject);
+    procedure cbShowInLegendChange(Sender: TObject);
+    procedure cbShowMarksChange(Sender: TObject);
+    procedure cbShowSeriesChange(Sender: TObject);
+    procedure edMarksFormatEditingDone(Sender: TObject);
+    procedure edSeriesTitleChange(Sender: TObject);
+  private
+    FSeries: TBasicChartSeries;
+    FLineSeriesPenFrame: TChartPenFrame;
+    FLineSeriesPointerFrame: TChartPointerFrame;
+    FBarSeriesBrushFrame: TChartBrushFrame;
+    FBarSeriesPenFrame: TChartPenFrame;
+    FAreaSeriesBrushFrame: TChartBrushFrame;
+    FAreaSeriesContourPenFrame: TChartPenFrame;
+    FAreaSeriesDropLinesPenFrame: TChartPenFrame;
+    procedure ChangedHandler(Sender: TObject);
+  protected
+    function GetChart: TChart;
+  public
+    constructor Create(AOwner: TComponent); override;
+    procedure Prepare(ASeries: TBasicChartSeries);
+
+  end;
+
+implementation
+
+{$R *.lfm}
+
+uses
+  ceUtils,
+  TAChartUtils, TALegend;
+
+constructor TChartSeriesFrame.Create(AOwner: TComponent);
+begin
+  inherited;
+
+  FLineSeriesPenFrame := TChartPenFrame.Create(self);
+  FLineSeriesPenFrame.Parent := gbLineSeriesLineStyle;
+  FLineSeriesPenFrame.Name := '';
+  FLineSeriesPenFrame.Align := alTop;
+  FLineseriesPenFrame.Top := 1000;
+  FLineSeriesPenFrame.BorderSpacing.Around := 8;
+  FLineSeriesPenFrame.OnChange := @ChangedHandler;
+  gbLineSeriesLineStyle.Caption := 'Connecting lines';
+  gbLineSeriesLineStyle.AutoSize := true;
+
+  FLineSeriesPointerFrame := TChartPointerFrame.Create(self);
+  FLineSeriesPointerFrame.Parent := gbLineSeriesPointer;
+  FLineSeriesPointerFrame.Name := '';
+  FLineSeriesPointerFrame.Align := alTop;
+  FLineseriesPointerFrame.Top := 1000;
+  FLineSeriesPointerFrame.BorderSpacing.Around := 8;
+  FLineSeriesPointerFrame.OnChange := @ChangedHandler;
+  gbLineSeriesPointer.Caption := 'Series pointer';
+  gbLineSeriesPointer.AutoSize := true;
+
+  { Bar series page }
+  FBarSeriesBrushFrame := TChartBrushFrame.Create(self);
+  FBarSeriesBrushFrame.Parent := gbBarSeriesBrush;
+  FBarSeriesBrushFrame.Name := '';
+  FBarSeriesBrushFrame.Align := alTop;
+  FBarSeriesBrushFrame.BorderSpacing.Left := 8;
+  FBarSeriesBrushFrame.BorderSpacing.Right := 8;
+  FBarSeriesBrushFrame.BorderSpacing.Bottom := 8;
+  FBarSeriesBrushFrame.OnChange := @ChangedHandler;
+  gbBarSeriesBrush.Caption := 'Bar brush';
+  gbBarSeriesBrush.AutoSize := true;
+
+  FBarSeriesPenFrame := TChartPenFrame.Create(self);
+  FBarSeriesPenFrame.Parent := gbBarSeriesBorder;
+  FBarSeriesPenFrame.Name := '';
+  FBarSeriesPenFrame.Align := alTop;
+  FBarSeriesPenFrame.BorderSpacing.Left := 8;
+  FBarSeriesPenFrame.BorderSpacing.Right := 8;
+  FBarSeriesPenFrame.BorderSpacing.Bottom := 8;
+  FBarSeriesPenFrame.OnChange := @ChangedHandler;
+  gbBarSeriesBorder.Caption := 'Bar borders';
+  gbBarSeriesBorder.AutoSize := true;
+
+  cbBarShape.DropdownCount := DEFAULT_DROPDOWN_COUNT;
+
+  { Area series page }
+  FAreaSeriesBrushFrame := TChartBrushFrame.Create(self);
+  FAreaSeriesBrushFrame.Parent := gbAreaSeriesBrush;
+  FAreaSeriesBrushFrame.Name := '';
+  FAreaSeriesBrushFrame.Align := alTop;
+  FAreaSeriesBrushFrame.BorderSpacing.Left := 8;
+  FAreaSeriesBrushFrame.BorderSpacing.Right := 8;
+  FAreaSeriesBrushFrame.BorderSpacing.Bottom := 8;
+  FAreaSeriesBrushFrame.OnChange := @ChangedHandler;
+  gbAreaSeriesBrush.Caption := 'Area fill';
+  gbAreaSeriesBrush.AutoSize := true;
+
+  FAreaSeriesContourPenFrame := TChartPenFrame.Create(self);
+  FAreaSeriesContourPenFrame.Parent := gbAreaContourPen;
+  FAreaSeriesContourPenFrame.Name := '';
+  FAreaSeriesContourPenFrame.Align := alTop;
+  FAreaSeriesContourPenFrame.Top := 1000;
+  FAreaSeriesContourPenFrame.BorderSpacing.Left := 8;
+  FAreaSeriesContourPenFrame.BorderSpacing.Right := 8;
+  FAreaSeriesContourPenFrame.BorderSpacing.Bottom := 8;
+  FAreaSeriesContourPenFrame.OnChange := @ChangedHandler;
+  gbAreaContourPen.Caption := 'Border';
+  gbAreaContourPen.AutoSize := true;
+
+  FAreaSeriesDropLinesPenFrame := TChartPenFrame.Create(self);
+  FAreaSeriesDropLinesPenFrame.Parent := gbAreaDropLinePen;
+  FAreaSeriesDropLinesPenFrame.Name := '';
+  FAreaSeriesDropLinesPenFrame.Align := alTop;
+  FAreaSeriesDropLinesPenFrame.Top := 1000;
+  FAreaSeriesDropLinesPenFrame.BorderSpacing.Left := 8;
+  FAreaSeriesDropLinesPenFrame.BorderSpacing.Right := 8;
+  FAreaSeriesDropLinesPenFrame.BorderSpacing.Bottom := 8;
+  FAreaSeriesDropLinesPenFrame.OnChange := @ChangedHandler;
+  gbAreaDropLinePen.Caption := 'Drop lines';
+  gbAreaDropLinePen.AutoSize := true;
+
+  { for all }
+  BoldHeaders(self);
+
+  cbLegendMultiplicity.DropdownCount := DEFAULT_DROPDOWN_COUNT;
+  cbMarksStyle.DropdownCount := DEFAULT_DROPDOWN_COUNT;
+end;
+
+procedure TChartSeriesFrame.cbAreaShowContourLinesChange(Sender: TObject);
+begin
+  if FSeries is TAreaSeries then begin
+    if cbAreaShowContourLines.Checked then
+      TAreaSeries(FSeries).AreaContourPen.Style := FAreaSeriesContourPenFrame.cbPenStyle.PenStyle
+    else
+      TAreaSeries(FSeries).AreaContourPen.Style := psClear;
+  end;
+end;
+
+procedure TChartSeriesFrame.cbAreaShowDropLinesChange(Sender: TObject);
+begin
+  if FSeries is TAreaSeries then begin
+    if cbAreaShowDropLines.Checked then
+      TAreaSeries(FSeries).AreaLinesPen.Style := FAreaSeriesDropLinesPenFrame.cbPenStyle.PenStyle
+    else
+      TAreaSeries(FSeries).AreaLinesPen.Style := psClear;
+  end;
+end;
+
+procedure TChartSeriesFrame.cbBarShapeChange(Sender: TObject);
+begin
+  if FSeries is TBarSeries then
+    TBarSeries(FSeries).BarShape := TBarShape(cbBarShape.ItemIndex);
+end;
+
+procedure TChartSeriesFrame.cbLegendMultiplicityChange(Sender: TObject);
+begin
+  (FSeries as TCustomChartSeries).Legend.Multiplicity := TLegendMultiplicity(cbLegendMultiplicity.ItemIndex);
+end;
+
+procedure TChartSeriesFrame.cbLineSeriesShowLinesChange(Sender: TObject);
+begin
+  if FSeries is TLineSeries then
+    TLineSeries(FSeries).ShowLines := cbLineSeriesShowLines.Checked;
+end;
+
+procedure TChartSeriesFrame.cbLineSeriesShowPointsChange(Sender: TObject);
+begin
+  if FSeries is TLineSeries then
+    TLineSeries(FSeries).ShowPoints := cbLineSeriesShowPoints.Checked;
+end;
+
+procedure TChartSeriesFrame.cbMarksStyleChange(Sender: TObject);
+var
+  series: TChartSeries;
+begin
+  if (FSeries is TChartSeries) then begin
+    series := TChartSeries(FSeries);
+    series.Marks.Style := TSeriesMarksStyle(cbMarksStyle.ItemIndex);
+    edMarksFormat.Text := series.Marks.Format;
+  end;
+end;
+
+procedure TChartSeriesFrame.cbShowInLegendChange(Sender: TObject);
+begin
+  (FSeries as TCustomChartSeries).Legend.Visible := cbShowInLegend.Checked;
+end;
+
+procedure TChartSeriesFrame.cbShowMarksChange(Sender: TObject);
+begin
+  if (FSeries is TChartSeries) then
+    TChartSeries(FSeries).Marks.Visible := cbShowMarks.Checked;
+end;
+
+procedure TChartSeriesFrame.cbShowSeriesChange(Sender: TObject);
+begin
+  FSeries.Active := cbShowSeries.Checked;
+end;
+
+procedure TChartSeriesFrame.ChangedHandler(Sender: TObject);
+begin
+  GetChart.Invalidate;
+end;
+
+procedure TChartSeriesFrame.edMarksFormatEditingDone(Sender: TObject);
+begin
+  if (FSeries is TChartSeries) then
+    try
+      TChartSeries(FSeries).Marks.Format := edMarksFormat.Text;
+    except
+    end;
+end;
+
+procedure TChartSeriesFrame.edSeriesTitleChange(Sender: TObject);
+begin
+  (FSeries as TCustomChartSeries).Title := edSeriesTitle.Text;
+end;
+
+function TChartSeriesFrame.GetChart: TChart;
+begin
+  Result := FSeries.ParentChart;
+end;
+
+procedure TChartSeriesFrame.Prepare(ASeries: TBasicChartSeries);
+var
+  series: TCustomChartSeries;
+begin
+  FSeries := ASeries;
+  series := TCustomChartSeries(FSeries);
+
+  cbShowSeries.Checked := series.Active;
+  cbShowInLegend.Checked := series.Legend.Visible;
+  edSeriesTitle.Text := series.Title;
+  cbLegendMultiplicity.ItemIndex := ord(series.Legend.Multiplicity);
+
+  gbMarks.Visible := (FSeries is TChartSeries);
+  if (FSeries is TChartSeries) then begin
+    cbMarksStyle.ItemIndex := ord(TChartSeries(FSeries).Marks.Style);
+    edMarksFormat.Text := TChartSeries(FSeries).Marks.Format;
+    cbShowMarks.Checked := TChartSeries(FSeries).Marks.Visible;
+  end;
+
+  if ASeries is TLineSeries then begin
+    nbSeriesTypes.PageIndex := 0;
+    cbLineSeriesShowLines.Checked := TLineSeries(ASeries).ShowLines;
+    cbLineSeriesShowPoints.Checked := TLineSeries(ASeries).ShowPoints;
+    FLineSeriesPenFrame.Prepare(TLineSeries(ASeries).LinePen);
+    FLineSeriesPointerFrame.Prepare(TLineSeries(ASeries).Pointer);
+  end;
+
+  if ASeries is TBarSeries then begin
+    nbSeriesTypes.PageIndex := 1;
+    FBarSeriesPenFrame.Prepare(TBarSeries(ASeries).BarPen);
+    FBarSeriesBrushFrame.Prepare(TBarSeries(ASeries).BarBrush);
+    cbBarShape.ItemIndex := ord(TBarSeries(ASeries).BarShape);
+  end;
+
+  if ASeries is TAreaSeries then begin
+    nbSeriesTypes.PageIndex := 2;
+    cbAreaShowContourLines.Checked := TAreaSeries(ASeries).AreaContourPen.Style <> psClear;
+    cbAreaShowDropLines.Checked := TAreaSeries(ASeries).AreaLinesPen.Style <> psClear;
+    FAreaSeriesBrushFrame.Prepare(TAreaSeries(ASeries).AreaBrush);
+    FAreaSeriesContourPenFrame.Prepare(TAreaSeries(ASeries).AreaContourPen);
+    FAreaSeriesDropLinesPenFrame.Prepare(TAreaSeries(ASeries).AreaLinesPen);
+  end;
+end;
+
+end.
+