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
|
object saisiechoix: Tsaisiechoix
Left = 284
Height = 328
Top = 140
Width = 915
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Que voulez vous faire ?'
ClientHeight = 328
ClientWidth = 915
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '1.6.0.4'
object StaticText2: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = radiochoix
AnchorSideTop.Side = asrBottom
Left = 10
Height = 17
Top = 195
Width = 532
BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'Vous pouvez changer les indices du milieu dans lequel s''effectue la simulation:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object StaticText3: TLabel
AnchorSideTop.Control = StaticText2
AnchorSideTop.Side = asrBottom
Left = 8
Height = 17
Top = 222
Width = 85
BorderSpacing.Top = 10
Caption = 'Pour le vert:'
Color = clGreen
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = False
end
object StaticText4: TLabel
AnchorSideTop.Control = StaticText3
AnchorSideTop.Side = asrBottom
Left = 8
Height = 17
Top = 259
Width = 98
BorderSpacing.Top = 20
Caption = 'Pour le rouge:'
Color = clRed
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = False
end
object StaticText5: TLabel
AnchorSideTop.Control = StaticText4
AnchorSideTop.Side = asrBottom
Left = 8
Height = 17
Top = 296
Width = 86
BorderSpacing.Top = 20
Caption = 'Pour le bleu:'
Color = clBlue
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = False
end
object radiochoix: TRadioGroup
Left = 8
Height = 177
Top = 8
Width = 689
AutoFill = True
Caption = 'Voulez vous:'
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 = 155
ClientWidth = 685
Color = clAqua
ItemIndex = 0
Items.Strings = (
'Créér une nouvelle simulation'
'Créér une nouvelle simulation en choisissant les dimensions de l''espace de travail'
'Ouvrir une simulation existante'
)
ParentFont = False
ParentColor = False
TabOrder = 0
end
object BitBtn1: TBitBtn
AnchorSideLeft.Control = radiochoix
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 707
Height = 308
Top = 10
Width = 198
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
BorderSpacing.Bottom = 10
Caption = 'Suivant >'
Default = True
Font.Style = [fsBold]
ModalResult = 1
NumGlyphs = 2
ParentFont = False
TabOrder = 1
end
object Edit_indice_vert_par_defaut: TEdit
AnchorSideLeft.Control = StaticText3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = StaticText3
AnchorSideTop.Side = asrCenter
Left = 103
Height = 25
Top = 218
Width = 65
BorderSpacing.Left = 10
TabOrder = 2
Text = '1'
end
object Edit_indice_rouge_par_defaut: TEdit
AnchorSideLeft.Control = StaticText4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = StaticText4
AnchorSideTop.Side = asrCenter
Left = 116
Height = 25
Top = 255
Width = 65
BorderSpacing.Left = 10
TabOrder = 3
Text = '1'
end
object Edit_indice_bleu_par_defaut: TEdit
AnchorSideLeft.Control = StaticText5
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = StaticText5
AnchorSideTop.Side = asrCenter
Left = 104
Height = 25
Top = 292
Width = 65
BorderSpacing.Left = 10
TabOrder = 4
Text = '1'
end
end
|
