mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-06 00:12:46 +02:00
659 lines
16 KiB
Plaintext
659 lines
16 KiB
Plaintext
object Form1: TForm1
|
|
Left = 653
|
|
Height = 459
|
|
Top = 209
|
|
Width = 550
|
|
Caption = 'Form1'
|
|
ClientHeight = 459
|
|
ClientWidth = 550
|
|
Position = poScreenCenter
|
|
LCLVersion = '1.1'
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Height = 459
|
|
Top = 0
|
|
Width = 550
|
|
ActivePage = tsDomain
|
|
Align = alClient
|
|
TabIndex = 0
|
|
TabOrder = 0
|
|
OnChange = PageControl1Change
|
|
object tsDomain: TTabSheet
|
|
Caption = 'Domain'
|
|
ClientHeight = 433
|
|
ClientWidth = 542
|
|
object Chart1: TChart
|
|
Left = 0
|
|
Height = 433
|
|
Top = 0
|
|
Width = 542
|
|
AxisList = <
|
|
item
|
|
Grid.Color = clGray
|
|
TickLength = 0
|
|
Minors = <>
|
|
Title.LabelFont.Orientation = 900
|
|
end
|
|
item
|
|
Grid.Color = clGray
|
|
TickLength = 0
|
|
Alignment = calBottom
|
|
Minors = <>
|
|
end>
|
|
ExpandPercentage = 5
|
|
Extent.UseYMax = True
|
|
Extent.UseYMin = True
|
|
Extent.YMax = 6
|
|
Extent.YMin = -6
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Frame.Visible = False
|
|
Legend.Visible = True
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alClient
|
|
ParentColor = False
|
|
object Chart1FuncSeries1: TFuncSeries
|
|
Extent.UseXMax = True
|
|
Extent.UseXMin = True
|
|
Extent.XMax = 6.28
|
|
Extent.XMin = -6.28
|
|
Extent.YMax = 2
|
|
Extent.YMin = -2
|
|
Title = '1 / Sin(x)'
|
|
OnCalculate = Chart1FuncSeries1Calculate
|
|
Pen.Color = clOlive
|
|
Pen.Width = 2
|
|
Step = 4
|
|
end
|
|
object Chart1XAxis: TConstantLine
|
|
Legend.Visible = False
|
|
Arrow.BaseLength = 5
|
|
Arrow.Length = 12
|
|
Arrow.Visible = True
|
|
Arrow.Width = 4
|
|
Position = 0
|
|
end
|
|
object Chart1YAxis: TConstantLine
|
|
Legend.Visible = False
|
|
Arrow.BaseLength = 5
|
|
Arrow.Length = 12
|
|
Arrow.Visible = True
|
|
Arrow.Width = 4
|
|
LineStyle = lsVertical
|
|
Position = 0
|
|
end
|
|
object Chart1BarSeries1: TBarSeries
|
|
Title = 'Cos(x)'
|
|
BarBrush.Color = clMoneyGreen
|
|
Source = UserDefinedChartSource1
|
|
end
|
|
object Chart1UserDrawnSeries1: TUserDrawnSeries
|
|
OnDraw = Chart1UserDrawnSeries1Draw
|
|
end
|
|
end
|
|
object cbDomain: TCheckBox
|
|
Left = 477
|
|
Height = 17
|
|
Top = 395
|
|
Width = 55
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Domain'
|
|
OnChange = cbDomainChange
|
|
TabOrder = 1
|
|
end
|
|
object cbRotate: TCheckBox
|
|
Left = 477
|
|
Height = 17
|
|
Top = 371
|
|
Width = 53
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Rotate'
|
|
OnChange = cbRotateChange
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object tsColorMap: TTabSheet
|
|
Caption = 'Color map'
|
|
ClientHeight = 433
|
|
ClientWidth = 542
|
|
object ChartColorMap: TChart
|
|
Left = 0
|
|
Height = 433
|
|
Top = 0
|
|
Width = 416
|
|
AxisList = <
|
|
item
|
|
MarginsForMarks = False
|
|
Minors = <>
|
|
Title.LabelFont.Orientation = 900
|
|
ZPosition = 1
|
|
end
|
|
item
|
|
Alignment = calBottom
|
|
MarginsForMarks = False
|
|
Minors = <>
|
|
ZPosition = 1
|
|
end>
|
|
Extent.UseXMax = True
|
|
Extent.UseXMin = True
|
|
Extent.XMax = 1
|
|
Extent.XMin = -1
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Legend.SymbolWidth = 30
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Toolset = chtsColorMap
|
|
Align = alClient
|
|
DoubleBuffered = True
|
|
ParentColor = False
|
|
object ChartColorMapColorMapSeries1: TColorMapSeries
|
|
Extent.UseXMax = True
|
|
Extent.UseXMin = True
|
|
Extent.XMax = 0.5
|
|
Extent.XMin = -0.5
|
|
Title = 'sin(10x + 17y)'
|
|
ColorSource = ListChartSource1
|
|
OnCalculate = ChartColorMapColorMapSeries1Calculate
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 421
|
|
Height = 433
|
|
Top = 0
|
|
Width = 121
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
ClientHeight = 433
|
|
ClientWidth = 121
|
|
TabOrder = 1
|
|
object ChartLegendPanel1: TChartLegendPanel
|
|
Left = 0
|
|
Height = 197
|
|
Top = 0
|
|
Width = 121
|
|
Chart = ChartColorMap
|
|
Align = alTop
|
|
end
|
|
object cbInterpolate: TCheckBox
|
|
Left = 8
|
|
Height = 17
|
|
Top = 403
|
|
Width = 74
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Interpolate'
|
|
OnChange = cbInterpolateChange
|
|
TabOrder = 1
|
|
end
|
|
object cbMultLegend: TCheckBox
|
|
Left = 8
|
|
Height = 17
|
|
Top = 375
|
|
Width = 91
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Expand legend'
|
|
OnChange = cbMultLegendChange
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object Splitter1: TSplitter
|
|
Left = 416
|
|
Height = 433
|
|
Top = 0
|
|
Width = 5
|
|
Align = alRight
|
|
ResizeAnchor = akRight
|
|
end
|
|
end
|
|
object tsSpline: TTabSheet
|
|
Caption = 'Spline'
|
|
ClientHeight = 433
|
|
ClientWidth = 542
|
|
object ChartSpline: TChart
|
|
Left = 0
|
|
Height = 395
|
|
Top = 0
|
|
Width = 542
|
|
AxisList = <
|
|
item
|
|
Grid.Color = clGray
|
|
Grid.Cosmetic = False
|
|
Intervals.Options = [aipGraphCoords, aipUseCount, aipUseMinLength, aipUseNiceSteps]
|
|
Intervals.Tolerance = 2
|
|
Minors = <>
|
|
Title.LabelFont.Orientation = 900
|
|
Transformations = catSpline
|
|
end
|
|
item
|
|
Grid.Color = clGray
|
|
Grid.Cosmetic = False
|
|
Alignment = calBottom
|
|
Minors = <>
|
|
end>
|
|
ExpandPercentage = 5
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alClient
|
|
DoubleBuffered = True
|
|
ParentColor = False
|
|
object ChartSplineLineSeries1: TLineSeries
|
|
AxisIndexX = 1
|
|
AxisIndexY = 0
|
|
Source = RandomChartSource1
|
|
end
|
|
object ChartSplineBSplineSeries1: TBSplineSeries
|
|
Active = False
|
|
AxisIndexX = 1
|
|
AxisIndexY = 0
|
|
Source = RandomChartSource1
|
|
Pen.Color = clLime
|
|
Pen.Width = 3
|
|
Pointer.Brush.Color = clLime
|
|
end
|
|
object ChartSplineCubicSplineSeries1: TCubicSplineSeries
|
|
ZPosition = 1
|
|
AxisIndexX = 1
|
|
AxisIndexY = 0
|
|
Pointer.Brush.Color = clAqua
|
|
Source = RandomChartSource1
|
|
Options = [csoDrawFewPoints, csoDrawUnorderedX]
|
|
Pen.Color = clAqua
|
|
Pen.Width = 2
|
|
end
|
|
end
|
|
object pnSpline: TPanel
|
|
Left = 0
|
|
Height = 38
|
|
Top = 395
|
|
Width = 542
|
|
Align = alBottom
|
|
ClientHeight = 38
|
|
ClientWidth = 542
|
|
TabOrder = 1
|
|
object iseSplineDegree: TTISpinEdit
|
|
Left = 60
|
|
Height = 21
|
|
Top = 4
|
|
Width = 50
|
|
Link.TIObject = ChartSplineBSplineSeries1
|
|
Link.TIPropertyName = 'Degree'
|
|
MinValue = 1
|
|
OnChange = iseSplineDegreeChange
|
|
TabOrder = 0
|
|
end
|
|
object icbSplineRandomX: TTICheckBox
|
|
Left = 128
|
|
Height = 23
|
|
Top = 4
|
|
Width = 90
|
|
Caption = 'Random X'
|
|
Link.TIObject = RandomChartSource1
|
|
Link.TIPropertyName = 'RandomX'
|
|
PropertyNameAsCaption = False
|
|
TabOrder = 1
|
|
end
|
|
object lblSplineDegree: TLabel
|
|
Left = 12
|
|
Height = 13
|
|
Top = 8
|
|
Width = 35
|
|
Caption = 'Degree'
|
|
ParentColor = False
|
|
end
|
|
object cbCubic: TTICheckBox
|
|
Left = 312
|
|
Height = 23
|
|
Top = 4
|
|
Width = 90
|
|
Caption = 'Cubic'
|
|
Link.TIObject = ChartSplineCubicSplineSeries1
|
|
Link.TIPropertyName = 'Active'
|
|
PropertyNameAsCaption = False
|
|
State = cbChecked
|
|
TabOrder = 2
|
|
end
|
|
object cbBSpline: TTICheckBox
|
|
Left = 220
|
|
Height = 23
|
|
Top = 4
|
|
Width = 90
|
|
Caption = 'B-Spline'
|
|
Link.TIObject = ChartSplineBSplineSeries1
|
|
Link.TIPropertyName = 'Active'
|
|
PropertyNameAsCaption = False
|
|
TabOrder = 3
|
|
end
|
|
object cbLogY: TTICheckBox
|
|
Left = 404
|
|
Height = 23
|
|
Top = 4
|
|
Width = 90
|
|
Caption = 'Log Y'
|
|
Link.TIObject = catSplineLogarithmAxisTransform
|
|
Link.TIPropertyName = 'Enabled'
|
|
PropertyNameAsCaption = False
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
end
|
|
object tsAutoExtentY: TTabSheet
|
|
Caption = 'Auto Y extent'
|
|
ClientHeight = 433
|
|
ClientWidth = 542
|
|
object chAutoExtentY: TChart
|
|
Left = 0
|
|
Height = 402
|
|
Top = 0
|
|
Width = 542
|
|
AxisList = <
|
|
item
|
|
Minors = <>
|
|
Title.LabelFont.Orientation = 900
|
|
end
|
|
item
|
|
Alignment = calBottom
|
|
Minors = <>
|
|
end>
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alClient
|
|
DoubleBuffered = True
|
|
ParentColor = False
|
|
object chAutoExtentYFuncSeries1: TFuncSeries
|
|
Extent.UseXMax = True
|
|
Extent.UseXMin = True
|
|
Extent.UseYMax = True
|
|
Extent.UseYMin = True
|
|
Extent.XMax = 1
|
|
Extent.YMax = 5
|
|
Extent.YMin = -5
|
|
OnCalculate = chAutoExtentYFuncSeries1Calculate
|
|
Pen.Color = 16711808
|
|
Pen.Width = 2
|
|
end
|
|
end
|
|
object pnlAutoExtentY: TPanel
|
|
Left = 0
|
|
Height = 31
|
|
Top = 402
|
|
Width = 542
|
|
Align = alBottom
|
|
ClientHeight = 31
|
|
ClientWidth = 542
|
|
TabOrder = 1
|
|
object cbAutoExtentY: TCheckBox
|
|
Left = 8
|
|
Height = 17
|
|
Top = 8
|
|
Width = 87
|
|
Caption = 'Auto Y extent'
|
|
OnChange = cbAutoExtentYChange
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object tsParametric: TTabSheet
|
|
Caption = 'Parametric'
|
|
ClientHeight = 433
|
|
ClientWidth = 542
|
|
object chParametric: TChart
|
|
Left = 0
|
|
Height = 433
|
|
Top = 0
|
|
Width = 412
|
|
AxisList = <
|
|
item
|
|
Minors = <>
|
|
Title.LabelFont.Orientation = 900
|
|
end
|
|
item
|
|
Alignment = calBottom
|
|
Minors = <>
|
|
end>
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alClient
|
|
ParentColor = False
|
|
object chParametricParametricCurveSeries1: TParametricCurveSeries
|
|
Extent.UseXMax = True
|
|
Extent.UseXMin = True
|
|
Extent.UseYMax = True
|
|
Extent.UseYMin = True
|
|
Extent.XMax = 2
|
|
Extent.XMin = -2
|
|
Extent.YMax = 2
|
|
Extent.YMin = -2
|
|
OnCalculate = chParametricParametricCurveSeries1Calculate
|
|
ParamMax = 32
|
|
Pen.Color = clMaroon
|
|
Pen.Width = 2
|
|
end
|
|
end
|
|
object pnlParametric: TPanel
|
|
Left = 412
|
|
Height = 433
|
|
Top = 0
|
|
Width = 130
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
ClientHeight = 433
|
|
ClientWidth = 130
|
|
TabOrder = 1
|
|
object seJ: TSpinEdit
|
|
Left = 24
|
|
Height = 21
|
|
Top = 182
|
|
Width = 50
|
|
OnChange = ParamChange
|
|
TabOrder = 0
|
|
Value = 2
|
|
end
|
|
object seK: TSpinEdit
|
|
Left = 24
|
|
Height = 21
|
|
Top = 210
|
|
Width = 50
|
|
OnChange = ParamChange
|
|
TabOrder = 1
|
|
Value = 2
|
|
end
|
|
object tbA: TTrackBar
|
|
Left = 24
|
|
Height = 32
|
|
Top = 46
|
|
Width = 104
|
|
Frequency = 4
|
|
Max = 40
|
|
OnChange = ParamChange
|
|
Position = 1
|
|
TabOrder = 2
|
|
end
|
|
object lblA: TLabel
|
|
Left = 8
|
|
Height = 13
|
|
Top = 50
|
|
Width = 12
|
|
AutoSize = False
|
|
Caption = 'a'
|
|
Font.Style = [fsItalic]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object stEq: TStaticText
|
|
Left = 4
|
|
Height = 37
|
|
Top = 4
|
|
Width = 122
|
|
Align = alTop
|
|
BorderSpacing.Around = 4
|
|
Caption = 'x = cos(at) - cos(bt)^j'#13#10'y = sin(ct) - sin(dt)^k'
|
|
Font.Style = [fsItalic]
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
end
|
|
object tbB: TTrackBar
|
|
Left = 24
|
|
Height = 32
|
|
Top = 78
|
|
Width = 104
|
|
Frequency = 4
|
|
Max = 40
|
|
OnChange = ParamChange
|
|
Position = 1
|
|
TabOrder = 4
|
|
end
|
|
object lblB: TLabel
|
|
Left = 8
|
|
Height = 13
|
|
Top = 82
|
|
Width = 12
|
|
AutoSize = False
|
|
Caption = 'b'
|
|
Font.Style = [fsItalic]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object tbC: TTrackBar
|
|
Left = 24
|
|
Height = 32
|
|
Top = 110
|
|
Width = 104
|
|
Frequency = 4
|
|
Max = 40
|
|
OnChange = ParamChange
|
|
Position = 1
|
|
TabOrder = 5
|
|
end
|
|
object tbD: TTrackBar
|
|
Left = 24
|
|
Height = 32
|
|
Top = 142
|
|
Width = 104
|
|
Frequency = 4
|
|
Max = 40
|
|
OnChange = ParamChange
|
|
Position = 1
|
|
TabOrder = 6
|
|
end
|
|
object lblD: TLabel
|
|
Left = 8
|
|
Height = 13
|
|
Top = 146
|
|
Width = 12
|
|
AutoSize = False
|
|
Caption = 'd'
|
|
Font.Style = [fsItalic]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object lblC: TLabel
|
|
Left = 8
|
|
Height = 13
|
|
Top = 114
|
|
Width = 12
|
|
AutoSize = False
|
|
Caption = 'c'
|
|
Font.Style = [fsItalic]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object lblK: TLabel
|
|
Left = 8
|
|
Height = 13
|
|
Top = 214
|
|
Width = 12
|
|
AutoSize = False
|
|
Caption = 'k'
|
|
Font.Style = [fsItalic]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object lblJ: TLabel
|
|
Left = 9
|
|
Height = 13
|
|
Top = 186
|
|
Width = 12
|
|
AutoSize = False
|
|
Caption = 'j'
|
|
Font.Style = [fsItalic]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object UserDefinedChartSource1: TUserDefinedChartSource
|
|
OnGetChartDataItem = UserDefinedChartSource1GetChartDataItem
|
|
PointsNumber = 14
|
|
left = 135
|
|
top = 114
|
|
end
|
|
object ListChartSource1: TListChartSource
|
|
DataPoints.Strings = (
|
|
'-1|0|$0000FF|'
|
|
'-0.5|0|$C00000|'
|
|
'0|0|$808000|'
|
|
'0.5|0|$00C000|'
|
|
'1|0|$00FF00|'
|
|
)
|
|
left = 280
|
|
top = 112
|
|
end
|
|
object chtsColorMap: TChartToolset
|
|
left = 280
|
|
top = 180
|
|
object chtsColorMapZoomDragTool1: TZoomDragTool
|
|
Shift = [ssLeft]
|
|
end
|
|
object chtsColorMapPanDragTool1: TPanDragTool
|
|
Shift = [ssRight]
|
|
end
|
|
end
|
|
object RandomChartSource1: TRandomChartSource
|
|
PointsNumber = 21
|
|
RandSeed = 1859411043
|
|
XMax = 10
|
|
XMin = 0
|
|
YMax = 1000
|
|
YMin = 1
|
|
left = 280
|
|
top = 56
|
|
end
|
|
object catSpline: TChartAxisTransformations
|
|
left = 135
|
|
top = 56
|
|
object catSplineLogarithmAxisTransform: TLogarithmAxisTransform
|
|
Enabled = False
|
|
Base = 10
|
|
end
|
|
end
|
|
object Timer1: TTimer
|
|
Interval = 200
|
|
OnTimer = Timer1Timer
|
|
left = 448
|
|
top = 296
|
|
end
|
|
end
|