paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 10:49:09 +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 Width = 525
AxisList = < AxisList = <
item item
Marks.Stripes = csStripes
Title.LabelFont.Orientation = 900 Title.LabelFont.Orientation = 900
Title.Visible = True Title.Visible = True
Title.Caption = 'Left' Title.Caption = 'Left'
@ -463,4 +464,17 @@ object Form1: TForm1
left = 440 left = 440
top = 172 top = 172
end 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 end

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

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