paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-24 00:01:40 +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 Height = 494
Top = 0 Top = 0
Width = 691 Width = 691
ActivePage = tsFast ActivePage = tsCustomDrawPointer
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 2
TabOrder = 0 TabOrder = 0
OnChange = PageControl1Change OnChange = PageControl1Change
object tsFast: TTabSheet object tsFast: TTabSheet
@ -211,7 +211,7 @@ object Form1: TForm1
end end
end end
object tsCustomDrawPointer: TTabSheet object tsCustomDrawPointer: TTabSheet
Caption = 'Ownerdrawn pointer' Caption = 'Customdrawn pointer'
ClientHeight = 466 ClientHeight = 466
ClientWidth = 683 ClientWidth = 683
object Chart_CustomDrawPointer: TChart object Chart_CustomDrawPointer: TChart

4
components/tachart/tafuncseries.pas
View File

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