source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHanSpell.dfm@ 1797

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

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