projects / wxWidgets.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Remove superfluous assert that conflicts with style settings needed on
[wxWidgets.git] / src / msw / textctrl.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/msw/textctrl.cpp
3 // Purpose: wxTextCtrl
4 // Author: Julian Smart
5 // Modified by:
6 // Created: 04/01/98
7 // RCS-ID: $Id$
8 // Copyright: (c) Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 // ============================================================================
13 // declarations
14 // ============================================================================
15
16 // ----------------------------------------------------------------------------
17 // headers
18 // ----------------------------------------------------------------------------
19
20 // For compilers that support precompilation, includes "wx.h".
21 #include "wx/wxprec.h"
22
23 #ifdef __BORLANDC__
24 #pragma hdrstop
25 #endif
26
27 #if wxUSE_TEXTCTRL && !(defined(__SMARTPHONE__) && defined(__WXWINCE__))
28
29 #ifndef WX_PRECOMP
30 #include "wx/textctrl.h"
31 #include "wx/settings.h"
32 #include "wx/brush.h"
33 #include "wx/utils.h"
34 #include "wx/intl.h"
35 #include "wx/log.h"
36 #include "wx/app.h"
37 #include "wx/menu.h"
38 #include "wx/math.h"
39 #include "wx/module.h"
40 #endif
41
42 #include "wx/sysopt.h"
43
44 #if wxUSE_CLIPBOARD
45 #include "wx/clipbrd.h"
46 #endif
47
48 #include "wx/textfile.h"
49
50 #include <windowsx.h>
51
52 #include "wx/msw/private.h"
53 #include "wx/msw/winundef.h"
54 #include "wx/msw/mslu.h"
55
56 #include <string.h>
57 #include <stdlib.h>
58
59 #ifndef __WXWINCE__
60 #include <sys/types.h>
61 #endif
62
63 #if wxUSE_RICHEDIT
64
65 #if wxUSE_INKEDIT
66 #include "wx/dynlib.h"
67 #endif
68
69 // old mingw32 has richedit stuff directly in windows.h and doesn't have
70 // richedit.h at all
71 #if !defined(__GNUWIN32_OLD__) || defined(__CYGWIN10__)
72 #include <richedit.h>
73 #endif
74
75 #endif // wxUSE_RICHEDIT
76
77 #include "wx/msw/missing.h"
78
79 // ----------------------------------------------------------------------------
80 // private classes
81 // ----------------------------------------------------------------------------
82
83 #if wxUSE_RICHEDIT
84
85 // this module initializes RichEdit DLL(s) if needed
86 class wxRichEditModule : public wxModule
87 {
88 public:
89 enum Version
90 {
91 Version_1, // riched32.dll
92 Version_2or3, // both use riched20.dll
93 Version_41, // msftedit.dll (XP SP1 and Windows 2003)
94 Version_Max
95 };
96
97 virtual bool OnInit();
98 virtual void OnExit();
99
100 // load the richedit DLL for the specified version of rich edit
101 static bool Load(Version version);
102
103 #if wxUSE_INKEDIT
104 // load the InkEdit library
105 static bool LoadInkEdit();
106 #endif
107
108 private:
109 // the handles to richedit 1.0 and 2.0 (or 3.0) DLLs
110 static HINSTANCE ms_hRichEdit[Version_Max];
111
112 #if wxUSE_INKEDIT
113 static wxDynamicLibrary ms_inkEditLib;
114 static bool ms_inkEditLibLoadAttemped;
115 #endif
116
117 DECLARE_DYNAMIC_CLASS(wxRichEditModule)
118 };
119
120 HINSTANCE wxRichEditModule::ms_hRichEdit[Version_Max] = { NULL, NULL, NULL };
121
122 #if wxUSE_INKEDIT
123 wxDynamicLibrary wxRichEditModule::ms_inkEditLib;
124 bool wxRichEditModule::ms_inkEditLibLoadAttemped = false;
125 #endif
126
127 IMPLEMENT_DYNAMIC_CLASS(wxRichEditModule, wxModule)
128
129 #endif // wxUSE_RICHEDIT
130
131 // a small class used to set m_updatesCount to 0 (to filter duplicate events if
132 // necessary) and to reset it back to -1 afterwards
133 class UpdatesCountFilter
134 {
135 public:
136 UpdatesCountFilter(int& count)
137 : m_count(count)
138 {
139 wxASSERT_MSG( m_count == -1 || m_count == -2,
140 _T("wrong initial m_updatesCount value") );
141
142 if (m_count != -2)
143 m_count = 0;
144 //else: we don't want to count how many update events we get as we're going
145 // to ignore all of them
146 }
147
148 ~UpdatesCountFilter()
149 {
150 m_count = -1;
151 }
152
153 // return true if an event has been received
154 bool GotUpdate() const
155 {
156 return m_count == 1;
157 }
158
159 private:
160 int& m_count;
161
162 DECLARE_NO_COPY_CLASS(UpdatesCountFilter)
163 };
164
165 // ----------------------------------------------------------------------------
166 // event tables and other macros
167 // ----------------------------------------------------------------------------
168
169 #if wxUSE_EXTENDED_RTTI
170 WX_DEFINE_FLAGS( wxTextCtrlStyle )
171
172 wxBEGIN_FLAGS( wxTextCtrlStyle )
173 // new style border flags, we put them first to
174 // use them for streaming out
175 wxFLAGS_MEMBER(wxBORDER_SIMPLE)
176 wxFLAGS_MEMBER(wxBORDER_SUNKEN)
177 wxFLAGS_MEMBER(wxBORDER_DOUBLE)
178 wxFLAGS_MEMBER(wxBORDER_RAISED)
179 wxFLAGS_MEMBER(wxBORDER_STATIC)
180 wxFLAGS_MEMBER(wxBORDER_NONE)
181
182 // old style border flags
183 wxFLAGS_MEMBER(wxSIMPLE_BORDER)
184 wxFLAGS_MEMBER(wxSUNKEN_BORDER)
185 wxFLAGS_MEMBER(wxDOUBLE_BORDER)
186 wxFLAGS_MEMBER(wxRAISED_BORDER)
187 wxFLAGS_MEMBER(wxSTATIC_BORDER)
188 wxFLAGS_MEMBER(wxBORDER)
189
190 // standard window styles
191 wxFLAGS_MEMBER(wxTAB_TRAVERSAL)
192 wxFLAGS_MEMBER(wxCLIP_CHILDREN)
193 wxFLAGS_MEMBER(wxTRANSPARENT_WINDOW)
194 wxFLAGS_MEMBER(wxWANTS_CHARS)
195 wxFLAGS_MEMBER(wxFULL_REPAINT_ON_RESIZE)
196 wxFLAGS_MEMBER(wxALWAYS_SHOW_SB )
197 wxFLAGS_MEMBER(wxVSCROLL)
198 wxFLAGS_MEMBER(wxHSCROLL)
199
200 wxFLAGS_MEMBER(wxTE_PROCESS_ENTER)
201 wxFLAGS_MEMBER(wxTE_PROCESS_TAB)
202 wxFLAGS_MEMBER(wxTE_MULTILINE)
203 wxFLAGS_MEMBER(wxTE_PASSWORD)
204 wxFLAGS_MEMBER(wxTE_READONLY)
205 wxFLAGS_MEMBER(wxHSCROLL)
206 wxFLAGS_MEMBER(wxTE_RICH)
207 wxFLAGS_MEMBER(wxTE_RICH2)
208 wxFLAGS_MEMBER(wxTE_AUTO_URL)
209 wxFLAGS_MEMBER(wxTE_NOHIDESEL)
210 wxFLAGS_MEMBER(wxTE_LEFT)
211 wxFLAGS_MEMBER(wxTE_CENTRE)
212 wxFLAGS_MEMBER(wxTE_RIGHT)
213 wxFLAGS_MEMBER(wxTE_DONTWRAP)
214 wxFLAGS_MEMBER(wxTE_CHARWRAP)
215 wxFLAGS_MEMBER(wxTE_WORDWRAP)
216
217 wxEND_FLAGS( wxTextCtrlStyle )
218
219 IMPLEMENT_DYNAMIC_CLASS_XTI(wxTextCtrl, wxControl,"wx/textctrl.h")
220
221 wxBEGIN_PROPERTIES_TABLE(wxTextCtrl)
222 wxEVENT_PROPERTY( TextUpdated , wxEVT_COMMAND_TEXT_UPDATED , wxCommandEvent )
223 wxEVENT_PROPERTY( TextEnter , wxEVT_COMMAND_TEXT_ENTER , wxCommandEvent )
224
225 wxPROPERTY( Font , wxFont , SetFont , GetFont , EMPTY_MACROVALUE, 0 /*flags*/ , wxT("Helpstring") , wxT("group") )
226 wxPROPERTY( Value , wxString , SetValue, GetValue, wxString() , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
227 wxPROPERTY_FLAGS( WindowStyle , wxTextCtrlStyle , long , SetWindowStyleFlag , GetWindowStyleFlag , EMPTY_MACROVALUE , 0 /*flags*/ , wxT("Helpstring") , wxT("group")) // style
228 wxEND_PROPERTIES_TABLE()
229
230 wxBEGIN_HANDLERS_TABLE(wxTextCtrl)
231 wxEND_HANDLERS_TABLE()
232
233 wxCONSTRUCTOR_6( wxTextCtrl , wxWindow* , Parent , wxWindowID , Id , wxString , Value , wxPoint , Position , wxSize , Size , long , WindowStyle)
234 #else
235 IMPLEMENT_DYNAMIC_CLASS(wxTextCtrl, wxTextCtrlBase)
236 #endif
237
238
239 BEGIN_EVENT_TABLE(wxTextCtrl, wxTextCtrlBase)
240 EVT_CHAR(wxTextCtrl::OnChar)
241 EVT_DROP_FILES(wxTextCtrl::OnDropFiles)
242
243 #if wxUSE_RICHEDIT
244 EVT_CONTEXT_MENU(wxTextCtrl::OnContextMenu)
245 #endif
246
247 EVT_MENU(wxID_CUT, wxTextCtrl::OnCut)
248 EVT_MENU(wxID_COPY, wxTextCtrl::OnCopy)
249 EVT_MENU(wxID_PASTE, wxTextCtrl::OnPaste)
250 EVT_MENU(wxID_UNDO, wxTextCtrl::OnUndo)
251 EVT_MENU(wxID_REDO, wxTextCtrl::OnRedo)
252 EVT_MENU(wxID_CLEAR, wxTextCtrl::OnDelete)
253 EVT_MENU(wxID_SELECTALL, wxTextCtrl::OnSelectAll)
254
255 EVT_UPDATE_UI(wxID_CUT, wxTextCtrl::OnUpdateCut)
256 EVT_UPDATE_UI(wxID_COPY, wxTextCtrl::OnUpdateCopy)
257 EVT_UPDATE_UI(wxID_PASTE, wxTextCtrl::OnUpdatePaste)
258 EVT_UPDATE_UI(wxID_UNDO, wxTextCtrl::OnUpdateUndo)
259 EVT_UPDATE_UI(wxID_REDO, wxTextCtrl::OnUpdateRedo)
260 EVT_UPDATE_UI(wxID_CLEAR, wxTextCtrl::OnUpdateDelete)
261 EVT_UPDATE_UI(wxID_SELECTALL, wxTextCtrl::OnUpdateSelectAll)
262
263 EVT_SET_FOCUS(wxTextCtrl::OnSetFocus)
264 END_EVENT_TABLE()
265
266 // ----------------------------------------------------------------------------
267 // function prototypes
268 // ----------------------------------------------------------------------------
269
270 LRESULT APIENTRY _EXPORT wxTextCtrlWndProc(HWND hWnd,
271 UINT message,
272 WPARAM wParam,
273 LPARAM lParam);
274
275 // ---------------------------------------------------------------------------
276 // global vars
277 // ---------------------------------------------------------------------------
278
279 // the pointer to standard text control wnd proc
280 static WNDPROC gs_wndprocEdit = (WNDPROC)NULL;
281
282 // ============================================================================
283 // implementation
284 // ============================================================================
285
286 // ----------------------------------------------------------------------------
287 // wnd proc for subclassed edit control
288 // ----------------------------------------------------------------------------
289
290 LRESULT APIENTRY _EXPORT wxTextCtrlWndProc(HWND hWnd,
291 UINT message,
292 WPARAM wParam,
293 LPARAM lParam)
294 {
295 switch ( message )
296 {
297 case WM_CUT:
298 case WM_COPY:
299 case WM_PASTE:
300 {
301 wxWindow *win = wxFindWinFromHandle((WXHWND)hWnd);
302 if( win->HandleClipboardEvent( message ) )
303 return 0;
304 break;
305 }
306 }
307 return ::CallWindowProc(CASTWNDPROC gs_wndprocEdit, hWnd, message, wParam, lParam);
308 }
309
310 // ----------------------------------------------------------------------------
311 // creation
312 // ----------------------------------------------------------------------------
313
314 void wxTextCtrl::Init()
315 {
316 #if wxUSE_RICHEDIT
317 m_verRichEdit = 0;
318 #endif // wxUSE_RICHEDIT
319
320 #if wxUSE_INKEDIT && wxUSE_RICHEDIT
321 m_isInkEdit = 0;
322 #endif
323
324 m_privateContextMenu = NULL;
325 m_updatesCount = -1;
326 m_isNativeCaretShown = true;
327 }
328
329 wxTextCtrl::~wxTextCtrl()
330 {
331 delete m_privateContextMenu;
332 }
333
334 bool wxTextCtrl::Create(wxWindow *parent, wxWindowID id,
335 const wxString& value,
336 const wxPoint& pos,
337 const wxSize& size,
338 long style,
339 const wxValidator& validator,
340 const wxString& name)
341 {
342 #ifdef __WXWINCE__
343 if ((style & wxBORDER_MASK) == 0)
344 style |= wxBORDER_SIMPLE;
345 #endif
346
347 // base initialization
348 if ( !CreateControl(parent, id, pos, size, style, validator, name) )
349 return false;
350
351 // translate wxWin style flags to MSW ones
352 WXDWORD msStyle = MSWGetCreateWindowFlags();
353
354 // do create the control - either an EDIT or RICHEDIT
355 wxString windowClass = wxT("EDIT");
356
357 #if defined(__POCKETPC__) || defined(__SMARTPHONE__)
358 // A control that capitalizes the first letter
359 if (style & wxTE_CAPITALIZE)
360 windowClass = wxT("CAPEDIT");
361 #endif
362
363 #if wxUSE_RICHEDIT
364 if ( m_windowStyle & wxTE_AUTO_URL )
365 {
366 // automatic URL detection only works in RichEdit 2.0+
367 m_windowStyle |= wxTE_RICH2;
368 }
369
370 if ( m_windowStyle & wxTE_RICH2 )
371 {
372 // using richedit 2.0 implies using wxTE_RICH
373 m_windowStyle |= wxTE_RICH;
374 }
375
376 // we need to load the richedit DLL before creating the rich edit control
377 if ( m_windowStyle & wxTE_RICH )
378 {
379 // versions 2.0, 3.0 and 4.1 of rich edit are mostly compatible with
380 // each other but not with version 1.0, so we have separate flags for
381 // the version 1.0 and the others (and so m_verRichEdit may be 0 (plain
382 // EDIT control), 1 for version 1.0 or 2 for any higher version)
383 //
384 // notice that 1.0 has no Unicode support at all so in Unicode build we
385 // must use another version
386
387 #if wxUSE_UNICODE
388 m_verRichEdit = 2;
389 #else // !wxUSE_UNICODE
390 m_verRichEdit = m_windowStyle & wxTE_RICH2 ? 2 : 1;
391 #endif // wxUSE_UNICODE/!wxUSE_UNICODE
392
393 #if wxUSE_INKEDIT
394 // First test if we can load an ink edit control. Normally, all edit
395 // controls will be made ink edit controls if a tablet environment is
396 // found (or if msw.inkedit != 0 and the InkEd.dll is present).
397 // However, an application can veto ink edit controls by either specifying
398 // msw.inkedit = 0 or by removing wxTE_RICH[2] from the style.
399 //
400 if ((wxSystemSettings::HasFeature(wxSYS_TABLET_PRESENT) || wxSystemOptions::GetOptionInt(wxT("msw.inkedit")) != 0) &&
401 !(wxSystemOptions::HasOption(wxT("msw.inkedit")) && wxSystemOptions::GetOptionInt(wxT("msw.inkedit")) == 0))
402 {
403 if (wxRichEditModule::LoadInkEdit())
404 {
405 windowClass = INKEDIT_CLASS;
406
407 #if wxUSE_INKEDIT && wxUSE_RICHEDIT
408 m_isInkEdit = 1;
409 #endif
410
411 // Fake rich text version for other calls
412 m_verRichEdit = 2;
413 }
414 }
415 #endif
416
417 if (!IsInkEdit())
418 {
419 if ( m_verRichEdit == 2 )
420 {
421 if ( wxRichEditModule::Load(wxRichEditModule::Version_41) )
422 {
423 // yes, class name for version 4.1 really is 5.0
424 windowClass = _T("RICHEDIT50W");
425 }
426 else if ( wxRichEditModule::Load(wxRichEditModule::Version_2or3) )
427 {
428 windowClass = _T("RichEdit20")
429 #if wxUSE_UNICODE
430 _T("W");
431 #else // ANSI
432 _T("A");
433 #endif // Unicode/ANSI
434 }
435 else // failed to load msftedit.dll and riched20.dll
436 {
437 m_verRichEdit = 1;
438 }
439 }
440
441 if ( m_verRichEdit == 1 )
442 {
443 if ( wxRichEditModule::Load(wxRichEditModule::Version_1) )
444 {
445 windowClass = _T("RICHEDIT");
446 }
447 else // failed to load any richedit control DLL
448 {
449 // only give the error msg once if the DLL can't be loaded
450 static bool s_errorGiven = false; // MT ok as only used by GUI
451
452 if ( !s_errorGiven )
453 {
454 wxLogError(_("Impossible to create a rich edit control, using simple text control instead. Please reinstall riched32.dll"));
455
456 s_errorGiven = true;
457 }
458
459 m_verRichEdit = 0;
460 }
461 }
462 } // !useInkEdit
463 }
464 #endif // wxUSE_RICHEDIT
465
466 // we need to turn '\n's into "\r\n"s for the multiline controls
467 wxString valueWin;
468 if ( m_windowStyle & wxTE_MULTILINE )
469 {
470 valueWin = wxTextFile::Translate(value, wxTextFileType_Dos);
471 }
472 else // single line
473 {
474 valueWin = value;
475 }
476
477 if ( !MSWCreateControl(windowClass, msStyle, pos, size, valueWin) )
478 return false;
479
480 #if wxUSE_RICHEDIT
481 if (IsRich())
482 {
483 #if wxUSE_INKEDIT
484 if (IsInkEdit())
485 {
486 // Pass IEM_InsertText (0) as wParam, in order to have the ink always
487 // converted to text.
488 ::SendMessage(GetHwnd(), EM_SETINKINSERTMODE, 0, 0);
489
490 // Make sure the mouse can be used for input
491 ::SendMessage(GetHwnd(), EM_SETUSEMOUSEFORINPUT, 1, 0);
492 }
493 #endif
494
495 // enable the events we're interested in: we want to get EN_CHANGE as
496 // for the normal controls
497 LPARAM mask = ENM_CHANGE;
498
499 if (GetRichVersion() == 1 && !IsInkEdit())
500 {
501 // we also need EN_MSGFILTER for richedit 1.0 for the reasons
502 // explained in its handler
503 mask |= ENM_MOUSEEVENTS;
504
505 // we also need to force the appearance of the vertical scrollbar
506 // initially as otherwise the control doesn't refresh correctly
507 // after resize: but once the vertical scrollbar had been shown
508 // (even if it's subsequently hidden) it does
509 //
510 // this is clearly a bug and for now it has been only noticed under
511 // Windows XP, so if we're sure it works correctly under other
512 // systems we could do this only for XP
513 SetSize(-1, 1); // 1 is small enough to force vert scrollbar
514 SetSize(size);
515 }
516 else if ( m_windowStyle & wxTE_AUTO_URL )
517 {
518 mask |= ENM_LINK;
519
520 ::SendMessage(GetHwnd(), EM_AUTOURLDETECT, TRUE, 0);
521 }
522
523 ::SendMessage(GetHwnd(), EM_SETEVENTMASK, 0, mask);
524 }
525 #endif // wxUSE_RICHEDIT
526
527 gs_wndprocEdit = wxSetWindowProc((HWND)GetHwnd(),
528 wxTextCtrlWndProc);
529
530 return true;
531 }
532
533 // Make sure the window style (etc.) reflects the HWND style (roughly)
534 void wxTextCtrl::AdoptAttributesFromHWND()
535 {
536 wxWindow::AdoptAttributesFromHWND();
537
538 HWND hWnd = GetHwnd();
539 long style = ::GetWindowLong(hWnd, GWL_STYLE);
540
541 // retrieve the style to see whether this is an edit or richedit ctrl
542 #if wxUSE_RICHEDIT
543 wxString classname = wxGetWindowClass(GetHWND());
544
545 if ( classname.IsSameAs(_T("EDIT"), false /* no case */) )
546 {
547 m_verRichEdit = 0;
548 }
549 else // rich edit?
550 {
551 wxChar c;
552 if ( wxSscanf(classname, _T("RichEdit%d0%c"), &m_verRichEdit, &c) != 2 )
553 {
554 wxLogDebug(_T("Unknown edit control '%s'."), classname.c_str());
555
556 m_verRichEdit = 0;
557 }
558 }
559 #endif // wxUSE_RICHEDIT
560
561 if (style & ES_MULTILINE)
562 m_windowStyle |= wxTE_MULTILINE;
563 if (style & ES_PASSWORD)
564 m_windowStyle |= wxTE_PASSWORD;
565 if (style & ES_READONLY)
566 m_windowStyle |= wxTE_READONLY;
567 if (style & ES_WANTRETURN)
568 m_windowStyle |= wxTE_PROCESS_ENTER;
569 if (style & ES_CENTER)
570 m_windowStyle |= wxTE_CENTRE;
571 if (style & ES_RIGHT)
572 m_windowStyle |= wxTE_RIGHT;
573 }
574
575 WXDWORD wxTextCtrl::MSWGetStyle(long style, WXDWORD *exstyle) const
576 {
577 long msStyle = wxControl::MSWGetStyle(style, exstyle);
578
579 // styles which we alaways add by default
580 if ( style & wxTE_MULTILINE )
581 {
582 msStyle |= ES_MULTILINE | ES_WANTRETURN;
583 if ( !(style & wxTE_NO_VSCROLL) )
584 {
585 // always adjust the vertical scrollbar automatically if we have it
586 msStyle |= WS_VSCROLL | ES_AUTOVSCROLL;
587
588 #if wxUSE_RICHEDIT
589 // we have to use this style for the rich edit controls because
590 // without it the vertical scrollbar never appears at all in
591 // richedit 3.0 because of our ECO_NOHIDESEL hack (search for it)
592 if ( style & wxTE_RICH2 )
593 {
594 msStyle |= ES_DISABLENOSCROLL;
595 }
596 #endif // wxUSE_RICHEDIT
597 }
598
599 style |= wxTE_PROCESS_ENTER;
600 }
601 else // !multiline
602 {
603 // there is really no reason to not have this style for single line
604 // text controls
605 msStyle |= ES_AUTOHSCROLL;
606 }
607
608 // note that wxTE_DONTWRAP is the same as wxHSCROLL so if we have a horz
609 // scrollbar, there is no wrapping -- which makes sense
610 if ( style & wxTE_DONTWRAP )
611 {
612 // automatically scroll the control horizontally as necessary
613 //
614 // NB: ES_AUTOHSCROLL is needed for richedit controls or they don't
615 // show horz scrollbar at all, even in spite of WS_HSCROLL, and as
616 // it doesn't seem to do any harm for plain edit controls, add it
617 // always
618 msStyle |= WS_HSCROLL | ES_AUTOHSCROLL;
619 }
620
621 if ( style & wxTE_READONLY )
622 msStyle |= ES_READONLY;
623
624 if ( style & wxTE_PASSWORD )
625 msStyle |= ES_PASSWORD;
626
627 if ( style & wxTE_NOHIDESEL )
628 msStyle |= ES_NOHIDESEL;
629
630 // note that we can't do do "& wxTE_LEFT" as wxTE_LEFT == 0
631 if ( style & wxTE_CENTRE )
632 msStyle |= ES_CENTER;
633 else if ( style & wxTE_RIGHT )
634 msStyle |= ES_RIGHT;
635 else
636 msStyle |= ES_LEFT; // ES_LEFT is 0 as well but for consistency...
637
638 return msStyle;
639 }
640
641 void wxTextCtrl::SetWindowStyleFlag(long style)
642 {
643 #if wxUSE_RICHEDIT
644 // we have to deal with some styles separately because they can't be
645 // changed by simply calling SetWindowLong(GWL_STYLE) but can be changed
646 // using richedit-specific EM_SETOPTIONS
647 if ( IsRich() &&
648 ((style & wxTE_NOHIDESEL) != (GetWindowStyle() & wxTE_NOHIDESEL)) )
649 {
650 bool set = (style & wxTE_NOHIDESEL) != 0;
651
652 ::SendMessage(GetHwnd(), EM_SETOPTIONS, set ? ECOOP_OR : ECOOP_AND,
653 set ? ECO_NOHIDESEL : ~ECO_NOHIDESEL);
654 }
655 #endif // wxUSE_RICHEDIT
656
657 wxControl::SetWindowStyleFlag(style);
658 }
659
660 // ----------------------------------------------------------------------------
661 // set/get the controls text
662 // ----------------------------------------------------------------------------
663
664 bool wxTextCtrl::IsEmpty() const
665 {
666 // this is an optimization for multiline controls containing a lot of text
667 if ( IsMultiLine() && GetNumberOfLines() != 1 )
668 return false;
669
670 return wxTextCtrlBase::IsEmpty();
671 }
672
673 wxString wxTextCtrl::GetValue() const
674 {
675 // range 0..-1 is special for GetRange() and means to retrieve all text
676 return GetRange(0, -1);
677 }
678
679 wxString wxTextCtrl::GetRange(long from, long to) const
680 {
681 wxString str;
682
683 if ( from >= to && to != -1 )
684 {
685 // nothing to retrieve
686 return str;
687 }
688
689 #if wxUSE_RICHEDIT
690 if ( IsRich() )
691 {
692 int len = GetWindowTextLength(GetHwnd());
693 if ( len > from )
694 {
695 if ( to == -1 )
696 to = len;
697
698 #if !wxUSE_UNICODE
699 // we must use EM_STREAMOUT if we don't want to lose all characters
700 // not representable in the current character set (EM_GETTEXTRANGE
701 // simply replaces them with question marks...)
702 if ( GetRichVersion() > 1 )
703 {
704 // we must have some encoding, otherwise any 8bit chars in the
705 // control are simply *lost* (replaced by '?')
706 wxFontEncoding encoding = wxFONTENCODING_SYSTEM;
707
708 wxFont font = m_defaultStyle.GetFont();
709 if ( !font.Ok() )
710 font = GetFont();
711
712 if ( font.Ok() )
713 {
714 encoding = font.GetEncoding();
715 }
716
717 if ( encoding == wxFONTENCODING_SYSTEM )
718 {
719 encoding = wxLocale::GetSystemEncoding();
720 }
721
722 if ( encoding == wxFONTENCODING_SYSTEM )
723 {
724 encoding = wxFONTENCODING_ISO8859_1;
725 }
726
727 str = StreamOut(encoding);
728
729 if ( !str.empty() )
730 {
731 // we have to manually extract the required part, luckily
732 // this is easy in this case as EOL characters in str are
733 // just LFs because we remove CRs in wxRichEditStreamOut
734 str = str.Mid(from, to - from);
735 }
736 }
737
738 // StreamOut() wasn't used or failed, try to do it in normal way
739 if ( str.empty() )
740 #endif // !wxUSE_UNICODE
741 {
742 // alloc one extra WORD as needed by the control
743 wxStringBuffer tmp(str, ++len);
744 wxChar *p = tmp;
745
746 TEXTRANGE textRange;
747 textRange.chrg.cpMin = from;
748 textRange.chrg.cpMax = to;
749 textRange.lpstrText = p;
750
751 (void)::SendMessage(GetHwnd(), EM_GETTEXTRANGE,
752 0, (LPARAM)&textRange);
753
754 if ( m_verRichEdit > 1 )
755 {
756 // RichEdit 2.0 uses just CR ('\r') for the
757 // newlines which is neither Unix nor Windows
758 // style - convert it to something reasonable
759 for ( ; *p; p++ )
760 {
761 if ( *p == _T('\r') )
762 *p = _T('\n');
763 }
764 }
765 }
766
767 if ( m_verRichEdit == 1 )
768 {
769 // convert to the canonical form - see comment below
770 str = wxTextFile::Translate(str, wxTextFileType_Unix);
771 }
772 }
773 //else: no text at all, leave the string empty
774 }
775 else
776 #endif // wxUSE_RICHEDIT
777 {
778 // retrieve all text
779 str = wxGetWindowText(GetHWND());
780
781 // need only a range?
782 if ( from < to )
783 {
784 str = str.Mid(from, to - from);
785 }
786
787 // WM_GETTEXT uses standard DOS CR+LF (\r\n) convention - convert to the
788 // canonical one (same one as above) for consistency with the other kinds
789 // of controls and, more importantly, with the other ports
790 str = wxTextFile::Translate(str, wxTextFileType_Unix);
791 }
792
793 return str;
794 }
795
796 void wxTextCtrl::DoSetValue(const wxString& value, int flags)
797 {
798 // if the text is long enough, it's faster to just set it instead of first
799 // comparing it with the old one (chances are that it will be different
800 // anyhow, this comparison is there to avoid flicker for small single-line
801 // edit controls mostly)
802 if ( (value.length() > 0x400) || (value != GetValue()) )
803 {
804 DoWriteText(value, flags /* doesn't include SelectionOnly here */);
805
806 // mark the control as being not dirty - we changed its text, not the
807 // user
808 DiscardEdits();
809
810 // for compatibility, don't move the cursor when doing SetValue()
811 SetInsertionPoint(0);
812 }
813 else // same text
814 {
815 // still reset the modified flag even if the value didn't really change
816 // because now it comes from the program and not the user (and do it
817 // before generating the event so that the event handler could get the
818 // expected value from IsModified())
819 DiscardEdits();
820
821 // still send an event for consistency
822 if (flags & SetValue_SendEvent)
823 SendUpdateEvent();
824 }
825 }
826
827 #if wxUSE_RICHEDIT && (!wxUSE_UNICODE || wxUSE_UNICODE_MSLU)
828
829 // TODO: using memcpy() would improve performance a lot for big amounts of text
830
831 DWORD CALLBACK
832 wxRichEditStreamIn(DWORD dwCookie, BYTE *buf, LONG cb, LONG *pcb)
833 {
834 *pcb = 0;
835
836 const wchar_t ** const ppws = (const wchar_t **)dwCookie;
837
838 wchar_t *wbuf = (wchar_t *)buf;
839 const wchar_t *wpc = *ppws;
840 while ( cb && *wpc )
841 {
842 *wbuf++ = *wpc++;
843
844 cb -= sizeof(wchar_t);
845 (*pcb) += sizeof(wchar_t);
846 }
847
848 *ppws = wpc;
849
850 return 0;
851 }
852
853 // helper struct used to pass parameters from wxTextCtrl to wxRichEditStreamOut
854 struct wxStreamOutData
855 {
856 wchar_t *wpc;
857 size_t len;
858 };
859
860 DWORD CALLBACK
861 wxRichEditStreamOut(DWORD_PTR dwCookie, BYTE *buf, LONG cb, LONG *pcb)
862 {
863 *pcb = 0;
864
865 wxStreamOutData *data = (wxStreamOutData *)dwCookie;
866
867 const wchar_t *wbuf = (const wchar_t *)buf;
868 wchar_t *wpc = data->wpc;
869 while ( cb )
870 {
871 wchar_t wch = *wbuf++;
872
873 // turn "\r\n" into "\n" on the fly
874 if ( wch != L'\r' )
875 *wpc++ = wch;
876 else
877 data->len--;
878
879 cb -= sizeof(wchar_t);
880 (*pcb) += sizeof(wchar_t);
881 }
882
883 data->wpc = wpc;
884
885 return 0;
886 }
887
888
889 #if wxUSE_UNICODE_MSLU
890 #define UNUSED_IF_MSLU(param)
891 #else
892 #define UNUSED_IF_MSLU(param) param
893 #endif
894
895 bool
896 wxTextCtrl::StreamIn(const wxString& value,
897 wxFontEncoding UNUSED_IF_MSLU(encoding),
898 bool selectionOnly)
899 {
900 #if wxUSE_UNICODE_MSLU
901 const wchar_t *wpc = value.c_str();
902 #else // !wxUSE_UNICODE_MSLU
903 wxCSConv conv(encoding);
904
905 const size_t len = conv.MB2WC(NULL, value, value.length());
906
907 #if wxUSE_WCHAR_T
908 wxWCharBuffer wchBuf(len);
909 wchar_t *wpc = wchBuf.data();
910 #else
911 wchar_t *wchBuf = (wchar_t *)malloc((len + 1)*sizeof(wchar_t));
912 wchar_t *wpc = wchBuf;
913 #endif
914
915 conv.MB2WC(wpc, value, value.length());
916 #endif // wxUSE_UNICODE_MSLU
917
918 // finally, stream it in the control
919 EDITSTREAM eds;
920 wxZeroMemory(eds);
921 eds.dwCookie = (DWORD)&wpc;
922 // the cast below is needed for broken (very) old mingw32 headers
923 eds.pfnCallback = (EDITSTREAMCALLBACK)wxRichEditStreamIn;
924
925 // same problem as in DoWriteText(): we can get multiple events here
926 UpdatesCountFilter ucf(m_updatesCount);
927
928 ::SendMessage(GetHwnd(), EM_STREAMIN,
929 SF_TEXT |
930 SF_UNICODE |
931 (selectionOnly ? SFF_SELECTION : 0),
932 (LPARAM)&eds);
933
934 // It's okay for EN_UPDATE to not be sent if the selection is empty and
935 // the text is empty, otherwise warn the programmer about it.
936 wxASSERT_MSG( ucf.GotUpdate() || ( !HasSelection() && value.empty() ),
937 _T("EM_STREAMIN didn't send EN_UPDATE?") );
938
939 if ( eds.dwError )
940 {
941 wxLogLastError(_T("EM_STREAMIN"));
942 }
943
944 #if !wxUSE_WCHAR_T
945 free(wchBuf);
946 #endif // !wxUSE_WCHAR_T
947
948 return true;
949 }
950
951 #if !wxUSE_UNICODE_MSLU
952
953 wxString
954 wxTextCtrl::StreamOut(wxFontEncoding encoding, bool selectionOnly) const
955 {
956 wxString out;
957
958 const int len = GetWindowTextLength(GetHwnd());
959
960 #if wxUSE_WCHAR_T
961 wxWCharBuffer wchBuf(len);
962 wchar_t *wpc = wchBuf.data();
963 #else
964 wchar_t *wchBuf = (wchar_t *)malloc((len + 1)*sizeof(wchar_t));
965 wchar_t *wpc = wchBuf;
966 #endif
967
968 wxStreamOutData data;
969 data.wpc = wpc;
970 data.len = len;
971
972 EDITSTREAM eds;
973 wxZeroMemory(eds);
974 eds.dwCookie = (DWORD)&data;
975 eds.pfnCallback = wxRichEditStreamOut;
976
977 ::SendMessage
978 (
979 GetHwnd(),
980 EM_STREAMOUT,
981 SF_TEXT | SF_UNICODE | (selectionOnly ? SFF_SELECTION : 0),
982 (LPARAM)&eds
983 );
984
985 if ( eds.dwError )
986 {
987 wxLogLastError(_T("EM_STREAMOUT"));
988 }
989 else // streamed out ok
990 {
991 // NUL-terminate the string because its length could have been
992 // decreased by wxRichEditStreamOut
993 *(wchBuf.data() + data.len) = L'\0';
994
995 // now convert to the given encoding (this is a possibly lossful
996 // conversion but what else can we do)
997 wxCSConv conv(encoding);
998 size_t lenNeeded = conv.WC2MB(NULL, wchBuf, 0);
999 if ( lenNeeded++ )
1000 {
1001 conv.WC2MB(wxStringBuffer(out, lenNeeded), wchBuf, lenNeeded);
1002 }
1003 }
1004
1005 #if !wxUSE_WCHAR_T
1006 free(wchBuf);
1007 #endif // !wxUSE_WCHAR_T
1008
1009 return out;
1010 }
1011
1012 #endif // !wxUSE_UNICODE_MSLU
1013
1014 #endif // wxUSE_RICHEDIT
1015
1016 void wxTextCtrl::WriteText(const wxString& value)
1017 {
1018 DoWriteText(value);
1019 }
1020
1021 void wxTextCtrl::DoWriteText(const wxString& value, int flags)
1022 {
1023 bool selectionOnly = (flags & SetValue_SelectionOnly) != 0;
1024 wxString valueDos;
1025 if ( m_windowStyle & wxTE_MULTILINE )
1026 valueDos = wxTextFile::Translate(value, wxTextFileType_Dos);
1027 else
1028 valueDos = value;
1029
1030 #if wxUSE_RICHEDIT
1031 // there are several complications with the rich edit controls here
1032 bool done = false;
1033 if ( IsRich() )
1034 {
1035 // first, ensure that the new text will be in the default style
1036 if ( !m_defaultStyle.IsDefault() )
1037 {
1038 long start, end;
1039 GetSelection(&start, &end);
1040 SetStyle(start, end, m_defaultStyle);
1041 }
1042
1043 #if wxUSE_UNICODE_MSLU
1044 // RichEdit doesn't have Unicode version of EM_REPLACESEL on Win9x,
1045 // but EM_STREAMIN works
1046 if ( wxUsingUnicowsDll() && GetRichVersion() > 1 )
1047 {
1048 done = StreamIn(valueDos, wxFONTENCODING_SYSTEM, selectionOnly);
1049 }
1050 #endif // wxUSE_UNICODE_MSLU
1051
1052 #if !wxUSE_UNICODE
1053 // next check if the text we're inserting must be shown in a non
1054 // default charset -- this only works for RichEdit > 1.0
1055 if ( GetRichVersion() > 1 )
1056 {
1057 wxFont font = m_defaultStyle.GetFont();
1058 if ( !font.Ok() )
1059 font = GetFont();
1060
1061 if ( font.Ok() )
1062 {
1063 wxFontEncoding encoding = font.GetEncoding();
1064 if ( encoding != wxFONTENCODING_SYSTEM )
1065 {
1066 // we have to use EM_STREAMIN to force richedit control 2.0+
1067 // to show any text in the non default charset -- otherwise
1068 // it thinks it knows better than we do and always shows it
1069 // in the default one
1070 done = StreamIn(valueDos, encoding, selectionOnly);
1071 }
1072 }
1073 }
1074 #endif // !wxUSE_UNICODE
1075 }
1076
1077 if ( !done )
1078 #endif // wxUSE_RICHEDIT
1079 {
1080 // in some cases we get 2 EN_CHANGE notifications after the SendMessage
1081 // call (this happens for plain EDITs with EM_REPLACESEL and under some
1082 // -- undetermined -- conditions with rich edit) and sometimes we don't
1083 // get any events at all (plain EDIT with WM_SETTEXT), so ensure that
1084 // we generate exactly one of them by ignoring all but the first one in
1085 // SendUpdateEvent() and generating one ourselves if we hadn't got any
1086 // notifications from Windows
1087 if ( !(flags & SetValue_SendEvent) )
1088 m_updatesCount = -2; // suppress any update event
1089
1090 UpdatesCountFilter ucf(m_updatesCount);
1091
1092 ::SendMessage(GetHwnd(), selectionOnly ? EM_REPLACESEL : WM_SETTEXT,
1093 // EM_REPLACESEL takes 1 to indicate the operation should be redoable
1094 selectionOnly ? 1 : 0, (LPARAM)valueDos.c_str());
1095
1096 if ( !ucf.GotUpdate() && (flags & SetValue_SendEvent) )
1097 {
1098 SendUpdateEvent();
1099 }
1100 }
1101 }
1102
1103 void wxTextCtrl::AppendText(const wxString& text)
1104 {
1105 SetInsertionPointEnd();
1106
1107 WriteText(text);
1108
1109 #if wxUSE_RICHEDIT
1110 // don't do this if we're frozen, saves some time
1111 if ( !IsFrozen() && IsMultiLine() && GetRichVersion() > 1 )
1112 {
1113 // setting the caret to the end and showing it simply doesn't work for
1114 // RichEdit 2.0 -- force it to still do what we want
1115 ::SendMessage(GetHwnd(), EM_LINESCROLL, 0, GetNumberOfLines());
1116 }
1117 #endif // wxUSE_RICHEDIT
1118 }
1119
1120 void wxTextCtrl::Clear()
1121 {
1122 ::SetWindowText(GetHwnd(), wxEmptyString);
1123
1124 #if wxUSE_RICHEDIT
1125 if ( !IsRich() )
1126 #endif // wxUSE_RICHEDIT
1127 {
1128 // rich edit controls send EN_UPDATE from WM_SETTEXT handler themselves
1129 // but the normal ones don't -- make Clear() behaviour consistent by
1130 // always sending this event
1131
1132 // Windows already sends an update event for single-line
1133 // controls.
1134 if ( m_windowStyle & wxTE_MULTILINE )
1135 SendUpdateEvent();
1136 }
1137 }
1138
1139 #ifdef __WIN32__
1140
1141 bool wxTextCtrl::EmulateKeyPress(const wxKeyEvent& event)
1142 {
1143 SetFocus();
1144
1145 size_t lenOld = GetValue().length();
1146
1147 wxUint32 code = event.GetRawKeyCode();
1148 ::keybd_event((BYTE)code, 0, 0 /* key press */, 0);
1149 ::keybd_event((BYTE)code, 0, KEYEVENTF_KEYUP, 0);
1150
1151 // assume that any alphanumeric key changes the total number of characters
1152 // in the control - this should work in 99% of cases
1153 return GetValue().length() != lenOld;
1154 }
1155
1156 #endif // __WIN32__
1157
1158 // ----------------------------------------------------------------------------
1159 // Clipboard operations
1160 // ----------------------------------------------------------------------------
1161
1162 void wxTextCtrl::Copy()
1163 {
1164 if (CanCopy())
1165 {
1166 ::SendMessage(GetHwnd(), WM_COPY, 0, 0L);
1167 }
1168 }
1169
1170 void wxTextCtrl::Cut()
1171 {
1172 if (CanCut())
1173 {
1174 ::SendMessage(GetHwnd(), WM_CUT, 0, 0L);
1175 }
1176 }
1177
1178 void wxTextCtrl::Paste()
1179 {
1180 if (CanPaste())
1181 {
1182 ::SendMessage(GetHwnd(), WM_PASTE, 0, 0L);
1183 }
1184 }
1185
1186 bool wxTextCtrl::HasSelection() const
1187 {
1188 long from, to;
1189 GetSelection(&from, &to);
1190 return from != to;
1191 }
1192
1193 bool wxTextCtrl::CanCopy() const
1194 {
1195 // Can copy if there's a selection
1196 return HasSelection();
1197 }
1198
1199 bool wxTextCtrl::CanCut() const
1200 {
1201 return CanCopy() && IsEditable();
1202 }
1203
1204 bool wxTextCtrl::CanPaste() const
1205 {
1206 if ( !IsEditable() )
1207 return false;
1208
1209 #if wxUSE_RICHEDIT
1210 if ( IsRich() )
1211 {
1212 UINT cf = 0; // 0 == any format
1213
1214 return ::SendMessage(GetHwnd(), EM_CANPASTE, cf, 0) != 0;
1215 }
1216 #endif // wxUSE_RICHEDIT
1217
1218 // Standard edit control: check for straight text on clipboard
1219 if ( !::OpenClipboard(GetHwndOf(wxTheApp->GetTopWindow())) )
1220 return false;
1221
1222 bool isTextAvailable = ::IsClipboardFormatAvailable(CF_TEXT) != 0;
1223 ::CloseClipboard();
1224
1225 return isTextAvailable;
1226 }
1227
1228 // ----------------------------------------------------------------------------
1229 // Accessors
1230 // ----------------------------------------------------------------------------
1231
1232 void wxTextCtrl::SetEditable(bool editable)
1233 {
1234 HWND hWnd = GetHwnd();
1235 ::SendMessage(hWnd, EM_SETREADONLY, (WPARAM)!editable, (LPARAM)0L);
1236 }
1237
1238 void wxTextCtrl::SetInsertionPoint(long pos)
1239 {
1240 DoSetSelection(pos, pos);
1241 }
1242
1243 void wxTextCtrl::SetInsertionPointEnd()
1244 {
1245 // we must not do anything if the caret is already there because calling
1246 // SetInsertionPoint() thaws the controls if Freeze() had been called even
1247 // if it doesn't actually move the caret anywhere and so the simple fact of
1248 // doing it results in horrible flicker when appending big amounts of text
1249 // to the control in a few chunks (see DoAddText() test in the text sample)
1250 const wxTextPos lastPosition = GetLastPosition();
1251 if ( GetInsertionPoint() == lastPosition )
1252 {
1253 return;
1254 }
1255
1256 long pos;
1257
1258 #if wxUSE_RICHEDIT
1259 if ( m_verRichEdit == 1 )
1260 {
1261 // we don't have to waste time calling GetLastPosition() in this case
1262 pos = -1;
1263 }
1264 else // !RichEdit 1.0
1265 #endif // wxUSE_RICHEDIT
1266 {
1267 pos = lastPosition;
1268 }
1269
1270 SetInsertionPoint(pos);
1271 }
1272
1273 long wxTextCtrl::GetInsertionPoint() const
1274 {
1275 #if wxUSE_RICHEDIT
1276 if ( IsRich() )
1277 {
1278 CHARRANGE range;
1279 range.cpMin = 0;
1280 range.cpMax = 0;
1281 ::SendMessage(GetHwnd(), EM_EXGETSEL, 0, (LPARAM) &range);
1282 return range.cpMin;
1283 }
1284 #endif // wxUSE_RICHEDIT
1285
1286 DWORD Pos = (DWORD)::SendMessage(GetHwnd(), EM_GETSEL, 0, 0L);
1287 return Pos & 0xFFFF;
1288 }
1289
1290 wxTextPos wxTextCtrl::GetLastPosition() const
1291 {
1292 int numLines = GetNumberOfLines();
1293 long posStartLastLine = XYToPosition(0, numLines - 1);
1294
1295 long lenLastLine = GetLengthOfLineContainingPos(posStartLastLine);
1296
1297 return posStartLastLine + lenLastLine;
1298 }
1299
1300 // If the return values from and to are the same, there is no
1301 // selection.
1302 void wxTextCtrl::GetSelection(long* from, long* to) const
1303 {
1304 #if wxUSE_RICHEDIT
1305 if ( IsRich() )
1306 {
1307 CHARRANGE charRange;
1308 ::SendMessage(GetHwnd(), EM_EXGETSEL, 0, (LPARAM) &charRange);
1309
1310 *from = charRange.cpMin;
1311 *to = charRange.cpMax;
1312 }
1313 else
1314 #endif // !wxUSE_RICHEDIT
1315 {
1316 DWORD dwStart, dwEnd;
1317 ::SendMessage(GetHwnd(), EM_GETSEL, (WPARAM)&dwStart, (LPARAM)&dwEnd);
1318
1319 *from = dwStart;
1320 *to = dwEnd;
1321 }
1322 }
1323
1324 bool wxTextCtrl::IsEditable() const
1325 {
1326 // strangely enough, we may be called before the control is created: our
1327 // own Create() calls MSWGetStyle() which calls AcceptsFocus() which calls
1328 // us
1329 if ( !m_hWnd )
1330 return true;
1331
1332 long style = ::GetWindowLong(GetHwnd(), GWL_STYLE);
1333
1334 return (style & ES_READONLY) == 0;
1335 }
1336
1337 // ----------------------------------------------------------------------------
1338 // selection
1339 // ----------------------------------------------------------------------------
1340
1341 void wxTextCtrl::SetSelection(long from, long to)
1342 {
1343 // if from and to are both -1, it means (in wxWidgets) that all text should
1344 // be selected - translate into Windows convention
1345 if ( (from == -1) && (to == -1) )
1346 {
1347 from = 0;
1348 to = -1;
1349 }
1350
1351 DoSetSelection(from, to);
1352 }
1353
1354 void wxTextCtrl::DoSetSelection(long from, long to, bool scrollCaret)
1355 {
1356 HWND hWnd = GetHwnd();
1357
1358 #if wxUSE_RICHEDIT
1359 if ( IsRich() )
1360 {
1361 CHARRANGE range;
1362 range.cpMin = from;
1363 range.cpMax = to;
1364 ::SendMessage(hWnd, EM_EXSETSEL, 0, (LPARAM) &range);
1365 }
1366 else
1367 #endif // wxUSE_RICHEDIT
1368 {
1369 ::SendMessage(hWnd, EM_SETSEL, (WPARAM)from, (LPARAM)to);
1370 }
1371
1372 if ( scrollCaret && !IsFrozen() )
1373 {
1374 #if wxUSE_RICHEDIT
1375 // richedit 3.0 (i.e. the version living in riched20.dll distributed
1376 // with Windows 2000 and beyond) doesn't honour EM_SCROLLCARET when
1377 // emulating richedit 2.0 unless the control has focus or ECO_NOHIDESEL
1378 // option is set (but it does work ok in richedit 1.0 mode...)
1379 //
1380 // so to make it work we either need to give focus to it here which
1381 // will probably create many problems (dummy focus events; window
1382 // containing the text control being brought to foreground
1383 // unexpectedly; ...) or to temporarily set ECO_NOHIDESEL which may
1384 // create other problems too -- and in fact it does because if we turn
1385 // on/off this style while appending the text to the control, the
1386 // vertical scrollbar never appears in it even if we append tons of
1387 // text and to work around this the only solution I found was to use
1388 // ES_DISABLENOSCROLL
1389 //
1390 // this is very ugly but I don't see any other way to make this work
1391 long style = 0;
1392 if ( GetRichVersion() > 1 )
1393 {
1394 if ( !HasFlag(wxTE_NOHIDESEL) )
1395 {
1396 // setting ECO_NOHIDESEL also sets WS_VISIBLE and possibly
1397 // others, remember the style so we can reset it later if needed
1398 style = ::GetWindowLong(GetHwnd(), GWL_STYLE);
1399 ::SendMessage(GetHwnd(), EM_SETOPTIONS,
1400 ECOOP_OR, ECO_NOHIDESEL);
1401 }
1402 //else: everything is already ok
1403 }
1404 #endif // wxUSE_RICHEDIT
1405
1406 ::SendMessage(hWnd, EM_SCROLLCARET, (WPARAM)0, (LPARAM)0);
1407
1408 #if wxUSE_RICHEDIT
1409 // restore ECO_NOHIDESEL if we changed it
1410 if ( GetRichVersion() > 1 && !HasFlag(wxTE_NOHIDESEL) )
1411 {
1412 ::SendMessage(GetHwnd(), EM_SETOPTIONS,
1413 ECOOP_AND, ~ECO_NOHIDESEL);
1414 if ( style != ::GetWindowLong(GetHwnd(), GWL_STYLE) )
1415 ::SetWindowLong(GetHwnd(), GWL_STYLE, style);
1416 }
1417 #endif // wxUSE_RICHEDIT
1418 }
1419 }
1420
1421 // ----------------------------------------------------------------------------
1422 // Working with files
1423 // ----------------------------------------------------------------------------
1424
1425 bool wxTextCtrl::DoLoadFile(const wxString& file, int fileType)
1426 {
1427 if ( wxTextCtrlBase::DoLoadFile(file, fileType) )
1428 {
1429 // update the size limit if needed
1430 AdjustSpaceLimit();
1431
1432 return true;
1433 }
1434
1435 return false;
1436 }
1437
1438 // ----------------------------------------------------------------------------
1439 // Editing
1440 // ----------------------------------------------------------------------------
1441
1442 void wxTextCtrl::Replace(long from, long to, const wxString& value)
1443 {
1444 // Set selection and remove it
1445 DoSetSelection(from, to, false /* don't scroll caret into view */);
1446
1447 DoWriteText(value);
1448 }
1449
1450 void wxTextCtrl::Remove(long from, long to)
1451 {
1452 Replace(from, to, wxEmptyString);
1453 }
1454
1455 bool wxTextCtrl::IsModified() const
1456 {
1457 return ::SendMessage(GetHwnd(), EM_GETMODIFY, 0, 0) != 0;
1458 }
1459
1460 void wxTextCtrl::MarkDirty()
1461 {
1462 ::SendMessage(GetHwnd(), EM_SETMODIFY, TRUE, 0L);
1463 }
1464
1465 void wxTextCtrl::DiscardEdits()
1466 {
1467 ::SendMessage(GetHwnd(), EM_SETMODIFY, FALSE, 0L);
1468 }
1469
1470 int wxTextCtrl::GetNumberOfLines() const
1471 {
1472 return (int)::SendMessage(GetHwnd(), EM_GETLINECOUNT, (WPARAM)0, (LPARAM)0);
1473 }
1474
1475 // ----------------------------------------------------------------------------
1476 // Positions <-> coords
1477 // ----------------------------------------------------------------------------
1478
1479 long wxTextCtrl::XYToPosition(long x, long y) const
1480 {
1481 // This gets the char index for the _beginning_ of this line
1482 long charIndex = ::SendMessage(GetHwnd(), EM_LINEINDEX, (WPARAM)y, (LPARAM)0);
1483
1484 return charIndex + x;
1485 }
1486
1487 bool wxTextCtrl::PositionToXY(long pos, long *x, long *y) const
1488 {
1489 HWND hWnd = GetHwnd();
1490
1491 // This gets the line number containing the character
1492 long lineNo;
1493 #if wxUSE_RICHEDIT
1494 if ( IsRich() )
1495 {
1496 lineNo = ::SendMessage(hWnd, EM_EXLINEFROMCHAR, 0, (LPARAM)pos);
1497 }
1498 else
1499 #endif // wxUSE_RICHEDIT
1500 {
1501 lineNo = ::SendMessage(hWnd, EM_LINEFROMCHAR, (WPARAM)pos, 0);
1502 }
1503
1504 if ( lineNo == -1 )
1505 {
1506 // no such line
1507 return false;
1508 }
1509
1510 // This gets the char index for the _beginning_ of this line
1511 long charIndex = ::SendMessage(hWnd, EM_LINEINDEX, (WPARAM)lineNo, (LPARAM)0);
1512 if ( charIndex == -1 )
1513 {
1514 return false;
1515 }
1516
1517 // The X position must therefore be the different between pos and charIndex
1518 if ( x )
1519 *x = pos - charIndex;
1520 if ( y )
1521 *y = lineNo;
1522
1523 return true;
1524 }
1525
1526 wxTextCtrlHitTestResult
1527 wxTextCtrl::HitTest(const wxPoint& pt, long *posOut) const
1528 {
1529 // first get the position from Windows
1530 LPARAM lParam;
1531
1532 #if wxUSE_RICHEDIT
1533 POINTL ptl;
1534 if ( IsRich() )
1535 {
1536 // for rich edit controls the position is passed iva the struct fields
1537 ptl.x = pt.x;
1538 ptl.y = pt.y;
1539 lParam = (LPARAM)&ptl;
1540 }
1541 else
1542 #endif // wxUSE_RICHEDIT
1543 {
1544 // for the plain ones, we are limited to 16 bit positions which are
1545 // combined in a single 32 bit value
1546 lParam = MAKELPARAM(pt.x, pt.y);
1547 }
1548
1549 LRESULT pos = ::SendMessage(GetHwnd(), EM_CHARFROMPOS, 0, lParam);
1550
1551 if ( pos == -1 )
1552 {
1553 // this seems to indicate an error...
1554 return wxTE_HT_UNKNOWN;
1555 }
1556
1557 #if wxUSE_RICHEDIT
1558 if ( !IsRich() )
1559 #endif // wxUSE_RICHEDIT
1560 {
1561 // for plain EDIT controls the higher word contains something else
1562 pos = LOWORD(pos);
1563 }
1564
1565
1566 // next determine where it is relatively to our point: EM_CHARFROMPOS
1567 // always returns the closest character but we need to be more precise, so
1568 // double check that we really are where it pretends
1569 POINTL ptReal;
1570
1571 #if wxUSE_RICHEDIT
1572 // FIXME: we need to distinguish between richedit 2 and 3 here somehow but
1573 // we don't know how to do it
1574 if ( IsRich() )
1575 {
1576 ::SendMessage(GetHwnd(), EM_POSFROMCHAR, (WPARAM)&ptReal, pos);
1577 }
1578 else
1579 #endif // wxUSE_RICHEDIT
1580 {
1581 LRESULT lRc = ::SendMessage(GetHwnd(), EM_POSFROMCHAR, pos, 0);
1582
1583 if ( lRc == -1 )
1584 {
1585 // this is apparently returned when pos corresponds to the last
1586 // position
1587 ptReal.x =
1588 ptReal.y = 0;
1589 }
1590 else
1591 {
1592 ptReal.x = LOWORD(lRc);
1593 ptReal.y = HIWORD(lRc);
1594 }
1595 }
1596
1597 wxTextCtrlHitTestResult rc;
1598
1599 if ( pt.y > ptReal.y + GetCharHeight() )
1600 rc = wxTE_HT_BELOW;
1601 else if ( pt.x > ptReal.x + GetCharWidth() )
1602 rc = wxTE_HT_BEYOND;
1603 else
1604 rc = wxTE_HT_ON_TEXT;
1605
1606 if ( posOut )
1607 *posOut = pos;
1608
1609 return rc;
1610 }
1611
1612 // ----------------------------------------------------------------------------
1613 //
1614 // ----------------------------------------------------------------------------
1615
1616 void wxTextCtrl::ShowPosition(long pos)
1617 {
1618 HWND hWnd = GetHwnd();
1619
1620 // To scroll to a position, we pass the number of lines and characters
1621 // to scroll *by*. This means that we need to:
1622 // (1) Find the line position of the current line.
1623 // (2) Find the line position of pos.
1624 // (3) Scroll by (pos - current).
1625 // For now, ignore the horizontal scrolling.
1626
1627 // Is this where scrolling is relative to - the line containing the caret?
1628 // Or is the first visible line??? Try first visible line.
1629 // int currentLineLineNo1 = (int)::SendMessage(hWnd, EM_LINEFROMCHAR, (WPARAM)-1, (LPARAM)0L);
1630
1631 int currentLineLineNo = (int)::SendMessage(hWnd, EM_GETFIRSTVISIBLELINE, (WPARAM)0, (LPARAM)0L);
1632
1633 int specifiedLineLineNo = (int)::SendMessage(hWnd, EM_LINEFROMCHAR, (WPARAM)pos, (LPARAM)0L);
1634
1635 int linesToScroll = specifiedLineLineNo - currentLineLineNo;
1636
1637 if (linesToScroll != 0)
1638 (void)::SendMessage(hWnd, EM_LINESCROLL, (WPARAM)0, (LPARAM)linesToScroll);
1639 }
1640
1641 long wxTextCtrl::GetLengthOfLineContainingPos(long pos) const
1642 {
1643 return ::SendMessage(GetHwnd(), EM_LINELENGTH, (WPARAM)pos, 0);
1644 }
1645
1646 int wxTextCtrl::GetLineLength(long lineNo) const
1647 {
1648 long pos = XYToPosition(0, lineNo);
1649
1650 return GetLengthOfLineContainingPos(pos);
1651 }
1652
1653 wxString wxTextCtrl::GetLineText(long lineNo) const
1654 {
1655 size_t len = (size_t)GetLineLength(lineNo) + 1;
1656
1657 // there must be at least enough place for the length WORD in the
1658 // buffer
1659 len += sizeof(WORD);
1660
1661 wxString str;
1662 {
1663 wxStringBufferLength tmp(str, len);
1664 wxChar *buf = tmp;
1665
1666 *(WORD *)buf = (WORD)len;
1667 len = (size_t)::SendMessage(GetHwnd(), EM_GETLINE, lineNo, (LPARAM)buf);
1668
1669 #if wxUSE_RICHEDIT
1670 if ( IsRich() )
1671 {
1672 // remove the '\r' returned by the rich edit control, the user code
1673 // should never see it
1674 if ( buf[len - 2] == _T('\r') && buf[len - 1] == _T('\n') )
1675 {
1676 buf[len - 2] = _T('\n');
1677 len--;
1678 }
1679 }
1680 #endif // wxUSE_RICHEDIT
1681
1682 // remove the '\n' at the end, if any (this is how this function is
1683 // supposed to work according to the docs)
1684 if ( buf[len - 1] == _T('\n') )
1685 {
1686 len--;
1687 }
1688
1689 buf[len] = 0;
1690 tmp.SetLength(len);
1691 }
1692
1693 return str;
1694 }
1695
1696 void wxTextCtrl::SetMaxLength(unsigned long len)
1697 {
1698 #if wxUSE_RICHEDIT
1699 if ( IsRich() )
1700 {
1701 ::SendMessage(GetHwnd(), EM_EXLIMITTEXT, 0, len ? len : 0x7fffffff);
1702 }
1703 else
1704 #endif // wxUSE_RICHEDIT
1705 {
1706 if ( len >= 0xffff )
1707 {
1708 // this will set it to a platform-dependent maximum (much more
1709 // than 64Kb under NT)
1710 len = 0;
1711 }
1712
1713 ::SendMessage(GetHwnd(), EM_LIMITTEXT, len, 0);
1714 }
1715 }
1716
1717 // ----------------------------------------------------------------------------
1718 // Undo/redo
1719 // ----------------------------------------------------------------------------
1720
1721 void wxTextCtrl::Undo()
1722 {
1723 if (CanUndo())
1724 {
1725 ::SendMessage(GetHwnd(), EM_UNDO, 0, 0);
1726 }
1727 }
1728
1729 void wxTextCtrl::Redo()
1730 {
1731 if (CanRedo())
1732 {
1733 #if wxUSE_RICHEDIT
1734 if (GetRichVersion() > 1)
1735 ::SendMessage(GetHwnd(), EM_REDO, 0, 0);
1736 else
1737 #endif
1738 // Same as Undo, since Undo undoes the undo, i.e. a redo.
1739 ::SendMessage(GetHwnd(), EM_UNDO, 0, 0);
1740 }
1741 }
1742
1743 bool wxTextCtrl::CanUndo() const
1744 {
1745 return ::SendMessage(GetHwnd(), EM_CANUNDO, 0, 0) != 0;
1746 }
1747
1748 bool wxTextCtrl::CanRedo() const
1749 {
1750 #if wxUSE_RICHEDIT
1751 if (GetRichVersion() > 1)
1752 return ::SendMessage(GetHwnd(), EM_CANREDO, 0, 0) != 0;
1753 else
1754 #endif
1755 return ::SendMessage(GetHwnd(), EM_CANUNDO, 0, 0) != 0;
1756 }
1757
1758 // ----------------------------------------------------------------------------
1759 // caret handling (Windows only)
1760 // ----------------------------------------------------------------------------
1761
1762 bool wxTextCtrl::ShowNativeCaret(bool show)
1763 {
1764 if ( show != m_isNativeCaretShown )
1765 {
1766 if ( !(show ? ::ShowCaret(GetHwnd()) : ::HideCaret(GetHwnd())) )
1767 {
1768 // not an error, may simply indicate that it's not shown/hidden
1769 // yet (i.e. it had been hidden/showh 2 times before)
1770 return false;
1771 }
1772
1773 m_isNativeCaretShown = show;
1774 }
1775
1776 return true;
1777 }
1778
1779 // ----------------------------------------------------------------------------
1780 // implemenation details
1781 // ----------------------------------------------------------------------------
1782
1783 void wxTextCtrl::Command(wxCommandEvent & event)
1784 {
1785 SetValue(event.GetString());
1786 ProcessCommand (event);
1787 }
1788
1789 void wxTextCtrl::OnDropFiles(wxDropFilesEvent& event)
1790 {
1791 // By default, load the first file into the text window.
1792 if (event.GetNumberOfFiles() > 0)
1793 {
1794 LoadFile(event.GetFiles()[0]);
1795 }
1796 }
1797
1798 // ----------------------------------------------------------------------------
1799 // kbd input processing
1800 // ----------------------------------------------------------------------------
1801
1802 bool wxTextCtrl::MSWShouldPreProcessMessage(WXMSG* msg)
1803 {
1804 // check for our special keys here: if we don't do it and the parent frame
1805 // uses them as accelerators, they wouldn't work at all, so we disable
1806 // usual preprocessing for them
1807 if ( msg->message == WM_KEYDOWN )
1808 {
1809 const WPARAM vkey = msg->wParam;
1810 if ( HIWORD(msg->lParam) & KF_ALTDOWN )
1811 {
1812 // Alt-Backspace is accelerator for "Undo"
1813 if ( vkey == VK_BACK )
1814 return false;
1815 }
1816 else // no Alt
1817 {
1818 // we want to process some Ctrl-foo and Shift-bar but no key
1819 // combinations without either Ctrl or Shift nor with both of them
1820 // pressed
1821 const int ctrl = wxIsCtrlDown(),
1822 shift = wxIsShiftDown();
1823 switch ( ctrl + shift )
1824 {
1825 default:
1826 wxFAIL_MSG( _T("how many modifiers have we got?") );
1827 // fall through
1828
1829 case 0:
1830 if ( IsMultiLine() && vkey == VK_RETURN )
1831 return false;
1832 // fall through
1833 case 2:
1834 break;
1835
1836 case 1:
1837 // either Ctrl or Shift pressed
1838 if ( ctrl )
1839 {
1840 switch ( vkey )
1841 {
1842 case 'C':
1843 case 'V':
1844 case 'X':
1845 case VK_INSERT:
1846 case VK_DELETE:
1847 case VK_HOME:
1848 case VK_END:
1849 return false;
1850 }
1851 }
1852 else // Shift is pressed
1853 {
1854 if ( vkey == VK_INSERT || vkey == VK_DELETE )
1855 return false;
1856 }
1857 }
1858 }
1859 }
1860
1861 return wxControl::MSWShouldPreProcessMessage(msg);
1862 }
1863
1864 void wxTextCtrl::OnChar(wxKeyEvent& event)
1865 {
1866 switch ( event.GetKeyCode() )
1867 {
1868 case WXK_RETURN:
1869 {
1870 wxCommandEvent event(wxEVT_COMMAND_TEXT_ENTER, m_windowId);
1871 InitCommandEvent(event);
1872 event.SetString(GetValue());
1873 if ( GetEventHandler()->ProcessEvent(event) )
1874 if ( !HasFlag(wxTE_MULTILINE) )
1875 return;
1876 //else: multiline controls need Enter for themselves
1877 }
1878 break;
1879
1880 case WXK_TAB:
1881 // ok, so this is getting absolutely ridiculous but I don't see
1882 // any other way to fix this bug: when a multiline text control is
1883 // inside a wxFrame, we need to generate the navigation event as
1884 // otherwise nothing happens at all, but when the same control is
1885 // created inside a dialog, IsDialogMessage() *does* switch focus
1886 // all by itself and so if we do it here as well, it is advanced
1887 // twice and goes to the next control... to prevent this from
1888 // happening we're doing this ugly check, the logic being that if
1889 // we don't have focus then it had been already changed to the next
1890 // control
1891 //
1892 // the right thing to do would, of course, be to understand what
1893 // the hell is IsDialogMessage() doing but this is beyond my feeble
1894 // forces at the moment unfortunately
1895 if ( !(m_windowStyle & wxTE_PROCESS_TAB))
1896 {
1897 if ( FindFocus() == this )
1898 {
1899 int flags = 0;
1900 if (!event.ShiftDown())
1901 flags |= wxNavigationKeyEvent::IsForward ;
1902 if (event.ControlDown())
1903 flags |= wxNavigationKeyEvent::WinChange ;
1904 if (Navigate(flags))
1905 return;
1906 }
1907 }
1908 else
1909 {
1910 // Insert tab since calling the default Windows handler
1911 // doesn't seem to do it
1912 WriteText(wxT("\t"));
1913 return;
1914 }
1915 break;
1916 }
1917
1918 // no, we didn't process it
1919 event.Skip();
1920 }
1921
1922 WXLRESULT wxTextCtrl::MSWWindowProc(WXUINT nMsg, WXWPARAM wParam, WXLPARAM lParam)
1923 {
1924 WXLRESULT lRc = wxTextCtrlBase::MSWWindowProc(nMsg, wParam, lParam);
1925
1926 if ( nMsg == WM_GETDLGCODE )
1927 {
1928 // we always want the chars and the arrows: the arrows for navigation
1929 // and the chars because we want Ctrl-C to work even in a read only
1930 // control
1931 long lDlgCode = DLGC_WANTCHARS | DLGC_WANTARROWS;
1932
1933 if ( IsEditable() )
1934 {
1935 // we may have several different cases:
1936 // 1. normal case: both TAB and ENTER are used for dlg navigation
1937 // 2. ctrl which wants TAB for itself: ENTER is used to pass to the
1938 // next control in the dialog
1939 // 3. ctrl which wants ENTER for itself: TAB is used for dialog
1940 // navigation
1941 // 4. ctrl which wants both TAB and ENTER: Ctrl-ENTER is used to go
1942 // to the next control
1943
1944 // the multiline edit control should always get <Return> for itself
1945 if ( HasFlag(wxTE_PROCESS_ENTER) || HasFlag(wxTE_MULTILINE) )
1946 lDlgCode |= DLGC_WANTMESSAGE;
1947
1948 if ( HasFlag(wxTE_PROCESS_TAB) )
1949 lDlgCode |= DLGC_WANTTAB;
1950
1951 lRc |= lDlgCode;
1952 }
1953 else // !editable
1954 {
1955 // NB: use "=", not "|=" as the base class version returns the
1956 // same flags is this state as usual (i.e. including
1957 // DLGC_WANTMESSAGE). This is strange (how does it work in the
1958 // native Win32 apps?) but for now live with it.
1959 lRc = lDlgCode;
1960 }
1961 }
1962
1963 return lRc;
1964 }
1965
1966 // ----------------------------------------------------------------------------
1967 // text control event processing
1968 // ----------------------------------------------------------------------------
1969
1970 bool wxTextCtrl::SendUpdateEvent()
1971 {
1972 switch ( m_updatesCount )
1973 {
1974 case 0:
1975 // remember that we've got an update
1976 m_updatesCount++;
1977 break;
1978
1979 case 1:
1980 // we had already sent one event since the last control modification
1981 return false;
1982
1983 default:
1984 wxFAIL_MSG( _T("unexpected wxTextCtrl::m_updatesCount value") );
1985 // fall through
1986
1987 case -1:
1988 // we hadn't updated the control ourselves, this event comes from
1989 // the user, don't need to ignore it nor update the count
1990 break;
1991
1992 case -2:
1993 // the control was updated programmatically and we do NOT want to
1994 // send events
1995 return false;
1996 }
1997
1998 wxCommandEvent event(wxEVT_COMMAND_TEXT_UPDATED, GetId());
1999 InitCommandEvent(event);
2000
2001 return ProcessCommand(event);
2002 }
2003
2004 bool wxTextCtrl::MSWCommand(WXUINT param, WXWORD WXUNUSED(id))
2005 {
2006 switch ( param )
2007 {
2008 case EN_SETFOCUS:
2009 case EN_KILLFOCUS:
2010 {
2011 wxFocusEvent event(param == EN_KILLFOCUS ? wxEVT_KILL_FOCUS
2012 : wxEVT_SET_FOCUS,
2013 m_windowId);
2014 event.SetEventObject(this);
2015 GetEventHandler()->ProcessEvent(event);
2016 }
2017 break;
2018
2019 case EN_CHANGE:
2020 SendUpdateEvent();
2021 break;
2022
2023 case EN_MAXTEXT:
2024 // the text size limit has been hit -- try to increase it
2025 if ( !AdjustSpaceLimit() )
2026 {
2027 wxCommandEvent event(wxEVT_COMMAND_TEXT_MAXLEN, m_windowId);
2028 InitCommandEvent(event);
2029 event.SetString(GetValue());
2030 ProcessCommand(event);
2031 }
2032 break;
2033
2034 // the other edit notification messages are not processed
2035 default:
2036 return false;
2037 }
2038
2039 // processed
2040 return true;
2041 }
2042
2043 WXHBRUSH wxTextCtrl::MSWControlColor(WXHDC hDC, WXHWND hWnd)
2044 {
2045 if ( !IsEnabled() && !HasFlag(wxTE_MULTILINE) )
2046 return MSWControlColorDisabled(hDC);
2047
2048 return wxTextCtrlBase::MSWControlColor(hDC, hWnd);
2049 }
2050
2051 bool wxTextCtrl::HasSpaceLimit(unsigned int *len) const
2052 {
2053 // HACK: we try to automatically extend the limit for the amount of text
2054 // to allow (interactively) entering more than 64Kb of text under
2055 // Win9x but we shouldn't reset the text limit which was previously
2056 // set explicitly with SetMaxLength()
2057 //
2058 // Unfortunately there is no EM_GETLIMITTEXTSETBYUSER and so we don't
2059 // know the limit we set (if any). We could solve this by storing the
2060 // limit we set in wxTextCtrl but to save space we prefer to simply
2061 // test here the actual limit value: we consider that SetMaxLength()
2062 // can only be called for small values while EN_MAXTEXT is only sent
2063 // for large values (in practice the default limit seems to be 30000
2064 // but make it smaller just to be on the safe side)
2065 *len = ::SendMessage(GetHwnd(), EM_GETLIMITTEXT, 0, 0);
2066 return *len < 10001;
2067
2068 }
2069
2070 bool wxTextCtrl::AdjustSpaceLimit()
2071 {
2072 unsigned int limit;
2073 if ( HasSpaceLimit(&limit) )
2074 return false;
2075
2076 unsigned int len = ::GetWindowTextLength(GetHwnd());
2077 if ( len >= limit )
2078 {
2079 // increment in 32Kb chunks
2080 SetMaxLength(len + 0x8000);
2081 }
2082
2083 // we changed the limit
2084 return true;
2085 }
2086
2087 bool wxTextCtrl::AcceptsFocus() const
2088 {
2089 // we don't want focus if we can't be edited unless we're a multiline
2090 // control because then it might be still nice to get focus from keyboard
2091 // to be able to scroll it without mouse
2092 return (IsEditable() || IsMultiLine()) && wxControl::AcceptsFocus();
2093 }
2094
2095 wxSize wxTextCtrl::DoGetBestSize() const
2096 {
2097 int cx, cy;
2098 wxGetCharSize(GetHWND(), &cx, &cy, GetFont());
2099
2100 int wText = DEFAULT_ITEM_WIDTH;
2101
2102 int hText = cy;
2103 if ( m_windowStyle & wxTE_MULTILINE )
2104 {
2105 hText *= wxMax(wxMin(GetNumberOfLines(), 10), 2);
2106 }
2107 //else: for single line control everything is ok
2108
2109 // we have to add the adjustments for the control height only once, not
2110 // once per line, so do it after multiplication above
2111 hText += EDIT_HEIGHT_FROM_CHAR_HEIGHT(cy) - cy;
2112
2113 return wxSize(wText, hText);
2114 }
2115
2116 // ----------------------------------------------------------------------------
2117 // standard handlers for standard edit menu events
2118 // ----------------------------------------------------------------------------
2119
2120 void wxTextCtrl::OnCut(wxCommandEvent& WXUNUSED(event))
2121 {
2122 Cut();
2123 }
2124
2125 void wxTextCtrl::OnCopy(wxCommandEvent& WXUNUSED(event))
2126 {
2127 Copy();
2128 }
2129
2130 void wxTextCtrl::OnPaste(wxCommandEvent& WXUNUSED(event))
2131 {
2132 Paste();
2133 }
2134
2135 void wxTextCtrl::OnUndo(wxCommandEvent& WXUNUSED(event))
2136 {
2137 Undo();
2138 }
2139
2140 void wxTextCtrl::OnRedo(wxCommandEvent& WXUNUSED(event))
2141 {
2142 Redo();
2143 }
2144
2145 void wxTextCtrl::OnDelete(wxCommandEvent& WXUNUSED(event))
2146 {
2147 long from, to;
2148 GetSelection(& from, & to);
2149 if (from != -1 && to != -1)
2150 Remove(from, to);
2151 }
2152
2153 void wxTextCtrl::OnSelectAll(wxCommandEvent& WXUNUSED(event))
2154 {
2155 SetSelection(-1, -1);
2156 }
2157
2158 void wxTextCtrl::OnUpdateCut(wxUpdateUIEvent& event)
2159 {
2160 event.Enable( CanCut() );
2161 }
2162
2163 void wxTextCtrl::OnUpdateCopy(wxUpdateUIEvent& event)
2164 {
2165 event.Enable( CanCopy() );
2166 }
2167
2168 void wxTextCtrl::OnUpdatePaste(wxUpdateUIEvent& event)
2169 {
2170 event.Enable( CanPaste() );
2171 }
2172
2173 void wxTextCtrl::OnUpdateUndo(wxUpdateUIEvent& event)
2174 {
2175 event.Enable( CanUndo() );
2176 }
2177
2178 void wxTextCtrl::OnUpdateRedo(wxUpdateUIEvent& event)
2179 {
2180 event.Enable( CanRedo() );
2181 }
2182
2183 void wxTextCtrl::OnUpdateDelete(wxUpdateUIEvent& event)
2184 {
2185 long from, to;
2186 GetSelection(& from, & to);
2187 event.Enable(from != -1 && to != -1 && from != to && IsEditable()) ;
2188 }
2189
2190 void wxTextCtrl::OnUpdateSelectAll(wxUpdateUIEvent& event)
2191 {
2192 event.Enable(GetLastPosition() > 0);
2193 }
2194
2195 void wxTextCtrl::OnContextMenu(wxContextMenuEvent& event)
2196 {
2197 #if wxUSE_RICHEDIT
2198 if (IsRich())
2199 {
2200 if (!m_privateContextMenu)
2201 {
2202 m_privateContextMenu = new wxMenu;
2203 m_privateContextMenu->Append(wxID_UNDO, _("&Undo"));
2204 m_privateContextMenu->Append(wxID_REDO, _("&Redo"));
2205 m_privateContextMenu->AppendSeparator();
2206 m_privateContextMenu->Append(wxID_CUT, _("Cu&t"));
2207 m_privateContextMenu->Append(wxID_COPY, _("&Copy"));
2208 m_privateContextMenu->Append(wxID_PASTE, _("&Paste"));
2209 m_privateContextMenu->Append(wxID_CLEAR, _("&Delete"));
2210 m_privateContextMenu->AppendSeparator();
2211 m_privateContextMenu->Append(wxID_SELECTALL, _("Select &All"));
2212 }
2213 PopupMenu(m_privateContextMenu);
2214 return;
2215 }
2216 else
2217 #endif
2218 event.Skip();
2219 }
2220
2221 void wxTextCtrl::OnSetFocus(wxFocusEvent& WXUNUSED(event))
2222 {
2223 // be sure the caret remains invisible if the user had hidden it
2224 if ( !m_isNativeCaretShown )
2225 {
2226 ::HideCaret(GetHwnd());
2227 }
2228 }
2229
2230 // ----------------------------------------------------------------------------
2231 // Default colors for MSW text control
2232 //
2233 // Set default background color to the native white instead of
2234 // the default wxSYS_COLOUR_BTNFACE (is triggered with wxNullColour).
2235 // ----------------------------------------------------------------------------
2236
2237 wxVisualAttributes wxTextCtrl::GetDefaultAttributes() const
2238 {
2239 wxVisualAttributes attrs;
2240 attrs.font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
2241 attrs.colFg = wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOWTEXT);
2242 attrs.colBg = wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW); //white
2243
2244 return attrs;
2245 }
2246
2247 // the rest of the file only deals with the rich edit controls
2248 #if wxUSE_RICHEDIT
2249
2250 // ----------------------------------------------------------------------------
2251 // EN_LINK processing
2252 // ----------------------------------------------------------------------------
2253
2254 bool wxTextCtrl::MSWOnNotify(int idCtrl, WXLPARAM lParam, WXLPARAM *result)
2255 {
2256 NMHDR *hdr = (NMHDR* )lParam;
2257 switch ( hdr->code )
2258 {
2259 case EN_MSGFILTER:
2260 {
2261 const MSGFILTER *msgf = (MSGFILTER *)lParam;
2262 UINT msg = msgf->msg;
2263
2264 // this is a bit crazy but richedit 1.0 sends us all mouse
2265 // events _except_ WM_LBUTTONUP (don't ask me why) so we have
2266 // generate the wxWin events for this message manually
2267 //
2268 // NB: in fact, this is still not totally correct as it does
2269 // send us WM_LBUTTONUP if the selection was cleared by the
2270 // last click -- so currently we get 2 events in this case,
2271 // but as I don't see any obvious way to check for this I
2272 // leave this code in place because it's still better than
2273 // not getting left up events at all
2274 if ( msg == WM_LBUTTONUP )
2275 {
2276 WXUINT flags = msgf->wParam;
2277 int x = GET_X_LPARAM(msgf->lParam),
2278 y = GET_Y_LPARAM(msgf->lParam);
2279
2280 HandleMouseEvent(msg, x, y, flags);
2281 }
2282 }
2283
2284 // return true to process the event (and false to ignore it)
2285 return true;
2286
2287 case EN_LINK:
2288 {
2289 const ENLINK *enlink = (ENLINK *)hdr;
2290
2291 switch ( enlink->msg )
2292 {
2293 case WM_SETCURSOR:
2294 // ok, so it is hardcoded - do we really nee to
2295 // customize it?
2296 {
2297 wxCursor cur(wxCURSOR_HAND);
2298 ::SetCursor(GetHcursorOf(cur));
2299 *result = TRUE;
2300 break;
2301 }
2302
2303 case WM_MOUSEMOVE:
2304 case WM_LBUTTONDOWN:
2305 case WM_LBUTTONUP:
2306 case WM_LBUTTONDBLCLK:
2307 case WM_RBUTTONDOWN:
2308 case WM_RBUTTONUP:
2309 case WM_RBUTTONDBLCLK:
2310 // send a mouse event
2311 {
2312 static const wxEventType eventsMouse[] =
2313 {
2314 wxEVT_MOTION,
2315 wxEVT_LEFT_DOWN,
2316 wxEVT_LEFT_UP,
2317 wxEVT_LEFT_DCLICK,
2318 wxEVT_RIGHT_DOWN,
2319 wxEVT_RIGHT_UP,
2320 wxEVT_RIGHT_DCLICK,
2321 };
2322
2323 // the event ids are consecutive
2324 wxMouseEvent
2325 evtMouse(eventsMouse[enlink->msg - WM_MOUSEMOVE]);
2326
2327 InitMouseEvent(evtMouse,
2328 GET_X_LPARAM(enlink->lParam),
2329 GET_Y_LPARAM(enlink->lParam),
2330 enlink->wParam);
2331
2332 wxTextUrlEvent event(m_windowId, evtMouse,
2333 enlink->chrg.cpMin,
2334 enlink->chrg.cpMax);
2335
2336 InitCommandEvent(event);
2337
2338 *result = ProcessCommand(event);
2339 }
2340 break;
2341 }
2342 }
2343 return true;
2344 }
2345
2346 // not processed, leave it to the base class
2347 return wxTextCtrlBase::MSWOnNotify(idCtrl, lParam, result);
2348 }
2349
2350 // ----------------------------------------------------------------------------
2351 // colour setting for the rich edit controls
2352 // ----------------------------------------------------------------------------
2353
2354 bool wxTextCtrl::SetBackgroundColour(const wxColour& colour)
2355 {
2356 if ( !wxTextCtrlBase::SetBackgroundColour(colour) )
2357 {
2358 // colour didn't really change
2359 return false;
2360 }
2361
2362 if ( IsRich() )
2363 {
2364 // rich edit doesn't use WM_CTLCOLOR, hence we need to send
2365 // EM_SETBKGNDCOLOR additionally
2366 ::SendMessage(GetHwnd(), EM_SETBKGNDCOLOR, 0, wxColourToRGB(colour));
2367 }
2368
2369 return true;
2370 }
2371
2372 bool wxTextCtrl::SetForegroundColour(const wxColour& colour)
2373 {
2374 if ( !wxTextCtrlBase::SetForegroundColour(colour) )
2375 {
2376 // colour didn't really change
2377 return false;
2378 }
2379
2380 if ( IsRich() )
2381 {
2382 // change the colour of everything
2383 CHARFORMAT cf;
2384 wxZeroMemory(cf);
2385 cf.cbSize = sizeof(cf);
2386 cf.dwMask = CFM_COLOR;
2387 cf.crTextColor = wxColourToRGB(colour);
2388 ::SendMessage(GetHwnd(), EM_SETCHARFORMAT, SCF_ALL, (LPARAM)&cf);
2389 }
2390
2391 return true;
2392 }
2393
2394 // ----------------------------------------------------------------------------
2395 // styling support for rich edit controls
2396 // ----------------------------------------------------------------------------
2397
2398 #if wxUSE_RICHEDIT
2399
2400 bool wxTextCtrl::SetStyle(long start, long end, const wxTextAttr& style)
2401 {
2402 if ( !IsRich() )
2403 {
2404 // can't do it with normal text control
2405 return false;
2406 }
2407
2408 // the richedit 1.0 doesn't handle setting background colour, so don't
2409 // even try to do anything if it's the only thing we want to change
2410 if ( m_verRichEdit == 1 && !style.HasFont() && !style.HasTextColour() &&
2411 !style.HasLeftIndent() && !style.HasRightIndent() && !style.HasAlignment() &&
2412 !style.HasTabs() )
2413 {
2414 // nothing to do: return true if there was really nothing to do and
2415 // false if we failed to set bg colour
2416 return !style.HasBackgroundColour();
2417 }
2418
2419 // order the range if needed
2420 if ( start > end )
2421 {
2422 long tmp = start;
2423 start = end;
2424 end = tmp;
2425 }
2426
2427 // we can only change the format of the selection, so select the range we
2428 // want and restore the old selection later
2429 long startOld, endOld;
2430 GetSelection(&startOld, &endOld);
2431
2432 // but do we really have to change the selection?
2433 bool changeSel = start != startOld || end != endOld;
2434
2435 if ( changeSel )
2436 {
2437 DoSetSelection(start, end, false /* don't scroll caret into view */);
2438 }
2439
2440 // initialize CHARFORMAT struct
2441 #if wxUSE_RICHEDIT2
2442 CHARFORMAT2 cf;
2443 #else
2444 CHARFORMAT cf;
2445 #endif
2446
2447 wxZeroMemory(cf);
2448
2449 // we can't use CHARFORMAT2 with RichEdit 1.0, so pretend it is a simple
2450 // CHARFORMAT in that case
2451 #if wxUSE_RICHEDIT2
2452 if ( m_verRichEdit == 1 )
2453 {
2454 // this is the only thing the control is going to grok
2455 cf.cbSize = sizeof(CHARFORMAT);
2456 }
2457 else
2458 #endif
2459 {
2460 // CHARFORMAT or CHARFORMAT2
2461 cf.cbSize = sizeof(cf);
2462 }
2463
2464 if ( style.HasFont() )
2465 {
2466 // VZ: CFM_CHARSET doesn't seem to do anything at all in RichEdit 2.0
2467 // but using it doesn't seem to hurt neither so leaving it for now
2468
2469 cf.dwMask |= CFM_FACE | CFM_SIZE | CFM_CHARSET |
2470 CFM_ITALIC | CFM_BOLD | CFM_UNDERLINE;
2471
2472 // fill in data from LOGFONT but recalculate lfHeight because we need
2473 // the real height in twips and not the negative number which
2474 // wxFillLogFont() returns (this is correct in general and works with
2475 // the Windows font mapper, but not here)
2476 LOGFONT lf;
2477 wxFillLogFont(&lf, &style.GetFont());
2478 cf.yHeight = 20*style.GetFont().GetPointSize(); // 1 pt = 20 twips
2479 cf.bCharSet = lf.lfCharSet;
2480 cf.bPitchAndFamily = lf.lfPitchAndFamily;
2481 wxStrncpy( cf.szFaceName, lf.lfFaceName, WXSIZEOF(cf.szFaceName) );
2482
2483 // also deal with underline/italic/bold attributes: note that we must
2484 // always set CFM_ITALIC &c bits in dwMask, even if we don't set the
2485 // style to allow clearing it
2486 if ( lf.lfItalic )
2487 {
2488 cf.dwEffects |= CFE_ITALIC;
2489 }
2490
2491 if ( lf.lfWeight == FW_BOLD )
2492 {
2493 cf.dwEffects |= CFE_BOLD;
2494 }
2495
2496 if ( lf.lfUnderline )
2497 {
2498 cf.dwEffects |= CFE_UNDERLINE;
2499 }
2500
2501 // strikeout fonts are not supported by wxWidgets
2502 }
2503
2504 if ( style.HasTextColour() )
2505 {
2506 cf.dwMask |= CFM_COLOR;
2507 cf.crTextColor = wxColourToRGB(style.GetTextColour());
2508 }
2509
2510 #if wxUSE_RICHEDIT2
2511 if ( m_verRichEdit != 1 && style.HasBackgroundColour() )
2512 {
2513 cf.dwMask |= CFM_BACKCOLOR;
2514 cf.crBackColor = wxColourToRGB(style.GetBackgroundColour());
2515 }
2516 #endif // wxUSE_RICHEDIT2
2517
2518 // do format the selection
2519 bool ok = ::SendMessage(GetHwnd(), EM_SETCHARFORMAT,
2520 SCF_SELECTION, (LPARAM)&cf) != 0;
2521 if ( !ok )
2522 {
2523 wxLogDebug(_T("SendMessage(EM_SETCHARFORMAT, SCF_SELECTION) failed"));
2524 }
2525
2526 // now do the paragraph formatting
2527 PARAFORMAT2 pf;
2528 wxZeroMemory(pf);
2529 // we can't use PARAFORMAT2 with RichEdit 1.0, so pretend it is a simple
2530 // PARAFORMAT in that case
2531 #if wxUSE_RICHEDIT2
2532 if ( m_verRichEdit == 1 )
2533 {
2534 // this is the only thing the control is going to grok
2535 pf.cbSize = sizeof(PARAFORMAT);
2536 }
2537 else
2538 #endif
2539 {
2540 // PARAFORMAT or PARAFORMAT2
2541 pf.cbSize = sizeof(pf);
2542 }
2543
2544 if (style.HasAlignment())
2545 {
2546 pf.dwMask |= PFM_ALIGNMENT;
2547 if (style.GetAlignment() == wxTEXT_ALIGNMENT_RIGHT)
2548 pf.wAlignment = PFA_RIGHT;
2549 else if (style.GetAlignment() == wxTEXT_ALIGNMENT_CENTRE)
2550 pf.wAlignment = PFA_CENTER;
2551 else if (style.GetAlignment() == wxTEXT_ALIGNMENT_JUSTIFIED)
2552 pf.wAlignment = PFA_JUSTIFY;
2553 else
2554 pf.wAlignment = PFA_LEFT;
2555 }
2556
2557 if (style.HasLeftIndent())
2558 {
2559 pf.dwMask |= PFM_STARTINDENT | PFM_OFFSET;
2560
2561 // Convert from 1/10 mm to TWIPS
2562 pf.dxStartIndent = (int) (((double) style.GetLeftIndent()) * mm2twips / 10.0) ;
2563 pf.dxOffset = (int) (((double) style.GetLeftSubIndent()) * mm2twips / 10.0) ;
2564 }
2565
2566 if (style.HasRightIndent())
2567 {
2568 pf.dwMask |= PFM_RIGHTINDENT;
2569
2570 // Convert from 1/10 mm to TWIPS
2571 pf.dxRightIndent = (int) (((double) style.GetRightIndent()) * mm2twips / 10.0) ;
2572 }
2573
2574 if (style.HasTabs())
2575 {
2576 pf.dwMask |= PFM_TABSTOPS;
2577
2578 const wxArrayInt& tabs = style.GetTabs();
2579
2580 pf.cTabCount = (SHORT)wxMin(tabs.GetCount(), MAX_TAB_STOPS);
2581 size_t i;
2582 for (i = 0; i < (size_t) pf.cTabCount; i++)
2583 {
2584 // Convert from 1/10 mm to TWIPS
2585 pf.rgxTabs[i] = (int) (((double) tabs[i]) * mm2twips / 10.0) ;
2586 }
2587 }
2588
2589 #if wxUSE_RICHEDIT2
2590 if ( m_verRichEdit > 1 )
2591 {
2592 if ( wxTheApp->GetLayoutDirection() == wxLayout_RightToLeft )
2593 {
2594 // Use RTL paragraphs in RTL mode to get proper layout
2595 pf.dwMask |= PFM_RTLPARA;
2596 pf.wEffects |= PFE_RTLPARA;
2597 }
2598 }
2599 #endif // wxUSE_RICHEDIT2
2600
2601 if ( pf.dwMask )
2602 {
2603 // do format the selection
2604 bool ok = ::SendMessage(GetHwnd(), EM_SETPARAFORMAT,
2605 0, (LPARAM) &pf) != 0;
2606 if ( !ok )
2607 {
2608 wxLogDebug(_T("SendMessage(EM_SETPARAFORMAT, 0) failed"));
2609 }
2610 }
2611
2612 if ( changeSel )
2613 {
2614 // restore the original selection
2615 DoSetSelection(startOld, endOld, false);
2616 }
2617
2618 return ok;
2619 }
2620
2621 bool wxTextCtrl::SetDefaultStyle(const wxTextAttr& style)
2622 {
2623 if ( !wxTextCtrlBase::SetDefaultStyle(style) )
2624 return false;
2625
2626 if ( IsEditable() )
2627 {
2628 // we have to do this or the style wouldn't apply for the text typed by
2629 // the user
2630 wxTextPos posLast = GetLastPosition();
2631 SetStyle(posLast, posLast, m_defaultStyle);
2632 }
2633
2634 return true;
2635 }
2636
2637 bool wxTextCtrl::GetStyle(long position, wxTextAttr& style)
2638 {
2639 if ( !IsRich() )
2640 {
2641 // can't do it with normal text control
2642 return false;
2643 }
2644
2645 // initialize CHARFORMAT struct
2646 #if wxUSE_RICHEDIT2
2647 CHARFORMAT2 cf;
2648 #else
2649 CHARFORMAT cf;
2650 #endif
2651
2652 wxZeroMemory(cf);
2653
2654 // we can't use CHARFORMAT2 with RichEdit 1.0, so pretend it is a simple
2655 // CHARFORMAT in that case
2656 #if wxUSE_RICHEDIT2
2657 if ( m_verRichEdit == 1 )
2658 {
2659 // this is the only thing the control is going to grok
2660 cf.cbSize = sizeof(CHARFORMAT);
2661 }
2662 else
2663 #endif
2664 {
2665 // CHARFORMAT or CHARFORMAT2
2666 cf.cbSize = sizeof(cf);
2667 }
2668 // we can only change the format of the selection, so select the range we
2669 // want and restore the old selection later
2670 long startOld, endOld;
2671 GetSelection(&startOld, &endOld);
2672
2673 // but do we really have to change the selection?
2674 bool changeSel = position != startOld || position != endOld;
2675
2676 if ( changeSel )
2677 {
2678 DoSetSelection(position, position+1, false /* don't scroll caret into view */);
2679 }
2680
2681 // get the selection formatting
2682 (void) ::SendMessage(GetHwnd(), EM_GETCHARFORMAT,
2683 SCF_SELECTION, (LPARAM)&cf) ;
2684
2685
2686 LOGFONT lf;
2687 lf.lfHeight = cf.yHeight;
2688 lf.lfWidth = 0;
2689 lf.lfCharSet = ANSI_CHARSET; // FIXME: how to get correct charset?
2690 lf.lfClipPrecision = 0;
2691 lf.lfEscapement = 0;
2692 wxStrcpy(lf.lfFaceName, cf.szFaceName);
2693
2694 //NOTE: we _MUST_ set each of these values to _something_ since we
2695 //do not call wxZeroMemory on the LOGFONT lf
2696 if (cf.dwEffects & CFE_ITALIC)
2697 lf.lfItalic = TRUE;
2698 else
2699 lf.lfItalic = FALSE;
2700
2701 lf.lfOrientation = 0;
2702 lf.lfPitchAndFamily = cf.bPitchAndFamily;
2703 lf.lfQuality = 0;
2704
2705 if (cf.dwEffects & CFE_STRIKEOUT)
2706 lf.lfStrikeOut = TRUE;
2707 else
2708 lf.lfStrikeOut = FALSE;
2709
2710 if (cf.dwEffects & CFE_UNDERLINE)
2711 lf.lfUnderline = TRUE;
2712 else
2713 lf.lfUnderline = FALSE;
2714
2715 if (cf.dwEffects & CFE_BOLD)
2716 lf.lfWeight = FW_BOLD;
2717 else
2718 lf.lfWeight = FW_NORMAL;
2719
2720 wxFont font = wxCreateFontFromLogFont(& lf);
2721 if (font.Ok())
2722 {
2723 style.SetFont(font);
2724 }
2725 style.SetTextColour(wxColour(cf.crTextColor));
2726
2727 #if wxUSE_RICHEDIT2
2728 if ( m_verRichEdit != 1 )
2729 {
2730 // cf.dwMask |= CFM_BACKCOLOR;
2731 style.SetBackgroundColour(wxColour(cf.crBackColor));
2732 }
2733 #endif // wxUSE_RICHEDIT2
2734
2735 // now get the paragraph formatting
2736 PARAFORMAT2 pf;
2737 wxZeroMemory(pf);
2738 // we can't use PARAFORMAT2 with RichEdit 1.0, so pretend it is a simple
2739 // PARAFORMAT in that case
2740 #if wxUSE_RICHEDIT2
2741 if ( m_verRichEdit == 1 )
2742 {
2743 // this is the only thing the control is going to grok
2744 pf.cbSize = sizeof(PARAFORMAT);
2745 }
2746 else
2747 #endif
2748 {
2749 // PARAFORMAT or PARAFORMAT2
2750 pf.cbSize = sizeof(pf);
2751 }
2752
2753 // do format the selection
2754 (void) ::SendMessage(GetHwnd(), EM_GETPARAFORMAT, 0, (LPARAM) &pf) ;
2755
2756 style.SetLeftIndent( (int) ((double) pf.dxStartIndent * twips2mm * 10.0), (int) ((double) pf.dxOffset * twips2mm * 10.0) );
2757 style.SetRightIndent( (int) ((double) pf.dxRightIndent * twips2mm * 10.0) );
2758
2759 if (pf.wAlignment == PFA_CENTER)
2760 style.SetAlignment(wxTEXT_ALIGNMENT_CENTRE);
2761 else if (pf.wAlignment == PFA_RIGHT)
2762 style.SetAlignment(wxTEXT_ALIGNMENT_RIGHT);
2763 else if (pf.wAlignment == PFA_JUSTIFY)
2764 style.SetAlignment(wxTEXT_ALIGNMENT_JUSTIFIED);
2765 else
2766 style.SetAlignment(wxTEXT_ALIGNMENT_LEFT);
2767
2768 wxArrayInt tabStops;
2769 size_t i;
2770 for (i = 0; i < (size_t) pf.cTabCount; i++)
2771 {
2772 tabStops.Add( (int) ((double) (pf.rgxTabs[i] & 0xFFFF) * twips2mm * 10.0) );
2773 }
2774
2775 if ( changeSel )
2776 {
2777 // restore the original selection
2778 DoSetSelection(startOld, endOld, false);
2779 }
2780
2781 return true;
2782 }
2783
2784 #endif
2785
2786 // ----------------------------------------------------------------------------
2787 // wxRichEditModule
2788 // ----------------------------------------------------------------------------
2789
2790 static const HINSTANCE INVALID_HINSTANCE = (HINSTANCE)-1;
2791
2792 bool wxRichEditModule::OnInit()
2793 {
2794 // don't do anything - we will load it when needed
2795 return true;
2796 }
2797
2798 void wxRichEditModule::OnExit()
2799 {
2800 for ( size_t i = 0; i < WXSIZEOF(ms_hRichEdit); i++ )
2801 {
2802 if ( ms_hRichEdit[i] && ms_hRichEdit[i] != INVALID_HINSTANCE )
2803 {
2804 ::FreeLibrary(ms_hRichEdit[i]);
2805 ms_hRichEdit[i] = NULL;
2806 }
2807 }
2808 #if wxUSE_INKEDIT
2809 if (ms_inkEditLib.IsLoaded())
2810 ms_inkEditLib.Unload();
2811 #endif
2812 }
2813
2814 /* static */
2815 bool wxRichEditModule::Load(Version version)
2816 {
2817 if ( ms_hRichEdit[version] == INVALID_HINSTANCE )
2818 {
2819 // we had already tried to load it and failed
2820 return false;
2821 }
2822
2823 if ( ms_hRichEdit[version] )
2824 {
2825 // we've already got this one
2826 return true;
2827 }
2828
2829 static const wxChar *dllnames[] =
2830 {
2831 _T("riched32"),
2832 _T("riched20"),
2833 _T("msftedit"),
2834 };
2835
2836 wxCOMPILE_TIME_ASSERT( WXSIZEOF(dllnames) == Version_Max,
2837 RichEditDllNamesVersionsMismatch );
2838
2839 ms_hRichEdit[version] = ::LoadLibrary(dllnames[version]);
2840
2841 if ( !ms_hRichEdit[version] )
2842 {
2843 ms_hRichEdit[version] = INVALID_HINSTANCE;
2844
2845 return false;
2846 }
2847
2848 return true;
2849 }
2850
2851 #if wxUSE_INKEDIT
2852 // load the InkEdit library
2853 bool wxRichEditModule::LoadInkEdit()
2854 {
2855 static wxDynamicLibrary ms_inkEditLib;
2856 static bool ms_inkEditLibLoadAttemped;
2857 if (ms_inkEditLibLoadAttemped)
2858 ms_inkEditLib.IsLoaded();
2859
2860 ms_inkEditLibLoadAttemped = true;
2861
2862 wxLogNull logNull;
2863 return ms_inkEditLib.Load(wxT("inked"));
2864 }
2865 #endif
2866
2867
2868 #endif // wxUSE_RICHEDIT
2869
2870 #endif // wxUSE_TEXTCTRL && !(__SMARTPHONE__ && __WXWINCE__)
wxWidgets (Impactor)