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
|
object saisieespacetravail: Tsaisieespacetravail
Left = 339
Height = 432
Top = 108
Width = 368
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Dimensions de l''espace de travail'
ClientHeight = 432
ClientWidth = 368
Color = clAqua
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '0.9.29'
object GroupBox1: TGroupBox
Left = 8
Height = 57
Top = 56
Width = 177
Caption = 'Abscisse maximale'
ClientHeight = 39
ClientWidth = 173
TabOrder = 0
object editxxmax: TEdit
Left = 32
Height = 21
Top = 8
Width = 113
OnChange = editxxmaxChange
TabOrder = 0
end
end
object GroupBox2: TGroupBox
Left = 8
Height = 57
Top = 176
Width = 177
Caption = 'Ordonnées maximale'
ClientHeight = 39
ClientWidth = 173
TabOrder = 1
object edityymax: TEdit
Left = 32
Height = 21
Top = 8
Width = 113
OnChange = edityymaxChange
TabOrder = 0
end
end
object GroupBox3: TGroupBox
Left = 0
Height = 65
Top = 360
Width = 352
Caption = 'Repére orthonormé (approximativement)'
ClientHeight = 47
ClientWidth = 348
TabOrder = 2
object StaticText1: TLabel
Left = 16
Height = 14
Top = 64
Width = 241
Caption = 'Remarque: le non respect du rapport implique que'
ParentColor = False
end
object StaticText2: TLabel
Left = 16
Height = 14
Top = 80
Width = 204
Caption = 'les angles à l''écran ne sont pas respectés.'
ParentColor = False
end
object cocherespect: TCheckBox
Left = 16
Height = 17
Top = 16
Width = 247
Caption = 'Respecter le rapport hauteur/largeur de l''écran'
Checked = True
State = cbChecked
TabOrder = 0
end
end
object rapporthl: TGroupBox
Left = 0
Height = 97
Top = 256
Width = 353
Caption = 'Rapport hauteur/largeur'
ClientHeight = 79
ClientWidth = 349
Color = clAqua
ParentColor = False
TabOrder = 3
object StaticText5: TLabel
Left = 8
Height = 14
Top = 8
Width = 48
Caption = 'Rapport='
ParentColor = False
end
object statrapportactuel: TLabel
Left = 62
Height = 14
Top = 8
Width = 25
Caption = ' '
ParentColor = False
end
object StaticText6: TLabel
Left = 8
Height = 14
Top = 32
Width = 233
Caption = 'Rapport idéal (permettant d''occuper le maximum'
ParentColor = False
end
object StaticText7: TLabel
Left = 8
Height = 14
Top = 56
Width = 222
Caption = 'de surface d''écran avec repére orthonormé)='
ParentColor = False
end
object statrapportideal: TLabel
Left = 235
Height = 14
Top = 56
Width = 28
Caption = ' '
ParentColor = False
end
end
object radiounite: TRadioGroup
Left = 192
Height = 185
Top = 0
Width = 161
AutoFill = True
Caption = 'Unité de longueur'
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 = 167
ClientWidth = 157
ItemIndex = 6
Items.Strings = (
'km'
'hm'
'dam'
'm'
'dm'
'cm'
'mm'
'µm'
''
)
TabOrder = 4
end
object saisiexxmin: TGroupBox
Left = 8
Height = 49
Top = 0
Width = 177
Caption = 'Abscisse minimale'
ClientHeight = 31
ClientWidth = 173
TabOrder = 5
object editxxmin: TEdit
Left = 32
Height = 21
Top = 0
Width = 113
OnChange = editxxminChange
TabOrder = 0
Text = '0'
end
end
object saisieyymin: TGroupBox
Left = 8
Height = 49
Top = 120
Width = 177
Caption = 'Ordonnée minimale'
ClientHeight = 31
ClientWidth = 173
TabOrder = 6
object edityymin: TEdit
Left = 32
Height = 21
Top = 8
Width = 113
OnChange = edityyminChange
TabOrder = 0
Text = '0'
end
end
object BitBtn1: TBitBtn
Left = 193
Height = 62
Top = 194
Width = 160
Caption = '&OK'
Default = True
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
OnClick = BitBtn1Click
TabOrder = 7
end
end
|
