home *** CD-ROM | disk | FTP | other *** search
- object StrEditDlg: TStrEditDlg
- Left = 226
- Top = 123
- BorderStyle = bsDialog
- Caption = 'String list editor'
- ClientHeight = 279
- ClientWidth = 430
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- PopupMenu = StringEditorMenu
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 413
- Height = 229
- Shape = bsFrame
- end
- object LineCount: TLabel
- Left = 12
- Top = 12
- Width = 169
- Height = 17
- AutoSize = False
- Caption = '0 lines'
- end
- object CodeWndBtn: TButton
- Left = 8
- Top = 248
- Width = 75
- Height = 25
- Caption = '&Code Editor...'
- ModalResult = 6
- TabOrder = 1
- end
- object HelpButton: TButton
- Left = 345
- Top = 248
- Width = 75
- Height = 25
- Caption = '&Help'
- TabOrder = 4
- OnClick = HelpButtonClick
- end
- object OKButton: TButton
- Left = 185
- Top = 248
- Width = 75
- Height = 25
- Caption = '&OK'
- Default = True
- ModalResult = 1
- TabOrder = 2
- end
- object CancelButton: TButton
- Left = 265
- Top = 248
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 3
- end
- object Memo: TRichEdit
- Left = 16
- Top = 31
- Width = 397
- Height = 197
- HideScrollBars = False
- PlainText = True
- ScrollBars = ssBoth
- TabOrder = 0
- WordWrap = False
- OnChange = UpdateStatus
- OnKeyDown = Memo1KeyDown
- end
- object OpenDialog: TOpenDialog
- DefaultExt = 'TXT'
- FileEditStyle = fsEdit
- Filter =
- 'Text files (*.TXT)|*.TXT|Config files (*.SYS;*.INI)|*.SYS;*.INI|' +
- 'Batch files (*.BAT)|*.BAT|All files (*.*)|*.*'
- Options = [ofHideReadOnly, ofShowHelp, ofPathMustExist, ofFileMustExist]
- Title = 'Load string list'
- Left = 376
- end
- object SaveDialog: TSaveDialog
- FileEditStyle = fsEdit
- Filter =
- 'Text files (*.TXT)|*.TXT|Config files (*.SYS;*.INI)|*.SYS;*.INI|' +
- 'Batch files (*.BAT)|*.BAT|All files (*.*)|*.*'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofShowHelp, ofPathMustExist]
- Title = 'Save string list'
- Left = 404
- end
- object StringEditorMenu: TPopupMenu
- Left = 344
- object LoadItem: TMenuItem
- Caption = '&Load...'
- OnClick = FileOpen
- end
- object SaveItem: TMenuItem
- Caption = '&Save...'
- OnClick = FileSave
- end
- object CodeEditorItem: TMenuItem
- Caption = '&Code Editor...'
- OnClick = CodeWndBtnClick
- end
- end
- end
-