V4.7
This commit is contained in:
f1iwq2
279
UnitConfigCellTCO.dfm
Normal file
279
UnitConfigCellTCO.dfm
Normal file
@@ -0,0 +1,279 @@
|
||||
object FormConfCellTCO: TFormConfCellTCO
|
||||
Left = 211
|
||||
Top = 228
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'FormConfCellTCO'
|
||||
ClientHeight = 375
|
||||
ClientWidth = 251
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object ButtonOk: TButton
|
||||
Left = 168
|
||||
Top = 344
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Ok'
|
||||
TabOrder = 0
|
||||
OnClick = ButtonOkClick
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 8
|
||||
Top = 240
|
||||
Width = 233
|
||||
Height = 97
|
||||
Caption = 'Texte'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Top = 41
|
||||
Width = 79
|
||||
Height = 16
|
||||
Caption = 'Position du texte:'
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Arial Narrow'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object ComboRepr: TComboBox
|
||||
Left = 8
|
||||
Top = 60
|
||||
Width = 89
|
||||
Height = 24
|
||||
ItemHeight = 16
|
||||
TabOrder = 0
|
||||
OnChange = ComboReprChange
|
||||
Items.Strings = (
|
||||
'Sans'
|
||||
'Centrale'
|
||||
'Haut'
|
||||
'Bas')
|
||||
end
|
||||
object ButtonFonte: TButton
|
||||
Left = 112
|
||||
Top = 56
|
||||
Width = 81
|
||||
Height = 25
|
||||
Caption = 'Fonte'
|
||||
TabOrder = 1
|
||||
OnClick = ButtonFonteClick
|
||||
end
|
||||
object EditTexte: TEdit
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 209
|
||||
Height = 24
|
||||
TabOrder = 2
|
||||
OnChange = EditTexteChange
|
||||
end
|
||||
end
|
||||
object GroupBox2: TGroupBox
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 233
|
||||
Height = 225
|
||||
Caption = 'El'#233'ment'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
object Label15: TLabel
|
||||
Left = 8
|
||||
Top = 22
|
||||
Width = 93
|
||||
Height = 16
|
||||
Caption = 'Image de l'#39#233'l'#233'ment: '
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Arial Narrow'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object ImagePalette: TImage
|
||||
Left = 112
|
||||
Top = 24
|
||||
Width = 41
|
||||
Height = 41
|
||||
Hint = 'Voie pouvant porter un d'#233'tecteur'
|
||||
DragMode = dmAutomatic
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
Stretch = True
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 168
|
||||
Top = 22
|
||||
Width = 48
|
||||
Height = 16
|
||||
Caption = 'Adresse : '
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Arial Narrow'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object EditTypeImage: TEdit
|
||||
Left = 40
|
||||
Top = 48
|
||||
Width = 33
|
||||
Height = 21
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -9
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
OnKeyPress = EditTypeImageKeyPress
|
||||
end
|
||||
object GroupBox3: TGroupBox
|
||||
Left = 8
|
||||
Top = 80
|
||||
Width = 209
|
||||
Height = 73
|
||||
Caption = 'Orientation du signal'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
object RadioButtonHG: TRadioButton
|
||||
Left = 16
|
||||
Top = 16
|
||||
Width = 169
|
||||
Height = 17
|
||||
Caption = 'Horizontal gauche'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
OnClick = RadioButtonHGClick
|
||||
end
|
||||
object RadioButtonV: TRadioButton
|
||||
Left = 16
|
||||
Top = 48
|
||||
Width = 169
|
||||
Height = 17
|
||||
Caption = 'Vertical'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
OnClick = RadioButtonVClick
|
||||
end
|
||||
object RadioButtonHD: TRadioButton
|
||||
Left = 16
|
||||
Top = 32
|
||||
Width = 169
|
||||
Height = 17
|
||||
Caption = 'Horizontal droit'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
OnClick = RadioButtonHDClick
|
||||
end
|
||||
end
|
||||
object GroupBox4: TGroupBox
|
||||
Left = 8
|
||||
Top = 160
|
||||
Width = 209
|
||||
Height = 57
|
||||
Caption = 'Implantation du signal'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
object RadioButtonG: TRadioButton
|
||||
Left = 16
|
||||
Top = 16
|
||||
Width = 113
|
||||
Height = 17
|
||||
Caption = #224' gauche de la voie'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
OnClick = RadioButtonGClick
|
||||
end
|
||||
object RadioButtonD: TRadioButton
|
||||
Left = 16
|
||||
Top = 32
|
||||
Width = 113
|
||||
Height = 17
|
||||
Caption = #224' droite de la voie'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
OnClick = RadioButtonDClick
|
||||
end
|
||||
end
|
||||
object EditAdrElement: TEdit
|
||||
Left = 176
|
||||
Top = 48
|
||||
Width = 33
|
||||
Height = 24
|
||||
TabOrder = 3
|
||||
OnKeyPress = EditAdrElementKeyPress
|
||||
end
|
||||
end
|
||||
object CheckPinv: TCheckBox
|
||||
Left = 8
|
||||
Top = 352
|
||||
Width = 129
|
||||
Height = 17
|
||||
Hint = 'Cocher si l'#39'aiguillage est repr'#233'sent'#233' invers'#233
|
||||
Caption = 'aiguillage invers'#233
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -9
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 3
|
||||
OnClick = CheckPinvClick
|
||||
end
|
||||
end
|
||||
Reference in New Issue
Block a user