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

TAChart: Add rotated axes demo. Improved layout of the other axis demos.

Browse Source 
git-svn-id: trunk@63678 -
This commit is contained in:
wp 2020-08-03 15:13:17 +00:00
parent bf2c904ffb
commit 856c8e9f37
6 changed files with 302 additions and 154 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/demo/axis/axisdemo.lpi
View File

@ -25,6 +25,9 @@
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
@ -74,9 +77,6 @@
<SmartLinkUnit Value="True"/>
</CodeGeneration>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>

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

@ -1,19 +1,19 @@
object Form1: TForm1
Left = 343
Height = 430
Height = 413
Top = 184
Width = 533
Width = 566
Caption = 'TAChart axis demo'
ClientHeight = 430
ClientWidth = 533
ClientHeight = 413
ClientWidth = 566
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.1.0.0'
object PageControl1: TPageControl
Left = 0
Height = 430
Height = 413
Top = 0
Width = 533
Width = 566
ActivePage = tsCustomMarks
Align = alClient
TabIndex = 0
@ -21,13 +21,13 @@ object Form1: TForm1
Options = [nboKeyboardTabSwitch]
object tsCustomMarks: TTabSheet
Caption = 'Customized marks'
ClientHeight = 402
ClientWidth = 525
ClientHeight = 385
ClientWidth = 558
object ChartCustomMarks: TChart
Left = 0
Height = 402
Height = 385
Top = 0
Width = 525
Width = 558
AxisList = <
item
TickLength = 0
@ -92,13 +92,13 @@ object Form1: TForm1
end
object tsAxisGroup: TTabSheet
Caption = 'Axis groups'
ClientHeight = 402
ClientWidth = 525
ClientHeight = 385
ClientWidth = 558
object ChartAxisGroup: TChart
Left = 0
Height = 402
Height = 385
Top = 0
Width = 525
Width = 558
AxisList = <
item
Grid.Visible = False
@ -127,13 +127,13 @@ object Form1: TForm1
end
object tsSubmarks: TTabSheet
Caption = 'Submarks'
ClientHeight = 402
ClientWidth = 525
ClientHeight = 385
ClientWidth = 558
object ChartSubmarks: TChart
Left = 0
Height = 402
Height = 385
Top = 0
Width = 525
Width = 558
AxisList = <
item
TickLength = 6
@ -195,13 +195,13 @@ object Form1: TForm1
end
object tsDateTime: TTabSheet
Caption = 'Date and time'
ClientHeight = 402
ClientWidth = 525
ClientHeight = 385
ClientWidth = 558
object ChartDateTime: TChart
Left = 0
Height = 368
Height = 350
Top = 0
Width = 525
Width = 558
AxisList = <
item
Marks.LabelBrush.Style = bsClear
@ -235,20 +235,28 @@ object Form1: TForm1
end
end
object Panel1: TPanel
AnchorSideTop.Side = asrCenter
Left = 0
Height = 34
Top = 368
Width = 525
Height = 35
Top = 350
Width = 558
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 34
ClientWidth = 525
ClientHeight = 35
ClientWidth = 558
TabOrder = 1
object CbSuppressPrevUnit: TCheckBox
Left = 11
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 8
Height = 19
Top = 8
Width = 139
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
Caption = 'Suppress previous unit'
Checked = True
OnChange = CbSuppressPrevUnitChange
@ -256,19 +264,29 @@ object Form1: TForm1
TabOrder = 0
end
object CbAlternateFormat: TCheckBox
Left = 195
AnchorSideLeft.Control = CbSuppressPrevUnit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 163
Height = 19
Top = 8
Width = 145
BorderSpacing.Left = 16
Caption = 'Alternate format strings'
OnChange = CbAlternateFormatChange
TabOrder = 1
end
object Label1: TLabel
Left = 393
AnchorSideLeft.Control = CbAlternateFormat
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 332
Height = 15
Top = 10
Width = 34
BorderSpacing.Left = 24
Caption = 'Label1'
ParentColor = False
end
@ -384,18 +402,19 @@ object Form1: TForm1
end
object tsPosition: TTabSheet
Caption = 'Position'
ClientHeight = 402
ClientWidth = 525
ClientHeight = 385
ClientWidth = 558
object ChartPosition: TChart
Left = 0
Height = 402
Height = 385
Top = 0
Width = 384
Width = 389
AxisList = <
item
Grid.Visible = False
Intervals.Tolerance = 1
AxisPen.Visible = True
Marks.LabelBrush.Style = bsClear
Minors = <>
Position = 50
Title.LabelBrush.Style = bsClear
@ -405,6 +424,7 @@ object Form1: TForm1
Intervals.Tolerance = 1
Alignment = calBottom
AxisPen.Visible = True
Marks.LabelBrush.Style = bsClear
Minors = <>
Position = 50
Title.LabelBrush.Style = bsClear
@ -452,24 +472,26 @@ object Form1: TForm1
end
end
object pnlPosition: TPanel
Left = 384
Height = 402
Left = 389
Height = 385
Top = 0
Width = 141
Width = 169
Align = alRight
ClientHeight = 402
ClientWidth = 141
BevelOuter = bvNone
ClientHeight = 385
ClientWidth = 169
TabOrder = 1
object gbPositionX: TGroupBox
Left = 1
Left = 0
Height = 124
Top = 1
Width = 139
Top = 0
Width = 163
Align = alTop
AutoSize = True
BorderSpacing.Right = 6
Caption = ' X axis '
ClientHeight = 104
ClientWidth = 135
ClientWidth = 159
TabOrder = 0
object seXPosition: TSpinEdit
AnchorSideLeft.Control = lblPositionX
@ -480,7 +502,7 @@ object Form1: TForm1
Left = 62
Height = 23
Top = 0
Width = 65
Width = 89
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
@ -561,7 +583,7 @@ object Form1: TForm1
Left = 62
Height = 23
Top = 27
Width = 65
Width = 89
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
ItemHeight = 15
@ -579,16 +601,17 @@ object Form1: TForm1
end
end
object gbPositionY: TGroupBox
Left = 1
Left = 0
Height = 124
Top = 133
Width = 139
Top = 132
Width = 163
Align = alTop
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 6
Caption = ' Y axis '
ClientHeight = 104
ClientWidth = 135
ClientWidth = 159
TabOrder = 1
object lblPositionY: TLabel
AnchorSideLeft.Control = gbPositionY
@ -624,7 +647,7 @@ object Form1: TForm1
Left = 62
Height = 23
Top = 0
Width = 65
Width = 89
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
@ -669,7 +692,7 @@ object Form1: TForm1
Left = 62
Height = 23
Top = 27
Width = 65
Width = 89
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
ItemHeight = 15
@ -698,6 +721,71 @@ object Form1: TForm1
end
end
end
object TabSheet1: TTabSheet
Caption = 'Rotated'
ClientHeight = 385
ClientWidth = 558
object ChartRotated: TChart
Left = 0
Height = 349
Top = 0
Width = 558
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.Format = '%2:s'
Marks.LabelBrush.Style = bsClear
Marks.Source = lcsRotatedSeries
Marks.Style = smsLabel
Minors = <>
Title.LabelBrush.Style = bsClear
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
object ChartRotatedBarSeries: TBarSeries
BarBrush.Color = clRed
Source = lcsRotatedSeries
Styles = ChartStyles1
end
end
object Panel2: TPanel
Left = 0
Height = 36
Top = 349
Width = 558
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 36
ClientWidth = 558
TabOrder = 1
object cbRotated: TCheckBox
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrCenter
Left = 8
Height = 19
Top = 9
Width = 61
BorderSpacing.Around = 8
Caption = 'Rotated'
OnChange = cbRotatedChange
TabOrder = 0
end
end
end
end
object lcsMarks: TListChartSource
DataPoints.Strings = (
@ -708,17 +796,15 @@ object Form1: TForm1
'5|37000|?|May'
'6|22000|?|June'
)
left = 216
top = 164
Left = 216
Top = 164
end
object rcsDates: TRandomChartSource
RandSeed = 1079653020
XMax = 0
XMin = 0
YMax = 50
YMin = 5
left = 216
top = 216
Left = 216
Top = 216
end
object DateTimeIntervalChartSource1: TDateTimeIntervalChartSource
Params.Count = 10
@ -726,12 +812,12 @@ object Form1: TForm1
Params.MinLength = 20
Params.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps]
OnDateTimeStepChange = DateTimeIntervalChartSource1DateTimeStepChange
left = 248
top = 320
Left = 248
Top = 320
end
object ChartToolsetDateTime: TChartToolset
left = 448
top = 320
Left = 448
Top = 320
object ChartToolset1ZoomIn: TZoomClickTool
Shift = [ssLeft]
ZoomFactor = 4
@ -746,20 +832,20 @@ object Form1: TForm1
object udcsMain: TUserDefinedChartSource
OnGetChartDataItem = udcsMainGetChartDataItem
PointsNumber = 10
left = 344
top = 72
Left = 344
Top = 72
end
object udcsSub: TUserDefinedChartSource
OnGetChartDataItem = udcsSubGetChartDataItem
PointsNumber = 50
left = 344
top = 116
Left = 344
Top = 116
end
object udcsGraph: TUserDefinedChartSource
OnGetChartDataItem = udcsGraphGetChartDataItem
PointsNumber = 100
left = 352
top = 184
Left = 352
Top = 184
end
object csStripes: TChartStyles
Styles = <
@ -771,7 +857,33 @@ object Form1: TForm1
Brush.Color = 12319483
UsePen = False
end>
left = 304
top = 176
Left = 304
Top = 176
end
object lcsRotatedSeries: TListChartSource
DataPoints.Strings = (
'1|104|53|62|?|A'
'2|243|47|51|?|B'
'3|405|51|26|?|C'
'4|156|68|28|?|D'
'5|364|16|35|?|E'
)
YCount = 3
Left = 468
Top = 35
end
object ChartStyles1: TChartStyles
Styles = <
item
Brush.Color = clRed
end
item
Brush.Color = clYellow
end
item
Brush.Color = clGreen
end>
Left = 468
Top = 88
end
end

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

