578 lines
12 KiB
Plaintext
578 lines
12 KiB
Plaintext
object FormTCO: TFormTCO
|
|
Left = 251
|
|
Top = 202
|
|
Width = 928
|
|
Height = 681
|
|
VertScrollBar.Visible = False
|
|
Caption = 'FormTCO'
|
|
Color = clBtnFace
|
|
DragMode = dmAutomatic
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
KeyPreview = True
|
|
OldCreateOrder = False
|
|
OnActivate = FormActivate
|
|
OnCreate = FormCreate
|
|
OnDockOver = FormDockOver
|
|
OnKeyDown = FormKeyDown
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object LabelX: TLabel
|
|
Left = 32
|
|
Top = 14
|
|
Width = 53
|
|
Height = 19
|
|
Caption = 'LabelX'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 16
|
|
Top = 16
|
|
Width = 13
|
|
Height = 13
|
|
Caption = 'X='
|
|
end
|
|
object Label3: TLabel
|
|
Left = 104
|
|
Top = 16
|
|
Width = 13
|
|
Height = 13
|
|
Caption = 'X='
|
|
end
|
|
object LabelY: TLabel
|
|
Left = 120
|
|
Top = 14
|
|
Width = 51
|
|
Height = 19
|
|
Caption = 'Label1'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label1: TLabel
|
|
Left = 776
|
|
Top = 8
|
|
Width = 32
|
|
Height = 13
|
|
Caption = 'Label1'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 24
|
|
Top = 480
|
|
Width = 175
|
|
Height = 25
|
|
Caption = 'Adresse de l'#39#233'l'#233'ment: '
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -21
|
|
Font.Name = 'Arial Narrow'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label5: TLabel
|
|
Left = 24
|
|
Top = 520
|
|
Width = 150
|
|
Height = 25
|
|
Caption = 'Type de l'#39#233'l'#233'ment: '
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -21
|
|
Font.Name = 'Arial Narrow'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object ImagePalette1: TImage
|
|
Left = 440
|
|
Top = 480
|
|
Width = 41
|
|
Height = 41
|
|
DragMode = dmAutomatic
|
|
OnEndDrag = ImagePalette1EndDrag
|
|
OnMouseDown = ImagePalette1MouseDown
|
|
end
|
|
object ImagePalette2: TImage
|
|
Left = 512
|
|
Top = 480
|
|
Width = 41
|
|
Height = 41
|
|
DragMode = dmAutomatic
|
|
OnEndDrag = ImagePalette2EndDrag
|
|
OnMouseDown = ImagePalette2MouseDown
|
|
end
|
|
object ImagePalette3: TImage
|
|
Left = 584
|
|
Top = 480
|
|
Width = 41
|
|
Height = 41
|
|
DragMode = dmAutomatic
|
|
OnEndDrag = ImagePalette3EndDrag
|
|
OnMouseDown = ImagePalette3MouseDown
|
|
end
|
|
object ImagePalette4: TImage
|
|
Left = 656
|
|
Top = 480
|
|
Width = 41
|
|
Height = 41
|
|
DragMode = dmAutomatic
|
|
OnEndDrag = ImagePalette4EndDrag
|
|
OnMouseDown = ImagePalette4MouseDown
|
|
end
|
|
object ImagePaletteDroit: TImage
|
|
Left = 440
|
|
Top = 528
|
|
Width = 41
|
|
Height = 41
|
|
DragMode = dmAutomatic
|
|
OnEndDrag = ImagePaletteDroitEndDrag
|
|
OnMouseDown = ImagePaletteDroitMouseDown
|
|
end
|
|
object ImageSupG: TImage
|
|
Left = 512
|
|
Top = 528
|
|
Width = 41
|
|
Height = 41
|
|
DragMode = dmAutomatic
|
|
OnEndDrag = ImageSupGEndDrag
|
|
OnMouseDown = ImageSupGMouseDown
|
|
end
|
|
object ImageSupD: TImage
|
|
Left = 584
|
|
Top = 528
|
|
Width = 41
|
|
Height = 41
|
|
DragMode = dmAutomatic
|
|
OnEndDrag = ImageSupDEndDrag
|
|
OnMouseDown = ImageSupDMouseDown
|
|
end
|
|
object ImageInfD: TImage
|
|
Left = 656
|
|
Top = 528
|
|
Width = 41
|
|
Height = 41
|
|
DragMode = dmAutomatic
|
|
OnEndDrag = ImageInfDEndDrag
|
|
OnMouseDown = ImageInfDMouseDown
|
|
end
|
|
object ImageInfG: TImage
|
|
Left = 728
|
|
Top = 528
|
|
Width = 41
|
|
Height = 41
|
|
DragMode = dmAutomatic
|
|
OnEndDrag = ImageInfGEndDrag
|
|
OnMouseDown = ImageInfGMouseDown
|
|
end
|
|
object Label6: TLabel
|
|
Left = 424
|
|
Top = 488
|
|
Width = 9
|
|
Height = 19
|
|
Caption = '1'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label7: TLabel
|
|
Left = 496
|
|
Top = 488
|
|
Width = 9
|
|
Height = 19
|
|
Caption = '2'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label8: TLabel
|
|
Left = 568
|
|
Top = 488
|
|
Width = 9
|
|
Height = 19
|
|
Caption = '3'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label9: TLabel
|
|
Left = 640
|
|
Top = 488
|
|
Width = 9
|
|
Height = 19
|
|
Caption = '4'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label10: TLabel
|
|
Left = 424
|
|
Top = 536
|
|
Width = 9
|
|
Height = 19
|
|
Caption = '5'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label11: TLabel
|
|
Left = 496
|
|
Top = 536
|
|
Width = 9
|
|
Height = 19
|
|
Caption = '6'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label12: TLabel
|
|
Left = 568
|
|
Top = 536
|
|
Width = 9
|
|
Height = 19
|
|
Caption = '7'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label13: TLabel
|
|
Left = 640
|
|
Top = 536
|
|
Width = 9
|
|
Height = 19
|
|
Caption = '8'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label14: TLabel
|
|
Left = 712
|
|
Top = 536
|
|
Width = 9
|
|
Height = 19
|
|
Caption = '9'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label15: TLabel
|
|
Left = 24
|
|
Top = 560
|
|
Width = 158
|
|
Height = 25
|
|
Caption = 'Image de l'#39#233'l'#233'ment: '
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -21
|
|
Font.Name = 'Arial Narrow'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object ImageDiag1: TImage
|
|
Left = 440
|
|
Top = 576
|
|
Width = 41
|
|
Height = 41
|
|
DragMode = dmAutomatic
|
|
OnEndDrag = ImageDiag1EndDrag
|
|
OnMouseDown = ImageDiag1MouseDown
|
|
end
|
|
object Label16: TLabel
|
|
Left = 416
|
|
Top = 584
|
|
Width = 18
|
|
Height = 19
|
|
Caption = '10'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object ImageDiag2: TImage
|
|
Left = 512
|
|
Top = 576
|
|
Width = 41
|
|
Height = 41
|
|
DragMode = dmAutomatic
|
|
OnEndDrag = ImageDiag2EndDrag
|
|
OnMouseDown = ImageDiag2MouseDown
|
|
end
|
|
object Label17: TLabel
|
|
Left = 488
|
|
Top = 584
|
|
Width = 17
|
|
Height = 19
|
|
Caption = '11'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object ImageFeu: TImage
|
|
Left = 584
|
|
Top = 576
|
|
Width = 25
|
|
Height = 41
|
|
DragMode = dmAutomatic
|
|
Stretch = True
|
|
OnEndDrag = ImageFeuEndDrag
|
|
OnMouseDown = ImageFeuMouseDown
|
|
end
|
|
object Label18: TLabel
|
|
Left = 560
|
|
Top = 584
|
|
Width = 18
|
|
Height = 19
|
|
Caption = '12'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object ImageTemp: TImage
|
|
Left = 304
|
|
Top = 504
|
|
Width = 97
|
|
Height = 97
|
|
end
|
|
object SourisX: TLabel
|
|
Left = 232
|
|
Top = 8
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'SourisX'
|
|
end
|
|
object SourisY: TLabel
|
|
Left = 288
|
|
Top = 8
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'SourisY'
|
|
end
|
|
object EditAdrElement: TEdit
|
|
Left = 200
|
|
Top = 480
|
|
Width = 89
|
|
Height = 33
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -21
|
|
Font.Name = 'Arial Narrow'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnChange = EditAdrElementChange
|
|
end
|
|
object EditTypeElement: TEdit
|
|
Left = 200
|
|
Top = 520
|
|
Width = 89
|
|
Height = 33
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -21
|
|
Font.Name = 'Arial Narrow'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object ButtonSauveTCO: TButton
|
|
Left = 784
|
|
Top = 480
|
|
Width = 91
|
|
Height = 33
|
|
Caption = 'Sauvegarder TCO'
|
|
TabOrder = 2
|
|
WordWrap = True
|
|
OnClick = ButtonSauveTCOClick
|
|
end
|
|
object ButtonRedessine: TButton
|
|
Left = 784
|
|
Top = 520
|
|
Width = 89
|
|
Height = 33
|
|
Caption = 'Redessine'
|
|
TabOrder = 3
|
|
OnClick = ButtonRedessineClick
|
|
end
|
|
object ScrollBox: TScrollBox
|
|
Left = 16
|
|
Top = 40
|
|
Width = 873
|
|
Height = 425
|
|
TabOrder = 4
|
|
object ImageTCO: TImage
|
|
Left = 0
|
|
Top = 0
|
|
Width = 865
|
|
Height = 409
|
|
PopupMenu = PopupMenu1
|
|
OnClick = ImageTCOClick
|
|
OnContextPopup = ImageTCOContextPopup
|
|
OnDragOver = ImageTCODragOver
|
|
OnMouseDown = ImageTCOMouseDown
|
|
OnMouseMove = ImageTCOMouseMove
|
|
OnMouseUp = ImageTCOMouseUp
|
|
end
|
|
end
|
|
object EditTypeImage: TEdit
|
|
Left = 200
|
|
Top = 560
|
|
Width = 89
|
|
Height = 33
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -21
|
|
Font.Name = 'Arial Narrow'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 5
|
|
OnKeyPress = EditTypeImageKeyPress
|
|
end
|
|
object Button1: TButton
|
|
Left = 784
|
|
Top = 560
|
|
Width = 89
|
|
Height = 25
|
|
Caption = 'Simu det 1'
|
|
TabOrder = 6
|
|
OnClick = Button1Click
|
|
end
|
|
object Button2: TButton
|
|
Left = 784
|
|
Top = 592
|
|
Width = 89
|
|
Height = 25
|
|
Caption = 'Simu Det 0'
|
|
TabOrder = 7
|
|
OnClick = Button2Click
|
|
end
|
|
object ButtonConfigTCO: TButton
|
|
Left = 576
|
|
Top = 8
|
|
Width = 113
|
|
Height = 25
|
|
Caption = 'Configuration TCO'
|
|
TabOrder = 8
|
|
OnClick = ButtonConfigTCOClick
|
|
end
|
|
object PopupMenu1: TPopupMenu
|
|
Left = 352
|
|
Top = 472
|
|
object MenuCouper: TMenuItem
|
|
Caption = 'Couper'
|
|
OnClick = MenuCouperClick
|
|
end
|
|
object MenuCopier: TMenuItem
|
|
Caption = 'Copier'
|
|
OnClick = MenuCopierClick
|
|
end
|
|
object MenuColler: TMenuItem
|
|
Caption = 'Coller'
|
|
OnClick = MenuCollerClick
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Insrer1: TMenuItem
|
|
Caption = 'Ins'#233'rer'
|
|
object aiguillageG_PG: TMenuItem
|
|
Caption = 'Aiguillage gauche ; pointe '#224' gauche'
|
|
OnClick = aiguillageG_PGClick
|
|
end
|
|
object aiguillageD_PD: TMenuItem
|
|
Caption = 'Aiguillage droit ; pointe '#224' droite'
|
|
OnClick = aiguillageD_PDClick
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Aiguillagegauchepointedroite1: TMenuItem
|
|
Caption = 'Aiguillage gauche ; pointe '#224' droite'
|
|
OnClick = Aiguillagegauchepointedroite1Click
|
|
end
|
|
object Aiguillagedroitpointegauche1: TMenuItem
|
|
Caption = 'Aiguillage droit : pointe '#224' gauche'
|
|
OnClick = Aiguillagedroitpointegauche1Click
|
|
end
|
|
object N3: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Elmentdroit1: TMenuItem
|
|
Caption = 'El'#233'ment droit'
|
|
OnClick = Elmentdroit1Click
|
|
end
|
|
object N4: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Courbegaucheversdroite1: TMenuItem
|
|
Caption = 'Courbe infD'
|
|
OnClick = Courbegaucheversdroite1Click
|
|
end
|
|
object Courbedroiteversgauche1: TMenuItem
|
|
Caption = 'Courbe infG'
|
|
OnClick = Courbedroiteversgauche1Click
|
|
end
|
|
object CourbeSupD1: TMenuItem
|
|
Caption = 'Courbe SupD'
|
|
OnClick = CourbeSupD1Click
|
|
end
|
|
object CourbeSupG1: TMenuItem
|
|
Caption = 'Courbe SupG'
|
|
OnClick = CourbeSupG1Click
|
|
end
|
|
end
|
|
object Tourner90G: TMenuItem
|
|
Caption = 'Tourner 90'#176' '#224' gauche'
|
|
OnClick = Tourner90GClick
|
|
end
|
|
object Tourner90D: TMenuItem
|
|
Caption = 'Tourner 90'#176' '#224' droite'
|
|
OnClick = Tourner90DClick
|
|
end
|
|
end
|
|
end
|