home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
borland
/
cb
/
setup
/
cbuilder
/
data.z
/
STREDIT.DFM
/
STREDIT.txt
Wrap
Text File
|
1997-02-28
|
3KB
|
117 lines
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