115 lines
2.3 KiB
Plaintext
115 lines
2.3 KiB
Plaintext
object FormTCO: TFormTCO
|
|
Left = 267
|
|
Top = 203
|
|
Width = 928
|
|
Height = 590
|
|
Caption = 'FormTCO'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
KeyPreview = True
|
|
OldCreateOrder = False
|
|
Position = poDefault
|
|
OnActivate = FormActivate
|
|
OnCreate = FormCreate
|
|
OnKeyDown = FormKeyDown
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object LabelX: TLabel
|
|
Left = 32
|
|
Top = 16
|
|
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 = 16
|
|
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 = 496
|
|
Top = 8
|
|
Width = 32
|
|
Height = 13
|
|
Caption = 'Label1'
|
|
end
|
|
object Button1: TButton
|
|
Left = 320
|
|
Top = 16
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Button1'
|
|
TabOrder = 0
|
|
OnClick = Button1Click
|
|
end
|
|
object ScrollBox: TScrollBox
|
|
Left = 16
|
|
Top = 40
|
|
Width = 865
|
|
Height = 433
|
|
TabOrder = 1
|
|
object ImageTCO: TImage
|
|
Left = 0
|
|
Top = 0
|
|
Width = 857
|
|
Height = 425
|
|
PopupMenu = PopupMenu1
|
|
OnClick = ImageTCOClick
|
|
OnContextPopup = ImageTCOContextPopup
|
|
end
|
|
end
|
|
object PopupMenu1: TPopupMenu
|
|
Left = 568
|
|
Top = 296
|
|
object Position1: TMenuItem
|
|
Caption = 'Position'
|
|
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
|
|
end
|
|
end
|
|
end
|