mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-02 02:23:44 +02:00
77 lines
1.8 KiB
Plaintext
77 lines
1.8 KiB
Plaintext
object Form1: TForm1
|
|
Left = 286
|
|
Height = 250
|
|
Top = 163
|
|
Width = 400
|
|
Caption = 'Form1'
|
|
ClientHeight = 250
|
|
ClientWidth = 400
|
|
OnCreate = FormCreate
|
|
LCLVersion = '1.0.1.3'
|
|
object Chart1: TChart
|
|
Left = 0
|
|
Height = 250
|
|
Top = 0
|
|
Width = 400
|
|
AxisList = <
|
|
item
|
|
Grid.Color = clSilver
|
|
Minors = <>
|
|
Title.LabelFont.Orientation = 900
|
|
Title.LabelFont.Style = [fsBold]
|
|
Title.Visible = True
|
|
Title.Caption = 'y'
|
|
end
|
|
item
|
|
Grid.Color = clSilver
|
|
Alignment = calBottom
|
|
Minors = <>
|
|
Title.LabelFont.Style = [fsBold]
|
|
Title.Visible = True
|
|
Title.Caption = 'x'
|
|
end>
|
|
BackColor = clWhite
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
OnAfterDrawBackWall = Chart1AfterDrawBackWall
|
|
Align = alClient
|
|
ParentColor = False
|
|
object Chart1FuncSeries1: TFuncSeries
|
|
Extent.UseXMax = True
|
|
Extent.UseXMin = True
|
|
Extent.UseYMax = True
|
|
Extent.UseYMin = True
|
|
Extent.XMax = 10
|
|
Extent.XMin = -10
|
|
Extent.YMax = 2
|
|
Extent.YMin = -2
|
|
Title = 'y = tan(x)'
|
|
OnCalculate = Chart1FuncSeries1Calculate
|
|
Pen.Color = clRed
|
|
end
|
|
object Chart1FuncSeries2: TFuncSeries
|
|
Title = 'y =ln(x)'
|
|
OnCalculate = Chart1FuncSeries2Calculate
|
|
Pen.Color = clBlue
|
|
end
|
|
object Chart1ConstantLine1: TConstantLine
|
|
Legend.Visible = False
|
|
Arrow.BaseLength = 8
|
|
Arrow.Visible = True
|
|
Position = 0
|
|
end
|
|
object Chart1ConstantLine2: TConstantLine
|
|
Legend.Visible = False
|
|
Arrow.BaseLength = 8
|
|
Arrow.Visible = True
|
|
LineStyle = lsVertical
|
|
Position = 0
|
|
end
|
|
end
|
|
end
|