object FEdit: TFEdit Left = 558 Top = 115 BorderStyle = bsDialog Caption = 'Edit coordinate' ClientHeight = 167 ClientWidth = 249 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel2: TPanel Left = 0 Top = 0 Width = 249 Height = 167 Align = alClient TabOrder = 0 object Bevel1: TBevel Left = 8 Top = 76 Width = 233 Height = 57 end object Label5: TLabel Left = 115 Top = 92 Width = 20 Height = 26 Caption = '�' Font.Color = clRed Font.Height = -23 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False end object Label1: TLabel Left = 96 Top = 24 Width = 17 Height = 13 Caption = 'X :' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 96 Top = 46 Width = 21 Height = 13 Caption = 'Y : ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object SBTL: TSpeedButton Left = 100 Top = 79 Width = 17 Height = 17 Caption = '�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False OnClick = SBTLClick end object SBT: TSpeedButton Left = 118 Top = 79 Width = 17 Height = 17 Caption = '�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False OnClick = SBTClick end object SBTR: TSpeedButton Left = 136 Top = 79 Width = 17 Height = 17 Caption = '�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False OnClick = SBTRClick end object SBL: TSpeedButton Left = 100 Top = 96 Width = 17 Height = 17 Caption = '�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False OnClick = SBLClick end object SBBL: TSpeedButton Left = 100 Top = 113 Width = 17 Height = 17 Caption = '�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False OnClick = SBBLClick end object SBB: TSpeedButton Left = 118 Top = 113 Width = 17 Height = 17 Caption = '�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False OnClick = SBBClick end object SBR: TSpeedButton Left = 136 Top = 96 Width = 17 Height = 17 Caption = '�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False OnClick = SBRClick end object SBBR: TSpeedButton Left = 136 Top = 113 Width = 17 Height = 17 Caption = '�' Font.Color = clBlack Font.Height = -11 Font.Name = 'Wingdings' Font.Style = [] ParentFont = False OnClick = SBBRClick end object Label3: TLabel Left = 16 Top = 80 Width = 25 Height = 13 Caption = 'X (�):' end object Label4: TLabel Left = 160 Top = 80 Width = 25 Height = 13 Caption = 'Y (�):' end object Panel1: TPanel Left = 88 Top = 136 Width = 153 Height = 25 BevelOuter = bvNone TabOrder = 8 end object RG: TRadioGroup Left = 8 Top = 0 Width = 81 Height = 73 Caption = '[ XY ]' ItemIndex = 1 Items.Strings = ( 'Prior point' 'Current' 'Next point') TabOrder = 0 OnClick = RGClick end object Edit1: TEdit Left = 120 Top = 20 Width = 121 Height = 21 TabOrder = 1 Text = 'Edit1' OnExit = Edit1Exit end object Edit2: TEdit Left = 120 Top = 44 Width = 121 Height = 21 TabOrder = 2 Text = 'Edit2' OnExit = Edit2Exit end object Button1: TButton Left = 168 Top = 136 Width = 75 Height = 25 Caption = 'OK' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = Button1Click end object Button2: TButton Left = 88 Top = 136 Width = 75 Height = 25 Caption = 'Add' TabOrder = 4 OnClick = Button2Click end object Button3: TButton Left = 8 Top = 136 Width = 75 Height = 25 Caption = 'Delete' TabOrder = 5 OnClick = Button3Click end object EX: TEdit Left = 16 Top = 96 Width = 70 Height = 21 Hint = 'X: detail move - add/substract' ParentShowHint = False ShowHint = True TabOrder = 6 Text = '0.01' OnExit = EXExit end object EY: TEdit Left = 160 Top = 96 Width = 70 Height = 21 Hint = 'Y:Detail move' ParentShowHint = False ShowHint = True TabOrder = 7 Text = '0.01' OnExit = EYExit end end end