paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 05:36:10 +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); procedure TForm1.BringToFront(ASeries: TBasicChartSeries);
var var
i: Integer;
s: TBasicChartSeries; s: TBasicChartSeries;
begin begin
for s in Chart1.Series do for s in Chart1.Series do

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

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