V8.0
This commit is contained in:
f1iwq2
@@ -1,10 +1,10 @@
|
||||
object FormConfCellTCO: TFormConfCellTCO
|
||||
Left = 467
|
||||
Top = 112
|
||||
Left = 477
|
||||
Top = 168
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'FormConfCellTCO'
|
||||
ClientHeight = 402
|
||||
ClientWidth = 251
|
||||
ClientHeight = 430
|
||||
ClientWidth = 282
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@@ -15,18 +15,19 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
OldCreateOrder = False
|
||||
OnActivate = FormActivate
|
||||
OnCreate = FormCreate
|
||||
OnHide = FormHide
|
||||
OnKeyPress = FormKeyPress
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 8
|
||||
Top = 264
|
||||
Width = 233
|
||||
Top = 304
|
||||
Width = 265
|
||||
Height = 97
|
||||
Caption = 'Texte'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Height = -15
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
@@ -34,12 +35,12 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Top = 41
|
||||
Width = 79
|
||||
Height = 16
|
||||
Width = 93
|
||||
Height = 20
|
||||
Caption = 'Position du texte:'
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Height = -15
|
||||
Font.Name = 'Arial Narrow'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
@@ -57,10 +58,11 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
'Sans'
|
||||
'Centrale'
|
||||
'Haut'
|
||||
'Bas')
|
||||
'Bas'
|
||||
'R'#233'parti')
|
||||
end
|
||||
object ButtonFonte: TButton
|
||||
Left = 112
|
||||
Left = 160
|
||||
Top = 56
|
||||
Width = 81
|
||||
Height = 25
|
||||
@@ -71,7 +73,7 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
object EditTexteCCTCO: TEdit
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 209
|
||||
Width = 241
|
||||
Height = 24
|
||||
TabOrder = 2
|
||||
OnChange = EditTexteCCTCOChange
|
||||
@@ -80,12 +82,12 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
object GroupBox2: TGroupBox
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 233
|
||||
Height = 257
|
||||
Width = 265
|
||||
Height = 297
|
||||
Caption = 'El'#233'ment'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Height = -15
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
@@ -93,39 +95,39 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
object Label15: TLabel
|
||||
Left = 8
|
||||
Top = 22
|
||||
Width = 93
|
||||
Height = 16
|
||||
Width = 111
|
||||
Height = 20
|
||||
Caption = 'Image de l'#39#233'l'#233'ment: '
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Height = -15
|
||||
Font.Name = 'Arial Narrow'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 168
|
||||
Left = 192
|
||||
Top = 14
|
||||
Width = 48
|
||||
Height = 16
|
||||
Width = 53
|
||||
Height = 20
|
||||
Caption = 'Adresse : '
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Height = -15
|
||||
Font.Name = 'Arial Narrow'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object ImagePaletteCC: TImage
|
||||
Left = 112
|
||||
Left = 128
|
||||
Top = 24
|
||||
Width = 49
|
||||
Height = 49
|
||||
Width = 41
|
||||
Height = 41
|
||||
OnMouseDown = ImagePaletteCCMouseDown
|
||||
end
|
||||
object EditTypeImage: TEdit
|
||||
Left = 32
|
||||
Top = 40
|
||||
Left = 40
|
||||
Top = 48
|
||||
Width = 33
|
||||
Height = 21
|
||||
Hint = 'Num'#233'ro d'#39'image de l'#39#233'l'#233'ment'
|
||||
@@ -140,15 +142,15 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
TabOrder = 0
|
||||
OnChange = EditTypeImageChange
|
||||
end
|
||||
object GroupBox3: TGroupBox
|
||||
object GroupBoxOrientation: TGroupBox
|
||||
Left = 8
|
||||
Top = 112
|
||||
Width = 209
|
||||
Top = 152
|
||||
Width = 249
|
||||
Height = 73
|
||||
Caption = 'Orientation du signal'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Height = -12
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
@@ -161,7 +163,7 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
Caption = 'Horizontal gauche'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Height = -12
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
@@ -176,7 +178,7 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
Caption = 'Vertical'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Height = -12
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
@@ -191,7 +193,7 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
Caption = 'Horizontal droit'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Height = -12
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
@@ -199,15 +201,15 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
OnClick = RadioButtonHDClick
|
||||
end
|
||||
end
|
||||
object GroupBox4: TGroupBox
|
||||
object GroupBoxImplantation: TGroupBox
|
||||
Left = 8
|
||||
Top = 192
|
||||
Width = 209
|
||||
Top = 232
|
||||
Width = 249
|
||||
Height = 57
|
||||
Caption = 'Implantation du signal'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Height = -12
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
@@ -220,7 +222,7 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
Caption = #224' gauche de la voie'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Height = -12
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
@@ -235,7 +237,7 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
Caption = #224' droite de la voie'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Height = -12
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
@@ -244,7 +246,7 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
end
|
||||
end
|
||||
object EditAdrElement: TEdit
|
||||
Left = 176
|
||||
Left = 200
|
||||
Top = 40
|
||||
Width = 33
|
||||
Height = 24
|
||||
@@ -255,9 +257,9 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
OnChange = EditAdrElementChange
|
||||
end
|
||||
object ButtonFond: TButton
|
||||
Left = 16
|
||||
Top = 72
|
||||
Width = 97
|
||||
Left = 8
|
||||
Top = 104
|
||||
Width = 89
|
||||
Height = 33
|
||||
Caption = 'Couleur de fond de la cellule'
|
||||
Font.Charset = ANSI_CHARSET
|
||||
@@ -270,10 +272,76 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
WordWrap = True
|
||||
OnClick = ButtonFondClick
|
||||
end
|
||||
object RadioGroupSel: TRadioGroup
|
||||
Left = 104
|
||||
Top = 88
|
||||
Width = 153
|
||||
Height = 57
|
||||
Caption = 'S'#233'lection clic ic'#244'ne ci-dessus'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
Items.Strings = (
|
||||
'Epaisseurs de voie'
|
||||
'Pont')
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
end
|
||||
object GroupBoxAction: TGroupBox
|
||||
Left = 56
|
||||
Top = 176
|
||||
Width = 249
|
||||
Height = 105
|
||||
Caption = 'Action'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 6
|
||||
object RadioButtonAffTCO: TRadioButton
|
||||
Left = 8
|
||||
Top = 24
|
||||
Width = 97
|
||||
Height = 17
|
||||
Caption = 'Afficher TCO n'#176
|
||||
TabOrder = 0
|
||||
OnClick = RadioButtonAffTCOClick
|
||||
end
|
||||
object EditNumTCO: TEdit
|
||||
Left = 104
|
||||
Top = 20
|
||||
Width = 33
|
||||
Height = 21
|
||||
TabOrder = 1
|
||||
OnChange = EditNumTCOChange
|
||||
end
|
||||
object RadioButtonSC: TRadioButton
|
||||
Left = 8
|
||||
Top = 40
|
||||
Width = 169
|
||||
Height = 17
|
||||
Caption = 'Afficher Signaux complexes'
|
||||
TabOrder = 2
|
||||
OnClick = RadioButtonSCClick
|
||||
end
|
||||
object RadioButtonCDM: TRadioButton
|
||||
Left = 8
|
||||
Top = 56
|
||||
Width = 113
|
||||
Height = 17
|
||||
Caption = 'Afficher CDM rail'
|
||||
TabOrder = 3
|
||||
OnClick = RadioButtonCDMClick
|
||||
end
|
||||
end
|
||||
end
|
||||
object CheckPinv: TCheckBox
|
||||
Left = 8
|
||||
Top = 368
|
||||
Top = 408
|
||||
Width = 129
|
||||
Height = 17
|
||||
Hint = 'Cocher si l'#39'aiguillage est repr'#233'sent'#233' invers'#233
|
||||
@@ -290,8 +358,8 @@ object FormConfCellTCO: TFormConfCellTCO
|
||||
OnClick = CheckPinvClick
|
||||
end
|
||||
object BitBtnOk: TBitBtn
|
||||
Left = 152
|
||||
Top = 368
|
||||
Left = 168
|
||||
Top = 400
|
||||
Width = 75
|
||||
Height = 25
|
||||
TabOrder = 3
|
||||
|
||||
Reference in New Issue
Block a user