source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.dfm@ 1723

Last change on this file since 1723 was 1723, checked in by healthsevak, 9 years ago

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