1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
object Form1: TForm1
Left = 485
Height = 342
Top = 210
Width = 422
Caption = 'Form1'
ClientHeight = 342
ClientWidth = 422
Position = poScreenCenter
LCLVersion = '1.5'
object Chart1: TChart
Left = 0
Height = 300
Top = 42
Width = 422
AxisList = <
item
Grid.Color = clSilver
Grid.Style = psDash
Marks.LabelFont.CharSet = ANSI_CHARSET
Marks.LabelFont.Height = -13
Marks.LabelFont.Name = 'Arial Narrow'
Marks.LabelFont.Pitch = fpVariable
Marks.LabelFont.Quality = fqDraft
Minors = <>
Title.LabelFont.CharSet = ANSI_CHARSET
Title.LabelFont.Color = clRed
Title.LabelFont.Height = -19
Title.LabelFont.Name = 'Times New Roman'
Title.LabelFont.Orientation = 900
Title.LabelFont.Pitch = fpVariable
Title.LabelFont.Quality = fqDraft
Title.LabelFont.Style = [fsItalic]
Title.Visible = True
Title.Caption = 'y axis'
end
item
Grid.Color = clSilver
Alignment = calBottom
Marks.LabelFont.CharSet = ANSI_CHARSET
Marks.LabelFont.Height = -13
Marks.LabelFont.Name = 'Arial Narrow'
Marks.LabelFont.Pitch = fpVariable
Marks.LabelFont.Quality = fqDraft
Minors = <>
Title.LabelFont.CharSet = ANSI_CHARSET
Title.LabelFont.Color = clGreen
Title.LabelFont.Height = -19
Title.LabelFont.Name = 'Times New Roman'
Title.LabelFont.Pitch = fpVariable
Title.LabelFont.Quality = fqDraft
Title.LabelFont.Style = [fsItalic]
Title.Visible = True
Title.Caption = 'x axis'
end>
BackColor = clWhite
Foot.Alignment = taLeftJustify
Foot.Brush.Color = clBtnFace
Foot.Brush.Style = bsClear
Foot.Font.CharSet = ANSI_CHARSET
Foot.Font.Color = clGray
Foot.Font.Height = -11
Foot.Font.Name = 'Courier New'
Foot.Font.Pitch = fpFixed
Foot.Font.Quality = fqDraft
Foot.Text.Strings = (
'printed by TAChart and fpvectorial'
)
Foot.Visible = True
Title.Brush.Color = clBtnFace
Title.Brush.Style = bsClear
Title.Font.CharSet = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -16
Title.Font.Name = 'Arial'
Title.Font.Pitch = fpVariable
Title.Font.Quality = fqDraft
Title.Font.Style = [fsBold, fsUnderline]
Title.Text.Strings = (
'Sample chart'
)
Title.Visible = True
Align = alClient
ParentColor = False
object Chart1LineSeries1: TLineSeries
LinePen.Color = clFuchsia
Source = RandomChartSource1
end
object Chart1BarSeries1: TBarSeries
BarBrush.Color = clRed
Source = RandomChartSource1
end
end
object Panel1: TPanel
Left = 0
Height = 42
Top = 0
Width = 422
Align = alTop
ClientHeight = 42
ClientWidth = 422
TabOrder = 1
object btnSVG: TButton
Left = 8
Height = 25
Top = 8
Width = 96
Caption = 'Save as SVG'
OnClick = btnSVGClick
TabOrder = 0
end
object btnGCode: TButton
Left = 112
Height = 25
Top = 8
Width = 119
Caption = 'Save as G-code'
OnClick = btnGCodeClick
TabOrder = 1
end
end
object RandomChartSource1: TRandomChartSource
PointsNumber = 11
RandSeed = 1335683875
XMax = 1
XMin = -1
YMax = 100
YMin = -100
left = 68
top = 156
end
end
|
