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

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

Added few options to SpellChecker which persists beyond current session

File size: 9.0 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 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
377end
Note: See TracBrowser for help on using the repository browser.