diff --git a/components/tachart/demo/axis/axisdemo.lpi b/components/tachart/demo/axis/axisdemo.lpi
index 2914a259aa..552148d5cf 100644
--- a/components/tachart/demo/axis/axisdemo.lpi
+++ b/components/tachart/demo/axis/axisdemo.lpi
@@ -15,7 +15,7 @@
-
+
@@ -59,7 +59,11 @@
+
+
+
+
@@ -67,6 +71,7 @@
+
diff --git a/components/tachart/demo/axis/axisdemo.lpr b/components/tachart/demo/axis/axisdemo.lpr
index 0371efea27..eba27d9d64 100644
--- a/components/tachart/demo/axis/axisdemo.lpr
+++ b/components/tachart/demo/axis/axisdemo.lpr
@@ -9,8 +9,6 @@ uses
Interfaces, // this includes the LCL widgetset
Forms, Main, TAChartLazarusPkg;
-{$IFDEF WINDOWS}{$R axisdemo.rc}{$ENDIF}
-
begin
Application.Title := 'TAChart axis demo';
Application.Initialize;
diff --git a/components/tachart/demo/axis/main.lfm b/components/tachart/demo/axis/main.lfm
index 55fbbc1dfd..7633c084ce 100644
--- a/components/tachart/demo/axis/main.lfm
+++ b/components/tachart/demo/axis/main.lfm
@@ -1,74 +1,142 @@
object Form1: TForm1
- Left = 344
+ Left = 343
Height = 304
- Top = 182
+ Top = 184
Width = 533
- Caption = 'Form1'
+ Caption = 'TAChart axis demo'
ClientHeight = 304
ClientWidth = 533
Position = poScreenCenter
LCLVersion = '0.9.29'
- object Chart1: TChart
+ object PageControl1: TPageControl
Left = 0
Height = 304
Top = 0
Width = 533
- AxisList = <
- item
- Alignment = calLeft
- TickColor = clRed
- Title.Caption = 'Left'
- Title.Font.Orientation = 900
- Title.Visible = True
- Transformation.Logarithmic = True
- Transformation.Offset = 0
- Transformation.Scale = 1
- end
- item
- Alignment = calRight
- Title.Caption = 'Right 1'
- Title.Font.Orientation = 900
- Title.Visible = True
- Transformation.Offset = 0
- Transformation.Scale = 1
- end
- item
- Alignment = calBottom
- Title.Caption = 'Bottom'
- Title.Distance = 0
- Title.Visible = True
- Transformation.Offset = 0
- Transformation.Scale = 1
- end
- item
- Alignment = calRight
- Grid.Visible = False
- TickColor = clAqua
- Title.Caption = 'Right 2'
- Title.Visible = True
- Transformation.Offset = 0
- Transformation.Scale = 1
- end
- item
- Alignment = calTop
- Inverted = True
- Title.Caption = 'Top'
- Transformation.Offset = 0
- Transformation.Scale = 1
- end>
- Foot.Brush.Color = clBtnFace
- Foot.Font.Color = clBlue
- Title.Brush.Color = clBtnFace
- Title.Font.Color = clBlue
- Title.Text.Strings = (
- 'TAChart'
- )
+ ActivePage = tsCustomMarks
Align = alClient
- ParentColor = False
- object Chart1LineSeries1: TLineSeries
- AxisIndexY = 0
- SeriesColor = clBlack
- Source = RandomChartSource1
+ TabIndex = 1
+ TabOrder = 0
+ object tsMultiAxis: TTabSheet
+ Caption = 'Mutliple'
+ ClientHeight = 278
+ ClientWidth = 525
+ object Chart1: TChart
+ Left = 0
+ Height = 278
+ Top = 0
+ Width = 525
+ AxisList = <
+ item
+ Alignment = calLeft
+ TickColor = clRed
+ Title.Caption = 'Left'
+ Title.Font.Orientation = 900
+ Title.Visible = True
+ Transformation.Offset = 0
+ Transformation.Scale = 1
+ end
+ item
+ Alignment = calRight
+ Title.Caption = 'Right 1'
+ Title.Font.Orientation = 900
+ Title.Visible = True
+ Transformation.Offset = 0
+ Transformation.Scale = 1
+ end
+ item
+ Alignment = calBottom
+ Title.Caption = 'Bottom'
+ Title.Distance = 0
+ Title.Visible = True
+ Transformation.Offset = 0
+ Transformation.Scale = 1
+ end
+ item
+ Alignment = calRight
+ Grid.Visible = False
+ TickColor = clAqua
+ Title.Caption = 'Right 2'
+ Title.Visible = True
+ Transformation.Offset = 7
+ Transformation.Scale = 2
+ end
+ item
+ Alignment = calTop
+ Inverted = True
+ Title.Caption = 'Top'
+ Transformation.Offset = 0
+ Transformation.Scale = -1
+ end>
+ Foot.Brush.Color = clBtnFace
+ Foot.Font.Color = clBlue
+ Title.Brush.Color = clBtnFace
+ Title.Font.Color = clBlue
+ Title.Text.Strings = (
+ 'TAChart'
+ )
+ Align = alClient
+ ParentColor = False
+ object Chart1LineSeries1: TLineSeries
+ AxisIndexY = 0
+ SeriesColor = clBlack
+ Source = RandomChartSource1
+ end
+ end
+ end
+ object tsCustomMarks: TTabSheet
+ Caption = 'Customized marks'
+ ClientHeight = 278
+ ClientWidth = 525
+ object ChartCustomMarks: TChart
+ Left = 0
+ Height = 278
+ Top = 0
+ Width = 525
+ AxisList = <
+ item
+ Alignment = calLeft
+ Marks.Format = '$%0:.9g'
+ Marks.Style = smsCustom
+ Marks.Frame.Style = psSolid
+ Marks.LabelBrush.Color = clMoneyGreen
+ Marks.LabelBrush.Style = bsSolid
+ Marks.Source = ListChartSource1
+ Title.Font.Orientation = 900
+ Transformation.Offset = 0
+ Transformation.Scale = 1
+ end
+ item
+ Alignment = calBottom
+ Grid.Visible = False
+ Marks.Format = '%2:s'
+ Marks.LabelFont.Height = -13
+ Marks.LabelFont.Style = [fsBold]
+ Marks.Style = smsLabel
+ Marks.Source = ListChartSource1
+ TickLength = 0
+ Transformation.Offset = 0
+ Transformation.Scale = 1
+ end>
+ Foot.Brush.Color = clBtnFace
+ Foot.Font.Color = clBlue
+ Title.Brush.Color = clBtnFace
+ Title.Font.Color = clBlue
+ Title.Text.Strings = (
+ 'TAChart'
+ )
+ Align = alClient
+ ParentColor = False
+ object ChartCustomMarksBarSeries1: TBarSeries
+ Marks.Frame.Visible = False
+ Marks.LabelBrush.Style = bsClear
+ BarBrush.Color = clGreen
+ BarPen.Color = clLime
+ BarPen.Width = 2
+ SeriesColor = clGreen
+ Source = ListChartSource1
+ end
+ end
end
end
object RandomChartSource1: TRandomChartSource
@@ -81,4 +149,16 @@ object Form1: TForm1
left = 216
top = 108
end
+ object ListChartSource1: TListChartSource
+ DataPoints.Strings = (
+ '1|19000|?|January'
+ '2|35000|?|February'
+ '3|31000|?|March'
+ '4|26000|?|April'
+ '5|37000|?|May'
+ '6|22000|?|June'
+ )
+ left = 216
+ top = 164
+ end
end
diff --git a/components/tachart/demo/axis/main.pas b/components/tachart/demo/axis/main.pas
index e1ad498d8c..a759c62bab 100644
--- a/components/tachart/demo/axis/main.pas
+++ b/components/tachart/demo/axis/main.pas
@@ -5,7 +5,7 @@ unit Main;
interface
uses
- Forms, TAGraph, TASeries, TASources;
+ ComCtrls, Forms, TAGraph, TASeries, TASources;
type
@@ -14,7 +14,13 @@ type
TForm1 = class(TForm)
Chart1: TChart;
Chart1LineSeries1: TLineSeries;
+ ChartCustomMarks: TChart;
+ ChartCustomMarksBarSeries1: TBarSeries;
+ ListChartSource1: TListChartSource;
+ PageControl1: TPageControl;
RandomChartSource1: TRandomChartSource;
+ tsMultiAxis: TTabSheet;
+ tsCustomMarks: TTabSheet;
procedure TChartAxisList1MarkToText(var AText: String; AMark: Double);
end;