mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-04 06:58:37 +02:00
f3dd9d641d
* Based on patch by Andrei Kupreitchik * Used Margins in a demo git-svn-id: trunk@20224 -
100 lines
2.0 KiB
Plaintext
100 lines
2.0 KiB
Plaintext
object Form1: TForm1
|
|
Left = 329
|
|
Height = 300
|
|
Top = 190
|
|
Width = 547
|
|
Caption = 'Form1'
|
|
ClientHeight = 300
|
|
ClientWidth = 547
|
|
Position = poScreenCenter
|
|
LCLVersion = '0.9.27'
|
|
object Chart1: TChart
|
|
Left = 0
|
|
Height = 274
|
|
Top = 26
|
|
Width = 347
|
|
BottomAxis.Grid.Style = psDot
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
LeftAxis.Grid.Style = psDot
|
|
LeftAxis.Title.Angle = 90
|
|
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
|
|
ParentColor = False
|
|
object Chart1LineSeries1: TLineSeries
|
|
ZPosition = 1
|
|
LinePen.Color = clTeal
|
|
LinePen.Width = 3
|
|
SeriesColor = clTeal
|
|
Source = DbChartSource1
|
|
end
|
|
object Chart1BarSeries1: TBarSeries
|
|
BarBrush.Color = clRed
|
|
SeriesColor = clRed
|
|
end
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
Left = 347
|
|
Height = 274
|
|
Top = 26
|
|
Width = 200
|
|
Align = alRight
|
|
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
|
|
Precision = 0
|
|
Size = 0
|
|
end
|
|
item
|
|
Name = 'Y'
|
|
DataType = ftFloat
|
|
Precision = 0
|
|
Size = 0
|
|
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'
|
|
left = 271
|
|
top = 156
|
|
end
|
|
end
|