@ -20,6 +20,7 @@ type
catTFahrToCel: TLinearAxisTransform;
cbStaticY: TCheckBox;
cbUnitsY: TComboBox;
ChartRotated: TChart;
ChartPosition: TChart;
ChartIntervals: TChart;
ChartAxisGroup: TChart;
@ -28,6 +29,8 @@ type
ChartDateTime: TChart;
ChartDateTimeLineSeries1: TLineSeries;
ChartPositionFuncSeries1: TFuncSeries;
ChartRotatedBarSeries: TBarSeries;
ChartStyles1: TChartStyles;
ChartSubmarks: TChart;
ChartSubmarksLineSeries1: TLineSeries;
ChartToolset1ZoomIn: TZoomClickTool;
@ -37,6 +40,7 @@ type
cbUnitsX: TComboBox;
CbSuppressPrevUnit: TCheckBox;
CbAlternateFormat: TCheckBox;
cbRotated: TCheckBox;
csStripes: TChartStyles;
DateTimeIntervalChartSource1: TDateTimeIntervalChartSource;
gbPositionX: TGroupBox;
@ -47,8 +51,10 @@ type
lblPositionY: TLabel;
lblUnitsY: TLabel;
lcsMarks: TListChartSource;
lcsRotatedSeries: TListChartSource;
PageControl1: TPageControl;
Panel1: TPanel;
Panel2: TPanel;
pnlPosition: TPanel;
rbPositionBottom: TRadioButton;
rbPositionLeft: TRadioButton;
@ -57,6 +63,7 @@ type
rcsDates: TRandomChartSource;
seXPosition: TSpinEdit;
seYPosition: TSpinEdit;
TabSheet1: TTabSheet;
tsPosition: TTabSheet;
tsIntervals: TTabSheet;
tsAxisGroup: TTabSheet;
@ -66,6 +73,7 @@ type
udcsGraph: TUserDefinedChartSource;
udcsMain: TUserDefinedChartSource;
udcsSub: TUserDefinedChartSource;
procedure cbRotatedChange(Sender: TObject);
procedure cbStaticXChange(Sender: TObject);
procedure cbStaticYChange(Sender: TObject);
procedure CbSuppressPrevUnitChange(Sender: TObject);
@ -107,6 +115,32 @@ begin
ChartPosition.AxisList[3].Visible := cbStaticX.Checked;
end;
procedure TForm1.cbRotatedChange(Sender: TObject);
begin
if cbRotated.Checked then
begin
ChartRotatedBarSeries.AxisIndexX := 0;
ChartRotatedBarSeries.AxisIndexY := 1;
ChartRotated.BottomAxis.Marks.Source := nil;
ChartRotated.BottomAxis.Marks.Style := smsValue;
ChartRotated.LeftAxis.Marks.Source := lcsRotatedSeries;
ChartRotated.LeftAxis.Marks.Style := smsLabel;
end else
begin
ChartRotatedBarSeries.AxisIndexX := 1;
ChartRotatedBarSeries.AxisIndexY := 0;
ChartRotated.LeftAxis.Marks.Source := nil;
ChartRotated.LeftAxis.Marks.Style := smsValue;
ChartRotated.BottomAxis.Marks.Source := lcsRotatedSeries;
ChartRotated.BottomAxis.Marks.Style := smsLabel;
end;
// This exchanges the x/y value of the source for the marks being displayed
// along the axis. This is necessary because the axis does not "know" that
// the series uses rotated x/y values.
ChartRotated.LeftAxis.Marks.SourceExchangeXY := cbRotated.Checked;
end;
procedure TForm1.cbStaticYChange(Sender: TObject);
begin
ChartPosition.AxisList[2].Visible := cbStaticY.Checked;

