1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
object TntStrEditDlg: TTntStrEditDlg
Left = 267
Top = 258
BorderStyle = bsDialog
Caption = 'Wide String List Editor'
ClientHeight = 279
ClientWidth = 430
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
PopupMenu = StringEditorMenu
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object TntGroupBox1: TTntGroupBox
Left = 8
Top = 3
Width = 413
Height = 234
TabOrder = 4
object LineCount: TTntLabel
Left = 9
Top = 9
Width = 169
Height = 17
AutoSize = False
Caption = '0 lines'
end
object UnicodeEnabledLbl: TTntLabel
Left = 325
Top = 9
Width = 79
Height = 13
Alignment = taRightJustify
Caption = 'Unicode Enabled'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
ParentFont = False
Visible = False
end
object Memo: TTntMemo
Left = 8
Top = 28
Width = 397
Height = 197
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
OnChange = UpdateStatus
OnKeyDown = Memo1KeyDown
end
end
object CodeWndBtn: TTntButton
Left = 8
Top = 248
Width = 75
Height = 25
Caption = '&Code Editor...'
TabOrder = 0
OnClick = CodeWndBtnClick
end
object HelpButton: TTntButton
Left = 345
Top = 248
Width = 75
Height = 25
Caption = '&Help'
TabOrder = 3
OnClick = HelpButtonClick
end
object OKButton: TTntButton
Left = 185
Top = 248
Width = 75
Height = 25
Caption = '&OK'
Default = True
ModalResult = 1
TabOrder = 1
end
object CancelButton: TTntButton
Left = 265
Top = 248
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 2
end
object OpenDialog: TTntOpenDialog
HelpContext = 26040
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 = 200
Top = 88
end
object SaveDialog: TTntSaveDialog
HelpContext = 26050
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 = 228
Top = 88
end
object StringEditorMenu: TTntPopupMenu
Left = 168
Top = 88
object LoadItem: TTntMenuItem
Caption = '&Load...'
OnClick = FileOpenClick
end
object SaveItem: TTntMenuItem
Caption = '&Save...'
OnClick = FileSaveClick
end
object CodeEditorItem: TTntMenuItem
Caption = '&Code Editor...'
Visible = False
OnClick = CodeWndBtnClick
end
end
end
|
