paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 09:38:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Minor demo updates

Browse Source 
git-svn-id: trunk@31759 -
This commit is contained in:
ask 2011-07-20 09:33:39 +00:00
parent 69b894a323
commit bc03648d20
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/demo/basic/unit1.pas
View File

@ -86,7 +86,6 @@ uses
procedure TForm1.BringToFront(ASeries: TBasicChartSeries);
var
i: Integer;
s: TBasicChartSeries;
begin
for s in Chart1.Series do

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

@ -30,6 +30,7 @@ object Form1: TForm1
item
Marks.LabelBrush.Color = clSkyBlue
Marks.LabelBrush.Style = bsSolid
Minors = <>
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'Left axis title'
@ -39,6 +40,7 @@ object Form1: TForm1
Alignment = calBottom
Marks.LabelBrush.Color = clSkyBlue
Marks.LabelBrush.Style = bsSolid
Minors = <>
Title.Visible = True
Title.Caption = 'Bottom axis title'
Title.Frame.Style = psSolid
@ -71,14 +73,17 @@ object Form1: TForm1
Width = 488
AxisList = <
item
Marks.Alignment = taCenter
Marks.LabelFont.Orientation = 900
Marks.Frame.Style = psSolid
Minors = <>
Title.LabelFont.Orientation = 900
OnMarkToText = ChartMultiAxisList1MarkToText
end
item
Alignment = calBottom
Marks.Frame.Style = psSolid
Minors = <>
Title.Visible = True
Title.Caption = 'test'
OnMarkToText = ChartMultiAxisList1MarkToText
@ -89,9 +94,10 @@ object Form1: TForm1
'TAChart'
)
Title.Brush.Color = clBtnFace
Title.Brush.Style = bsClear
Title.Font.Color = clBlue
Title.Text.Strings = (
'Chart'
'Chart long'
'title'
)
Title.Visible = True