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

TAChart: Add "Multiline" page to the labels demo

Browse Source 
git-svn-id: trunk@29184 -
This commit is contained in:
ask 2011-01-24 08:52:39 +00:00
parent 1f99cf0ccf
commit bd9cae16ca
2 changed files with 53 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
components/tachart/demo/labels/Main.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 386
ClientWidth = 496
Position = poScreenCenter
LCLVersion = '0.9.29'
LCLVersion = '0.9.31'
object pcMain: TPageControl
Left = 0
Height = 336
@ -60,6 +60,43 @@ object Form1: TForm1
end
end
end
object Multiline: TTabSheet
Caption = 'Multiline'
ClientHeight = 310
ClientWidth = 488
object ChartMulti: TChart
Left = 0
Height = 310
Top = 0
Width = 488
AxisList = <
item
Marks.LabelFont.Orientation = 900
Marks.Frame.Style = psSolid
Title.LabelFont.Orientation = 900
OnMarkToText = ChartMultiAxisList1MarkToText
end
item
Alignment = calBottom
Marks.Frame.Style = psSolid
Title.Visible = True
Title.Caption = 'test'
OnMarkToText = ChartMultiAxisList1MarkToText
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 ChartMultiLineSeries1: TLineSeries
Source = RandomChartSource1
end
end
end
end
object pnlControls: TPanel
Left = 0

16
components/tachart/demo/labels/Main.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, ComCtrls, ExtCtrls, Spin, StdCtrls, SysUtils, FileUtil, Forms,
Controls, Graphics, Dialogs, TAGraph, TASeries, TASources;
Controls, Graphics, Dialogs, TAGraph, TASeries, TASources, TAChartAxis;
type
@ -16,6 +16,8 @@ type
Chart1: TChart;
Chart1BarSeries1: TBarSeries;
cbHideOverlapping: TCheckBox;
ChartMulti: TChart;
ChartMultiLineSeries1: TLineSeries;
gbAngles: TGroupBox;
lblAxisAngle: TLabel;
lblSeriesAngle: TLabel;
@ -26,8 +28,10 @@ type
seAxisAngle: TSpinEdit;
seSeriesAngle: TSpinEdit;
seTitleAngle: TSpinEdit;
Multiline: TTabSheet;
tsBar: TTabSheet;
procedure cbHideOverlappingChange(Sender: TObject);
procedure ChartMultiAxisList1MarkToText(var AText: String; AMark: Double);
procedure seAxisAngleChange(Sender: TObject);
procedure seSeriesAngleChange(Sender: TObject);
procedure seTitleAngleChange(Sender: TObject);
@ -55,13 +59,23 @@ begin
op := opIgnore;
Chart1.LeftAxis.Marks.OverlapPolicy := op;
Chart1.BottomAxis.Marks.OverlapPolicy := op;
ChartMulti.LeftAxis.Marks.OverlapPolicy := op;
ChartMulti.BottomAxis.Marks.OverlapPolicy := op;
Chart1BarSeries1.Marks.OverlapPolicy := op;
end;
procedure TForm1.ChartMultiAxisList1MarkToText(
var AText: String; AMark: Double);
begin
AText += Format(#13#10'%.9g', [AMark * 2]);
end;
procedure TForm1.seAxisAngleChange(Sender: TObject);
begin
Chart1.LeftAxis.Marks.LabelFont.Orientation := seAxisAngle.Value * 10;
Chart1.BottomAxis.Marks.LabelFont.Orientation := seAxisAngle.Value * 10;
ChartMulti.LeftAxis.Marks.LabelFont.Orientation := seAxisAngle.Value * 10;
ChartMulti.BottomAxis.Marks.LabelFont.Orientation := seAxisAngle.Value * 10;
end;
procedure TForm1.seSeriesAngleChange(Sender: TObject);