paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 19:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add files missing from previous commit.

Browse Source 
git-svn-id: trunk@65042 -
This commit is contained in:
wp 2021-04-21 10:18:34 +00:00
parent b692a8c4d4
commit 7c2cb42f1c
3 changed files with 796 additions and 0 deletions
.gitattributes
components/tachart/demo/charteditor
ceseriesframe.lfmceseriesframe.pas

2
.gitattributes vendored
View File

@ -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

474
components/tachart/demo/charteditor/ceseriesframe.lfm Normal file
View File

@ -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

320
components/tachart/demo/charteditor/ceseriesframe.pas Normal file
View File

@ -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.