mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-15 09:42:37 +02:00
467 lines
12 KiB
Plaintext
467 lines
12 KiB
Plaintext
object Form1: TForm1
|
|
Left = 343
|
|
Height = 333
|
|
Top = 184
|
|
Width = 533
|
|
Caption = 'TAChart axis demo'
|
|
ClientHeight = 333
|
|
ClientWidth = 533
|
|
OnCreate = FormCreate
|
|
Position = poScreenCenter
|
|
LCLVersion = '0.9.29'
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Height = 333
|
|
Top = 0
|
|
Width = 533
|
|
ActivePage = lsLinear
|
|
Align = alClient
|
|
TabIndex = 0
|
|
TabOrder = 0
|
|
object lsLinear: TTabSheet
|
|
Caption = 'Linear transform'
|
|
ClientHeight = 307
|
|
ClientWidth = 525
|
|
object ChartT: TChart
|
|
Left = 0
|
|
Height = 278
|
|
Top = 0
|
|
Width = 525
|
|
AxisList = <
|
|
item
|
|
Grid.Visible = False
|
|
Marks.LabelFont.Color = clRed
|
|
Marks.AtDataOnly = True
|
|
TickColor = clRed
|
|
Title.LabelFont.Color = clRed
|
|
Title.LabelFont.Orientation = 900
|
|
Title.Visible = True
|
|
Title.Caption = 'Summer temperature, °C'
|
|
Transformations = catTAuto
|
|
end
|
|
item
|
|
Alignment = calBottom
|
|
Title.Visible = True
|
|
Title.Caption = 'Year'
|
|
end
|
|
item
|
|
Alignment = calRight
|
|
Grid.Visible = False
|
|
Marks.Distance = 4
|
|
Marks.LabelFont.Color = clBlue
|
|
Marks.AtDataOnly = True
|
|
TickColor = clBlue
|
|
Title.LabelFont.Color = clBlue
|
|
Title.LabelFont.Orientation = 900
|
|
Title.Visible = True
|
|
Title.Caption = 'Winter temperature, °F'
|
|
Transformations = catT
|
|
end>
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Frame.Visible = False
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alClient
|
|
ParentColor = False
|
|
object ChartTSummer: TLineSeries
|
|
AxisIndexY = 0
|
|
LinePen.Color = clRed
|
|
LinePen.Width = 2
|
|
Source = rcsTSummer
|
|
end
|
|
object ChartTWinterLine: TLineSeries
|
|
AxisIndexY = 2
|
|
LinePen.Color = clBlue
|
|
LinePen.Width = 2
|
|
Source = rcsTWinter
|
|
end
|
|
object ChartTWinterBar: TBarSeries
|
|
AxisIndexY = 2
|
|
BarBrush.Color = clBlue
|
|
BarBrush.Style = bsDiagCross
|
|
Source = rcsTWinter
|
|
end
|
|
end
|
|
object pnlAutoControls: TPanel
|
|
Left = 0
|
|
Height = 29
|
|
Top = 278
|
|
Width = 525
|
|
Align = alBottom
|
|
ClientHeight = 29
|
|
ClientWidth = 525
|
|
TabOrder = 1
|
|
object cbAuto: TCheckBox
|
|
Left = 4
|
|
Height = 17
|
|
Top = 5
|
|
Width = 70
|
|
Caption = 'Auto scale'
|
|
OnChange = cbAutoChange
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object tsLog: TTabSheet
|
|
Caption = 'Logarithm transform'
|
|
ClientHeight = 307
|
|
ClientWidth = 525
|
|
object ChartLog: TChart
|
|
Left = 0
|
|
Height = 278
|
|
Top = 0
|
|
Width = 525
|
|
AxisList = <
|
|
item
|
|
Title.LabelFont.Orientation = 900
|
|
Title.Visible = True
|
|
Title.Caption = 'Left'
|
|
Transformations = catLog
|
|
end
|
|
item
|
|
Alignment = calBottom
|
|
Title.Distance = 0
|
|
Title.Visible = True
|
|
Title.Caption = 'Bottom'
|
|
end
|
|
item
|
|
Alignment = calRight
|
|
Grid.Visible = False
|
|
Title.LabelFont.Orientation = 900
|
|
Title.Visible = True
|
|
Title.Caption = 'Right 1'
|
|
end
|
|
item
|
|
Alignment = calTop
|
|
Inverted = True
|
|
Title.Caption = 'Top'
|
|
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 clsLogPoints: TLineSeries
|
|
AxisIndexY = 0
|
|
LineType = ltNone
|
|
Pointer.Brush.Color = clMaroon
|
|
ShowPoints = True
|
|
end
|
|
object cfsLog: TFuncSeries
|
|
Extent.XMin = -1
|
|
Extent.XMax = 3
|
|
Extent.UseXMin = True
|
|
Extent.UseXMax = True
|
|
AxisIndexY = 0
|
|
OnCalculate = ChartLogFuncSeries1Calculate
|
|
end
|
|
end
|
|
object pnlLogControls: TPanel
|
|
Left = 0
|
|
Height = 29
|
|
Top = 278
|
|
Width = 525
|
|
Align = alBottom
|
|
ClientHeight = 29
|
|
ClientWidth = 525
|
|
TabOrder = 1
|
|
object cbLog: TCheckBox
|
|
Left = 4
|
|
Height = 17
|
|
Top = 5
|
|
Width = 64
|
|
Caption = 'Log scale'
|
|
Checked = True
|
|
OnChange = cbLogChange
|
|
State = cbChecked
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object tsCustomMarks: TTabSheet
|
|
Caption = 'Customized marks'
|
|
ClientHeight = 307
|
|
ClientWidth = 525
|
|
object ChartCustomMarks: TChart
|
|
Left = 0
|
|
Height = 307
|
|
Top = 0
|
|
Width = 525
|
|
AxisList = <
|
|
item
|
|
Marks.Distance = 0
|
|
Marks.Format = '$%0:.9g'
|
|
Marks.Frame.Style = psSolid
|
|
Marks.LabelBrush.Color = clMoneyGreen
|
|
Marks.LabelBrush.Style = bsSolid
|
|
Marks.Source = lcsMarks
|
|
Marks.Style = smsCustom
|
|
Title.LabelFont.Orientation = 900
|
|
end
|
|
item
|
|
Alignment = calBottom
|
|
Grid.Visible = False
|
|
Marks.LabelFont.Height = -13
|
|
Marks.LabelFont.Style = [fsBold]
|
|
Marks.Format = '%2:s'
|
|
Marks.Source = lcsMarks
|
|
Marks.Style = smsLabel
|
|
TickLength = 0
|
|
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 ChartCustomMarksBarSeries1: TBarSeries
|
|
Marks.Frame.Visible = False
|
|
Marks.LabelBrush.Style = bsClear
|
|
BarBrush.Color = clGreen
|
|
BarPen.Color = clLime
|
|
BarPen.Width = 2
|
|
Source = lcsMarks
|
|
end
|
|
end
|
|
end
|
|
object tsAxisGroup: TTabSheet
|
|
Caption = 'Axis groups'
|
|
ClientHeight = 307
|
|
ClientWidth = 525
|
|
object ChartAxisGroup: TChart
|
|
Left = 0
|
|
Height = 307
|
|
Top = 0
|
|
Width = 525
|
|
AxisList = <
|
|
item
|
|
Grid.Visible = False
|
|
Group = 2
|
|
TickLength = 0
|
|
Title.LabelFont.Orientation = 900
|
|
end
|
|
item
|
|
Alignment = calBottom
|
|
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
|
|
end
|
|
end
|
|
object tsSubmarks: TTabSheet
|
|
Caption = 'Submarks'
|
|
ClientHeight = 307
|
|
ClientWidth = 525
|
|
object ChartSubmarks: TChart
|
|
Left = 0
|
|
Height = 307
|
|
Top = 0
|
|
Width = 525
|
|
AxisList = <
|
|
item
|
|
Group = 1
|
|
Marks.Source = udcsMain
|
|
TickLength = 6
|
|
Title.LabelFont.Orientation = 900
|
|
end
|
|
item
|
|
Alignment = calBottom
|
|
Group = 2
|
|
Marks.Source = udcsMain
|
|
TickLength = 6
|
|
end
|
|
item
|
|
Grid.Visible = False
|
|
Group = 1
|
|
Marks.Visible = False
|
|
Marks.Source = udcsSub
|
|
Marks.Style = smsNone
|
|
TickLength = 2
|
|
end
|
|
item
|
|
Alignment = calBottom
|
|
Grid.Visible = False
|
|
Group = 2
|
|
Marks.Visible = False
|
|
Marks.Source = udcsSub
|
|
Marks.Style = smsNone
|
|
TickLength = 2
|
|
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 ChartSubmarksLineSeries1: TLineSeries
|
|
Source = udcsGraph
|
|
end
|
|
end
|
|
end
|
|
object tsDateTime: TTabSheet
|
|
Caption = 'Date and time'
|
|
ClientHeight = 307
|
|
ClientWidth = 525
|
|
object ChartDateTime: TChart
|
|
Left = 0
|
|
Height = 307
|
|
Top = 0
|
|
Width = 525
|
|
AxisList = <
|
|
item
|
|
Title.LabelFont.Orientation = 900
|
|
end
|
|
item
|
|
Alignment = calBottom
|
|
Marks.Format = '%2:s'
|
|
Marks.OverlapPolicy = opHideNeighbour
|
|
Marks.Source = DateTimeIntervalChartSource1
|
|
Marks.Style = smsLabel
|
|
end>
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'The series contain data points for every hour in 10 years'
|
|
'Left/right-click to zoom and see various labels on the bottom axis'
|
|
)
|
|
Title.Visible = True
|
|
Toolset = ChartToolsetDateTime
|
|
Align = alClient
|
|
ParentColor = False
|
|
object ChartDateTimeLineSeries1: TLineSeries
|
|
Source = rcsDates
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object lcsMarks: TListChartSource
|
|
DataPoints.Strings = (
|
|
'1|18000|?|January'
|
|
'2|35000|?|February'
|
|
'3|31000|?|March'
|
|
'4|26000|?|April'
|
|
'5|37000|?|May'
|
|
'6|22000|?|June'
|
|
)
|
|
left = 216
|
|
top = 164
|
|
end
|
|
object catLog: TChartAxisTransformations
|
|
left = 216
|
|
top = 60
|
|
object ChartAxisTransformations1LinearAxisTransform2: TLinearAxisTransform
|
|
Scale = 2
|
|
end
|
|
object ChartAxisTransformations1LogarithmAxisTransform1: TLogarithmAxisTransform
|
|
Base = 10
|
|
end
|
|
end
|
|
object catT: TChartAxisTransformations
|
|
left = 352
|
|
top = 60
|
|
object catTFahrToCel: TLinearAxisTransform
|
|
Offset = -17.777777777
|
|
Scale = 0.5555555555
|
|
end
|
|
object catTAutoScaleAxisTransform1: TAutoScaleAxisTransform
|
|
Enabled = False
|
|
end
|
|
end
|
|
object rcsTSummer: TRandomChartSource
|
|
PointsNumber = 20
|
|
RandSeed = 114536250
|
|
XMax = 2009
|
|
XMin = 1990
|
|
YMax = 25
|
|
YMin = 0
|
|
left = 87
|
|
top = 106
|
|
end
|
|
object rcsTWinter: TRandomChartSource
|
|
PointsNumber = 20
|
|
RandSeed = 23453245
|
|
XMax = 2009
|
|
XMin = 1990
|
|
YMax = 20
|
|
YMin = -15
|
|
left = 87
|
|
top = 156
|
|
end
|
|
object catTAuto: TChartAxisTransformations
|
|
left = 352
|
|
top = 112
|
|
object catTAutoAutoScaleAxisTransform1: TAutoScaleAxisTransform
|
|
Enabled = False
|
|
end
|
|
end
|
|
object rcsDates: TRandomChartSource
|
|
RandSeed = 1079653020
|
|
XMax = 0
|
|
XMin = 0
|
|
YMax = 50
|
|
YMin = 5
|
|
left = 87
|
|
top = 216
|
|
end
|
|
object DateTimeIntervalChartSource1: TDateTimeIntervalChartSource
|
|
left = 352
|
|
top = 232
|
|
end
|
|
object ChartToolsetDateTime: TChartToolset
|
|
left = 440
|
|
top = 232
|
|
object ChartToolset1ZoomIn: TZoomClickTool
|
|
Shift = [ssLeft]
|
|
FixedPoint = True
|
|
ZoomFactor = 4
|
|
ZoomRatio = 0.25
|
|
end
|
|
object ChartToolset1ZoomOut: TZoomClickTool
|
|
Shift = [ssRight]
|
|
FixedPoint = True
|
|
ZoomFactor = 0.25
|
|
ZoomRatio = 4
|
|
end
|
|
end
|
|
object udcsMain: TUserDefinedChartSource
|
|
OnGetChartDataItem = udcsMainGetChartDataItem
|
|
PointsNumber = 10
|
|
left = 440
|
|
top = 60
|
|
end
|
|
object udcsSub: TUserDefinedChartSource
|
|
OnGetChartDataItem = udcsSubGetChartDataItem
|
|
PointsNumber = 50
|
|
left = 440
|
|
top = 112
|
|
end
|
|
object udcsGraph: TUserDefinedChartSource
|
|
OnGetChartDataItem = udcsGraphGetChartDataItem
|
|
PointsNumber = 100
|
|
left = 440
|
|
top = 172
|
|
end
|
|
end
|