Chip 2003 February/Chip_2003-02_cd1.bin/tema/siggis/siGGis.exe/0/RCDATA/TFEDIT/TFEDIT.txt

Text File | 2001-12-03 | 6KB | 281 lines

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