home *** CD-ROM | disk | FTP | other *** search
- object Form3: TForm3
- Left = 281
- Top = 214
- BorderIcons = [biSystemMenu, biHelp]
- BorderStyle = bsSingle
- Caption = 'Edit'
- ClientHeight = 200
- ClientWidth = 360
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ShowHint = True
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label2: TLabel
- Left = 14
- Top = 32
- Width = 31
- Height = 13
- Caption = 'Name:'
- end
- object Label3: TLabel
- Left = 214
- Top = 32
- Width = 10
- Height = 13
- Caption = 'X:'
- end
- object Label4: TLabel
- Left = 254
- Top = 32
- Width = 10
- Height = 13
- Caption = 'Y:'
- end
- object Label5: TLabel
- Left = 14
- Top = 12
- Width = 51
- Height = 13
- Caption = 'Language:'
- end
- object Bevel1: TBevel
- Left = 208
- Top = 127
- Width = 145
- Height = 2
- end
- object ListBox1: TListBox
- Left = 8
- Top = 72
- Width = 193
- Height = 123
- HelpContext = 304
- ItemHeight = 13
- PopupMenu = Form1.PopupMenu1
- TabOrder = 8
- OnClick = ListBox1Click
- end
- object Button1: TButton
- Left = 296
- Top = 8
- Width = 57
- Height = 25
- Hint = 'Create a new location.'
- HelpContext = 305
- Caption = '&New'
- PopupMenu = Form1.PopupMenu1
- TabOrder = 4
- OnClick = Button1Click
- end
- object Edit1: TEdit
- Left = 8
- Top = 48
- Width = 193
- Height = 21
- HelpContext = 302
- PopupMenu = Form1.PopupMenu1
- TabOrder = 1
- OnChange = Edit1Change
- end
- object Edit2: TEdit
- Left = 208
- Top = 48
- Width = 41
- Height = 21
- HelpContext = 303
- PopupMenu = Form1.PopupMenu1
- TabOrder = 2
- OnChange = Edit2Change
- OnEnter = Edit2Enter
- OnExit = Edit2Exit
- end
- object Edit3: TEdit
- Left = 248
- Top = 48
- Width = 41
- Height = 21
- HelpContext = 303
- PopupMenu = Form1.PopupMenu1
- TabOrder = 3
- OnChange = Edit2Change
- OnEnter = Edit2Enter
- OnExit = Edit2Exit
- end
- object Button2: TButton
- Left = 296
- Top = 96
- Width = 57
- Height = 25
- Hint = 'Delete the selected location.'
- HelpContext = 308
- Caption = '&Delete'
- PopupMenu = Form1.PopupMenu1
- TabOrder = 7
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 296
- Top = 67
- Width = 57
- Height = 25
- Hint = 'Add this location.'
- HelpContext = 307
- Caption = '&Add'
- PopupMenu = Form1.PopupMenu1
- TabOrder = 6
- OnClick = Button3Click
- end
- object Edit4: TEdit
- Left = 68
- Top = 8
- Width = 133
- Height = 21
- HelpContext = 301
- PopupMenu = Form1.PopupMenu1
- TabOrder = 0
- Text = 'English'
- end
- object BitBtn1: TBitBtn
- Left = 280
- Top = 138
- Width = 75
- Height = 25
- Hint = 'Quit and save.'
- HelpContext = 309
- Caption = 'Do&ne'
- PopupMenu = Form1.PopupMenu1
- TabOrder = 9
- OnClick = BitBtn1Click
- end
- object BitBtn2: TBitBtn
- Left = 280
- Top = 170
- Width = 75
- Height = 25
- Hint = 'Quit and don'#39't save.'
- HelpContext = 310
- Caption = '&Cancel'
- PopupMenu = Form1.PopupMenu1
- TabOrder = 10
- OnClick = BitBtn2Click
- end
- object Button4: TButton
- Left = 296
- Top = 37
- Width = 57
- Height = 25
- Hint = 'Apply changes.'
- HelpContext = 306
- Caption = 'A&pply'
- PopupMenu = Form1.PopupMenu1
- TabOrder = 5
- OnClick = Button4Click
- end
- object SaveDialog1: TSaveDialog
- Filter = 'Data files (*.dat)|*.dat|All files (*.*)|*.*'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir]
- Left = 48
- Top = 56
- end
- object PopupMenu1: TPopupMenu
- OnPopup = PopupMenu1Popup
- Left = 16
- Top = 56
- object NewLoc1: TMenuItem
- Caption = 'NewLoc'
- end
- object Editing1: TMenuItem
- Caption = 'Editing'
- end
- object Changed1: TMenuItem
- Caption = 'Changed'
- end
- object Itemindex1: TMenuItem
- Caption = 'Itemindex'
- end
- end
- end
-