source: cprs/branches/tmg-cprs/dklang-package-3.01/Examples/Notepad/Main.dfm@ 468

Last change on this file since 468 was 468, checked in by Kevin Toppenberg, 16 years ago

CPRS v1.0.26.76
File size: 12.2 KB
Line 
1object fMain: TfMain
2 Left = 321
3 Top = 170
4 Width = 640
5 Height = 464
6 Caption = '<>'
7 Color = clBtnFace
8 Font.Charset = DEFAULT_CHARSET
9 Font.Color = clWindowText
10 Font.Height = -11
11 Font.Name = 'Tahoma'
12 Font.Style = []
13 Menu = mmMain
14 OldCreateOrder = False
15 Position = poScreenCenter
16 OnCloseQuery = TntFormCloseQuery
17 OnCreate = TntFormCreate
18 PixelsPerInch = 96
19 TextHeight = 13
20 object TheStatusBar: TTntStatusBar
21 Left = 0
22 Top = 396
23 Width = 632
24 Height = 19
25 AutoHint = True
26 Panels = <>
27 SimplePanel = True
28 end
29 object mMain: TTntMemo
30 Left = 0
31 Top = 0
32 Width = 632
33 Height = 396
34 Align = alClient
35 Font.Charset = DEFAULT_CHARSET
36 Font.Color = clWindowText
37 Font.Height = -12
38 Font.Name = 'Courier New'
39 Font.Style = []
40 ParentFont = False
41 ScrollBars = ssBoth
42 TabOrder = 1
43 WordWrap = False
44 OnChange = UpdateStateNotify
45 end
46 object mmMain: TTntMainMenu
47 Left = 108
48 Top = 32
49 object smFile: TTntMenuItem
50 Caption = '&File'
51 object iFileNew: TTntMenuItem
52 Action = aFileNew
53 end
54 object iFileOpen: TTntMenuItem
55 Action = aFileOpen
56 end
57 object iFileSave: TTntMenuItem
58 Action = aFileSave
59 end
60 object iFileSaveAs: TTntMenuItem
61 Action = aFileSaveAs
62 end
63 object iSepFileExit: TTntMenuItem
64 Caption = '-'
65 end
66 object iFileExit: TTntMenuItem
67 Action = aFileExit
68 end
69 end
70 object smEdit: TTntMenuItem
71 Caption = '&Edit'
72 object iEditUndo: TTntMenuItem
73 Action = aEditUndo
74 end
75 object iSepEditCut: TTntMenuItem
76 Caption = '-'
77 end
78 object iEditCut: TTntMenuItem
79 Action = aEditCut
80 end
81 object iEditCopy: TTntMenuItem
82 Action = aEditCopy
83 end
84 object iEditPaste: TTntMenuItem
85 Action = aEditPaste
86 end
87 object iSepEditFind: TTntMenuItem
88 Caption = '-'
89 end
90 object iEditFind: TTntMenuItem
91 Action = aEditFind
92 end
93 object iEditFindNext: TTntMenuItem
94 Action = aEditFindNext
95 end
96 object iEditReplace: TTntMenuItem
97 Action = aEditReplace
98 end
99 object iEditGoToLine: TTntMenuItem
100 Action = aEditGoToLine
101 end
102 object iSepEditSelectAll: TTntMenuItem
103 Caption = '-'
104 end
105 object iEditSelectAll: TTntMenuItem
106 Action = aEditSelectAll
107 end
108 object iEditDateAndTime: TTntMenuItem
109 Action = aEditDateAndTime
110 end
111 end
112 object smFormat: TTntMenuItem
113 Caption = 'Fo&rmat'
114 object iFormatWordWrap: TTntMenuItem
115 Action = aFormatWordWrap
116 end
117 object iFormatFont: TTntMenuItem
118 Action = aFormatFont
119 end
120 end
121 object smView: TTntMenuItem
122 Caption = '&View'
123 object iViewStatusBar: TTntMenuItem
124 Action = aViewStatusBar
125 end
126 object iSepViewLanguage: TTntMenuItem
127 Caption = '-'
128 end
129 object smViewLanguage: TTntMenuItem
130 Caption = '&Language'
131 end
132 end
133 object smHelp: TTntMenuItem
134 Caption = '&Help'
135 object iHelpAbout: TTntMenuItem
136 Action = aHelpAbout
137 end
138 end
139 end
140 object alMain: TTntActionList
141 Left = 68
142 Top = 32
143 object aFileNew: TTntAction
144 Category = 'File'
145 Caption = '&New'
146 Hint = 'New|Clear editor contents'
147 ShortCut = 16462
148 OnExecute = aFileNewExecute
149 end
150 object aFileOpen: TTntAction
151 Category = 'File'
152 Caption = '&Open...'
153 Hint = 'Open...|Open an existing file'
154 ShortCut = 16463
155 OnExecute = aFileOpenExecute
156 end
157 object aFileSave: TTntAction
158 Category = 'File'
159 Caption = '&Save'
160 Hint = 'Save|Save the text into the current file'
161 ShortCut = 16467
162 OnExecute = aFileSaveExecute
163 end
164 object aFileSaveAs: TTntAction
165 Category = 'File'
166 Caption = 'Save &as...'
167 Hint = 'Save as...|Save the text into another file'
168 ShortCut = 123
169 OnExecute = aFileSaveAsExecute
170 end
171 object aFileExit: TTntAction
172 Category = 'File'
173 Caption = 'E&xit'
174 Hint = 'Exit|Exit the program'
175 OnExecute = aFileExitExecute
176 end
177 object aEditUndo: TTntAction
178 Category = 'Edit'
179 Caption = '&Undo'
180 Hint = 'Undo|Undo or redo the last change'
181 ShortCut = 16474
182 SecondaryShortCuts.Strings = (
183 'Alt+Backspace')
184 OnExecute = aEditUndoExecute
185 end
186 object aEditCut: TTntAction
187 Category = 'Edit'
188 Caption = '&Cut'
189 Hint = 'Cut|Cut selected text into the clipboard'
190 ShortCut = 16472
191 SecondaryShortCuts.Strings = (
192 'Shift+Del')
193 OnExecute = aEditCutExecute
194 end
195 object aEditCopy: TTntAction
196 Category = 'Edit'
197 Caption = 'Cop&y'
198 Hint = 'Copy|Copy selected text into the clipboard'
199 ShortCut = 16451
200 SecondaryShortCuts.Strings = (
201 'Ctrl+Ins')
202 OnExecute = aEditCopyExecute
203 end
204 object aEditPaste: TTntAction
205 Category = 'Edit'
206 Caption = '&Paste'
207 Hint = 'Paste|Paste text from the clipboard'
208 ShortCut = 16470
209 SecondaryShortCuts.Strings = (
210 'Shift+Ins')
211 OnExecute = aEditPasteExecute
212 end
213 object aEditFind: TTntAction
214 Category = 'Edit'
215 Caption = '&Find...'
216 Hint = 'Find...|Open Find text dialog'
217 ShortCut = 16454
218 OnExecute = aEditFindExecute
219 end
220 object aEditFindNext: TTntAction
221 Category = 'Edit'
222 Caption = 'Find &next'
223 Hint = 'Find next|Repeat the last search'
224 ShortCut = 114
225 OnExecute = aEditFindNextExecute
226 end
227 object aEditReplace: TTntAction
228 Category = 'Edit'
229 Caption = '&Replace...'
230 Hint = 'Replace...|Open Replace text dialog'
231 ShortCut = 16456
232 OnExecute = aEditReplaceExecute
233 end
234 object aEditGoToLine: TTntAction
235 Category = 'Edit'
236 Caption = '&Go to line...'
237 Hint = 'Go to line...|Locate a particular text line'
238 ShortCut = 16455
239 OnExecute = aEditGoToLineExecute
240 end
241 object aEditSelectAll: TTntAction
242 Category = 'Edit'
243 Caption = '&Select all'
244 Hint = 'Select all|Select the whole text'
245 ShortCut = 16449
246 OnExecute = aEditSelectAllExecute
247 end
248 object aEditDateAndTime: TTntAction
249 Category = 'Edit'
250 Caption = '&Date and time'
251 Hint = 'Date and time|Paste current date and time'
252 ShortCut = 116
253 OnExecute = aEditDateAndTimeExecute
254 end
255 object aFormatWordWrap: TTntAction
256 Category = 'Format'
257 Caption = '&Word wrap'
258 Hint = 'Word wrap|Toggle word wrap'
259 OnExecute = aFormatWordWrapExecute
260 end
261 object aFormatFont: TTntAction
262 Category = 'Format'
263 Caption = '&Font...'
264 Hint = 'Font...|Select editor font'
265 OnExecute = aFormatFontExecute
266 end
267 object aViewStatusBar: TTntAction
268 Category = 'View'
269 Caption = '&Status bar'
270 Hint = 'Status bar|Toggle the status bar'
271 OnExecute = aViewStatusBarExecute
272 end
273 object aHelpAbout: TTntAction
274 Category = 'Help'
275 Caption = '&About...'
276 Hint = 'About...|Show version and copyright info'
277 ShortCut = 16496
278 OnExecute = aHelpAboutExecute
279 end
280 end
281 object odMain: TTntOpenDialog
282 DefaultExt = 'txt'
283 Filter = 'Text files (*.txt;*.log)|*.txt;*.log|All files (*.*)|*.*'
284 Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
285 Title = 'Select a file to open'
286 Left = 152
287 Top = 32
288 end
289 object sdMain: TTntSaveDialog
290 DefaultExt = 'txt'
291 Filter = 'ANSI text files (*.txt)|*.txt|Unicode text files (*.txt)|*.txt'
292 Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
293 Title = 'Select a file to save to'
294 Left = 192
295 Top = 32
296 end
297 object dklcMain: TDKLanguageController
298 IgnoreList.Strings = (
299 '*.DefaultExt'
300 '*.SecondaryShortCuts')
301 Left = 28
302 Top = 32
303 LangData = {
304 0500664D61696E0001380000000C00546865537461747573426172000006006D
305 6D4D61696E00000600736D46696C65010100000002000000070043617074696F
306 6E0008006946696C654E6577000009006946696C654F70656E00000900694669
307 6C655361766500000B006946696C6553617665417300000C006953657046696C
308 6545786974000009006946696C654578697400000600736D4564697401010000
309 0003000000070043617074696F6E0009006945646974556E646F00000B006953
310 657045646974437574000008006945646974437574000009006945646974436F
311 707900000A006945646974506173746500000C00695365704564697446696E64
312 00000900694564697446696E6400000D00694564697446696E644E6578740000
313 0C0069456469745265706C61636500000D006945646974476F546F4C696E6500
314 001100695365704564697453656C656374416C6C00000E00694564697453656C
315 656374416C6C00001000694564697444617465416E6454696D6500000800736D
316 466F726D6174010100000004000000070043617074696F6E000F0069466F726D
317 6174576F72645772617000000B0069466F726D6174466F6E7400000600736D56
318 696577010100000005000000070043617074696F6E000E006956696577537461
319 74757342617200000600736D48656C7001010000000600000007004361707469
320 6F6E000A006948656C7041626F757400000600616C4D61696E00000800614669
321 6C654E6577010300000008000000070043617074696F6E070000000800436174
322 65676F727909000000040048696E740009006146696C654F70656E0103000000
323 0B000000070043617074696F6E0A000000080043617465676F72790C00000004
324 0048696E740009006146696C655361766501030000000E000000070043617074
325 696F6E0D000000080043617465676F72790F000000040048696E74000B006146
326 696C65536176654173010300000011000000070043617074696F6E1000000008
327 0043617465676F727912000000040048696E740009006146696C654578697401
328 0300000014000000070043617074696F6E13000000080043617465676F727915
329 000000040048696E740009006145646974556E646F0103000000170000000700
330 43617074696F6E16000000080043617465676F727918000000040048696E7400
331 0800614564697443757401030000001B000000070043617074696F6E1A000000
332 080043617465676F72791C000000040048696E740009006145646974436F7079
333 01030000001F000000070043617074696F6E1E000000080043617465676F7279
334 20000000040048696E74000A0061456469745061737465010300000023000000
335 070043617074696F6E22000000080043617465676F727924000000040048696E
336 74000900614564697446696E64010300000027000000070043617074696F6E26
337 000000080043617465676F727928000000040048696E74000D00614564697446
338 696E644E65787401030000002A000000070043617074696F6E29000000080043
339 617465676F72792B000000040048696E74000C0061456469745265706C616365
340 01030000002D000000070043617074696F6E2C000000080043617465676F7279
341 2E000000040048696E74000D006145646974476F546F4C696E65010300000030
342 000000070043617074696F6E2F000000080043617465676F7279310000000400
343 48696E74000E00614564697453656C656374416C6C0103000000330000000700
344 43617074696F6E32000000080043617465676F727934000000040048696E7400
345 1000614564697444617465416E6454696D650103000000360000000700436170
346 74696F6E35000000080043617465676F727937000000040048696E74000F0061
347 466F726D6174576F726457726170010300000039000000070043617074696F6E
348 38000000080043617465676F72793A000000040048696E74000B0061466F726D
349 6174466F6E7401030000003C000000070043617074696F6E3B00000008004361
350 7465676F72793D000000040048696E74000E0061566965775374617475734261
351 7201030000003F000000070043617074696F6E3E000000080043617465676F72
352 7940000000040048696E74000A006148656C7041626F75740103000000420000
353 00070043617074696F6E41000000080043617465676F72794300000004004869
354 6E740005006D4D61696E000006006F644D61696E010200000045000000060046
355 696C7465724600000005005469746C6500060073644D61696E01020000004800
356 0000060046696C7465724900000005005469746C650010006953657056696577
357 4C616E677561676500000E00736D566965774C616E677561676501010000004A
358 000000070043617074696F6E00060066644D61696E0000}
359 end
360 object fdMain: TFontDialog
361 Font.Charset = DEFAULT_CHARSET
362 Font.Color = clWindowText
363 Font.Height = -11
364 Font.Name = 'Tahoma'
365 Font.Style = []
366 Left = 232
367 Top = 32
368 end
369end
Note: See TracBrowser for help on using the repository browser.