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

TAChart: Set default columns count to 1 in listbox demo

Browse Source 
git-svn-id: trunk@31639 -
This commit is contained in:
ask 2011-07-10 04:05:38 +00:00
parent 61891d6766
commit 40e5b784e4
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/listbox/Unit1.lfm
View File

@ -215,8 +215,10 @@ object Form1: TForm1
Height = 21
Top = 340
Width = 50
MinValue = 1
OnChange = EdColumnsChange
TabOrder = 9
Value = 1
end
object Label2: TLabel
Left = 152

2
components/tachart/demo/listbox/Unit1.pas
View File

@ -210,7 +210,7 @@ begin
ser := TLineSeries.Create(Chart);
ser.Source := cs;
ser.SeriesColor := rgbToColor(Random(255), Random(256), Random(256));
ser.Title := Format('Series %d', [Chart.SeriesCount+1]);
ser.Title := Format('Series %d', [Chart.SeriesCount + 1]);
ser.ShowPoints := Odd(Chart.SeriesCount);
ser.Pointer.Brush.Color := ser.SeriesColor;
ser.Pointer.Style :=