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

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

Did minor changes related to manual modification by user inside the richedit control
File size: 8.1 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 TabOrder = 6
75 Visible = False
76 object Button1: TButton
77 Left = 326
78 Top = 464
79 Width = 75
80 Height = 25
81 Caption = 'OK'
82 TabOrder = 0
83 OnClick = Button1Click
84 end
85 end
86 object btnClose: TButton [4]
87 Left = 503
88 Top = 483
89 Width = 110
90 Height = 25
91 Caption = 'C&lose'
92 ModalResult = 1
93 TabOrder = 2
94 Visible = False
95 OnClick = btnCloseClick
96 end
97 object pnlMisSpelled: TPanel [5]
98 Left = 0
99 Top = 268
100 Width = 729
101 Height = 248
102 BevelOuter = bvNone
103 TabOrder = 1
104 object Label1: TLabel
105 Left = 11
106 Top = 26
107 Width = 176
108 Height = 16
109 Caption = '&Suggestions and Alternavtives:'
110 FocusControl = lstSuggestions
111 end
112 object Label4: TLabel
113 Left = 11
114 Top = 3
115 Width = 133
116 Height = 16
117 Caption = 'C&urrent Misspelt Word:'
118 FocusControl = Edit2
119 end
120 object lstSuggestions: TListBox
121 Left = 3
122 Top = 43
123 Width = 406
124 Height = 197
125 ItemHeight = 16
126 TabOrder = 1
127 end
128 object Edit2: TEdit
129 Left = 151
130 Top = 4
131 Width = 554
132 Height = 18
133 AutoSize = False
134 BorderStyle = bsNone
135 Color = clBtnFace
136 Font.Charset = ANSI_CHARSET
137 Font.Color = clRed
138 Font.Height = -13
139 Font.Name = 'Tahoma'
140 Font.Style = []
141 ParentFont = False
142 TabOrder = 0
143 Text = 'HighlightEdit'
144 Visible = False
145 end
146 object btnReplaceWith: TButton
147 Left = 452
148 Top = 129
149 Width = 110
150 Height = 25
151 Caption = 'R&eplace with ...'
152 TabOrder = 6
153 OnClick = btnReplaceWithClick
154 end
155 object btnChangeAll: TButton
156 Left = 452
157 Top = 84
158 Width = 110
159 Height = 25
160 Caption = 'Change &All'
161 TabOrder = 3
162 OnClick = btnChangeAllClick
163 end
164 object btnChange: TButton
165 Left = 452
166 Top = 39
167 Width = 110
168 Height = 25
169 Caption = '&Change'
170 TabOrder = 2
171 OnClick = btnChangeClick
172 end
173 object btnAddToDictionary: TButton
174 Left = 611
175 Top = 129
176 Width = 110
177 Height = 25
178 Caption = 'A&dd to Dictionary'
179 TabOrder = 8
180 OnClick = btnAddToDictionaryClick
181 end
182 object btnIgnoreAll: TButton
183 Left = 611
184 Top = 84
185 Width = 110
186 Height = 25
187 Caption = 'I&gnore All'
188 TabOrder = 5
189 OnClick = btnIgnoreAllClick
190 end
191 object btnIgnoreOnce: TButton
192 Left = 611
193 Top = 39
194 Width = 110
195 Height = 25
196 Caption = '&Ignore Once'
197 TabOrder = 4
198 OnClick = btnIgnoreOnceClick
199 end
200 object btnCancel: TButton
201 Left = 619
202 Top = 216
203 Width = 110
204 Height = 25
205 Caption = 'Ca&ncel'
206 TabOrder = 9
207 OnClick = btnCancelClick
208 end
209 object btnUndo: TButton
210 Left = 452
211 Top = 175
212 Width = 110
213 Height = 25
214 Caption = '&Undo'
215 TabOrder = 7
216 OnClick = btnUndoClick
217 end
218 end
219 object Edit1: TEdit [6]
220 Left = 131
221 Top = 0
222 Width = 531
223 Height = 23
224 Font.Charset = ANSI_CHARSET
225 Font.Color = clWindowText
226 Font.Height = -11
227 Font.Name = 'Comic Sans MS'
228 Font.Style = []
229 ParentFont = False
230 ReadOnly = True
231 TabOrder = 3
232 OnEnter = Edit1Enter
233 end
234 object btnSelectDict: TBitBtn [7]
235 Left = 476
236 Top = 26
237 Width = 258
238 Height = 25
239 Caption = '&Browse for and select different dictionary'
240 TabOrder = 4
241 OnClick = btnSelectDictClick
242 end
243 object RichEdit1: TRichEdit [8]
244 Left = 3
245 Top = 101
246 Width = 726
247 Height = 161
248 Lines.Strings = (
249 'Nothing to Check !')
250 ScrollBars = ssBoth
251 TabOrder = 0
252 OnKeyDown = RichEdit1KeyDown
253 OnKeyUp = RichEdit1KeyUp
254 end
255 object btnAbout: TButton [9]
256 Left = 452
257 Top = 483
258 Width = 110
259 Height = 25
260 Caption = 'A&bout'
261 TabOrder = 5
262 OnClick = btnAboutClick
263 end
264 inherited amgrMain: TVA508AccessibilityManager
265 Data = (
266 (
267 'Component = pnlMisSpelled'
268 'Status = stsDefault')
269 (
270 'Component = lstSuggestions'
271 'Status = stsDefault')
272 (
273 'Component = Edit2'
274 'Status = stsDefault')
275 (
276 'Component = btnReplaceWith'
277 'Status = stsDefault')
278 (
279 'Component = btnChangeAll'
280 'Status = stsDefault')
281 (
282 'Component = btnChange'
283 'Status = stsDefault')
284 (
285 'Component = btnAddToDictionary'
286 'Status = stsDefault')
287 (
288 'Component = btnIgnoreAll'
289 'Status = stsDefault')
290 (
291 'Component = btnIgnoreOnce'
292 'Status = stsDefault')
293 (
294 'Component = btnCancel'
295 'Status = stsDefault')
296 (
297 'Component = btnClose'
298 'Status = stsDefault')
299 (
300 'Component = Edit1'
301 'Status = stsDefault')
302 (
303 'Component = btnSelectDict'
304 'Status = stsDefault')
305 (
306 'Component = RichEdit1'
307 'Status = stsDefault')
308 (
309 'Component = frmHunSpell'
310 'Status = stsDefault')
311 (
312 'Component = btnAbout'
313 'Status = stsDefault')
314 (
315 'Component = pnlAbout'
316 'Status = stsDefault')
317 (
318 'Component = Button1'
319 'Status = stsDefault')
320 (
321 'Component = btnUndo'
322 'Status = stsDefault'))
323 end
324 object OpenDialog1: TOpenDialog
325 DefaultExt = '*.Dict'
326 FileName = 'en_US-large.dic'
327 Filter = 'HanSpell Dictionary & Aff file|*.dic'
328 Title = 'Specify Dictionary file (Corresponding *.aff file also required)'
329 Left = 668
330 Top = 65534
331 end
332 object SpellCheck1: TskaHunSpellChecker
333 Active = False
334 btnClose = btnClose
335 CustDictionaryFile =
336 'C:\Documents and Settings\All Users\Documents\CustomDictionary.d' +
337 'ic'
338 MisSpeltWord = Edit2
339 SourceTextControl = RichEdit1
340 SpellCheckCompletionMessage = 'Spell Check Complete'
341 SuggestionList = lstSuggestions
342 Left = 368
343 Top = 104
344 end
345end
Note: See TracBrowser for help on using the repository browser.