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

TAChart: Minor fixes in axis demo

Browse Source 
git-svn-id: trunk@29963 -
This commit is contained in:
ask 2011-03-21 13:20:55 +00:00
parent a9270e1c46
commit edb49e4dbb
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/demo/axis/main.lfm
View File

@ -14,9 +14,9 @@ object Form1: TForm1
Height = 333
Top = 0
Width = 533
ActivePage = tsSubmarks
ActivePage = tsCustomMarks
Align = alClient
TabIndex = 2
TabIndex = 0
TabOrder = 0
object tsCustomMarks: TTabSheet
Caption = 'Customized marks'
@ -122,7 +122,6 @@ object Form1: TForm1
item
Grid.Visible = False
Group = 1
Marks.Visible = False
Marks.Source = udcsSub
Marks.Style = smsNone
TickLength = 2
@ -131,7 +130,6 @@ object Form1: TForm1
Alignment = calBottom
Grid.Visible = False
Group = 2
Marks.Visible = False
Marks.Source = udcsSub
Marks.Style = smsNone
TickLength = 2

5
components/tachart/demo/axis/main.pas
View File

@ -63,7 +63,7 @@ uses
procedure TForm1.ChartCustomMarksAxisList1MarkToText(var AText: String; AMark: Double);
begin
if AMark < 15 then
if AMark = 3 then
AText := '*' + AText + '*';
end;
@ -76,6 +76,9 @@ var
ls: TLineSeries;
tr: TChartAxisTransformations;
begin
//FIXME
ChartCustomMarks.BottomAxis.OnMarkToText :=
@ChartCustomMarksAxisList1MarkToText;
for i := 1 to 5 do begin
ls := TLineSeries.Create(Self);
ChartAxisGroup.AddSeries(ls);