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

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

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