source: cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/Demo/fGUIforSpellCheck.dfm@ 1693

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

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