V6.0

UnitAnalyseSegCDM.dfm

@@ -1,8 +1,6 @@
 object FormAnalyseCDM: TFormAnalyseCDM
-  Left = 216
-  Top = 23
-  Hint = '(aiguillages uniquement)'
-  Anchors = [akLeft, akTop, akRight, akBottom]
+  Left = 154
+  Top = 36
   AutoScroll = False
   Caption = 'FormAnalyseCDM'
   ClientHeight = 660
@@ -14,7 +12,6 @@ object FormAnalyseCDM: TFormAnalyseCDM
   Font.Name = 'MS Sans Serif'
   Font.Style = []
   OldCreateOrder = False
-  ShowHint = True
   OnCreate = FormCreate
   OnResize = FormResize
   DesignSize = (
@@ -26,7 +23,7 @@ object FormAnalyseCDM: TFormAnalyseCDM
     Left = 8
     Top = 16
     Width = 977
-    Height = 553
+    Height = 537
     HorzScrollBar.Tracking = True
     Anchors = [akLeft, akTop, akRight, akBottom]
     AutoScroll = False
@@ -42,15 +39,15 @@ object FormAnalyseCDM: TFormAnalyseCDM
   end
   object GroupBox1: TGroupBox
     Left = 16
-    Top = 576
-    Width = 457
-    Height = 73
+    Top = 560
+    Width = 257
+    Height = 89
     Anchors = [akLeft, akBottom]
     Caption = 'Affichages '
     TabOrder = 1
     object Label1: TLabel
-      Left = 216
-      Top = 16
+      Left = 24
+      Top = 56
       Width = 81
       Height = 13
       Caption = 'Afficher le port n'#176
@@ -60,7 +57,10 @@ object FormAnalyseCDM: TFormAnalyseCDM
       Top = 16
       Width = 97
       Height = 17
+      Hint = 'Points de connexions des ports des d'#233'tecteurs et des actionneurs'
       Caption = 'Connexions'
+      ParentShowHint = False
+      ShowHint = True
       TabOrder = 0
       OnClick = CheckConnexionsClick
     end
@@ -69,7 +69,10 @@ object FormAnalyseCDM: TFormAnalyseCDM
       Top = 32
       Width = 97
       Height = 17
+      Hint = 'Adresses des d'#233'tecteurs et actionneurs'
       Caption = 'Adresses'
+      ParentShowHint = False
+      ShowHint = True
       TabOrder = 1
       OnClick = CheckAdressesClick
     end
@@ -77,7 +80,7 @@ object FormAnalyseCDM: TFormAnalyseCDM
       Left = 112
       Top = 16
       Width = 81
-      Height = 17
+      Height = 25
       Caption = 'segments'
       TabOrder = 2
       OnClick = CheckSegmentsClick
@@ -87,20 +90,23 @@ object FormAnalyseCDM: TFormAnalyseCDM
       Top = 32
       Width = 121
       Height = 17
+      Hint = 'Affiche le num'#233'ro de segment et le port de CDM'
       Caption = 'Ports'
+      ParentShowHint = False
+      ShowHint = True
       TabOrder = 3
-      OnClick = CheckSegmentsClick
+      OnClick = CheckPortsClick
     end
     object EditPort: TEdit
-      Left = 304
-      Top = 16
+      Left = 112
+      Top = 56
       Width = 57
       Height = 21
       TabOrder = 4
     end
     object ButtonAffPort: TButton
-      Left = 368
-      Top = 16
+      Left = 176
+      Top = 56
       Width = 73
       Height = 25
       Caption = 'Afficher le port'
@@ -121,4 +127,89 @@ object FormAnalyseCDM: TFormAnalyseCDM
     TabOrder = 2
     OnChange = TrackBar1Change
   end
+  object GroupBox2: TGroupBox
+    Left = 280
+    Top = 560
+    Width = 145
+    Height = 89
+    Anchors = [akLeft, akBottom]
+    Caption = 'Strat'#233'gies d'#39'importation'
+    TabOrder = 3
+    object CheckDebugAnalyse: TCheckBox
+      Left = 16
+      Top = 24
+      Width = 121
+      Height = 17
+      Caption = 'Debug importation'
+      TabOrder = 0
+      OnClick = CheckDebugAnalyseClick
+    end
+    object CheckDebugBranches: TCheckBox
+      Left = 16
+      Top = 48
+      Width = 97
+      Height = 17
+      Caption = 'Debug branches'
+      TabOrder = 1
+      OnClick = CheckDebugBranchesClick
+    end
+  end
+  object GroupBox3: TGroupBox
+    Left = 432
+    Top = 560
+    Width = 537
+    Height = 89
+    Anchors = [akLeft, akBottom]
+    Caption = 'Param'#232'tres'
+    TabOrder = 4
+    DesignSize = (
+      537
+      89)
+    object ButtonImporter: TButton
+      Left = 382
+      Top = 40
+      Width = 75
+      Height = 25
+      Hint = 'Lancement de l'#39'importation'
+      Anchors = [akLeft, akBottom]
+      Caption = 'Importer'
+      ParentShowHint = False
+      ShowHint = True
+      TabOrder = 0
+      OnClick = ButtonImporterClick
+    end
+    object RadioGroup1: TRadioGroup
+      Left = 8
+      Top = 24
+      Width = 305
+      Height = 57
+      Caption = 'Adressage des croisements'
+      TabOrder = 1
+    end
+    object RadioCroisSuite: TRadioButton
+      Left = 24
+      Top = 40
+      Width = 217
+      Height = 17
+      Caption = 'Croisements '#224' la suite des aiguillages'
+      TabOrder = 2
+    end
+    object RadioCroisBase: TRadioButton
+      Left = 24
+      Top = 56
+      Width = 217
+      Height = 17
+      Caption = 'Croisements '#224' partir de l'#39'adresse de base'
+      TabOrder = 3
+    end
+    object EditBaseCrois: TEdit
+      Left = 240
+      Top = 54
+      Width = 41
+      Height = 21
+      TabOrder = 4
+      Text = '100'
+      OnChange = EditBaseCroisChange
+    end
+  end
 end