V9.0

2024-07-21 10:25:58 +02:00
parent f2cbfc2936
commit d2909cc5eb
43 changed files with 9783 additions and 3658 deletions
--- a/UnitConfigCellTCO.dfm
+++ b/UnitConfigCellTCO.dfm
@@ -1,6 +1,6 @@
 object FormConfCellTCO: TFormConfCellTCO
-  Left = 570
-  Top = 171
+  Left = 572
+  Top = 151
  BorderStyle = bsDialog
  Caption = 'FormConfCellTCO'
  ClientHeight = 473
@@ -19,6 +19,152 @@ object FormConfCellTCO: TFormConfCellTCO
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
+  object ImageGD: TImage
+    Left = 96
+    Top = 408
+    Width = 57
+    Height = 57
+    Picture.Data = {
+      07544269746D6170F6070000424DF60700000000000076000000280000003C00
+      00003C000000010004000000000080070000C20E0000C20E0000100000000000
+      0000000000000000800000800000008080008000000080008000808000008080
+      8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
+      FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFF0000000FFFFFFFFFFFFFFFFFFFF0000000FFFFFFFFFFFFF
+      0000FFFFFFFFFFFF00000000FFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF
+      0000FFFFFFFFFFF000000000FFFFFFFFFFFFFFFFFFFF000000000FFFFFFFFFFF
+      0000FFFFFFFFFF0000000000FFFFFFFFFFFFFFFFFFFF0000000000FFFFFFFFFF
+      0000FFFFFFFFF000000000000000000000000000000000000000000FFFFFFFFF
+      0000FFFFFFFF00000000000000000000000000000000000000000000FFFFFFFF
+      0000FFFFFFF0000000000000000000000000000000000000000000000FFFFFFF
+      0000FFFFFFF0000000000000000000000000000000000000000000000FFFFFFF
+      0000FFFFFFFF00000000000000000000000000000000000000000000FFFFFFFF
+      0000FFFFFFFFF000000000000000000000000000000000000000000FFFFFFFFF
+      0000FFFFFFFFFF0000000000FFFFFFFFFFFFFFFFFFFF0000000000FFFFFFFFFF
+      0000FFFFFFFFFFF000000000FFFFFFFFFFFFFFFFFFFF000000000FFFFFFFFFFF
+      0000FFFFFFFFFFFF00000000FFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFF
+      0000FFFFFFFFFFFFF0000000FFFFFFFFFFFFFFFFFFFF0000000FFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000}
+    Visible = False
+  end
+  object ImageHB: TImage
+    Left = 152
+    Top = 408
+    Width = 57
+    Height = 57
+    Picture.Data = {
+      07544269746D6170F6070000424DF60700000000000076000000280000003C00
+      00003C000000010004000000000080070000C20E0000C20E0000100000000000
+      0000000000000000800000800000008080008000000080008000808000008080
+      8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
+      FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFF0000000000FFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFF00000000000000FFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFF0000000000000000FFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFF00000000000000000000FFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFF0000000000000000000000FFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFF00000000000000000000000000FFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFF00000000000000000000000000FFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFF0000000000000000000000FFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFF00000000000000000000FFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFF0000000000000000FFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFF00000000000000FFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFF0000000000FFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      0000}
+    Visible = False
+  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 304
@@ -92,6 +238,8 @@ object FormConfCellTCO: TFormConfCellTCO
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
+    ParentShowHint = False
+    ShowHint = False
    TabOrder = 1
    object Label15: TLabel
      Left = 8
@@ -108,7 +256,7 @@ object FormConfCellTCO: TFormConfCellTCO
    end
    object Label2: TLabel
      Left = 192
-      Top = 14
+      Top = 6
      Width = 53
      Height = 20
      Caption = 'Adresse : '
@@ -121,7 +269,7 @@ object FormConfCellTCO: TFormConfCellTCO
    end
    object ImagePaletteCC: TImage
      Left = 128
-      Top = 24
+      Top = 16
      Width = 41
      Height = 41
      OnMouseDown = ImagePaletteCCMouseDown
@@ -144,8 +292,8 @@ object FormConfCellTCO: TFormConfCellTCO
      OnChange = EditTypeImageChange
    end
    object GroupBoxOrientation: TGroupBox
