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
|
object saisieretailleespace: Tsaisieretailleespace
Left = 612
Height = 307
Top = 294
Width = 425
ActiveControl = Edit_xxmin_m
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Modifier l''espace de travail'
ClientHeight = 307
ClientWidth = 425
Color = clAqua
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '1.6.0.4'
object Label1: TLabel
Left = 8
Height = 17
Top = 8
Width = 85
Caption = 'Abscisse min.:'
ParentColor = False
end
object Label2: TLabel
Left = 8
Height = 17
Top = 48
Width = 90
Caption = 'Abscisse max.:'
ParentColor = False
end
object Label3: TLabel
Left = 9
Height = 17
Top = 88
Width = 96
Caption = 'Ordonnée min.:'
ParentColor = False
end
object Label4: TLabel
Left = 8
Height = 17
Top = 120
Width = 101
Caption = 'Ordonnée max.:'
ParentColor = False
end
object log1: TLabel
Left = 179
Height = 1
Top = 16
Width = 1
ParentColor = False
end
object log2: TLabel
Left = 179
Height = 1
Top = 48
Width = 1
ParentColor = False
end
object log3: TLabel
Left = 179
Height = 1
Top = 88
Width = 1
ParentColor = False
end
object log4: TLabel
Left = 179
Height = 1
Top = 128
Width = 1
ParentColor = False
end
object Label5: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cocherespect_m
AnchorSideTop.Side = asrBottom
Left = 10
Height = 17
Top = 178
Width = 327
BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'pour avoir un repère approximativement orthonormé'
ParentColor = False
end
object Edit_xxmin_m: TEdit
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrCenter
Left = 103
Height = 25
Top = 4
Width = 89
BorderSpacing.Left = 10
TabOrder = 0
end
object edit_xxmax_m: TEdit
AnchorSideLeft.Control = Label2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrCenter
Left = 108
Height = 25
Top = 44
Width = 89
BorderSpacing.Left = 10
TabOrder = 1
end
object Edit_yymin_m: TEdit
AnchorSideLeft.Control = Label3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrCenter
Left = 115
Height = 25
Top = 84
Width = 89
BorderSpacing.Left = 10
TabOrder = 2
end
object Edit_yymax_m: TEdit
AnchorSideLeft.Control = Label4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label4
AnchorSideTop.Side = asrCenter
Left = 119
Height = 25
Top = 116
Width = 89
BorderSpacing.Left = 10
TabOrder = 3
end
object cocherespect_m: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label4
AnchorSideTop.Side = asrBottom
Left = 10
Height = 21
Top = 147
Width = 296
BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'Respecter rapport hauteur/largeur de l''écran'
TabOrder = 4
end
object BitBtn1: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label5
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 10
Height = 65
Top = 205
Width = 405
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
Caption = '&OK'
Default = True
Kind = bkOK
ModalResult = 1
OnClick = BitBtn1Click
TabOrder = 5
end
object BitBtn2: TBitBtn
Left = 9
Height = 24
Top = 280
Width = 406
Cancel = True
Caption = 'Annuler'
Kind = bkCancel
ModalResult = 2
TabOrder = 6
end
end
|
