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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
|
object MainForm: TMainForm
Left = 280
Height = 452
Top = 130
Width = 656
Caption = 'HTML demo'
ClientHeight = 452
ClientWidth = 656
OnCreate = FormCreate
LCLVersion = '1.9.0.0'
object BottomPanel: TPanel
Left = 8
Height = 105
Top = 339
Width = 640
Align = alBottom
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
BevelOuter = bvNone
ClientHeight = 105
ClientWidth = 640
TabOrder = 0
object CgHTML: TCheckGroup
Left = 0
Height = 78
Top = 8
Width = 333
AutoFill = True
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = 'Show HTML codes'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4
ClientHeight = 58
ClientWidth = 329
Columns = 4
Items.Strings = (
'title'
'footer'
'legend'
'series labels'
'x axis labels'
'x axis title'
'y axis title'
'distance tool'
)
OnItemClick = CgHTMLItemClick
TabOrder = 0
Data = {
080000000202020202020202
}
end
object BtnCopyToClipboard: TButton
AnchorSideTop.Control = BottomPanel
AnchorSideRight.Control = BottomPanel
AnchorSideRight.Side = asrBottom
Left = 511
Height = 25
Top = 8
Width = 121
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Caption = 'Copy to clipboard'
OnClick = BtnCopyToClipboardClick
TabOrder = 1
end
object BtnSaveWMF: TButton
AnchorSideLeft.Control = BtnCopyToClipboard
AnchorSideTop.Control = BtnCopyToClipboard
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnCopyToClipboard
AnchorSideRight.Side = asrBottom
Left = 511
Height = 25
Top = 37
Width = 121
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
Caption = 'Save to WMF'
OnClick = BtnSaveWMFClick
TabOrder = 2
end
object BtnSaveSVG: TButton
AnchorSideLeft.Control = BtnCopyToClipboard
AnchorSideTop.Control = BtnSaveWMF
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnCopyToClipboard
AnchorSideRight.Side = asrBottom
Left = 511
Height = 25
Top = 66
Width = 121
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
Caption = 'Save to SVG'
OnClick = BtnSaveSVGClick
TabOrder = 3
end
object CbRTL: TCheckBox
AnchorSideLeft.Control = CbRotateXLabels
AnchorSideTop.Control = CbRotateXLabels
AnchorSideTop.Side = asrBottom
Left = 349
Height = 19
Top = 38
Width = 86
BorderSpacing.Top = 8
Caption = 'Right-to-left'
OnChange = CbRTLChange
TabOrder = 4
Visible = False
end
object CbRotateXLabels: TCheckBox
AnchorSideLeft.Control = CgHTML
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnCopyToClipboard
AnchorSideTop.Side = asrCenter
Left = 349
Height = 19
Top = 11
Width = 131
BorderSpacing.Left = 16
Caption = 'Rotate x labels by 45°'
OnChange = CbRotateXLabelsChange
TabOrder = 5
end
object Label1: TLabel
AnchorSideLeft.Control = BottomPanel
AnchorSideTop.Control = CgHTML
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 90
Width = 305
BorderSpacing.Top = 4
Caption = 'Measure distance: drag with left mouse button held down'
ParentColor = False
end
end
object Chart: TChart
Left = 8
Height = 323
Top = 8
Width = 640
AxisList = <
item
Grid.Color = clSilver
Grid.Style = psSolid
Minors = <>
Title.LabelFont.Height = -16
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'Area A, cm<sup>2</sup>'
Title.TextFormat = tfHTML
end
item
Grid.Color = clSilver
Grid.Style = psSolid
Grid.Visible = False
Alignment = calBottom
Marks.TextFormat = tfHTML
Minors = <>
Title.LabelFont.Height = -16
Title.Visible = True
Title.Caption = 'Angle α, °'
Title.TextFormat = tfHTML
OnMarkToText = ChartAxisList1MarkToText
end>
BackColor = clWhite
Foot.Alignment = taLeftJustify
Foot.Brush.Color = clBtnFace
Foot.Brush.Style = bsClear
Foot.Font.Color = clGray
Foot.Text.Strings = (
'<u>Reference</u>:'
'W. Shakespeare, <i>"J. Irreprod. Res."</i>, <b>38</b>, 512 (2017)'
)
Foot.TextFormat = tfHTML
Foot.Visible = True
Legend.Alignment = laTopCenter
Legend.ColumnCount = 2
Legend.TextFormat = tfHTML
Legend.Visible = True
Title.Brush.Color = clBtnFace
Title.Brush.Style = bsClear
Title.Font.Color = clNavy
Title.Font.Height = -19
Title.Font.Style = [fsBold]
Title.Text.Strings = (
'Plot of area (cm<sup>2</sup>) <i>vs.</i> angle α'
)
Title.TextFormat = tfHTML
Title.Visible = True
Toolset = ChartTools
Align = alClient
BorderSpacing.Around = 8
Color = clWhite
object DataSeries: TLineSeries
Marks.Alignment = taCenter
Marks.Format = '%2:s'
Marks.Frame.Color = clGray
Marks.LinkPen.Color = clGray
Marks.Style = smsLabel
Marks.TextFormat = tfHTML
Title = '<font color="red">Measured data points</font>'
LinePen.Color = clRed
LineType = ltNone
Pointer.Brush.Color = clRed
Pointer.Style = psCircle
ShowPoints = True
end
object FitSeries: TFitSeries
Marks.TextFormat = tfHTML
Title = 'Fit curve (<font color="blue">blue</font>)'
Pen.Color = clBlue
Pointer.Visible = False
Source = ListChartSource
OnFitComplete = FitSeriesFitComplete
end
end
object ListChartSource: TListChartSource
left = 224
top = 88
end
object ListChartSource_Fit: TListChartSource
left = 224
top = 153
end
object ChartTools: TChartToolset
left = 368
top = 88
object DistanceTool: TDataPointDistanceTool
Shift = [ssLeft]
DistanceMode = cdmOnlyX
DrawingMode = tdmNormal
Marks.Alignment = taCenter
Marks.Distance = 15
Marks.Format = '%0:.9g'
Marks.Frame.Color = clTeal
Marks.LabelBrush.Color = clMoneyGreen
Marks.LinkPen.Color = clSilver
Marks.LinkPen.Visible = False
Marks.TextFormat = tfHTML
MeasureMode = cdmOnlyX
Options = [dpdoLabelAbove]
OnGetDistanceText = DistanceToolGetDistanceText
end
end
end
|
