2020-08-22 17:30:06 +00:00
|
|
|
object ChartForm: TChartForm
|
2020-08-22 17:53:57 +00:00
|
|
|
Left = 475
|
|
|
|
Height = 500
|
|
|
|
Top = 183
|
|
|
|
Width = 700
|
2020-08-22 17:30:06 +00:00
|
|
|
ActiveControl = CloseBtn
|
|
|
|
Caption = 'Plot window'
|
2020-08-22 17:53:57 +00:00
|
|
|
ClientHeight = 500
|
|
|
|
ClientWidth = 700
|
|
|
|
OnActivate = FormActivate
|
2020-08-22 17:30:06 +00:00
|
|
|
OnCreate = FormCreate
|
|
|
|
LCLVersion = '2.1.0.0'
|
|
|
|
object ButtonBevel: TBevel
|
|
|
|
Left = 0
|
2020-08-22 17:53:57 +00:00
|
|
|
Height = 2
|
|
|
|
Top = 456
|
|
|
|
Width = 700
|
2020-08-22 17:30:06 +00:00
|
|
|
Align = alBottom
|
|
|
|
Shape = bsBottomLine
|
|
|
|
end
|
|
|
|
object ButtonPanel: TPanel
|
|
|
|
Left = 8
|
|
|
|
Height = 26
|
2020-08-22 17:53:57 +00:00
|
|
|
Top = 466
|
|
|
|
Width = 684
|
2020-08-22 17:30:06 +00:00
|
|
|
Align = alBottom
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Around = 8
|
|
|
|
BevelOuter = bvNone
|
|
|
|
ClientHeight = 26
|
2020-08-22 17:53:57 +00:00
|
|
|
ClientWidth = 684
|
|
|
|
TabOrder = 0
|
2020-08-22 17:30:06 +00:00
|
|
|
object PrintBtn: TButton
|
|
|
|
AnchorSideLeft.Control = ButtonPanel
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = ButtonPanel
|
|
|
|
AnchorSideTop.Side = asrCenter
|
2020-08-22 17:53:57 +00:00
|
|
|
Left = 317
|
2020-08-22 17:30:06 +00:00
|
|
|
Height = 25
|
|
|
|
Top = 1
|
|
|
|
Width = 51
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Left = 12
|
|
|
|
BorderSpacing.Right = 12
|
|
|
|
Caption = 'Print'
|
|
|
|
OnClick = PrintBtnClick
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object SaveBtn: TButton
|
|
|
|
AnchorSideTop.Control = ButtonPanel
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
AnchorSideRight.Control = PrintBtn
|
2020-08-22 17:53:57 +00:00
|
|
|
Left = 219
|
2020-08-22 17:30:06 +00:00
|
|
|
Height = 25
|
|
|
|
Top = 1
|
|
|
|
Width = 86
|
|
|
|
Anchors = [akTop, akRight]
|
|
|
|
AutoSize = True
|
|
|
|
Caption = 'Save Image'
|
|
|
|
OnClick = SaveBtnClick
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object CloseBtn: TButton
|
|
|
|
AnchorSideLeft.Control = PrintBtn
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = ButtonPanel
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
AnchorSideRight.Side = asrBottom
|
2020-08-22 17:53:57 +00:00
|
|
|
Left = 380
|
2020-08-22 17:30:06 +00:00
|
|
|
Height = 25
|
|
|
|
Top = 1
|
|
|
|
Width = 55
|
|
|
|
AutoSize = True
|
|
|
|
Cancel = True
|
|
|
|
Caption = 'Close'
|
|
|
|
Default = True
|
|
|
|
ModalResult = 11
|
2020-08-23 14:31:05 +00:00
|
|
|
OnClick = CloseBtnClick
|
2020-08-22 17:30:06 +00:00
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
end
|
2020-08-22 17:53:57 +00:00
|
|
|
object Panel1: TPanel
|
2020-08-22 17:30:06 +00:00
|
|
|
Left = 6
|
2020-08-22 17:53:57 +00:00
|
|
|
Height = 444
|
2020-08-22 17:30:06 +00:00
|
|
|
Top = 6
|
2020-08-22 17:53:57 +00:00
|
|
|
Width = 688
|
2020-08-22 17:30:06 +00:00
|
|
|
Align = alClient
|
|
|
|
BorderSpacing.Around = 6
|
2020-08-22 17:53:57 +00:00
|
|
|
BevelOuter = bvNone
|
|
|
|
BorderStyle = bsSingle
|
|
|
|
Caption = 'Panel1'
|
|
|
|
ClientHeight = 440
|
|
|
|
ClientWidth = 684
|
|
|
|
Color = clWhite
|
|
|
|
ParentColor = False
|
|
|
|
TabOrder = 1
|
|
|
|
object Chart: TChart
|
|
|
|
Left = 6
|
|
|
|
Height = 428
|
|
|
|
Top = 6
|
|
|
|
Width = 672
|
|
|
|
AxisList = <
|
|
|
|
item
|
|
|
|
Grid.Color = clSilver
|
|
|
|
Grid.Style = psSolid
|
|
|
|
Grid.Visible = False
|
|
|
|
Marks.LabelBrush.Style = bsClear
|
|
|
|
Minors = <>
|
|
|
|
Title.LabelFont.Orientation = 900
|
|
|
|
Title.LabelFont.Style = [fsBold]
|
|
|
|
Title.LabelBrush.Style = bsClear
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Grid.Color = clSilver
|
|
|
|
Grid.Style = psSolid
|
|
|
|
Grid.Visible = False
|
2020-08-22 22:23:20 +00:00
|
|
|
Intervals.MaxLength = 80
|
|
|
|
Intervals.MinLength = 30
|
2020-08-22 17:53:57 +00:00
|
|
|
Alignment = calBottom
|
|
|
|
Marks.LabelBrush.Style = bsClear
|
|
|
|
Minors = <>
|
|
|
|
Title.LabelFont.Style = [fsBold]
|
|
|
|
Title.LabelBrush.Style = bsClear
|
|
|
|
end>
|
|
|
|
BackColor = clWhite
|
|
|
|
Foot.Brush.Color = clBtnFace
|
|
|
|
Foot.Brush.Style = bsClear
|
|
|
|
Foot.Font.Color = clBlue
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
|
|
|
Title.Brush.Color = clBtnFace
|
|
|
|
Title.Brush.Style = bsClear
|
|
|
|
Title.Font.Color = clBlue
|
|
|
|
Title.Font.Style = [fsBold]
|
|
|
|
Title.Text.Strings = (
|
|
|
|
'TAChart'
|
|
|
|
)
|
|
|
|
Align = alClient
|
|
|
|
BorderSpacing.Around = 6
|
|
|
|
Color = clWhite
|
|
|
|
end
|
2020-08-22 17:30:06 +00:00
|
|
|
end
|
|
|
|
object SavePictureDialog: TSavePictureDialog
|
|
|
|
Filter = 'Graphic (*.png;*.bmp;*.jpeg;*.jpg;*.jpe;*.jfif;*.svg)|*.png;*.bmp;*.jpeg;*.jpg;*.jpe;*.jfif;*.svg|Portable Network Graphic (*.png)|*.png|Bitmaps (*.bmp)|*.bmp|Joint Picture Expert Group (*.jpeg;*.jpg;*.jpe;*.jfif)|*.jpeg;*.jpg;*.jpe;*.jfif|Scaleable Vector Graphic (*.svg)|*.svg|All Files (*.*)|*.*'
|
|
|
|
Left = 408
|
|
|
|
Top = 136
|
|
|
|
end
|
|
|
|
object PrintDialog: TPrintDialog
|
|
|
|
Left = 408
|
|
|
|
Top = 194
|
|
|
|
end
|
|
|
|
end
|