723 lines
17 KiB
Plaintext
723 lines
17 KiB
Plaintext
object FormDebug: TFormDebug
|
|
Left = 321
|
|
Top = 0
|
|
Width = 864
|
|
Height = 718
|
|
VertScrollBar.Increment = 67
|
|
VertScrollBar.Position = 98
|
|
VertScrollBar.Tracking = True
|
|
Caption = 'Fen'#234'tre de d'#233'bug'
|
|
Color = clWindow
|
|
TransparentColorValue = clTeal
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWhite
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
KeyPreview = True
|
|
OldCreateOrder = False
|
|
Position = poMainFormCenter
|
|
OnActivate = FormActivate
|
|
OnCreate = FormCreate
|
|
OnKeyPress = FormKeyPress
|
|
DesignSize = (
|
|
839
|
|
687)
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label1: TLabel
|
|
Left = 595
|
|
Top = -94
|
|
Width = 108
|
|
Height = 13
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Niveau du Debug (0-3)'
|
|
Color = clWhite
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 443
|
|
Top = -96
|
|
Width = 131
|
|
Height = 18
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Fen'#234'tre de d'#233'bug'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold, fsItalic]
|
|
ParentFont = False
|
|
end
|
|
object EditNivDebug: TEdit
|
|
Left = 754
|
|
Top = -96
|
|
Width = 49
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
Text = 'EditNivDebug'
|
|
OnKeyPress = EditNivDebugKeyPress
|
|
end
|
|
object ButtonEcrLog: TButton
|
|
Left = 442
|
|
Top = 230
|
|
Width = 97
|
|
Height = 29
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Sauvegarder le log'
|
|
TabOrder = 1
|
|
OnClick = ButtonEcrLogClick
|
|
end
|
|
object ButtonRazTampon: TButton
|
|
Left = 442
|
|
Top = 262
|
|
Width = 97
|
|
Height = 33
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Raz Tampon Ev'#232'nements ---->'
|
|
TabOrder = 2
|
|
WordWrap = True
|
|
OnClick = ButtonRazTamponClick
|
|
end
|
|
object ButtonCherche: TButton
|
|
Left = 442
|
|
Top = 198
|
|
Width = 97
|
|
Height = 25
|
|
Hint = 'Cherche la cha'#238'ne "erreur"'
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Chercher erreurs'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 3
|
|
OnClick = ButtonChercheClick
|
|
end
|
|
object ButtonAffEvtChrono: TButton
|
|
Left = 442
|
|
Top = 158
|
|
Width = 97
|
|
Height = 33
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Affiche Evts d'#233'tecteurs et aig'
|
|
TabOrder = 4
|
|
WordWrap = True
|
|
OnClick = ButtonAffEvtChronoClick
|
|
end
|
|
object ButtonCop: TButton
|
|
Left = 442
|
|
Top = 110
|
|
Width = 97
|
|
Height = 41
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Copie fen'#234'te principale dans debug'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWhite
|
|
Font.Height = -9
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 5
|
|
WordWrap = True
|
|
OnClick = ButtonCopClick
|
|
end
|
|
object ButtonRazLog: TButton
|
|
Left = 442
|
|
Top = 302
|
|
Width = 97
|
|
Height = 33
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Raz Tampon Log <-----'
|
|
TabOrder = 6
|
|
WordWrap = True
|
|
OnClick = ButtonRazLogClick
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 448
|
|
Top = 502
|
|
Width = 369
|
|
Height = 185
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Fonctions primitives'
|
|
Color = cl3DLight
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clNavy
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 7
|
|
object GroupBox3: TGroupBox
|
|
Left = 8
|
|
Top = 16
|
|
Width = 353
|
|
Height = 73
|
|
Caption = 'Signal'
|
|
TabOrder = 0
|
|
object Label4: TLabel
|
|
Left = 313
|
|
Top = 10
|
|
Width = 32
|
|
Height = 13
|
|
Caption = 'Signal:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object ButtonSigSuiv: TButton
|
|
Left = 8
|
|
Top = 16
|
|
Width = 49
|
|
Height = 49
|
|
Hint = 'Etat du signal suivant'
|
|
Caption = 'Etat signal suivant'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
WordWrap = True
|
|
OnClick = ButtonSigSuivClick
|
|
end
|
|
object ButtonCanSuivSig: TButton
|
|
Left = 56
|
|
Top = 16
|
|
Width = 65
|
|
Height = 49
|
|
Hint = 'Renvoie l'#39'occupation du canton suivant le signal'
|
|
Caption = 'Etat canton suivant signal'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
WordWrap = True
|
|
OnClick = ButtonCanSuivSigClick
|
|
end
|
|
object EditSigSuiv: TEdit
|
|
Left = 312
|
|
Top = 32
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'Indiquer l'#39'adresse du signal '
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 2
|
|
end
|
|
object ButtonCP: TButton
|
|
Left = 120
|
|
Top = 16
|
|
Width = 81
|
|
Height = 49
|
|
Caption = 'Etat 3 cantons pr'#233'c'#233'dents signal'
|
|
TabOrder = 3
|
|
WordWrap = True
|
|
OnClick = ButtonCPClick
|
|
end
|
|
object Button2: TButton
|
|
Left = 200
|
|
Top = 16
|
|
Width = 57
|
|
Height = 49
|
|
Caption = 'Cond Carr'#233' aiguillages'
|
|
TabOrder = 4
|
|
WordWrap = True
|
|
OnClick = Button2Click
|
|
end
|
|
object ButtonReserve: TButton
|
|
Left = 256
|
|
Top = 16
|
|
Width = 49
|
|
Height = 49
|
|
Caption = 'R'#233'serve canton signal'
|
|
TabOrder = 5
|
|
WordWrap = True
|
|
OnClick = ButtonReserveClick
|
|
end
|
|
end
|
|
object GroupBox4: TGroupBox
|
|
Left = 8
|
|
Top = 96
|
|
Width = 353
|
|
Height = 81
|
|
Caption = 'D'#233'tecteur/'#233'l'#233'ment suivant'
|
|
TabOrder = 1
|
|
object ButtonDetSuiv: TButton
|
|
Left = 16
|
|
Top = 16
|
|
Width = 185
|
|
Height = 25
|
|
Hint =
|
|
'Renvoie le d'#233'tecteur suivant aux deux '#233'l'#233'ments (d'#233'tecteurs ou ai' +
|
|
'guillages) '
|
|
Caption = 'D'#233'tecteur suivant aux '#233'l'#233'ments'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
OnClick = ButtonDetSuivClick
|
|
end
|
|
object EditPrec: TEdit
|
|
Left = 208
|
|
Top = 34
|
|
Width = 49
|
|
Height = 21
|
|
Hint = 'Element pr'#233'c'#233'dent'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
end
|
|
object EditActuel: TEdit
|
|
Left = 264
|
|
Top = 34
|
|
Width = 49
|
|
Height = 21
|
|
Hint = 'Element actuel'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 2
|
|
end
|
|
object ButtonElSuiv: TButton
|
|
Left = 16
|
|
Top = 48
|
|
Width = 185
|
|
Height = 25
|
|
Hint =
|
|
'Renvoie l'#39#233'l'#233'ment suivant aux deux '#233'l'#233'ments contigus (d'#233'tecteurs' +
|
|
' ou aiguillages) '
|
|
Caption = 'Element suivant aux '#233'l'#233'ments'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 3
|
|
OnClick = ButtonElSuivClick
|
|
end
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 440
|
|
Top = -78
|
|
Width = 401
|
|
Height = 149
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'S'#233'lections d'#39'affichage'
|
|
Color = cl3DLight
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 8
|
|
object CheckAffSig: TCheckBox
|
|
Left = 8
|
|
Top = 16
|
|
Width = 161
|
|
Height = 17
|
|
Caption = 'Fonctionnement des signaux'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
OnClick = CheckAffSigClick
|
|
end
|
|
object CheckBoxEvtDetAig: TCheckBox
|
|
Left = 8
|
|
Top = 32
|
|
Width = 289
|
|
Height = 17
|
|
Caption = 'Ev'#232'nements d'#233'tecteurs, aiguillages et actionneurs'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnClick = CheckBoxEvtDetAigClick
|
|
end
|
|
object CheckBoxTraceLIste: TCheckBox
|
|
Left = 8
|
|
Top = 128
|
|
Width = 185
|
|
Height = 17
|
|
Caption = 'Evaluations des routes des trains'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
OnClick = CheckBoxTraceLIsteClick
|
|
end
|
|
object CheckTrame: TCheckBox
|
|
Left = 8
|
|
Top = 96
|
|
Width = 233
|
|
Height = 17
|
|
Hint =
|
|
'Affiche les trames de la centrale XpressNet ou les trames CDM-Ra' +
|
|
'il (COM_IP)'
|
|
Caption = 'Trames '#233'chang'#233'es avec l'#39'interface ou CDM'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 3
|
|
OnClick = CheckTrameClick
|
|
end
|
|
object CheckBoxAffFD: TCheckBox
|
|
Left = 8
|
|
Top = 112
|
|
Width = 193
|
|
Height = 17
|
|
Caption = 'Fronts descendants des d'#233'tecteurs'
|
|
Color = cl3DLight
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 4
|
|
OnClick = CheckBoxAffFDClick
|
|
end
|
|
object CheckBoxAffDebDecSig: TCheckBox
|
|
Left = 8
|
|
Top = 80
|
|
Width = 193
|
|
Height = 17
|
|
Caption = 'Pilotage des d'#233'codeurs de signaux'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 5
|
|
OnClick = CheckBoxAffDebDecSigClick
|
|
end
|
|
object EditDebugSignal: TEdit
|
|
Left = 168
|
|
Top = 12
|
|
Width = 33
|
|
Height = 21
|
|
Hint =
|
|
'Adresse du signal seul '#224' surveiller ou si 0 surveille tous les s' +
|
|
'ignaux'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 6
|
|
OnChange = EditDebugSignalChange
|
|
end
|
|
object CheckBoxTiers: TCheckBox
|
|
Left = 8
|
|
Top = 64
|
|
Width = 273
|
|
Height = 17
|
|
Hint =
|
|
'N'#233'cessite d'#39'activer les services "signaux" et "position des trai' +
|
|
'ns" dans la configuration g'#233'n'#233'rale'
|
|
Caption = 'Ev'#232'vements tiers (signaux et position des trains)'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 7
|
|
OnClick = CheckBoxTiersClick
|
|
end
|
|
object CheckBox1: TCheckBox
|
|
Left = 8
|
|
Top = 48
|
|
Width = 177
|
|
Height = 17
|
|
Caption = 'Duplication Fen'#234'tre evts vers log'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 8
|
|
OnClick = CheckBox1Click
|
|
end
|
|
object CheckDebugTCO: TCheckBox
|
|
Left = 264
|
|
Top = 128
|
|
Width = 121
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'Debug TCO'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 9
|
|
OnClick = CheckDebugTCOClick
|
|
end
|
|
object CheckDetSIg: TCheckBox
|
|
Left = 264
|
|
Top = 112
|
|
Width = 121
|
|
Height = 17
|
|
Hint = 'Affichage des '#233'v'#232'nements d'#233'tecteurs et signaux avec tick'
|
|
Alignment = taLeftJustify
|
|
Caption = 'Det et signaux'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 10
|
|
OnClick = CheckDetSIgClick
|
|
end
|
|
object CheckBoxPrinc: TCheckBox
|
|
Left = 264
|
|
Top = 96
|
|
Width = 121
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'Proc Principales'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 11
|
|
OnClick = CheckBoxPrincClick
|
|
end
|
|
end
|
|
object RichDebug: TRichEdit
|
|
Left = 8
|
|
Top = -90
|
|
Width = 425
|
|
Height = 671
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Lines.Strings = (
|
|
'RichDebug')
|
|
PopupMenu = PopupMenuRD
|
|
ScrollBars = ssBoth
|
|
TabOrder = 9
|
|
OnChange = RichDebugChange
|
|
end
|
|
object GroupBox5: TGroupBox
|
|
Left = 448
|
|
Top = 390
|
|
Width = 372
|
|
Height = 57
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Simulation d'#233'tecteur / actionneur'
|
|
Color = cl3DLight
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clNavy
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 10
|
|
object EditSimuDet: TEdit
|
|
Left = 16
|
|
Top = 24
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'Adresse d'#39'un d'#233'tecteur'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
end
|
|
object ButtonSimuDet0: TButton
|
|
Left = 72
|
|
Top = 16
|
|
Width = 65
|
|
Height = 33
|
|
Caption = 'D'#233'tecteur '#224' 0'
|
|
TabOrder = 1
|
|
WordWrap = True
|
|
OnClick = ButtonSimuDet0Click
|
|
end
|
|
object ButtonSimuDet1: TButton
|
|
Left = 152
|
|
Top = 16
|
|
Width = 65
|
|
Height = 33
|
|
Caption = 'D'#233'tecteur '#224' 1'
|
|
TabOrder = 2
|
|
WordWrap = True
|
|
OnClick = ButtonSimuDet1Click
|
|
end
|
|
object ButtonSimuAct0: TButton
|
|
Left = 224
|
|
Top = 16
|
|
Width = 65
|
|
Height = 33
|
|
Caption = 'Actionneur '#224' 0'
|
|
TabOrder = 3
|
|
WordWrap = True
|
|
OnClick = ButtonSimuAct0Click
|
|
end
|
|
object ButtonSimuAct1: TButton
|
|
Left = 296
|
|
Top = 16
|
|
Width = 65
|
|
Height = 33
|
|
Caption = 'Actionneur '#224' 1'
|
|
TabOrder = 4
|
|
WordWrap = True
|
|
OnClick = ButtonSimuAct1Click
|
|
end
|
|
end
|
|
object ButtonRazTout: TButton
|
|
Left = 443
|
|
Top = 78
|
|
Width = 97
|
|
Height = 25
|
|
Hint =
|
|
'Supprime les trains d'#233'tect'#233's ou en cas de nouveau RUN, permet de' +
|
|
' partir de 0'
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'RAZ tous trains'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 11
|
|
OnClick = ButtonRazToutClick
|
|
end
|
|
object GroupBox6: TGroupBox
|
|
Left = 448
|
|
Top = 454
|
|
Width = 372
|
|
Height = 41
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Sorties'
|
|
Color = cl3DLight
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clNavy
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 12
|
|
object Label3: TLabel
|
|
Left = 16
|
|
Top = 16
|
|
Width = 38
|
|
Height = 13
|
|
Caption = 'Adresse'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 104
|
|
Top = 16
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Sortie'
|
|
end
|
|
object EditAdresse: TEdit
|
|
Left = 64
|
|
Top = 10
|
|
Width = 33
|
|
Height = 21
|
|
Hint = 'Adresse d'#39'accessoire'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
end
|
|
object EditSortie: TEdit
|
|
Left = 136
|
|
Top = 10
|
|
Width = 25
|
|
Height = 21
|
|
Hint = 'Sortie 1 ou 2'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
end
|
|
object Button1: TButton
|
|
Left = 224
|
|
Top = 8
|
|
Width = 49
|
|
Height = 25
|
|
Hint =
|
|
'Mise '#224' 1 de la sortie - attention peut d'#233'truire les moteurs '#224' bo' +
|
|
'bine'
|
|
Caption = 'Mise '#224' 1'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 2
|
|
OnClick = Button1Click
|
|
end
|
|
object Button0: TButton
|
|
Left = 280
|
|
Top = 8
|
|
Width = 49
|
|
Height = 25
|
|
Hint = 'Mise '#224' 0 de la sortie'
|
|
Caption = 'Mise '#224' 0'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 3
|
|
OnClick = Button0Click
|
|
end
|
|
end
|
|
object MemoEvtDet: TRichEdit
|
|
Left = 544
|
|
Top = 76
|
|
Width = 281
|
|
Height = 307
|
|
Anchors = [akTop, akRight]
|
|
Color = clBlack
|
|
ScrollBars = ssVertical
|
|
TabOrder = 13
|
|
OnChange = MemoEvtDetChange
|
|
end
|
|
object SaveDialog: TSaveDialog
|
|
Left = 760
|
|
Top = 472
|
|
end
|
|
object PopupMenuRE: TPopupMenu
|
|
Left = 768
|
|
Top = 432
|
|
object copier1: TMenuItem
|
|
Caption = 'copier'
|
|
end
|
|
end
|
|
object PopupMenuRD: TPopupMenu
|
|
Left = 808
|
|
Top = 360
|
|
object Copier2: TMenuItem
|
|
Caption = 'Copier'
|
|
OnClick = Copier2Click
|
|
end
|
|
end
|
|
end
|