paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-22 09:51:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Publish the new events OnGetPointerStyle and OnCustomDrawPointer also for TCubicSplineSeries and TBSplineSeries.

Browse Source 
git-svn-id: trunk@52105 -
This commit is contained in:
wp 2016-04-05 09:50:45 +00:00
parent e0199daa77
commit 2eb6e52660
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/demo/line/Main.lfm
View File

@ -14,9 +14,9 @@ object Form1: TForm1
Height = 494
Top = 0
Width = 691
ActivePage = tsFast
ActivePage = tsCustomDrawPointer
Align = alClient
TabIndex = 0
TabIndex = 2
TabOrder = 0
OnChange = PageControl1Change
object tsFast: TTabSheet
@ -211,7 +211,7 @@ object Form1: TForm1
end
end
object tsCustomDrawPointer: TTabSheet
Caption = 'Ownerdrawn pointer'
Caption = 'Customdrawn pointer'
ClientHeight = 466
ClientWidth = 683
object Chart_CustomDrawPointer: TChart

4
components/tachart/tafuncseries.pas
View File

@ -164,6 +164,8 @@ type
property Pointer;
property Step: TFuncSeriesStep
read FStep write SetStep default DEF_SPLINE_STEP;
property OnCustomDrawPointer;
property OnGetPointerStyle;
end;
TBadDataChartPen = class(TChartPen)
@ -234,6 +236,8 @@ type
property Source;
property Title;
property ZPosition;
property OnCustomDrawPointer;
property OnGetPointerStyle;
published
// Used when data is not suitable for drawing cubic spline --
// e.g. points are too few or not ordered by X value.