source: cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/Demo/fHunSpell.dfm@ 1717

Last change on this file since 1717 was 1715, checked in by healthsevak, 10 years ago

Modified the library to make it more generic from Delphi community point of view before sharing with original author/custodian of HunSpell library at sourceforge

File size: 5.8 KB
Line 
1object 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 Color = clBtnFace
9 Font.Charset = ANSI_CHARSET
10 Font.Color = clWindowText
11 Font.Height = -13
12 Font.Name = 'Tahoma'
13 Font.Style = []
14 OldCreateOrder = True
15 Position = poScreenCenter
16 OnActivate = FormActivate
17 OnClose = FormClose
18 OnCreate = FormCreate
19 PixelsPerInch = 96
20 TextHeight = 16
21 object lblDictionary: TLabel
22 Left = 11
23 Top = 3
24 Width = 116
25 Height = 16
26 Caption = 'Main &Dictionary File:'
27 FocusControl = edtDictionary
28 end
29 object lblDictionariesURL: TLabel
30 Left = 8
31 Top = 32
32 Width = 417
33 Height = 14
34 Cursor = crHandPoint
35 Hint = 'URL for compatible dictionaries for other languages'
36 Caption =
37 'http://archive.services.openoffice.org/pub/mirror/OpenOffice.org' +
38 '/contrib/dictionaries/'
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 OnClick = lblDictionariesURLClick
48 end
49 object pnlMisSpelled: TPanel
50 Left = 0
51 Top = 268
52 Width = 729
53 Height = 248
54 BevelOuter = bvNone
55 TabOrder = 4
56 object Label1: TLabel
57 Left = 11
58 Top = 26
59 Width = 176
60 Height = 16
61 Caption = '&Suggestions and Alternavtives:'
62 FocusControl = lstSuggestions
63 end
64 object Label4: TLabel
65 Left = 11
66 Top = 3
67 Width = 133
68 Height = 16
69 Caption = 'C&urrent Misspelt Word:'
70 FocusControl = edtMisSpeltWordForExtraHint
71 end
72 object lstSuggestions: TListBox
73 Left = 3
74 Top = 43
75 Width = 406
76 Height = 197
77 ItemHeight = 16
78 TabOrder = 1
79 OnDblClick = lstSuggestionsDblClick
80 end
81 object edtMisSpeltWordForExtraHint: TEdit
82 Left = 151
83 Top = 4
84 Width = 554
85 Height = 18
86 AutoSize = False
87 BorderStyle = bsNone
88 Color = clBtnFace
89 Font.Charset = ANSI_CHARSET
90 Font.Color = clRed
91 Font.Height = -13
92 Font.Name = 'Tahoma'
93 Font.Style = []
94 ParentFont = False
95 TabOrder = 0
96 Text = 'HighlightEdit'
97 Visible = False
98 end
99 object btnReplaceWith: TButton
100 Left = 452
101 Top = 171
102 Width = 110
103 Height = 25
104 Caption = '&Replace with ...'
105 TabOrder = 6
106 OnClick = btnReplaceWithClick
107 end
108 object btnChangeAll: TButton
109 Left = 452
110 Top = 127
111 Width = 110
112 Height = 25
113 Caption = 'Change &All'
114 TabOrder = 3
115 OnClick = btnChangeAllClick
116 end
117 object btnChange: TButton
118 Left = 452
119 Top = 84
120 Width = 110
121 Height = 25
122 Caption = '&Change'
123 TabOrder = 2
124 OnClick = btnChangeClick
125 end
126 object btnAddToDictionary: TButton
127 Left = 611
128 Top = 171
129 Width = 110
130 Height = 25
131 Caption = 'A&dd to Dictionary'
132 TabOrder = 8
133 OnClick = btnAddToDictionaryClick
134 end
135 object btnIgnoreAll: TButton
136 Left = 611
137 Top = 127
138 Width = 110
139 Height = 25
140 Caption = 'I&gnore All'
141 TabOrder = 5
142 OnClick = btnIgnoreAllClick
143 end
144 object btnIgnoreOnce: TButton
145 Left = 611
146 Top = 84
147 Width = 110
148 Height = 25
149 Caption = '&Ignore Once'
150 TabOrder = 4
151 OnClick = btnIgnoreOnceClick
152 end
153 object btnAbort: TButton
154 Left = 611
155 Top = 215
156 Width = 110
157 Height = 25
158 Caption = 'A&bort'
159 ModalResult = 3
160 TabOrder = 9
161 OnClick = btnAbortClick
162 end
163 object btnUndo: TButton
164 Left = 452
165 Top = 215
166 Width = 110
167 Height = 25
168 Caption = '&Undo'
169 TabOrder = 7
170 OnClick = btnUndoClick
171 end
172 end
173 object edtDictionary: TEdit
174 Left = 131
175 Top = 2
176 Width = 531
177 Height = 23
178 Font.Charset = ANSI_CHARSET
179 Font.Color = clWindowText
180 Font.Height = -11
181 Font.Name = 'Comic Sans MS'
182 Font.Style = []
183 ParentFont = False
184 ReadOnly = True
185 TabOrder = 1
186 OnEnter = edtDictionaryEnter
187 end
188 object btnSelectDict: TBitBtn
189 Left = 485
190 Top = 26
191 Width = 244
192 Height = 25
193 Caption = '&Browse for and select different dictionary'
194 TabOrder = 2
195 OnClick = btnSelectDictClick
196 end
197 object RichEdit1: TRichEdit
198 Left = 3
199 Top = 57
200 Width = 726
201 Height = 205
202 Lines.Strings = (
203 'Type orr Paste heree the text '
204 ' for which you wish to do the SpellCheck')
205 ScrollBars = ssBoth
206 TabOrder = 0
207 OnKeyDown = RichEdit1KeyDown
208 OnKeyUp = RichEdit1KeyUp
209 end
210 object btnStart: TButton
211 Left = 452
212 Top = 310
213 Width = 110
214 Height = 25
215 Caption = '&Start SpellCheck'
216 TabOrder = 3
217 OnClick = btnStartClick
218 end
219 object btnClose: TButton
220 Left = 611
221 Top = 310
222 Width = 110
223 Height = 25
224 Caption = 'C&lose'
225 ModalResult = 1
226 TabOrder = 5
227 Visible = False
228 OnClick = btnCloseClick
229 end
230 object OpenDialog1: TOpenDialog
231 DefaultExt = '*.Dict'
232 FileName = 'en_US-large.dic'
233 Filter = 'HanSpell Dictionary & Aff file|*.dic'
234 Title = 'Specify Dictionary file (Corresponding *.aff file also required)'
235 Left = 668
236 Top = 65534
237 end
238 object SpellCheck1: TskaHunSpellChecker
239 Active = False
240 MisSpeltWord = edtMisSpeltWordForExtraHint
241 OnStart = SpellCheck1Start
242 OnStateChange = SpellCheck1StateChange
243 OnAbort = SpellCheck1Abort
244 SourceTextControl = RichEdit1
245 SuggestionList = lstSuggestions
246 Left = 368
247 Top = 104
248 end
249end
Note: See TracBrowser for help on using the repository browser.