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

TAChart: Update "func" demo to use MarginsForMarks property

Browse Source 
git-svn-id: trunk@38993 -
This commit is contained in:
ask 2012-10-08 06:23:22 +00:00
parent 34b65790a0
commit 3e88b3861e
3 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/distance/Main.lfm
View File

@ -486,6 +486,8 @@ object Form1: TForm1
PointerStart.VertSize = 8
OnMeasure = ctDistance1Measure
end
object ctDistPanMouseWheelTool1: TPanMouseWheelTool
end
end
object ChartAxisTransformations1: TChartAxisTransformations
left = 260

1
components/tachart/demo/distance/Main.pas
View File

@ -37,6 +37,7 @@ type
ctCrosshair: TDataPointCrosshairTool;
ctDistance1: TDataPointDistanceTool;
ctDistance2: TDataPointDistanceTool;
ctDistPanMouseWheelTool1: TPanMouseWheelTool;
ctFit: TChartToolset;
ctFitDataPointDistanceTool1: TDataPointDistanceTool;
ctFitZoomDragTool1: TZoomDragTool;

6
components/tachart/demo/func/main.lfm
View File

@ -13,9 +13,9 @@ object Form1: TForm1
Height = 459
Top = 0
Width = 550
ActivePage = tsColorMap
ActivePage = tsDomain
Align = alClient
TabIndex = 1
TabIndex = 0
TabOrder = 0
OnChange = PageControl1Change
object tsDomain: TTabSheet
@ -127,12 +127,14 @@ object Form1: TForm1
Width = 416
AxisList = <
item
MarginsForMarks = False
Minors = <>
Title.LabelFont.Orientation = 900
ZPosition = 1
end
item
Alignment = calBottom
MarginsForMarks = False
Minors = <>
ZPosition = 1
end>