1 | inherited frmHunSpell: TfrmHunSpell
|
---|
2 | Left = 192
|
---|
3 | Top = 114
|
---|
4 | BorderStyle = bsDialog
|
---|
5 | Caption = 'SpellCheck based on open source HanSpell Engine'
|
---|
6 | ClientHeight = 516
|
---|
7 | ClientWidth = 737
|
---|
8 | Font.Charset = ANSI_CHARSET
|
---|
9 | Font.Height = -13
|
---|
10 | Font.Name = 'Tahoma'
|
---|
11 | Position = poScreenCenter
|
---|
12 | OnActivate = FormActivate
|
---|
13 | OnClose = FormClose
|
---|
14 | OnCloseQuery = FormCloseQuery
|
---|
15 | OnCreate = FormCreate
|
---|
16 | OnShow = FormShow
|
---|
17 | ExplicitTop = -92
|
---|
18 | ExplicitWidth = 743
|
---|
19 | ExplicitHeight = 548
|
---|
20 | PixelsPerInch = 96
|
---|
21 | TextHeight = 16
|
---|
22 | object lblDictionary: TLabel [0]
|
---|
23 | Left = 11
|
---|
24 | Top = 1
|
---|
25 | Width = 116
|
---|
26 | Height = 16
|
---|
27 | Caption = 'Main &Dictionary File:'
|
---|
28 | FocusControl = edtDictionary
|
---|
29 | end
|
---|
30 | object lblOpenMedURL: TLabel [1]
|
---|
31 | Left = 11
|
---|
32 | Top = 54
|
---|
33 | Width = 707
|
---|
34 | Height = 14
|
---|
35 | Cursor = crHandPoint
|
---|
36 | Hint = 'URL for Medical Dictionary current being used (GPL license)'
|
---|
37 | Caption =
|
---|
38 | 'http://code.openhub.net/project?pid=08caPIxPvc0&prevcid=1&did=op' +
|
---|
39 | 'enmedspel%2Fsrc%2Fdictionaries&cid=sPPyiSPxN3U&fp=363738&projSel' +
|
---|
40 | 'ected=true'
|
---|
41 | Font.Charset = DEFAULT_CHARSET
|
---|
42 | Font.Color = clBlue
|
---|
43 | Font.Height = -11
|
---|
44 | Font.Name = 'Arial'
|
---|
45 | Font.Style = [fsUnderline]
|
---|
46 | ParentFont = False
|
---|
47 | ParentShowHint = False
|
---|
48 | ShowHint = True
|
---|
49 | WordWrap = True
|
---|
50 | OnClick = lblOpenMedURLClick
|
---|
51 | end
|
---|
52 | object lblDictionariesURL: TLabel [2]
|
---|
53 | Left = 11
|
---|
54 | Top = 25
|
---|
55 | Width = 409
|
---|
56 | Height = 14
|
---|
57 | Cursor = crHandPoint
|
---|
58 | Hint = 'URL for other language dictionaries'
|
---|
59 | Caption =
|
---|
60 | 'http://archive.services.openoffice.org/pub/mirror/OpenOffice.org' +
|
---|
61 | '/contrib/dictionaries/'
|
---|
62 | Font.Charset = DEFAULT_CHARSET
|
---|
63 | Font.Color = clBlue
|
---|
64 | Font.Height = -11
|
---|
65 | Font.Name = 'Arial'
|
---|
66 | Font.Style = [fsUnderline]
|
---|
67 | ParentFont = False
|
---|
68 | ParentShowHint = False
|
---|
69 | ShowHint = True
|
---|
70 | OnClick = lblOpenMedURLClick
|
---|
71 | end
|
---|
72 | object pnlAbout: TPanel [3]
|
---|
73 | Left = 8
|
---|
74 | Top = 8
|
---|
75 | Width = 721
|
---|
76 | Height = 508
|
---|
77 | Caption =
|
---|
78 | 'Work under progress by Sunil Kumar Arora (digitiger@gmail.com).' +
|
---|
79 | '.........Thi will be updated later........'
|
---|
80 | TabOrder = 4
|
---|
81 | Visible = False
|
---|
82 | object Button1: TButton
|
---|
83 | Left = 326
|
---|
84 | Top = 464
|
---|
85 | Width = 75
|
---|
86 | Height = 25
|
---|
87 | Caption = 'OK'
|
---|
88 | TabOrder = 0
|
---|
89 | OnClick = Button1Click
|
---|
90 | end
|
---|
91 | end
|
---|
92 | object pnlMisSpelled: TPanel [4]
|
---|
93 | Left = 0
|
---|
94 | Top = 268
|
---|
95 | Width = 729
|
---|
96 | Height = 248
|
---|
97 | BevelOuter = bvNone
|
---|
98 | TabOrder = 1
|
---|
99 | object Label1: TLabel
|
---|
100 | Left = 11
|
---|
101 | Top = 26
|
---|
102 | Width = 176
|
---|
103 | Height = 16
|
---|
104 | Caption = '&Suggestions and Alternavtives:'
|
---|
105 | FocusControl = lstSuggestions
|
---|
106 | end
|
---|
107 | object Label4: TLabel
|
---|
108 | Left = 11
|
---|
109 | Top = 3
|
---|
110 | Width = 133
|
---|
111 | Height = 16
|
---|
112 | Caption = 'C&urrent Misspelt Word:'
|
---|
113 | FocusControl = edtMisSpelt
|
---|
114 | end
|
---|
115 | object lstSuggestions: TListBox
|
---|
116 | Left = 3
|
---|
117 | Top = 43
|
---|
118 | Width = 406
|
---|
119 | Height = 197
|
---|
120 | ItemHeight = 16
|
---|
121 | TabOrder = 1
|
---|
122 | OnDblClick = lstSuggestionsDblClick
|
---|
123 | end
|
---|
124 | object edtMisSpelt: TEdit
|
---|
125 | Left = 151
|
---|
126 | Top = 4
|
---|
127 | Width = 554
|
---|
128 | Height = 18
|
---|
129 | AutoSize = False
|
---|
130 | BorderStyle = bsNone
|
---|
131 | Color = clBtnFace
|
---|
132 | Font.Charset = ANSI_CHARSET
|
---|
133 | Font.Color = clRed
|
---|
134 | Font.Height = -13
|
---|
135 | Font.Name = 'Tahoma'
|
---|
136 | Font.Style = []
|
---|
137 | ParentFont = False
|
---|
138 | TabOrder = 0
|
---|
139 | Text = 'HighlightEdit'
|
---|
140 | Visible = False
|
---|
141 | end
|
---|
142 | object btnReplaceWith: TButton
|
---|
143 | Left = 452
|
---|
144 | Top = 165
|
---|
145 | Width = 110
|
---|
146 | Height = 25
|
---|
147 | Caption = 'R&eplace with ...'
|
---|
148 | TabOrder = 6
|
---|
149 | OnClick = btnReplaceWithClick
|
---|
150 | end
|
---|
151 | object btnChangeAll: TButton
|
---|
152 | Left = 452
|
---|
153 | Top = 116
|
---|
154 | Width = 110
|
---|
155 | Height = 25
|
---|
156 | Caption = 'Change &All'
|
---|
157 | TabOrder = 3
|
---|
158 | OnClick = btnChangeAllClick
|
---|
159 | end
|
---|
160 | object btnChange: TButton
|
---|
161 | Left = 452
|
---|
162 | Top = 67
|
---|
163 | Width = 110
|
---|
164 | Height = 25
|
---|
165 | Caption = '&Change'
|
---|
166 | TabOrder = 2
|
---|
167 | OnClick = btnChangeClick
|
---|
168 | end
|
---|
169 | object btnAddToDictionary: TButton
|
---|
170 | Left = 611
|
---|
171 | Top = 165
|
---|
172 | Width = 110
|
---|
173 | Height = 25
|
---|
174 | Caption = 'A&dd to Dictionary'
|
---|
175 | TabOrder = 7
|
---|
176 | OnClick = btnAddToDictionaryClick
|
---|
177 | end
|
---|
178 | object btnIgnoreAll: TButton
|
---|
179 | Left = 611
|
---|
180 | Top = 116
|
---|
181 | Width = 110
|
---|
182 | Height = 25
|
---|
183 | Caption = 'I&gnore All'
|
---|
184 | TabOrder = 5
|
---|
185 | OnClick = btnIgnoreAllClick
|
---|
186 | end
|
---|
187 | object btnIgnoreOnce: TButton
|
---|
188 | Left = 611
|
---|
189 | Top = 67
|
---|
190 | Width = 110
|
---|
191 | Height = 25
|
---|
192 | Caption = '&Ignore Once'
|
---|
193 | TabOrder = 4
|
---|
194 | OnClick = btnIgnoreOnceClick
|
---|
195 | end
|
---|
196 | object btnAbort: TButton
|
---|
197 | Left = 611
|
---|
198 | Top = 215
|
---|
199 | Width = 110
|
---|
200 | Height = 25
|
---|
201 | Caption = 'A&bort'
|
---|
202 | TabOrder = 9
|
---|
203 | OnClick = btnAbortClick
|
---|
204 | end
|
---|
205 | object btnUndo: TButton
|
---|
206 | Left = 452
|
---|
207 | Top = 215
|
---|
208 | Width = 110
|
---|
209 | Height = 25
|
---|
210 | Caption = '&Undo'
|
---|
211 | TabOrder = 8
|
---|
212 | OnClick = btnUndoClick
|
---|
213 | end
|
---|
214 | end
|
---|
215 | object edtDictionary: TEdit [5]
|
---|
216 | Left = 131
|
---|
217 | Top = 0
|
---|
218 | Width = 531
|
---|
219 | Height = 23
|
---|
220 | Font.Charset = ANSI_CHARSET
|
---|
221 | Font.Color = clWindowText
|
---|
222 | Font.Height = -11
|
---|
223 | Font.Name = 'Comic Sans MS'
|
---|
224 | Font.Style = []
|
---|
225 | ParentFont = False
|
---|
226 | ReadOnly = True
|
---|
227 | TabOrder = 5
|
---|
228 | OnEnter = edtDictionaryEnter
|
---|
229 | end
|
---|
230 | object btnSelectDict: TBitBtn [6]
|
---|
231 | Left = 471
|
---|
232 | Top = 23
|
---|
233 | Width = 258
|
---|
234 | Height = 25
|
---|
235 | Caption = '&Browse for and select different dictionary'
|
---|
236 | TabOrder = 6
|
---|
237 | OnClick = btnSelectDictClick
|
---|
238 | end
|
---|
239 | object RichEdit1: TRichEdit [7]
|
---|
240 | Left = 3
|
---|
241 | Top = 101
|
---|
242 | Width = 726
|
---|
243 | Height = 161
|
---|
244 | Lines.Strings = (
|
---|
245 | 'Nothing to Check !')
|
---|
246 | ScrollBars = ssBoth
|
---|
247 | TabOrder = 0
|
---|
248 | OnKeyDown = RichEdit1KeyDown
|
---|
249 | OnKeyUp = RichEdit1KeyUp
|
---|
250 | end
|
---|
251 | object btnAbout: TButton [8]
|
---|
252 | Left = 452
|
---|
253 | Top = 291
|
---|
254 | Width = 110
|
---|
255 | Height = 25
|
---|
256 | Caption = 'A&bout'
|
---|
257 | TabOrder = 3
|
---|
258 | OnClick = btnAboutClick
|
---|
259 | end
|
---|
260 | object btnClose: TButton [9]
|
---|
261 | Left = 611
|
---|
262 | Top = 291
|
---|
263 | Width = 110
|
---|
264 | Height = 25
|
---|
265 | Caption = 'C&lose'
|
---|
266 | ModalResult = 1
|
---|
267 | TabOrder = 2
|
---|
268 | Visible = False
|
---|
269 | OnClick = btnCloseClick
|
---|
270 | end
|
---|
271 | object cbIgnoreAllCaps: TCheckBox [10]
|
---|
272 | Left = 131
|
---|
273 | Top = 74
|
---|
274 | Width = 178
|
---|
275 | Height = 17
|
---|
276 | Caption = 'Ignore words in &UpperCase'
|
---|
277 | TabOrder = 7
|
---|
278 | OnClick = cbIgnoreAllCapsClick
|
---|
279 | end
|
---|
280 | object cbIgnoreDigit: TCheckBox [11]
|
---|
281 | Left = 339
|
---|
282 | Top = 73
|
---|
283 | Width = 166
|
---|
284 | Height = 17
|
---|
285 | Caption = 'Ignore words with &digits'
|
---|
286 | TabOrder = 8
|
---|
287 | OnClick = cbIgnoreDigitClick
|
---|
288 | end
|
---|
289 | inherited amgrMain: TVA508AccessibilityManager
|
---|
290 | Data = (
|
---|
291 | (
|
---|
292 | 'Component = pnlMisSpelled'
|
---|
293 | 'Status = stsDefault')
|
---|
294 | (
|
---|
295 | 'Component = lstSuggestions'
|
---|
296 | 'Status = stsDefault')
|
---|
297 | (
|
---|
298 | 'Component = edtMisSpelt'
|
---|
299 | 'Status = stsDefault')
|
---|
300 | (
|
---|
301 | 'Component = btnReplaceWith'
|
---|
302 | 'Status = stsDefault')
|
---|
303 | (
|
---|
304 | 'Component = btnChangeAll'
|
---|
305 | 'Status = stsDefault')
|
---|
306 | (
|
---|
307 | 'Component = btnChange'
|
---|
308 | 'Status = stsDefault')
|
---|
309 | (
|
---|
310 | 'Component = btnAddToDictionary'
|
---|
311 | 'Status = stsDefault')
|
---|
312 | (
|
---|
313 | 'Component = btnIgnoreAll'
|
---|
314 | 'Status = stsDefault')
|
---|
315 | (
|
---|
316 | 'Component = btnIgnoreOnce'
|
---|
317 | 'Status = stsDefault')
|
---|
318 | (
|
---|
319 | 'Component = btnAbort'
|
---|
320 | 'Status = stsDefault')
|
---|
321 | (
|
---|
322 | 'Component = btnClose'
|
---|
323 | 'Status = stsDefault')
|
---|
324 | (
|
---|
325 | 'Component = edtDictionary'
|
---|
326 | 'Status = stsDefault')
|
---|
327 | (
|
---|
328 | 'Component = btnSelectDict'
|
---|
329 | 'Status = stsDefault')
|
---|
330 | (
|
---|
331 | 'Component = RichEdit1'
|
---|
332 | 'Status = stsDefault')
|
---|
333 | (
|
---|
334 | 'Component = frmHunSpell'
|
---|
335 | 'Status = stsDefault')
|
---|
336 | (
|
---|
337 | 'Component = btnAbout'
|
---|
338 | 'Status = stsDefault')
|
---|
339 | (
|
---|
340 | 'Component = pnlAbout'
|
---|
341 | 'Status = stsDefault')
|
---|
342 | (
|
---|
343 | 'Component = Button1'
|
---|
344 | 'Status = stsDefault')
|
---|
345 | (
|
---|
346 | 'Component = btnUndo'
|
---|
347 | 'Status = stsDefault')
|
---|
348 | (
|
---|
349 | 'Component = cbIgnoreAllCaps'
|
---|
350 | 'Status = stsDefault')
|
---|
351 | (
|
---|
352 | 'Component = cbIgnoreDigit'
|
---|
353 | 'Status = stsDefault'))
|
---|
354 | end
|
---|
355 | object OpenDialog1: TOpenDialog
|
---|
356 | DefaultExt = '*.Dict'
|
---|
357 | FileName = 'en_US-large.dic'
|
---|
358 | Filter = 'HanSpell Dictionary & Aff file|*.dic'
|
---|
359 | Title = 'Specify Dictionary file (Corresponding *.aff file also required)'
|
---|
360 | Left = 668
|
---|
361 | Top = 65534
|
---|
362 | end
|
---|
363 | object SpellCheck1: TskaHunSpellChecker
|
---|
364 | Active = False
|
---|
365 | CustDictionaryFile =
|
---|
366 | 'C:\Documents and Settings\All Users\Documents\CustomDictionary.d' +
|
---|
367 | 'ic'
|
---|
368 | MisSpeltWord = edtMisSpelt
|
---|
369 | OnStart = SpellCheck1Start
|
---|
370 | OnStateChange = SpellCheck1StateChange
|
---|
371 | OnAbort = SpellCheck1Abort
|
---|
372 | SourceTextControl = RichEdit1
|
---|
373 | SuggestionList = lstSuggestions
|
---|
374 | Left = 368
|
---|
375 | Top = 104
|
---|
376 | end
|
---|
377 | end
|
---|