lazarus/components/tachart/demo/line/frmcustomdrawpointer.lfm

150 lines
4.3 KiB
Plaintext

object CustomDrawPointerFrame: TCustomDrawPointerFrame
Left = 0
Height = 481
Top = 0
Width = 698
ClientHeight = 481
ClientWidth = 698
TabOrder = 0
DesignLeft = 314
DesignTop = 130
object Panel2: TPanel
Left = 0
Height = 39
Top = 0
Width = 698
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 39
ClientWidth = 698
TabOrder = 0
object cbBitmapPointer: TCheckBox
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrCenter
Left = 8
Height = 19
Top = 10
Width = 97
BorderSpacing.Left = 8
Caption = 'Bitmap pointer'
Checked = True
State = cbChecked
TabOrder = 0
OnChange = cbBitmapPointerChange
end
object cbDrawEveryNthPointer: TCheckBox
AnchorSideLeft.Control = PointerImage
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrCenter
Left = 141
Height = 19
Top = 10
Width = 140
BorderSpacing.Left = 16
Caption = 'Every n-th pointer, n = '
Checked = True
State = cbChecked
TabOrder = 1
OnChange = cbDrawEveryNthPointerChange
end
object edEveryNth: TSpinEdit
AnchorSideLeft.Control = cbDrawEveryNthPointer
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrCenter
Left = 281
Height = 23
Top = 8
Width = 50
Alignment = taRightJustify
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
MaxValue = 10
MinValue = 1
TabOrder = 2
Value = 3
OnChange = edEveryNthChange
end
object PointerImage: TImage
AnchorSideLeft.Control = cbBitmapPointer
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrCenter
Left = 109
Height = 16
Top = 11
Width = 16
AutoSize = True
BorderSpacing.Left = 4
Picture.Data = {
1754506F727461626C654E6574776F726B477261706869632B02000089504E47
0D0A1A0A0000000D49484452000000100000001008060000001FF3FF61000000
017352474200AECE1CE900000006624B474400FF00FF00FFA0BDA79300000009
7048597300000B1300000B1301009A9C180000000774494D4507DC06140F1F36
F0AF9FA6000001AB4944415438CB9592416813411486BFD96EECB1D09357AF5E
24224868D18330117BF5604E1AC1A6EBA188500985F4D0802C22228B685BC1D6
532EB92849210BA145101B5A103C45BDE79243C183D0E2CEF3B0DD71D326D8FE
30CCCC9BFFCD9B7FDEAF18814BD71E3C17D45D4761322E6BBBEDB50AA7C554BE
D4CC694FBABD48BABD4872DA93EBB74A1F4E957CFEE29D8974F2FF2E5147155B
461C9D044B8BCFC85E18673C3366893B3F7EB3FAF489DD3BCA849F5BAB793595
2FB544D0EF365E7316DCBFF730528AB60B2038001466AE58C2D51BB779F4B80C
C0CB173E9D76DD9ED59A7B08CE98C2C4819CF62468F4A5DB8B249BCD8A483C77
7E1EC8FBADFD8158D0E84BD0E84B4E7B02E0027C09DF2840F4C62B6ACD3DBC05
1F80CEF75FB6AAB7E053AC86F10B82A524E7E8EDC7D069D72D19A0580D0724A4
E124120AF3CB270ED72B9AF58A3E112FCC2F6325C42D047D7992C33FC2F6B7FD
B318AEE5C6663003C9C56AC8D7FAA295915EFF3390196DA4617292CF3B6EA4A1
C4A4ADE991684E502E974777C151264C57AB054B9C73CDC734C7F77DB1128661
FAE65C23326A0620E3CADB4F9B2BB3C3787F01CE48DFB7D4C375300000000049
454E44AE426082
}
end
end
object Chart: TChart
Left = 0
Height = 442
Top = 39
Width = 698
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
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
Color = clWindow
object LineSeries: TLineSeries
Pointer.Visible = True
ShowPoints = True
Source = RandomChartSource
OnCustomDrawPointer = LineSeriesCustomDrawPointer
end
end
object RandomChartSource: TRandomChartSource
PointsNumber = 25
RandSeed = 840176578
XMax = 20
XMin = -10
YMax = 8
YMin = 1
Left = 132
Top = 148
end
end