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

TAChart: Add axis stripes to the axis demo

Browse Source 
git-svn-id: trunk@28914 -
This commit is contained in:
ask 2011-01-09 09:19:23 +00:00
parent e80436b1fb
commit bc31258827
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/tachart/demo/axis/main.lfm
View File

@ -117,6 +117,7 @@ object Form1: TForm1
Width = 525
AxisList = <
item
Marks.Stripes = csStripes
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'Left'
@ -463,4 +464,17 @@ object Form1: TForm1
left = 440
top = 172
end
object csStripes: TChartStyles
Styles = <
item
Brush.Color = 16631498
Pen.Style = psDash
end
item
Brush.Color = 12319483
Pen.Style = psDash
end>
left = 352
top = 176
end
end

3
components/tachart/demo/axis/main.pas
View File

@ -6,7 +6,7 @@ interface
uses
ComCtrls, ExtCtrls, Forms, StdCtrls, TACustomSource, TAFuncSeries, TAGraph,
TASeries, TASources, TATools, TATransformations;
TASeries, TASources, TAStyles, TATools, TATransformations;
type
@ -17,6 +17,7 @@ type
catTAutoScaleAxisTransform1: TAutoScaleAxisTransform;
catTAuto: TChartAxisTransformations;
cbAuto: TCheckBox;
csStripes: TChartStyles;
ChartSubmarks: TChart;
ChartDateTime: TChart;
ChartAxisGroup: TChart;