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
|
object saisiefantomes: Tsaisiefantomes
Left = 200
Height = 330
Top = 108
Width = 818
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Pour cacher des segments de rayon'
ClientHeight = 330
ClientWidth = 818
Color = clAqua
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '1.6.0.4'
object GroupBox1: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 10
Height = 310
Top = 10
Width = 609
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Bottom = 10
Caption = 'Saisie des fantomes'
ClientHeight = 288
ClientWidth = 605
TabOrder = 0
object StaticText1: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
Left = 10
Height = 17
Top = 10
Width = 503
BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'Pour des raisons de commodité, la possibilité vous est offerte de "cacher" certaines'
ParentColor = False
end
object StaticText2: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = StaticText1
AnchorSideTop.Side = asrBottom
Left = 10
Height = 17
Top = 27
Width = 537
BorderSpacing.Left = 10
Caption = 'parties des rayons lumineux calculés. Pour ce faire, cocher la case "Créer des fantomes",'
ParentColor = False
end
object StaticText3: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = StaticText2
AnchorSideTop.Side = asrBottom
Left = 10
Height = 17
Top = 44
Width = 529
BorderSpacing.Left = 10
Caption = 'et donner la liste des segments à cacher. Les numéros des segments sont actuellement'
ParentColor = False
end
object StaticText4: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = StaticText3
AnchorSideTop.Side = asrBottom
Left = 10
Height = 17
Top = 61
Width = 158
BorderSpacing.Left = 10
Caption = 'visualisés sur la simulation.'
ParentColor = False
end
object StaticText5: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = cochefantomes
AnchorSideTop.Side = asrBottom
Left = 10
Height = 17
Top = 119
Width = 555
BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'Liste des fantomes (liste entre parenthéses, numéro des segments séparés par des virgules,'
ParentColor = False
end
object StaticText6: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = StaticText5
AnchorSideTop.Side = asrBottom
Left = 10
Height = 17
Top = 136
Width = 223
BorderSpacing.Left = 10
Caption = 'sans espaces); exemple: (1,5,10,12)'
ParentColor = False
end
object cochefantomes: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = StaticText4
AnchorSideTop.Side = asrBottom
Left = 231
Height = 21
Top = 88
Width = 143
BorderSpacing.Top = 10
Caption = 'Créer des fantomes'
TabOrder = 0
end
object editfantomes: TEdit
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = StaticText6
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 10
Height = 25
Top = 163
Width = 585
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
TabOrder = 1
end
end
object BitBtn1: TBitBtn
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 629
Height = 310
Top = 10
Width = 179
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 = 1
end
end
|
