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

TAChart: Update axis demo

Browse Source 
git-svn-id: trunk@31825 -
This commit is contained in:
ask 2011-07-30 08:09:32 +00:00
parent 11d4e269aa
commit a2676e9ab3
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -18,6 +18,7 @@ object Form1: TForm1
Align = alClient
TabIndex = 0
TabOrder = 0
Options = [nboKeyboardTabSwitch]
object tsCustomMarks: TTabSheet
Caption = 'Customized marks'
ClientHeight = 404

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

@ -93,6 +93,10 @@ begin
with TChartAxis.Create(ChartAxisGroup.AxisList) do begin
Transformations := tr;
Marks.AtDataOnly := true;
Marks.Range.UseMin := true;
Marks.Range.UseMax := true;
Marks.Range.Min := 1;
Marks.Range.Max := 9;
Marks.LabelFont.Orientation := 900;
Marks.LabelFont.Color := COLORS[i];
TickColor := COLORS[i];