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 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433
|
object saisieprisme: Tsaisieprisme
Left = 528
Height = 548
Top = 147
Width = 668
ActiveControl = Edit_gx
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Ajout d''un prisme'
ClientHeight = 548
ClientWidth = 668
Color = clAqua
DesignTimePPI = 120
OnCreate = FormCreate
OnShow = FormShow
ParentFont = True
LCLVersion = '1.8.0.6'
object Image1: TImage
Left = 0
Height = 100
Top = 0
Width = 100
Picture.Data = {
1754506F727461626C654E6574776F726B477261706869631602000089504E47
0D0A1A0A0000000D49484452000000640000006401030000004A2C0717000000
017352474200AECE1CE900000006504C5445000000FFFFFFA5D99FDD00000009
7048597300000B1300000B1301009A9C180000000774494D4507DA011111102B
512EAEF5000001964944415438CB55D3316EE330100550035BA474B1C5962A73
001F4047D8C3A408B6098B142A75041E618F904285BAF5110CC141545A5A1796
609A3F43911CCEB0111E288D385FA31D785D31ED8A3AA577A52729FF2CB5FC96
9A8E5267A5DE4AEDA57C550B392335416AF046A8576A1C8ADC2FA5C3BA142DAB
D4ECD6FF86D5F98350834EA8C238B15C8DB1EC2D06E35867CD06C7A233D096B3
34802DDA4BF91AD46C96335213A406BAD9B07A252AE990E52BDC8AA8E4A56801
4E2B6B50EA808F2B8B8E6F8A2A78B028068F318B62789C583370B7C72C2A796B
5914C3CDDAAC0AB8B0420C27169584B5755288E12F8B92C5EB3F931462B8FB2C
8AE1F1C8A218480E5121D9BBCF0A256F7E4D1AC82DFE24F5F8324F78496AF1F5
F6238B4A8E7EB72D12C5F0497B63DCA364C3734973508B63541784AC26B69454
C5A1B0517BA526AA8E3A2BCD4A21B13811882713C2F60A07EE48AA0BD7159C84
D4A2B415BD6685748BB6A223AB571A94B8F54DCE488529B0ACF4A388E9A98BCE
4A93D26262EB51BE9642E520D428754AF32AB528B98394FF2985F4D9A66F42F6
A86D8437660D0000000049454E44AE426082
}
end
object GroupBox1: TGroupBox
Left = 104
Height = 99
Top = 1
Width = 184
Caption = 'Centre d''inertie'
ClientHeight = 74
ClientWidth = 180
TabOrder = 0
object Label1: TLabel
Left = 8
Height = 20
Top = 5
Width = 17
Caption = 'x='
ParentColor = False
end
object Label2: TLabel
Left = 8
Height = 20
Top = 41
Width = 17
Caption = 'y='
ParentColor = False
end
object log1: TLabel
Left = 145
Height = 20
Top = 5
Width = 30
Caption = 'log1'
ParentColor = False
end
object log2: TLabel
Left = 144
Height = 20
Top = 46
Width = 30
Caption = 'log2'
ParentColor = False
end
object Edit_gx: TEdit
Left = 32
Height = 28
Top = 0
Width = 101
TabOrder = 0
end
object Edit_gy: TEdit
Left = 31
Height = 28
Top = 39
Width = 102
TabOrder = 1
end
end
object GroupBox2: TGroupBox
Left = 8
Height = 61
Top = 232
Width = 282
Caption = 'Angle au sommet'
ClientHeight = 36
ClientWidth = 278
TabOrder = 1
object Label4: TLabel
Left = 14
Height = 20
Top = 11
Width = 20
Caption = 'A='
ParentColor = False
end
object Label7: TLabel
AnchorSideLeft.Control = Edit_angleausommet
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Edit_angleausommet
AnchorSideTop.Side = asrCenter
Left = 148
Height = 20
Top = 11
Width = 22
Caption = 'rad'
ParentColor = False
end
object Edit_angleausommet: TEdit
AnchorSideLeft.Control = Label4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label4
AnchorSideTop.Side = asrCenter
Left = 34
Height = 28
Top = 7
Width = 114
TabOrder = 0
end
end
object GroupBox3: TGroupBox
Left = 10
Height = 56
Top = 296
Width = 280
Caption = 'Angle polaire de la hauteur principale'
ClientHeight = 31
ClientWidth = 276
TabOrder = 2
object Label5: TLabel
Left = 12
Height = 20
Top = 7
Width = 15
Caption = 't='
ParentColor = False
end
object Label8: TLabel
AnchorSideLeft.Control = Edit_anglepolaire
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Edit_anglepolaire
AnchorSideTop.Side = asrCenter
Left = 136
Height = 20
Top = 7
Width = 22
Caption = 'rad'
ParentColor = False
end
object Edit_anglepolaire: TEdit
AnchorSideLeft.Control = Label5
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label5
AnchorSideTop.Side = asrCenter
Left = 27
Height = 28
Top = 3
Width = 109
TabOrder = 0
end
end
object GroupBox4: TGroupBox
Left = 13
Height = 58
Top = 360
Width = 275
Caption = 'Hauteur'
ClientHeight = 33
ClientWidth = 271
TabOrder = 3
object Label6: TLabel
Left = 5
Height = 20
Top = 8
Width = 63
Caption = 'Hauteur='
ParentColor = False
end
object log3: TLabel
AnchorSideLeft.Control = Edit_hauteur
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label6
AnchorSideTop.Side = asrCenter
Left = 177
Height = 20
Top = 8
Width = 30
Caption = 'log3'
ParentColor = False
end
object Edit_hauteur: TEdit
AnchorSideLeft.Control = Label6
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label6
AnchorSideTop.Side = asrCenter
Left = 68
Height = 28
Top = 4
Width = 109
TabOrder = 0
end
end
object BitBtn1: TBitBtn
Left = 13
Height = 112
Top = 112
Width = 275
Caption = '&OK'
Default = True
Kind = bkOK
ModalResult = 1
OnClick = BitBtn1Click
TabOrder = 4
end
object BitBtn2: TBitBtn
Left = 424
Height = 40
Top = 496
Width = 232
Cancel = True
Caption = 'Annuler'
Kind = bkCancel
ModalResult = 2
TabOrder = 5
end
object boutonsup: TBitBtn
Left = 9
Height = 40
Top = 496
Width = 408
Caption = 'Supprimer ce prisme'
TabOrder = 6
end
object GroupBox5: TGroupBox
Left = 13
Height = 63
Top = 424
Width = 271
Caption = 'Couleur du prisme'
ClientHeight = 38
ClientWidth = 267
TabOrder = 7
object Label9: TLabel
Left = 7
Height = 20
Top = 13
Width = 54
Caption = 'Couleur:'
ParentColor = False
end
object colorgrid1: TColorBox
AnchorSideLeft.Control = Label9
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label9
AnchorSideTop.Side = asrCenter
Left = 71
Height = 22
Top = 12
Width = 129
BorderSpacing.Left = 10
ItemHeight = 16
TabOrder = 0
end
end
object GroupBox6: TGroupBox
Left = 304
Height = 175
Top = 312
Width = 352
Caption = 'Indice de réfraction du milieu'
ClientHeight = 150
ClientWidth = 348
TabOrder = 8
object StaticText2: TLabel
Left = 8
Height = 20
Top = 15
Width = 91
Caption = 'Pour le rouge:'
ParentColor = False
end
object StaticText3: TLabel
Left = 8
Height = 20
Top = 42
Width = 77
Caption = 'Pour le vert:'
ParentColor = False
end
object StaticText4: TLabel
Left = 8
Height = 20
Top = 71
Width = 81
Caption = 'Pour le bleu:'
ParentColor = False
end
object StaticText7: TLabel
Left = 8
Height = 20
Top = 113
Width = 62
Caption = 'Matériau:'
ParentColor = False
end
object editnrouge: TEdit
AnchorSideLeft.Control = StaticText2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = StaticText2
AnchorSideTop.Side = asrCenter
Left = 109
Height = 28
Top = 11
Width = 81
BorderSpacing.Left = 10
TabOrder = 0
Text = '1,5'
end
object editnvert: TEdit
AnchorSideLeft.Control = StaticText3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = StaticText3
AnchorSideTop.Side = asrCenter
Left = 95
Height = 28
Top = 38
Width = 91
BorderSpacing.Left = 10
TabOrder = 1
Text = '1,6'
end
object editnbleu: TEdit
AnchorSideLeft.Control = StaticText4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = StaticText4
AnchorSideTop.Side = asrCenter
Left = 99
Height = 28
Top = 67
Width = 91
BorderSpacing.Left = 10
TabOrder = 2
Text = '1,7'
end
object combomateriaux: TComboBox
AnchorSideLeft.Control = StaticText7
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = StaticText7
AnchorSideTop.Side = asrCenter
Left = 80
Height = 28
Top = 109
Width = 185
BorderSpacing.Left = 10
ItemHeight = 20
OnChange = combomateriauxChange
Style = csDropDownList
TabOrder = 3
end
end
object radioentrant: TRadioGroup
Left = 304
Height = 137
Top = 168
Width = 352
AutoFill = True
Caption = 'Rayon réfléchi (sens entrant)'
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 = 112
ClientWidth = 348
ItemIndex = 1
Items.Strings = (
'Toujours'
'Jamais'
'Seulement si le réfracté existe'
'Seulement si le réfracté n''existe pas'
)
TabOrder = 9
end
object radiosortant: TRadioGroup
Left = 304
Height = 161
Top = 3
Width = 344
AutoFill = True
Caption = 'Rayon réfléchi (sens sortant)'
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 = 136
ClientWidth = 340
ItemIndex = 1
Items.Strings = (
'Toujours'
'Jamais'
'Seulement si le réfracté existe'
'Seulement si le réfracté n''existe pas'
)
TabOrder = 10
end
end
|