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
|
object saisiefichiertableur: Tsaisiefichiertableur
Left = 501
Height = 575
Top = 224
Width = 670
ActiveControl = Memo1
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Chargement fichier expérience'
ClientHeight = 575
ClientWidth = 670
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '1.2.2.0'
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 10
Height = 20
Top = 10
Width = 263
BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'Voici les 4 premières lignes du fichier:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label2: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
Left = 10
Height = 20
Top = 163
Width = 321
BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'Veuillez compléter les informations suivantes:'
Font.Color = clGreen
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label3: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = RadioGroupseparateur
AnchorSideTop.Side = asrBottom
Left = 10
Height = 20
Top = 317
Width = 293
BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'Ligne à laquelle commencent les données:'
Font.Color = clRed
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label4: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
Left = 10
Height = 20
Top = 347
Width = 211
BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'Nombre de données par ligne:'
Font.Color = clNavy
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label5: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label4
AnchorSideTop.Side = asrBottom
Left = 10
Height = 20
Top = 377
Width = 411
BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'Colonne dont la grandeur sera considérée comme abscisse:'
Font.Color = clGreen
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Memo1: TMemo
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 10
Height = 113
Top = 40
Width = 650
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
TabOrder = 0
end
object RadioGroupseparateur: TRadioGroup
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
Left = 10
Height = 114
Top = 193
Width = 266
AutoFill = True
BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'Valeurs numériques séparées par:'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 92
ClientWidth = 262
ItemIndex = 1
Items.Strings = (
'Un ou plusieurs espaces'
'Point virgule'
)
TabOrder = 1
end
object SpinEditlignedebut: TSpinEdit
AnchorSideLeft.Control = Label3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrCenter
Left = 313
Height = 28
Top = 313
Width = 46
BorderSpacing.Left = 10
MaxValue = 10
MinValue = 1
TabOrder = 2
Value = 2
end
object SpinEditnombredonneesparligne: TSpinEdit
AnchorSideLeft.Control = Label4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label4
AnchorSideTop.Side = asrCenter
Left = 231
Height = 28
Top = 343
Width = 49
BorderSpacing.Left = 10
MinValue = 1
TabOrder = 3
Value = 2
end
object SpinEditindiceabscisse: TSpinEdit
AnchorSideLeft.Control = Label5
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label5
AnchorSideTop.Side = asrCenter
Left = 431
Height = 28
Top = 373
Width = 42
BorderSpacing.Left = 10
MinValue = 1
TabOrder = 4
Value = 1
end
object CheckBoxrecalculechelles: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label5
AnchorSideTop.Side = asrBottom
Left = 10
Height = 24
Top = 407
Width = 378
BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'Recalculer automatiquement les échelles verticales'
Checked = True
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 5
end
object BitBtn1: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CheckBoxrecalculechelles
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 10
Height = 124
Top = 441
Width = 650
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
BorderSpacing.Bottom = 10
Caption = '&OK'
Default = True
Kind = bkOK
ModalResult = 1
OnClick = BitBtn1Click
TabOrder = 6
end
end
|
