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
|