V8.0
This commit is contained in:
f1iwq2
@@ -1,9 +1,9 @@
|
||||
object FormConfigTCO: TFormConfigTCO
|
||||
Left = 311
|
||||
Top = 218
|
||||
Left = 294
|
||||
Top = 201
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Configuration du TCO'
|
||||
ClientHeight = 293
|
||||
ClientHeight = 400
|
||||
ClientWidth = 665
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@@ -13,99 +13,31 @@ object FormConfigTCO: TFormConfigTCO
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnActivate = FormActivate
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label3: TLabel
|
||||
Left = 16
|
||||
Top = 44
|
||||
Width = 156
|
||||
Height = 13
|
||||
Caption = 'Nombre de cellules en horizontal:'
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 16
|
||||
Top = 68
|
||||
Width = 145
|
||||
Height = 13
|
||||
Caption = 'Nombre de cellules en vertical:'
|
||||
end
|
||||
object LabelErreur: TLabel
|
||||
Left = 16
|
||||
Top = 216
|
||||
Width = 3
|
||||
Height = 13
|
||||
end
|
||||
object LabelMaxX: TLabel
|
||||
Left = 235
|
||||
Top = 44
|
||||
Width = 53
|
||||
Height = 13
|
||||
Caption = 'LabelMaxX'
|
||||
end
|
||||
object LabelMaxY: TLabel
|
||||
Left = 235
|
||||
Top = 68
|
||||
Width = 53
|
||||
Height = 13
|
||||
Caption = 'LabelMaxY'
|
||||
end
|
||||
object Ratio: TLabel
|
||||
Left = 16
|
||||
Top = 16
|
||||
Width = 25
|
||||
Height = 13
|
||||
Caption = 'Ratio'
|
||||
end
|
||||
object Label14: TLabel
|
||||
Left = 80
|
||||
Top = 16
|
||||
Width = 17
|
||||
Height = 13
|
||||
Caption = '/10'
|
||||
end
|
||||
object ButtonDessine: TButton
|
||||
Left = 16
|
||||
Top = 256
|
||||
Left = 8
|
||||
Top = 368
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Redessine'
|
||||
TabOrder = 0
|
||||
OnClick = ButtonDessineClick
|
||||
end
|
||||
object CheckDessineGrille: TCheckBox
|
||||
Left = 160
|
||||
Top = 16
|
||||
Width = 97
|
||||
Height = 17
|
||||
Caption = 'dessine grille'
|
||||
TabOrder = 1
|
||||
OnClick = CheckDessineGrilleClick
|
||||
end
|
||||
object EditNbCellX: TEdit
|
||||
Left = 184
|
||||
Top = 40
|
||||
Width = 49
|
||||
Height = 21
|
||||
TabOrder = 2
|
||||
Text = 'EditNbCellX'
|
||||
OnChange = EditNbCellXChange
|
||||
end
|
||||
object EditNbCellY: TEdit
|
||||
Left = 184
|
||||
Top = 64
|
||||
Width = 49
|
||||
Height = 21
|
||||
TabOrder = 3
|
||||
Text = 'EditNbCellY'
|
||||
OnChange = EditNbCellYChange
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 304
|
||||
Top = 8
|
||||
Width = 353
|
||||
Height = 273
|
||||
Height = 265
|
||||
Caption = 'Couleurs '
|
||||
TabOrder = 4
|
||||
TabOrder = 1
|
||||
object Label5: TLabel
|
||||
Left = 21
|
||||
Top = 32
|
||||
@@ -179,8 +111,8 @@ object FormConfigTCO: TFormConfigTCO
|
||||
OnClick = ImagecantonClick
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 48
|
||||
Top = 248
|
||||
Left = 56
|
||||
Top = 240
|
||||
Width = 258
|
||||
Height = 13
|
||||
Caption = 'Cliquez sur l'#39'ic'#244'ne pour changer la couleur de l'#39#233'l'#233'ment'
|
||||
@@ -237,8 +169,8 @@ object FormConfigTCO: TFormConfigTCO
|
||||
OnClick = ImagePiedFeuClick
|
||||
end
|
||||
object CheckCouleur: TCheckBox
|
||||
Left = 56
|
||||
Top = 208
|
||||
Left = 64
|
||||
Top = 216
|
||||
Width = 281
|
||||
Height = 17
|
||||
Caption = 'Couleur du canton activ'#233' par la couleur du train'
|
||||
@@ -247,82 +179,224 @@ object FormConfigTCO: TFormConfigTCO
|
||||
end
|
||||
end
|
||||
object Memo1: TMemo
|
||||
Left = 16
|
||||
Top = 184
|
||||
Width = 273
|
||||
Height = 65
|
||||
Left = 304
|
||||
Top = 344
|
||||
Width = 353
|
||||
Height = 49
|
||||
BevelInner = bvLowered
|
||||
BevelKind = bkFlat
|
||||
BorderStyle = bsNone
|
||||
Lines.Strings = (
|
||||
'Si vous d'#233'finissez un nombre de cellules en '
|
||||
'horizontal ou en vertical plus petit(s) que l'#39'actuel(s), '
|
||||
'alors le TCO sera tronqu'#233', et les '#233'l'#233'ments tronqu'#233's '
|
||||
|
||||
'Si vous d'#233'finissez un nombre de cellules en horizontal ou en ver' +
|
||||
'tical plus '
|
||||
|
||||
'petit(s) que l'#39'actuel(s), alors le TCO sera tronqu'#233', et les '#233'l'#233'm' +
|
||||
'ents tronqu'#233's '
|
||||
'seront perdus '#224' la prochaine sauvegarde.')
|
||||
ReadOnly = True
|
||||
TabOrder = 5
|
||||
end
|
||||
object EditRatio: TEdit
|
||||
Left = 48
|
||||
Top = 13
|
||||
Width = 25
|
||||
Height = 21
|
||||
Hint = 'Rapport X/Y d'#39'affichage des cellules'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 6
|
||||
Text = 'EditRatio'
|
||||
TabOrder = 2
|
||||
end
|
||||
object BitBtnOk: TBitBtn
|
||||
Left = 216
|
||||
Top = 256
|
||||
Left = 208
|
||||
Top = 368
|
||||
Width = 75
|
||||
Height = 25
|
||||
TabOrder = 7
|
||||
TabOrder = 3
|
||||
OnClick = BitBtnOkClick
|
||||
Kind = bkOK
|
||||
end
|
||||
object RadioGroup1: TRadioGroup
|
||||
Left = 16
|
||||
Top = 120
|
||||
Width = 273
|
||||
Left = 304
|
||||
Top = 280
|
||||
Width = 353
|
||||
Height = 57
|
||||
Caption = 'Graphisme'
|
||||
TabOrder = 8
|
||||
TabOrder = 4
|
||||
end
|
||||
object RadioButtonLignes: TRadioButton
|
||||
Left = 40
|
||||
Top = 136
|
||||
Left = 352
|
||||
Top = 296
|
||||
Width = 113
|
||||
Height = 17
|
||||
Caption = 'Lignes bris'#233'es'
|
||||
TabOrder = 9
|
||||
TabOrder = 5
|
||||
OnClick = RadioButtonLignesClick
|
||||
end
|
||||
object RadioButtonCourbes: TRadioButton
|
||||
Left = 40
|
||||
Top = 152
|
||||
Left = 352
|
||||
Top = 312
|
||||
Width = 113
|
||||
Height = 17
|
||||
Caption = 'Lignes courbes'
|
||||
TabOrder = 10
|
||||
TabOrder = 6
|
||||
OnClick = RadioButtonCourbesClick
|
||||
end
|
||||
object CheckBoxCreerEvt: TCheckBox
|
||||
Left = 16
|
||||
Top = 96
|
||||
Width = 281
|
||||
Height = 17
|
||||
Hint = 'Pour simuler l'#39'action d'#39'une locomotive sur un d'#233'tecteur'
|
||||
Caption = 'Cr'#233'er '#233'v'#232'nement d'#233'tecteur sur double clic d'#233'tecteur'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 11
|
||||
OnClick = CheckBoxCreerEvtClick
|
||||
object GroupBox3: TGroupBox
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 289
|
||||
Height = 89
|
||||
Caption = 'Configuration du TCO '
|
||||
TabOrder = 7
|
||||
object Label3: TLabel
|
||||
Left = 16
|
||||
Top = 20
|
||||
Width = 156
|
||||
Height = 13
|
||||
Caption = 'Nombre de cellules en horizontal:'
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 16
|
||||
Top = 44
|
||||
Width = 145
|
||||
Height = 13
|
||||
Caption = 'Nombre de cellules en vertical:'
|
||||
end
|
||||
object labelMaxX: TLabel
|
||||
Left = 224
|
||||
Top = 20
|
||||
Width = 49
|
||||
Height = 13
|
||||
Caption = 'labelMaxX'
|
||||
end
|
||||
object labelMaxY: TLabel
|
||||
Left = 224
|
||||
Top = 44
|
||||
Width = 49
|
||||
Height = 13
|
||||
Caption = 'labelMaxY'
|
||||
end
|
||||
object Label16: TLabel
|
||||
Left = 152
|
||||
Top = 66
|
||||
Width = 75
|
||||
Height = 13
|
||||
Caption = 'Ouvrir sur '#233'cran'
|
||||
end
|
||||
object EditNbCellX: TEdit
|
||||
Left = 176
|
||||
Top = 16
|
||||
Width = 41
|
||||
Height = 21
|
||||
TabOrder = 0
|
||||
Text = 'EditNbCellX'
|
||||
end
|
||||
object EditNbCellY: TEdit
|
||||
Left = 176
|
||||
Top = 40
|
||||
Width = 41
|
||||
Height = 21
|
||||
TabOrder = 1
|
||||
Text = 'EditNbCellY'
|
||||
end
|
||||
object CheckDessineGrille: TCheckBox
|
||||
Left = 16
|
||||
Top = 64
|
||||
Width = 97
|
||||
Height = 17
|
||||
Caption = 'dessine grille'
|
||||
TabOrder = 2
|
||||
OnClick = CheckDessineGrilleClick
|
||||
end
|
||||
object EditEcran: TEdit
|
||||
Left = 240
|
||||
Top = 64
|
||||
Width = 25
|
||||
Height = 21
|
||||
Hint = 'Num'#233'ro de l'#39#233'cran sur lequel le TCO s'#39'ouvrira'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 3
|
||||
Text = 'EditEcran'
|
||||
end
|
||||
end
|
||||
object GroupBox2: TGroupBox
|
||||
Left = 8
|
||||
Top = 104
|
||||
Width = 289
|
||||
Height = 257
|
||||
Caption = 'Configuration de tous les TCO'
|
||||
TabOrder = 8
|
||||
object Ratio: TLabel
|
||||
Left = 8
|
||||
Top = 208
|
||||
Width = 25
|
||||
Height = 13
|
||||
Caption = 'Ratio'
|
||||
end
|
||||
object Label14: TLabel
|
||||
Left = 72
|
||||
Top = 208
|
||||
Width = 17
|
||||
Height = 13
|
||||
Caption = '/10'
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 8
|
||||
Top = 184
|
||||
Width = 86
|
||||
Height = 13
|
||||
Caption = 'Nombre de TCO : '
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 144
|
||||
Top = 184
|
||||
Width = 64
|
||||
Height = 13
|
||||
Caption = '(10 maximum)'
|
||||
end
|
||||
object StringGridTCO: TStringGrid
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 273
|
||||
Height = 161
|
||||
ColCount = 3
|
||||
RowCount = 11
|
||||
TabOrder = 0
|
||||
ColWidths = (
|
||||
64
|
||||
64
|
||||
64)
|
||||
RowHeights = (
|
||||
24
|
||||
24
|
||||
24
|
||||
24
|
||||
24
|
||||
24
|
||||
24
|
||||
24
|
||||
24
|
||||
24
|
||||
24)
|
||||
end
|
||||
object EditRatio: TEdit
|
||||
Left = 40
|
||||
Top = 205
|
||||
Width = 25
|
||||
Height = 21
|
||||
Hint = 'Rapport X/Y d'#39'affichage des cellules'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 1
|
||||
Text = 'EditRatio'
|
||||
end
|
||||
object CheckBoxCreerEvt: TCheckBox
|
||||
Left = 8
|
||||
Top = 232
|
||||
Width = 273
|
||||
Height = 17
|
||||
Hint = 'Pour simuler l'#39'action d'#39'une locomotive sur un d'#233'tecteur'
|
||||
Caption = 'Cr'#233'er '#233'v'#232'nement d'#233'tecteur sur double clic d'#233'tecteur'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 2
|
||||
OnClick = CheckBoxCreerEvtClick
|
||||
end
|
||||
end
|
||||
object ColorDialog1: TColorDialog
|
||||
OnShow = ColorDialog1Show
|
||||
Left = 272
|
||||
Top = 8
|
||||
end
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user