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

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

Did minor changes related to manual modification by user inside the richedit control
File size: 8.1 KB
RevLine 
[1693]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
[1700]252 OnKeyDown = RichEdit1KeyDown
253 OnKeyUp = RichEdit1KeyUp
[1693]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.