home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Expert 29
/
Pce29cd.iso
/
RUNIMAGE
/
DELPHI40
/
BIN
/
CORIDE40.BPL
/
0
/
RCDATA
/
TSTREDITDLG
/
TSTREDITDLG.txt
Wrap
Text File
|
1998-06-16
|
3KB
|
117 lines
object StrEditDlg: TStrEditDlg
Left = 226
Top = 123
BorderStyle = bsDialog
Caption = 'String list editor'
ClientHeight = 279
ClientWidth = 430
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
PopupMenu = StringEditorMenu
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
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
OnClick = CodeWndBtnClick
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'
Filter =
'Text files (*.TXT)|*.TXT|Config files (*.SYS;*.INI)|*.SYS;*.INI|' +
'Batch files (*.BAT)|*.BAT|All files (*.*)|*.*'
Options = [ofHideReadOnly, ofShowHelp, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Title = 'Load string list'
Left = 376
end
object SaveDialog: TSaveDialog
Filter =
'Text files (*.TXT)|*.TXT|Config files (*.SYS;*.INI)|*.SYS;*.INI|' +
'Batch files (*.BAT)|*.BAT|All files (*.*)|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofShowHelp, ofPathMustExist, ofEnableSizing]
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...'
Visible = False
OnClick = CodeWndBtnClick
end
end
end