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

TAChart: Some refinements of datapointtools demo.

Browse Source 
git-svn-id: trunk@54326 -
This commit is contained in:
wp 2017-03-02 21:09:39 +00:00
parent 7ada3f4ff8
commit 16a789dcb5
2 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/datapointtools/main.lfm
View File

@ -15,7 +15,7 @@ object MainForm: TMainForm
Width = 637
MultiLine = True
OnChange = TabControlChange
TabIndex = 9
TabIndex = 0
Tabs.Strings = (
'Line series'
'Bar series'

22
components/tachart/demo/datapointtools/main.pas
View File

@ -5,9 +5,10 @@ unit main;
interface
uses
Classes, SysUtils, FileUtil, TAGraph, TASeries, TATools, TAStyles, TASources,
Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls, StdCtrls,
TAChartUtils, TAMultiSeries, TARadialSeries, TAFuncSeries, Types;
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
ExtCtrls, StdCtrls, Types,
TAGraph, TASeries, TATools, TAStyles, TASources, TAChartUtils, TAMultiSeries,
TARadialSeries, TAFuncSeries, TACustomSeries, TADrawUtils;
type
@ -74,9 +75,6 @@ implementation
{$R *.lfm}
uses
TACustomSeries;
{ TMainForm }
procedure TMainForm.CbCandleStickChange(Sender: TObject);
@ -135,7 +133,7 @@ procedure TMainForm.DataPointDragToolDragXY(ASender: TDataPointDragTool;
var
ser: TChartSeries;
begin
if ASender.YIndex > 0 then begin
if (ASender.YIndex > 0) and (ASender.Series is TChartSeries) then begin
ser := TChartSeries(ASender.Series);
ser.XValue[ASender.PointIndex] := AGraphPoint.X;
end;
@ -317,11 +315,15 @@ begin
if BarSeries.Active then
s := s + LineEnding + 'Grab the bars at their upper ends.';
end else
if FieldSeries.Active then begin
if FieldSeries.Active then
s := 'Rotate an arrow by grabbing it at its ends.' + LineEnding +
'Shift it by grabbing it in the middle.' + LineEnding +
'The checkbox "Drag both x and y" is not operating here.';
end;
'The checkbox "Drag both x and y" is not operating here.'
else
if BubbleSeries.Active then
s := 'Grab a bubble at its perimeter to change the radius.' + LineEnding +
'Grab it in the center to change its location.' + LineEnding +
'Overlapping bubbles may be detected erroneously.';
if s <> '' then
LblNOTE.Caption := 'NOTE:' + LineEnding + s;
LblNote.Visible := (s <> '');