11
components/tachart/demo/axisalign/main.lfm
View File

@ -445,11 +445,9 @@ object Form1: TForm1
PointsNumber = 10
RandSeed = 1952997387
XMax = 1
XMin = 0
YMax = 1
YMin = 0
left = 264
top = 272
Left = 264
Top = 272
end
object RandomChartSource2: TRandomChartSource
PointsNumber = 20
@ -457,8 +455,7 @@ object Form1: TForm1
XMax = 1000
XMin = -1000
YMax = 1000000
YMin = 0
left = 392
top = 272
Left = 392
Top = 272
end
end

3
components/tachart/demo/axistransf/axistransfdemo.lpi
View File

@ -25,6 +25,9 @@
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">

152
components/tachart/demo/axistransf/main.lfm
View File

@ -14,9 +14,9 @@ object Form1: TForm1
Height = 434
Top = 0
Width = 533
ActivePage = tsUser
ActivePage = tsLinear
Align = alClient
TabIndex = 4
TabIndex = 0
TabOrder = 0
object tsLinear: TTabSheet
Caption = 'Linear'
@ -24,7 +24,7 @@ object Form1: TForm1
ClientWidth = 525
object ChartT: TChart
Left = 0
Height = 379
Height = 371
Top = 0
Width = 525
AxisList = <
@ -102,25 +102,26 @@ object Form1: TForm1
end
object pnlAutoControls: TPanel
Left = 0
Height = 27
Top = 379
Height = 35
Top = 371
Width = 525
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 27
ClientHeight = 35
ClientWidth = 525
TabOrder = 1
object cbAuto: TCheckBox
AnchorSideLeft.Control = pnlAutoControls
AnchorSideTop.Control = pnlAutoControls
Left = 4
AnchorSideTop.Side = asrCenter
Left = 8
Height = 19
Top = 4
Top = 8
Width = 75
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
Caption = 'Auto scale'
OnChange = cbAutoChange
TabOrder = 0
@ -133,7 +134,7 @@ object Form1: TForm1
ClientWidth = 525
object ChartIndependent: TChart
Left = 0
Height = 351
Height = 347
Top = 0
Width = 525
AxisList = <
@ -192,14 +193,14 @@ object Form1: TForm1
end
object pnlIndependentControls: TPanel
Left = 4
Height = 47
Top = 355
Height = 51
Top = 351
Width = 517
Align = alBottom
AutoSize = True
BorderSpacing.Around = 4
BevelOuter = bvNone
ClientHeight = 47
ClientHeight = 51
ClientWidth = 517
TabOrder = 1
object fseIndependent1: TFloatSpinEdit
@ -209,7 +210,7 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter
Left = 63
Height = 23
Top = 12
Top = 14
Width = 70
BorderSpacing.Left = 8
Increment = 0.1
@ -226,7 +227,7 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter
Left = 196
Height = 23
Top = 12
Top = 14
Width = 70
BorderSpacing.Left = 8
Increment = 0.1
@ -242,7 +243,7 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 16
Top = 18
Width = 39
BorderSpacing.Left = 16
Caption = 'Scale 1'
@ -258,7 +259,7 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter
Left = 149
Height = 15
Top = 16
Top = 18
Width = 39
BorderSpacing.Left = 16
Caption = 'Scale 2'
@ -269,16 +270,17 @@ object Form1: TForm1
end
object rgSyncAxisMarks: TRadioGroup
AnchorSideRight.Side = asrBottom
Left = 336
Height = 47
Left = 324
Height = 51
Top = 0
Width = 181
Width = 193
Align = alRight
AutoFill = True
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = ' Synchronize marks '
ChildSizing.LeftRightSpacing = 6
ChildSizing.LeftRightSpacing = 12
ChildSizing.TopBottomSpacing = 2
ChildSizing.HorizontalSpacing = 10
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
@ -286,8 +288,8 @@ object Form1: TForm1
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3
ClientHeight = 27
ClientWidth = 177
ClientHeight = 31
ClientWidth = 189
Columns = 3
ItemIndex = 1
Items.Strings = (
@ -306,7 +308,7 @@ object Form1: TForm1
ClientWidth = 525
object ChartLog: TChart
Left = 0
Height = 375
Height = 367
Top = 0
Width = 525
AxisList = <
@ -385,16 +387,16 @@ object Form1: TForm1
end
end
object pnlLogControls: TPanel
Left = 4
Left = 8
Height = 23
Top = 379
Width = 517
Top = 375
Width = 509
Align = alBottom
AutoSize = True
BorderSpacing.Around = 4
BorderSpacing.Around = 8
BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 517
ClientWidth = 509
TabOrder = 1
object cbLog: TCheckBox
AnchorSideLeft.Control = pnlLogControls
@ -443,8 +445,8 @@ object Form1: TForm1
ClientWidth = 525
object ChartCumulNormDistr: TChart
Left = 0
Height = 340
Top = 66
Height = 324
Top = 82
Width = 525
AxisList = <
item
@ -504,35 +506,37 @@ object Form1: TForm1
end
object pnCumulNormDistr: TPanel
Left = 0
Height = 66
Height = 82
Top = 0
Width = 525
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 66
ClientHeight = 82
ClientWidth = 525
TabOrder = 1
object rgRandDistr: TRadioGroup
Left = 4
Height = 58
Top = 4
AnchorSideLeft.Control = pnCumulNormDistr
AnchorSideTop.Control = pnCumulNormDistr
Left = 8
Height = 66
Top = 8
Width = 175
Align = alLeft
AutoFill = True
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
Caption = ' Random number generation '
ChildSizing.LeftRightSpacing = 12
ChildSizing.TopBottomSpacing = 4
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 38
ClientHeight = 46
ClientWidth = 171
ItemIndex = 1
Items.Strings = (
@ -547,7 +551,7 @@ object Form1: TForm1
AnchorSideLeft.Control = lblDataCount
AnchorSideTop.Control = edDataCount
AnchorSideTop.Side = asrBottom
Left = 195
Left = 199
Height = 19
Top = 39
Width = 60
@ -559,7 +563,7 @@ object Form1: TForm1
object cbUseAxisTransform: TCheckBox
AnchorSideLeft.Control = edDataCount
AnchorSideTop.Control = cbPercent
Left = 264
Left = 268
Height = 19
Top = 39
Width = 118
@ -572,7 +576,7 @@ object Form1: TForm1
AnchorSideLeft.Control = lblDataCount
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnCumulNormDistr
Left = 264
Left = 268
Height = 23
Top = 8
Width = 82
@ -589,7 +593,7 @@ object Form1: TForm1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edDataCount
AnchorSideTop.Side = asrCenter
Left = 195
Left = 199
Height = 15
Top = 12
Width = 61
@ -652,8 +656,8 @@ object Form1: TForm1
end
end
object catLog: TChartAxisTransformations
left = 216
top = 60
Left = 216
Top = 60
object ChartAxisTransformations1LinearAxisTransform2: TLinearAxisTransform
Scale = 2
end
@ -662,8 +666,8 @@ object Form1: TForm1
end
end
object catT: TChartAxisTransformations
left = 352
top = 60
Left = 352
Top = 60
object catTFahrToCel: TLinearAxisTransform
Offset = -17.777777777
Scale = 0.5555555555
@ -678,9 +682,8 @@ object Form1: TForm1
XMax = 2009
XMin = 1990
YMax = 25
YMin = 0
left = 87
top = 106
Left = 87
Top = 106
end
object rcsTWinter: TRandomChartSource
PointsNumber = 20
@ -689,12 +692,12 @@ object Form1: TForm1
XMin = 1990
YMax = 20
YMin = -15
left = 87
top = 156
Left = 87
Top = 156
end
object catTAuto: TChartAxisTransformations
left = 352
top = 112
Left = 352
Top = 112
object catTAutoAutoScaleAxisTransform1: TAutoScaleAxisTransform
Enabled = False
end
@ -709,53 +712,52 @@ object Form1: TForm1
Brush.Color = 12319483
UsePen = False
end>
left = 352
top = 176
Left = 352
Top = 176
end
object rcsUser: TRandomChartSource
PointsNumber = 100
RandSeed = 1999979507
XMax = 50
XMin = 0
YMax = 20
YMin = 10
left = 87
top = 208
Left = 87
Top = 208
end
object catUser: TChartAxisTransformations
left = 352
top = 236
Left = 352
Top = 236
object catUserUserDefinedAxisTransform1: TUserDefinedAxisTransform
OnAxisToGraph = catUserUserDefinedAxisTransform1AxisToGraph
end
end
object ChartToolset1: TChartToolset
left = 216
top = 116
Left = 216
Top = 116
object ChartToolset1DataPointDragTool1: TDataPointDragTool
Shift = [ssLeft]
AffectedSeries = '1'
end
end
object catIndependent1: TChartAxisTransformations
left = 220
top = 176
Left = 220
Top = 176
object catIndependent1Zoom: TLinearAxisTransform
end
end
object catIndependent2: TChartAxisTransformations
left = 220
top = 236
Left = 220
Top = 236
object catIndependent2Zoom: TLinearAxisTransform
end
end
object AxLabelSource: TListChartSource
left = 311
top = 305
Left = 311
Top = 305
end
object catCumulNormDistr: TChartAxisTransformations
left = 310
top = 305
Left = 310
Top = 305
object catCumulNormDistrLinearAxisTransform1: TLinearAxisTransform
Enabled = False
Scale = 0.01