-      Left = 0
-      Top = 192
+      Left = 8
+      Top = 152
      Width = 273
      Height = 57
      Caption = 'Orientation du signal'
@@ -257,7 +405,7 @@ object FormConfCellTCO: TFormConfCellTCO
    end
    object EditAdrElement: TEdit
      Left = 200
-      Top = 40
+      Top = 38
      Width = 33
      Height = 24
      Hint = 'Adresse DCC de l'#39#233'l'#233'ment'
@@ -268,7 +416,7 @@ object FormConfCellTCO: TFormConfCellTCO
    end
    object ButtonFond: TButton
      Left = 8
-      Top = 96
+      Top = 88
      Width = 97
      Height = 33
      Caption = 'Couleur de fond de la cellule'
@@ -284,7 +432,7 @@ object FormConfCellTCO: TFormConfCellTCO
    end
    object RadioGroupSel: TRadioGroup
      Left = 128
-      Top = 80
+      Top = 72
      Width = 153
      Height = 57
      Caption = 'S'#233'lection clic ic'#244'ne ci-dessus'
@@ -299,6 +447,24 @@ object FormConfCellTCO: TFormConfCellTCO
      ParentFont = False
      TabOrder = 5
    end
+    object CheckBoxEncadre: TCheckBox
+      Left = 16
+      Top = 134
+      Width = 161
+      Height = 17
+      Hint = 'Ajoute un cadre autour des textes'
+      Caption = 'Cellule(s) encadr'#233'es sur texte'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+      ParentShowHint = False
+      ShowHint = True
+      TabOrder = 6
+      OnClick = CheckBoxEncadreClick
+    end
  end
  object CheckPinv: TCheckBox
    Left = 8
@@ -393,35 +559,84 @@ object FormConfCellTCO: TFormConfCellTCO
  end
  object GroupBoxCanton: TGroupBox
    Left = 16
-    Top = 152
+    Top = 160
    Width = 281
    Height = 129
    Caption = 'Canton'
    TabOrder = 6
    object LabelNumC: TLabel
-      Left = 19
-      Top = 17
+      Left = 11
+      Top = 20
      Width = 97
      Height = 13
      Caption = 'Num'#233'ro du canton : '
    end
-    object RadioGroupAlign: TRadioGroup
-      Left = 16
-      Top = 40
-      Width = 257
-      Height = 57
-      Caption = 'Placement des trains'
-      Items.Strings = (
-        'Centr'#233
-        'Align'#233' '#224' gauche'
-        'Align'#233' '#224' droite')
+    object LabelInfo: TLabel
+      Left = 160
+      Top = 20
+      Width = 10
+      Height = 13
+      Caption = 'xx'
+    end
+    object ImageSens: TImage
+      Left = 232
+      Top = 80
+      Width = 33
+      Height = 33
+      Stretch = True
+    end
+    object Label4: TLabel
+      Left = 8
+      Top = 52
+      Width = 249
+      Height = 13
+      Caption = 'Sens impos'#233' de circulation dans le canton :'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object EditCanton: TEdit
+      Left = 112
+      Top = 16
+      Width = 33
+      Height = 21
      TabOrder = 0
-      OnClick = RadioGroupAlignClick
+      OnChange = EditCantonChange
+      OnExit = EditCantonExit
+    end
+    object RadioButtonGH: TRadioButton
+      Left = 48
+      Top = 72
+      Width = 177
+      Height = 17
+      Caption = 'Sens gauche/haut uniquement'
+      TabOrder = 1
+      OnClick = RadioButtonGHClick
+    end
+    object RadioButtonDB: TRadioButton
+      Left = 48
+      Top = 88
+      Width = 177
+      Height = 17
+      Caption = 'Sens droit/bas uniquement'
+      TabOrder = 2
+      OnClick = RadioButtonDBClick
+    end
+    object RadioButtonDS: TRadioButton
+      Left = 48
+      Top = 104
+      Width = 113
+      Height = 17
+      Caption = 'Double sens'
+      TabOrder = 3
+      OnClick = RadioButtonDSClick
    end
  end
  object ImageListIcones: TImageList
    Left = 160
-    Top = 8
    Bitmap = {
      494C010118001D00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000008000000001002000000000000080