V1.31
This commit is contained in:
f1iwq2
435
UnitTCO.dfm
435
UnitTCO.dfm
@@ -1,10 +1,12 @@
|
||||
object FormTCO: TFormTCO
|
||||
Left = 267
|
||||
Top = 203
|
||||
Left = 337
|
||||
Top = 102
|
||||
Width = 928
|
||||
Height = 590
|
||||
Height = 681
|
||||
VertScrollBar.Visible = False
|
||||
Caption = 'FormTCO'
|
||||
Color = clBtnFace
|
||||
DragMode = dmAutomatic
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
@@ -12,9 +14,9 @@ object FormTCO: TFormTCO
|
||||
Font.Style = []
|
||||
KeyPreview = True
|
||||
OldCreateOrder = False
|
||||
Position = poDefault
|
||||
OnActivate = FormActivate
|
||||
OnCreate = FormCreate
|
||||
OnDockOver = FormDockOver
|
||||
OnKeyDown = FormKeyDown
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
@@ -65,21 +67,341 @@ object FormTCO: TFormTCO
|
||||
Height = 13
|
||||
Caption = 'Label1'
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 320
|
||||
Top = 16
|
||||
Width = 75
|
||||
object Label4: TLabel
|
||||
Left = 24
|
||||
Top = 480
|
||||
Width = 175
|
||||
Height = 25
|
||||
Caption = 'Button1'
|
||||
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 = 512
|
||||
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 = 544
|
||||
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 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 = 512
|
||||
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
|
||||
OnClick = Button1Click
|
||||
Text = 'EditTypeElement'
|
||||
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 = 865
|
||||
Height = 433
|
||||
TabOrder = 1
|
||||
TabOrder = 4
|
||||
object ImageTCO: TImage
|
||||
Left = 0
|
||||
Top = 0
|
||||
@@ -88,13 +410,59 @@ object FormTCO: TFormTCO
|
||||
PopupMenu = PopupMenu1
|
||||
OnClick = ImageTCOClick
|
||||
OnContextPopup = ImageTCOContextPopup
|
||||
OnDragOver = ImageTCODragOver
|
||||
OnMouseDown = ImageTCOMouseDown
|
||||
OnMouseMove = ImageTCOMouseMove
|
||||
OnMouseUp = ImageTCOMouseUp
|
||||
end
|
||||
end
|
||||
object EditTypeImage: TEdit
|
||||
Left = 200
|
||||
Top = 552
|
||||
Width = 89
|
||||
Height = 33
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = 'Arial Narrow'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
Text = 'EditTypeImage'
|
||||
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 = 320
|
||||
Top = 520
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Simu Det 0'
|
||||
TabOrder = 7
|
||||
OnClick = Button2Click
|
||||
end
|
||||
object PopupMenu1: TPopupMenu
|
||||
Left = 568
|
||||
Top = 296
|
||||
object Position1: TMenuItem
|
||||
Caption = 'Position'
|
||||
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 = '-'
|
||||
@@ -109,6 +477,43 @@ object FormTCO: TFormTCO
|
||||
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
|
||||
end
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user