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

TAChart: Add varying pointer color to the basic demo

Browse Source 
git-svn-id: trunk@29893 -
This commit is contained in:
ask 2011-03-17 15:29:46 +00:00
parent 8901a0b14d
commit c0a28e143d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/demo/basic/unit1.pas
View File

@ -80,7 +80,7 @@ implementation
{$R *.lfm}
uses
TAChartUtils, TATypes;
Math, TAChartUtils, TATypes;
{ TForm1 }
@ -133,7 +133,7 @@ begin
BringToFront(FLine);
FLine.Marks.Style := TSeriesMarksStyle(cbMarkStyle.ItemIndex);
for i := 1 to edAddCount.Value do begin
FLine.AddXY(x1, y1, '', clGreen);
FLine.AddXY(x1, y1, '', IfThen(i mod 2 = 0, clGreen, clBlue));
X1 := X1 + 1.5;
if random(2) >= 0.5 then Y1 := Y1 + random(10)
else Y1 := Y1 - random(5);