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

TAChart: Add chart title rotation to the label demo

Browse Source 
git-svn-id: trunk@29312 -
This commit is contained in:
ask 2011-02-02 05:58:25 +00:00
parent 76a02bd738
commit 4af1a3d673
3 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,16 +1,16 @@
object Form1: TForm1 object Form1: TForm1
Left = 1326 Left = 1326
Height = 386 Height = 414
Top = 177 Top = 177
Width = 496 Width = 496
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 386 ClientHeight = 414
ClientWidth = 496 ClientWidth = 496
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
object pcMain: TPageControl object pcMain: TPageControl
Left = 0 Left = 0
Height = 336 Height = 364
Top = 0 Top = 0
Width = 496 Width = 496
ActivePage = tsBar ActivePage = tsBar
@ -19,11 +19,11 @@ object Form1: TForm1
TabOrder = 0 TabOrder = 0
object tsBar: TTabSheet object tsBar: TTabSheet
Caption = 'Bar' Caption = 'Bar'
ClientHeight = 310 ClientHeight = 338
ClientWidth = 488 ClientWidth = 488
object Chart1: TChart object Chart1: TChart
Left = 0 Left = 0
Height = 310 Height = 338
Top = 0 Top = 0
Width = 488 Width = 488
AxisList = < AxisList = <
@ -62,11 +62,11 @@ object Form1: TForm1
end end
object Multiline: TTabSheet object Multiline: TTabSheet
Caption = 'Multiline' Caption = 'Multiline'
ClientHeight = 310 ClientHeight = 338
ClientWidth = 488 ClientWidth = 488
object ChartMulti: TChart object ChartMulti: TChart
Left = 0 Left = 0
Height = 310 Height = 338
Top = 0 Top = 0
Width = 488 Width = 488
AxisList = < AxisList = <
@ -85,11 +85,16 @@ object Form1: TForm1
end> end>
Foot.Brush.Color = clBtnFace Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue Foot.Font.Color = clBlue
Foot.Text.Strings = (
'TAChart'
)
Title.Brush.Color = clBtnFace Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue Title.Font.Color = clBlue
Title.Text.Strings = ( Title.Text.Strings = (
'TAChart' 'Chart'
'title'
) )
Title.Visible = True
Align = alClient Align = alClient
ParentColor = False ParentColor = False
object ChartMultiLineSeries1: TLineSeries object ChartMultiLineSeries1: TLineSeries
@ -101,7 +106,7 @@ object Form1: TForm1
object pnlControls: TPanel object pnlControls: TPanel
Left = 0 Left = 0
Height = 50 Height = 50
Top = 336 Top = 364
Width = 496 Width = 496
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone

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

@ -87,6 +87,7 @@ procedure TForm1.seTitleAngleChange(Sender: TObject);
begin begin
Chart1.LeftAxis.Title.LabelFont.Orientation := 900 + seTitleAngle.Value * 10; Chart1.LeftAxis.Title.LabelFont.Orientation := 900 + seTitleAngle.Value * 10;
Chart1.BottomAxis.Title.LabelFont.Orientation := seTitleAngle.Value * 10; Chart1.BottomAxis.Title.LabelFont.Orientation := seTitleAngle.Value * 10;
ChartMulti.Title.Font.Orientation := seTitleAngle.Value * 10;
end; end;
end. end.

2
components/tachart/demo/labels/labelsdemo.lpi
View File

@ -57,7 +57,7 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="9"/> <Version Value="10"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Target> <Target>
<Filename Value="labelsdemo"/> <Filename Value="labelsdemo"/>