mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-03 03:43:42 +02:00
107 lines
2.1 KiB
Plaintext
107 lines
2.1 KiB
Plaintext
object Form1: TForm1
|
|
Left = 329
|
|
Height = 300
|
|
Top = 190
|
|
Width = 547
|
|
Caption = 'Form1'
|
|
ClientHeight = 300
|
|
ClientWidth = 547
|
|
OnCreate = FormCreate
|
|
Position = poScreenCenter
|
|
LCLVersion = '1.7'
|
|
object Chart1: TChart
|
|
Left = 0
|
|
Height = 274
|
|
Top = 26
|
|
Width = 347
|
|
AxisList = <
|
|
item
|
|
Minors = <>
|
|
Title.LabelFont.Orientation = 900
|
|
end
|
|
item
|
|
Alignment = calBottom
|
|
Minors = <>
|
|
end>
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Margins.Left = 8
|
|
Margins.Top = 8
|
|
Margins.Right = 8
|
|
Margins.Bottom = 0
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alClient
|
|
object Chart1LineSeries1: TLineSeries
|
|
ZPosition = 1
|
|
LinePen.Color = clTeal
|
|
LinePen.Width = 3
|
|
Pointer.HorizSize = 6
|
|
Pointer.Style = psCircle
|
|
Pointer.VertSize = 6
|
|
ShowPoints = True
|
|
Source = DbChartSource1
|
|
end
|
|
object Chart1BarSeries1: TBarSeries
|
|
BarBrush.Color = clRed
|
|
end
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
Left = 347
|
|
Height = 274
|
|
Top = 26
|
|
Width = 200
|
|
Align = alRight
|
|
AutoFillColumns = True
|
|
Color = clWindow
|
|
Columns = <>
|
|
DataSource = Datasource1
|
|
Scrollbars = ssAutoBoth
|
|
TabOrder = 1
|
|
end
|
|
object ToolBar1: TToolBar
|
|
Left = 0
|
|
Height = 26
|
|
Top = 0
|
|
Width = 547
|
|
Caption = 'ToolBar1'
|
|
ShowCaptions = True
|
|
TabOrder = 2
|
|
object tbCopy: TToolButton
|
|
Left = 1
|
|
Top = 2
|
|
Caption = 'Copy db to list'
|
|
OnClick = tbCopyClick
|
|
end
|
|
end
|
|
object MemDataset1: TMemDataset
|
|
Active = True
|
|
FieldDefs = <
|
|
item
|
|
Name = 'X'
|
|
DataType = ftFloat
|
|
end
|
|
item
|
|
Name = 'Y'
|
|
DataType = ftFloat
|
|
end>
|
|
left = 271
|
|
top = 60
|
|
end
|
|
object Datasource1: TDataSource
|
|
DataSet = MemDataset1
|
|
left = 271
|
|
top = 108
|
|
end
|
|
object DbChartSource1: TDbChartSource
|
|
DataSource = Datasource1
|
|
FieldX = 'X'
|
|
FieldY = 'Y,Y'
|
|
left = 271
|
|
top = 156
|
|
end
|
|
end
|