1 /////////////////////////////////////////////////////////////////////////////
3 // Purpose: TextCtrl wxWidgets sample
4 // Author: Robert Roebling
7 // Copyright: (c) Robert Roebling, Julian Smart, Vadim Zeitlin
8 // Licence: wxWindows license
9 /////////////////////////////////////////////////////////////////////////////
11 // For compilers that support precompilation, includes "wx/wx.h".
12 #include "wx/wxprec.h"
23 #include "wx/dataobj.h"
24 #include "wx/clipbrd.h"
32 #include "wx/tooltip.h"
35 // We test for wxUSE_DRAG_AND_DROP also, because data objects may not be
36 // implemented for compilers that can't cope with the OLE parts in
37 // wxUSE_DRAG_AND_DROP.
38 #if !wxUSE_DRAG_AND_DROP
39 #undef wxUSE_CLIPBOARD
40 #define wxUSE_CLIPBOARD 0
43 #include "wx/colordlg.h"
44 #include "wx/fontdlg.h"
45 #include "wx/numdlg.h"
47 //----------------------------------------------------------------------
49 //----------------------------------------------------------------------
51 class MyApp
: public wxApp
57 // a text ctrl which allows to call different wxTextCtrl functions
58 // interactively by pressing function keys in it
59 class MyTextCtrl
: public wxTextCtrl
62 MyTextCtrl(wxWindow
*parent
, wxWindowID id
, const wxString
&value
,
63 const wxPoint
&pos
, const wxSize
&size
, int style
= 0)
64 : wxTextCtrl(parent
, id
, value
, pos
, size
, style
)
69 void OnKeyDown(wxKeyEvent
& event
);
70 void OnKeyUp(wxKeyEvent
& event
);
71 void OnChar(wxKeyEvent
& event
);
73 void OnText(wxCommandEvent
& event
);
74 void OnTextEnter(wxCommandEvent
& event
);
75 void OnTextURL(wxTextUrlEvent
& event
);
76 void OnTextMaxLen(wxCommandEvent
& event
);
78 void OnTextCut(wxClipboardTextEvent
& event
);
79 void OnTextCopy(wxClipboardTextEvent
& event
);
80 void OnTextPaste(wxClipboardTextEvent
& event
);
82 void OnMouseEvent(wxMouseEvent
& event
);
84 void OnSetFocus(wxFocusEvent
& event
);
85 void OnKillFocus(wxFocusEvent
& event
);
87 static bool ms_logKey
;
88 static bool ms_logChar
;
89 static bool ms_logMouse
;
90 static bool ms_logText
;
91 static bool ms_logFocus
;
92 static bool ms_logClip
;
95 static inline wxChar
GetChar(bool on
, wxChar c
) { return on
? c
: _T('-'); }
97 void LogKeyEvent(const wxChar
*name
, wxKeyEvent
& event
) const;
98 void LogClipEvent(const wxChar
*what
, wxClipboardTextEvent
& event
);
102 DECLARE_EVENT_TABLE()
105 class MyPanel
: public wxPanel
108 MyPanel(wxFrame
*frame
, int x
, int y
, int w
, int h
);
112 delete wxLog::SetActiveTarget(m_logOld
);
117 void DoPasteFromClipboard();
118 void DoCopyToClipboard();
119 #endif // wxUSE_CLIPBOARD
122 void DoReplaceText();
124 void DoMoveToEndOfText();
125 void DoMoveToEndOfEntry();
127 // return true if currently text control has any selection
128 bool HasSelection() const
131 GetFocusedText()->GetSelection(&from
, &to
);
136 MyTextCtrl
*m_password
;
139 MyTextCtrl
*m_readonly
;
140 MyTextCtrl
*m_limited
;
142 MyTextCtrl
*m_multitext
;
143 MyTextCtrl
*m_horizontal
;
145 MyTextCtrl
*m_textrich
;
153 // get the currently focused text control or return the default one
154 // (m_multitext) is no text ctrl has focus -- in any case, returns
155 // something non NULL
156 wxTextCtrl
*GetFocusedText() const;
159 class MyFrame
: public wxFrame
162 MyFrame(wxFrame
*frame
, const wxChar
*title
, int x
, int y
, int w
, int h
);
164 void OnQuit(wxCommandEvent
& event
);
165 void OnAbout(wxCommandEvent
& event
);
167 void OnSetTooltipDelay(wxCommandEvent
& event
);
168 void OnToggleTooltips(wxCommandEvent
& event
);
169 #endif // wxUSE_TOOLTIPS
172 void OnPasteFromClipboard( wxCommandEvent
& WXUNUSED(event
) )
174 wxLogMessage(_T("Pasting text from clipboard."));
175 m_panel
->DoPasteFromClipboard();
177 void OnCopyToClipboard( wxCommandEvent
& WXUNUSED(event
) )
179 wxLogMessage(_T("Copying text to clipboard."));
180 m_panel
->DoCopyToClipboard();
183 void OnUpdatePasteFromClipboard(wxUpdateUIEvent
& event
)
185 wxClipboardLocker lockClip
;
187 event
.Enable( wxTheClipboard
->IsSupported(wxDF_TEXT
) );
190 void OnUpdateCopyToClipboard(wxUpdateUIEvent
& event
)
192 event
.Enable( m_panel
->HasSelection() );
194 #endif // wxUSE_CLIPBOARD
196 void OnAddTextFreeze( wxCommandEvent
& WXUNUSED(event
) )
198 void OnAddText( wxCommandEvent
& WXUNUSED(event
) )
199 { DoAddText(false); }
200 void OnRemoveText( wxCommandEvent
& WXUNUSED(event
) )
201 { m_panel
->DoRemoveText(); }
202 void OnReplaceText( wxCommandEvent
& WXUNUSED(event
) )
203 { m_panel
->DoReplaceText(); }
204 void OnSelectText( wxCommandEvent
& WXUNUSED(event
) )
205 { m_panel
->DoSelectText(); }
207 void OnMoveToEndOfText( wxCommandEvent
& WXUNUSED(event
) )
208 { m_panel
->DoMoveToEndOfText(); }
209 void OnMoveToEndOfEntry( wxCommandEvent
& WXUNUSED(event
) )
210 { m_panel
->DoMoveToEndOfEntry(); }
212 void OnScrollLineDown(wxCommandEvent
& WXUNUSED(event
))
214 if ( !m_panel
->m_textrich
->LineDown() )
215 wxLogMessage(_T("Already at the bottom"));
218 void OnScrollLineUp(wxCommandEvent
& WXUNUSED(event
))
220 if ( !m_panel
->m_textrich
->LineUp() )
221 wxLogMessage(_T("Already at the top"));
224 void OnScrollPageDown(wxCommandEvent
& WXUNUSED(event
))
226 if ( !m_panel
->m_textrich
->PageDown() )
227 wxLogMessage(_T("Already at the bottom"));
230 void OnScrollPageUp(wxCommandEvent
& WXUNUSED(event
))
232 if ( !m_panel
->m_textrich
->PageUp() )
233 wxLogMessage(_T("Already at the top"));
236 void OnGetLine(wxCommandEvent
& WXUNUSED(event
))
238 long nLine
= wxGetNumberFromUser(wxT("Which line would you like to get?"),
239 wxT("Enter which line you would like to get"),
240 wxT("Get a line from the tabbed multiline text control") );
242 wxMessageBox(m_panel
->m_tab
->GetLineText(nLine
));
245 void OnGetLineLength(wxCommandEvent
& WXUNUSED(event
))
247 long nLine
= wxGetNumberFromUser(wxT("Which line would you like to get?"),
248 wxT("Enter which line you would like to get"),
249 wxT("Get length of a line from the tabbed multiline text control") );
251 wxMessageBox(wxString::Format(wxT("Length of line %i is:%i"),
253 m_panel
->m_tab
->GetLineLength(nLine
))
258 void OnLogClear(wxCommandEvent
& event
);
260 void OnFileSave(wxCommandEvent
& event
);
261 void OnFileLoad(wxCommandEvent
& event
);
262 void OnRichTextTest(wxCommandEvent
& event
);
264 void OnSetEditable(wxCommandEvent
& event
);
265 void OnSetEnabled(wxCommandEvent
& event
);
267 void OnLogKey(wxCommandEvent
& event
)
269 MyTextCtrl::ms_logKey
= event
.IsChecked();
272 void OnLogChar(wxCommandEvent
& event
)
274 MyTextCtrl::ms_logChar
= event
.IsChecked();
277 void OnLogMouse(wxCommandEvent
& event
)
279 MyTextCtrl::ms_logMouse
= event
.IsChecked();
282 void OnLogText(wxCommandEvent
& event
)
284 MyTextCtrl::ms_logText
= event
.IsChecked();
287 void OnLogFocus(wxCommandEvent
& event
)
289 MyTextCtrl::ms_logFocus
= event
.IsChecked();
292 void OnLogClip(wxCommandEvent
& event
)
294 MyTextCtrl::ms_logClip
= event
.IsChecked();
297 void OnSetText(wxCommandEvent
& WXUNUSED(event
))
299 m_panel
->m_text
->SetValue(_T("Hello, world (what else did you expect)?"));
302 void OnIdle( wxIdleEvent
& event
);
305 void DoAddText(bool freeze
)
307 wxTextCtrl
* const text
= m_panel
->m_textrich
;
313 for ( int i
= 0; i
< 100; i
++ )
315 text
->AppendText(wxString::Format(wxT("Line %i\n"), i
));
321 text
->SetInsertionPoint(0);
326 DECLARE_EVENT_TABLE()
330 * RichTextFrame is used to demonstrate rich text behaviour
333 class RichTextFrame
: public wxFrame
336 RichTextFrame(wxWindow
* parent
, const wxString
& title
);
340 void OnClose(wxCommandEvent
& event
);
341 void OnIdle(wxIdleEvent
& event
);
342 void OnLeftAlign(wxCommandEvent
& event
);
343 void OnRightAlign(wxCommandEvent
& event
);
344 void OnJustify(wxCommandEvent
& event
);
345 void OnCentre(wxCommandEvent
& event
);
346 void OnChangeFont(wxCommandEvent
& event
);
347 void OnChangeTextColour(wxCommandEvent
& event
);
348 void OnChangeBackgroundColour(wxCommandEvent
& event
);
349 void OnLeftIndent(wxCommandEvent
& event
);
350 void OnRightIndent(wxCommandEvent
& event
);
353 wxTextCtrl
*m_textCtrl
;
354 long m_currentPosition
;
356 DECLARE_EVENT_TABLE()
359 //----------------------------------------------------------------------
361 //----------------------------------------------------------------------
365 //----------------------------------------------------------------------
367 //----------------------------------------------------------------------
371 TEXT_QUIT
= wxID_EXIT
,
372 TEXT_ABOUT
= wxID_ABOUT
,
379 TEXT_CLIPBOARD_COPY
= 200,
380 TEXT_CLIPBOARD_PASTE
,
384 TEXT_TOOLTIPS_SETDELAY
= 300,
385 TEXT_TOOLTIPS_ENABLE
,
420 // Create the main frame window
421 MyFrame
*frame
= new MyFrame((wxFrame
*) NULL
,
422 _T("Text wxWidgets sample"), 50, 50, 700, 550);
423 frame
->SetSizeHints( 500, 400 );
425 wxMenu
*file_menu
= new wxMenu
;
426 file_menu
->Append(TEXT_SAVE
, _T("&Save file\tCtrl-S"),
427 _T("Save the text control contents to file"));
428 file_menu
->Append(TEXT_LOAD
, _T("&Load file\tCtrl-O"),
429 _T("Load the sample file into text control"));
430 file_menu
->AppendSeparator();
431 file_menu
->Append(TEXT_RICH_TEXT_TEST
, _T("Show Rich Text Editor"));
432 file_menu
->AppendSeparator();
433 file_menu
->Append(TEXT_ABOUT
, _T("&About\tAlt-A"));
434 file_menu
->AppendSeparator();
435 file_menu
->Append(TEXT_QUIT
, _T("E&xit\tAlt-X"), _T("Quit this sample"));
437 wxMenuBar
*menu_bar
= new wxMenuBar( wxMB_DOCKABLE
);
438 menu_bar
->Append(file_menu
, _T("&File"));
441 wxMenu
*tooltip_menu
= new wxMenu
;
442 tooltip_menu
->Append(TEXT_TOOLTIPS_SETDELAY
, _T("Set &delay\tCtrl-D"));
443 tooltip_menu
->AppendSeparator();
444 tooltip_menu
->Append(TEXT_TOOLTIPS_ENABLE
, _T("&Toggle tooltips\tCtrl-T"),
445 _T("enable/disable tooltips"), true);
446 tooltip_menu
->Check(TEXT_TOOLTIPS_ENABLE
, true);
447 menu_bar
->Append(tooltip_menu
, _T("&Tooltips"));
448 #endif // wxUSE_TOOLTIPS
451 // notice that we use non default accelerators on purpose here to compare
452 // their behaviour with the built in handling of standard Ctrl/Cmd-C/V
453 wxMenu
*menuClipboard
= new wxMenu
;
454 menuClipboard
->Append(TEXT_CLIPBOARD_COPY
, _T("&Copy\tCtrl-Shift-C"),
455 _T("Copy the selection to the clipboard"));
456 menuClipboard
->Append(TEXT_CLIPBOARD_PASTE
, _T("&Paste\tCtrl-Shift-V"),
457 _T("Paste from clipboard to the text control"));
458 menuClipboard
->AppendSeparator();
459 menuClipboard
->AppendCheckItem(TEXT_CLIPBOARD_VETO
, _T("Vet&o\tCtrl-Shift-O"),
460 _T("Veto all clipboard operations"));
461 menu_bar
->Append(menuClipboard
, _T("&Clipboard"));
462 #endif // wxUSE_CLIPBOARD
464 wxMenu
*menuText
= new wxMenu
;
465 menuText
->Append(TEXT_ADD_SOME
, _T("&Append some text\tCtrl-A"));
466 menuText
->Append(TEXT_ADD_FREEZE
, _T("&Append text with freeze/thaw\tShift-Ctrl-A"));
467 menuText
->Append(TEXT_REMOVE
, _T("&Remove first 10 characters\tCtrl-Y"));
468 menuText
->Append(TEXT_REPLACE
, _T("&Replace characters 4 to 8 with ABC\tCtrl-R"));
469 menuText
->Append(TEXT_SELECT
, _T("&Select characters 4 to 8\tCtrl-I"));
470 menuText
->Append(TEXT_SET
, _T("&Set the first text zone value\tCtrl-E"));
471 menuText
->AppendSeparator();
472 menuText
->Append(TEXT_MOVE_ENDTEXT
, _T("Move cursor to the end of &text"));
473 menuText
->Append(TEXT_MOVE_ENDENTRY
, _T("Move cursor to the end of &entry"));
474 menuText
->AppendCheckItem(TEXT_SET_EDITABLE
, _T("Toggle &editable state"));
475 menuText
->AppendCheckItem(TEXT_SET_ENABLED
, _T("Toggle e&nabled state"));
476 menuText
->Check(TEXT_SET_EDITABLE
, true);
477 menuText
->Check(TEXT_SET_ENABLED
, true);
478 menuText
->AppendSeparator();
479 menuText
->Append(TEXT_LINE_DOWN
, _T("Scroll text one line down"));
480 menuText
->Append(TEXT_LINE_UP
, _T("Scroll text one line up"));
481 menuText
->Append(TEXT_PAGE_DOWN
, _T("Scroll text one page down"));
482 menuText
->Append(TEXT_PAGE_UP
, _T("Scroll text one page up"));
483 menuText
->AppendSeparator();
484 menuText
->Append(TEXT_GET_LINE
, _T("Get the text of a line of the tabbed multiline"));
485 menuText
->Append(TEXT_GET_LINELENGTH
, _T("Get the length of a line of the tabbed multiline"));
486 menu_bar
->Append(menuText
, _T("Te&xt"));
489 wxMenu
*menuLog
= new wxMenu
;
490 menuLog
->AppendCheckItem(TEXT_LOG_KEY
, _T("Log &key events"));
491 menuLog
->AppendCheckItem(TEXT_LOG_CHAR
, _T("Log &char events"));
492 menuLog
->AppendCheckItem(TEXT_LOG_MOUSE
, _T("Log &mouse events"));
493 menuLog
->AppendCheckItem(TEXT_LOG_TEXT
, _T("Log &text events"));
494 menuLog
->AppendCheckItem(TEXT_LOG_FOCUS
, _T("Log &focus events"));
495 menuLog
->AppendCheckItem(TEXT_LOG_CLIP
, _T("Log clip&board events"));
496 menuLog
->AppendSeparator();
497 menuLog
->Append(TEXT_CLEAR
, _T("&Clear the log\tCtrl-L"),
498 _T("Clear the log window contents"));
500 // select only the interesting events by default
501 MyTextCtrl::ms_logClip
=
502 MyTextCtrl::ms_logText
= true;
504 menuLog
->Check(TEXT_LOG_KEY
, MyTextCtrl::ms_logKey
);
505 menuLog
->Check(TEXT_LOG_CHAR
, MyTextCtrl::ms_logChar
);
506 menuLog
->Check(TEXT_LOG_TEXT
, MyTextCtrl::ms_logText
);
508 menu_bar
->Append(menuLog
, _T("&Log"));
511 frame
->SetMenuBar(menu_bar
);
521 //----------------------------------------------------------------------
523 //----------------------------------------------------------------------
525 BEGIN_EVENT_TABLE(MyTextCtrl
, wxTextCtrl
)
526 EVT_KEY_DOWN(MyTextCtrl::OnKeyDown
)
527 EVT_KEY_UP(MyTextCtrl::OnKeyUp
)
528 EVT_CHAR(MyTextCtrl::OnChar
)
530 EVT_TEXT(wxID_ANY
, MyTextCtrl::OnText
)
531 EVT_TEXT_ENTER(wxID_ANY
, MyTextCtrl::OnTextEnter
)
532 EVT_TEXT_URL(wxID_ANY
, MyTextCtrl::OnTextURL
)
533 EVT_TEXT_MAXLEN(wxID_ANY
, MyTextCtrl::OnTextMaxLen
)
534 EVT_TEXT_CUT(wxID_ANY
, MyTextCtrl::OnTextCut
)
535 EVT_TEXT_COPY(wxID_ANY
, MyTextCtrl::OnTextCopy
)
536 EVT_TEXT_PASTE(wxID_ANY
, MyTextCtrl::OnTextPaste
)
538 EVT_MOUSE_EVENTS(MyTextCtrl::OnMouseEvent
)
540 EVT_SET_FOCUS(MyTextCtrl::OnSetFocus
)
541 EVT_KILL_FOCUS(MyTextCtrl::OnKillFocus
)
544 bool MyTextCtrl::ms_logKey
= false;
545 bool MyTextCtrl::ms_logChar
= false;
546 bool MyTextCtrl::ms_logMouse
= false;
547 bool MyTextCtrl::ms_logText
= false;
548 bool MyTextCtrl::ms_logFocus
= false;
549 bool MyTextCtrl::ms_logClip
= false;
551 void MyTextCtrl::LogKeyEvent(const wxChar
*name
, wxKeyEvent
& event
) const
554 long keycode
= event
.GetKeyCode();
558 case WXK_BACK
: key
= _T("BACK"); break;
559 case WXK_TAB
: key
= _T("TAB"); break;
560 case WXK_RETURN
: key
= _T("RETURN"); break;
561 case WXK_ESCAPE
: key
= _T("ESCAPE"); break;
562 case WXK_SPACE
: key
= _T("SPACE"); break;
563 case WXK_DELETE
: key
= _T("DELETE"); break;
564 case WXK_START
: key
= _T("START"); break;
565 case WXK_LBUTTON
: key
= _T("LBUTTON"); break;
566 case WXK_RBUTTON
: key
= _T("RBUTTON"); break;
567 case WXK_CANCEL
: key
= _T("CANCEL"); break;
568 case WXK_MBUTTON
: key
= _T("MBUTTON"); break;
569 case WXK_CLEAR
: key
= _T("CLEAR"); break;
570 case WXK_SHIFT
: key
= _T("SHIFT"); break;
571 case WXK_ALT
: key
= _T("ALT"); break;
572 case WXK_CONTROL
: key
= _T("CONTROL"); break;
573 case WXK_MENU
: key
= _T("MENU"); break;
574 case WXK_PAUSE
: key
= _T("PAUSE"); break;
575 case WXK_CAPITAL
: key
= _T("CAPITAL"); break;
576 case WXK_END
: key
= _T("END"); break;
577 case WXK_HOME
: key
= _T("HOME"); break;
578 case WXK_LEFT
: key
= _T("LEFT"); break;
579 case WXK_UP
: key
= _T("UP"); break;
580 case WXK_RIGHT
: key
= _T("RIGHT"); break;
581 case WXK_DOWN
: key
= _T("DOWN"); break;
582 case WXK_SELECT
: key
= _T("SELECT"); break;
583 case WXK_PRINT
: key
= _T("PRINT"); break;
584 case WXK_EXECUTE
: key
= _T("EXECUTE"); break;
585 case WXK_SNAPSHOT
: key
= _T("SNAPSHOT"); break;
586 case WXK_INSERT
: key
= _T("INSERT"); break;
587 case WXK_HELP
: key
= _T("HELP"); break;
588 case WXK_NUMPAD0
: key
= _T("NUMPAD0"); break;
589 case WXK_NUMPAD1
: key
= _T("NUMPAD1"); break;
590 case WXK_NUMPAD2
: key
= _T("NUMPAD2"); break;
591 case WXK_NUMPAD3
: key
= _T("NUMPAD3"); break;
592 case WXK_NUMPAD4
: key
= _T("NUMPAD4"); break;
593 case WXK_NUMPAD5
: key
= _T("NUMPAD5"); break;
594 case WXK_NUMPAD6
: key
= _T("NUMPAD6"); break;
595 case WXK_NUMPAD7
: key
= _T("NUMPAD7"); break;
596 case WXK_NUMPAD8
: key
= _T("NUMPAD8"); break;
597 case WXK_NUMPAD9
: key
= _T("NUMPAD9"); break;
598 case WXK_MULTIPLY
: key
= _T("MULTIPLY"); break;
599 case WXK_ADD
: key
= _T("ADD"); break;
600 case WXK_SEPARATOR
: key
= _T("SEPARATOR"); break;
601 case WXK_SUBTRACT
: key
= _T("SUBTRACT"); break;
602 case WXK_DECIMAL
: key
= _T("DECIMAL"); break;
603 case WXK_DIVIDE
: key
= _T("DIVIDE"); break;
604 case WXK_F1
: key
= _T("F1"); break;
605 case WXK_F2
: key
= _T("F2"); break;
606 case WXK_F3
: key
= _T("F3"); break;
607 case WXK_F4
: key
= _T("F4"); break;
608 case WXK_F5
: key
= _T("F5"); break;
609 case WXK_F6
: key
= _T("F6"); break;
610 case WXK_F7
: key
= _T("F7"); break;
611 case WXK_F8
: key
= _T("F8"); break;
612 case WXK_F9
: key
= _T("F9"); break;
613 case WXK_F10
: key
= _T("F10"); break;
614 case WXK_F11
: key
= _T("F11"); break;
615 case WXK_F12
: key
= _T("F12"); break;
616 case WXK_F13
: key
= _T("F13"); break;
617 case WXK_F14
: key
= _T("F14"); break;
618 case WXK_F15
: key
= _T("F15"); break;
619 case WXK_F16
: key
= _T("F16"); break;
620 case WXK_F17
: key
= _T("F17"); break;
621 case WXK_F18
: key
= _T("F18"); break;
622 case WXK_F19
: key
= _T("F19"); break;
623 case WXK_F20
: key
= _T("F20"); break;
624 case WXK_F21
: key
= _T("F21"); break;
625 case WXK_F22
: key
= _T("F22"); break;
626 case WXK_F23
: key
= _T("F23"); break;
627 case WXK_F24
: key
= _T("F24"); break;
628 case WXK_NUMLOCK
: key
= _T("NUMLOCK"); break;
629 case WXK_SCROLL
: key
= _T("SCROLL"); break;
630 case WXK_PAGEUP
: key
= _T("PAGEUP"); break;
631 case WXK_PAGEDOWN
: key
= _T("PAGEDOWN"); break;
632 case WXK_NUMPAD_SPACE
: key
= _T("NUMPAD_SPACE"); break;
633 case WXK_NUMPAD_TAB
: key
= _T("NUMPAD_TAB"); break;
634 case WXK_NUMPAD_ENTER
: key
= _T("NUMPAD_ENTER"); break;
635 case WXK_NUMPAD_F1
: key
= _T("NUMPAD_F1"); break;
636 case WXK_NUMPAD_F2
: key
= _T("NUMPAD_F2"); break;
637 case WXK_NUMPAD_F3
: key
= _T("NUMPAD_F3"); break;
638 case WXK_NUMPAD_F4
: key
= _T("NUMPAD_F4"); break;
639 case WXK_NUMPAD_HOME
: key
= _T("NUMPAD_HOME"); break;
640 case WXK_NUMPAD_LEFT
: key
= _T("NUMPAD_LEFT"); break;
641 case WXK_NUMPAD_UP
: key
= _T("NUMPAD_UP"); break;
642 case WXK_NUMPAD_RIGHT
: key
= _T("NUMPAD_RIGHT"); break;
643 case WXK_NUMPAD_DOWN
: key
= _T("NUMPAD_DOWN"); break;
644 case WXK_NUMPAD_PAGEUP
: key
= _T("NUMPAD_PAGEUP"); break;
645 case WXK_NUMPAD_PAGEDOWN
: key
= _T("NUMPAD_PAGEDOWN"); break;
646 case WXK_NUMPAD_END
: key
= _T("NUMPAD_END"); break;
647 case WXK_NUMPAD_BEGIN
: key
= _T("NUMPAD_BEGIN"); break;
648 case WXK_NUMPAD_INSERT
: key
= _T("NUMPAD_INSERT"); break;
649 case WXK_NUMPAD_DELETE
: key
= _T("NUMPAD_DELETE"); break;
650 case WXK_NUMPAD_EQUAL
: key
= _T("NUMPAD_EQUAL"); break;
651 case WXK_NUMPAD_MULTIPLY
: key
= _T("NUMPAD_MULTIPLY"); break;
652 case WXK_NUMPAD_ADD
: key
= _T("NUMPAD_ADD"); break;
653 case WXK_NUMPAD_SEPARATOR
: key
= _T("NUMPAD_SEPARATOR"); break;
654 case WXK_NUMPAD_SUBTRACT
: key
= _T("NUMPAD_SUBTRACT"); break;
655 case WXK_NUMPAD_DECIMAL
: key
= _T("NUMPAD_DECIMAL"); break;
659 if ( wxIsprint((int)keycode
) )
660 key
.Printf(_T("'%c'"), (char)keycode
);
661 else if ( keycode
> 0 && keycode
< 27 )
662 key
.Printf(_("Ctrl-%c"), _T('A') + keycode
- 1);
664 key
.Printf(_T("unknown (%ld)"), keycode
);
670 key
+= wxString::Format(_T(" (Unicode: %#04x)"), event
.GetUnicodeKey());
671 #endif // wxUSE_UNICODE
673 wxLogMessage( _T("%s event: %s (flags = %c%c%c%c)"),
676 GetChar( event
.ControlDown(), _T('C') ),
677 GetChar( event
.AltDown(), _T('A') ),
678 GetChar( event
.ShiftDown(), _T('S') ),
679 GetChar( event
.MetaDown(), _T('M') ) );
682 static wxString
GetMouseEventDesc(const wxMouseEvent
& ev
)
687 if ( ev
.LeftDown() || ev
.LeftUp() || ev
.LeftDClick() )
690 dbl
= ev
.LeftDClick();
693 else if ( ev
.MiddleDown() || ev
.MiddleUp() || ev
.MiddleDClick() )
695 button
= _T("Middle");
696 dbl
= ev
.MiddleDClick();
699 else if ( ev
.RightDown() || ev
.RightUp() || ev
.RightDClick() )
701 button
= _T("Right");
702 dbl
= ev
.RightDClick();
707 return _T("Unknown mouse event");
710 return wxString::Format(_T("%s mouse button %s"),
712 dbl
? _T("double clicked")
713 : up
? _T("released") : _T("clicked"));
716 void MyTextCtrl::OnMouseEvent(wxMouseEvent
& ev
)
728 msg
= _T("Mouse entered the window");
730 else if ( ev
.Leaving() )
732 msg
= _T("Mouse left the window");
736 msg
= GetMouseEventDesc(ev
);
739 msg
<< _T(" at (") << ev
.GetX() << _T(", ") << ev
.GetY() << _T(") ");
742 wxTextCtrlHitTestResult rc
= HitTest(ev
.GetPosition(), &pos
);
743 if ( rc
!= wxTE_HT_UNKNOWN
)
745 msg
<< _T("at position ") << pos
<< _T(' ');
748 msg
<< _T("[Flags: ")
749 << GetChar( ev
.LeftIsDown(), _T('1') )
750 << GetChar( ev
.MiddleIsDown(), _T('2') )
751 << GetChar( ev
.RightIsDown(), _T('3') )
752 << GetChar( ev
.ControlDown(), _T('C') )
753 << GetChar( ev
.AltDown(), _T('A') )
754 << GetChar( ev
.ShiftDown(), _T('S') )
755 << GetChar( ev
.MetaDown(), _T('M') )
760 //else: we're not interested in mouse move events
763 void MyTextCtrl::OnSetFocus(wxFocusEvent
& event
)
766 wxLogMessage( wxT("%p got focus."), this);
771 void MyTextCtrl::OnKillFocus(wxFocusEvent
& event
)
774 wxLogMessage( wxT("%p lost focus"), this);
779 void MyTextCtrl::OnText(wxCommandEvent
& event
)
784 MyTextCtrl
*win
= (MyTextCtrl
*)event
.GetEventObject();
785 const wxChar
*changeVerb
= win
->IsModified() ? _T("changed")
786 : _T("set by program");
787 const wxChar
*data
= (const wxChar
*)(win
->GetClientData());
790 wxLogMessage(_T("Text %s in control \"%s\""), changeVerb
, data
);
794 wxLogMessage(_T("Text %s in some control"), changeVerb
);
798 void MyTextCtrl::OnTextEnter(wxCommandEvent
& event
)
803 MyTextCtrl
*win
= (MyTextCtrl
*)event
.GetEventObject();
804 const wxChar
*data
= (const wxChar
*)(win
->GetClientData());
807 wxLogMessage(_T("Enter pressed in control '%s'"), data
);
811 wxLogMessage(_T("Enter pressed in some control"));
815 void MyTextCtrl::OnTextMaxLen(wxCommandEvent
& WXUNUSED(event
))
817 wxLogMessage(_T("You can't enter more characters into this control."));
821 void MyTextCtrl::OnTextCut(wxClipboardTextEvent
& event
)
823 LogClipEvent(_T("cut to"), event
);
826 void MyTextCtrl::OnTextCopy(wxClipboardTextEvent
& event
)
828 LogClipEvent(_T("copied to"), event
);
831 void MyTextCtrl::OnTextPaste(wxClipboardTextEvent
& event
)
833 LogClipEvent(_T("pasted from"), event
);
836 void MyTextCtrl::LogClipEvent(const wxChar
*what
, wxClipboardTextEvent
& event
)
838 wxFrame
*frame
= wxDynamicCast(wxGetTopLevelParent(this), wxFrame
);
839 wxCHECK_RET( frame
, _T("no parent frame?") );
841 const bool veto
= frame
->GetMenuBar()->IsChecked(TEXT_CLIPBOARD_VETO
);
847 wxLogMessage(_T("Text %s%s the clipboard."),
848 veto
? _T("not ") : _T(""), what
);
853 void MyTextCtrl::OnTextURL(wxTextUrlEvent
& event
)
855 const wxMouseEvent
& ev
= event
.GetMouseEvent();
857 // filter out mouse moves, too many of them
861 long start
= event
.GetURLStart(),
862 end
= event
.GetURLEnd();
864 wxLogMessage(_T("Mouse event over URL '%s': %s"),
865 GetValue().Mid(start
, end
- start
).c_str(),
866 GetMouseEventDesc(ev
).c_str());
869 void MyTextCtrl::OnChar(wxKeyEvent
& event
)
872 LogKeyEvent( _T("Char"), event
);
877 void MyTextCtrl::OnKeyUp(wxKeyEvent
& event
)
880 LogKeyEvent( _T("Key up"), event
);
885 void MyTextCtrl::OnKeyDown(wxKeyEvent
& event
)
887 switch ( event
.GetKeyCode() )
890 // show current position and text length
892 long line
, column
, pos
= GetInsertionPoint();
893 PositionToXY(pos
, &column
, &line
);
895 wxLogMessage(_T("Current position: %ld\nCurrent line, column: (%ld, %ld)\nNumber of lines: %ld\nCurrent line length: %ld\nTotal text length: %u (%ld)"),
898 (long) GetNumberOfLines(),
899 (long) GetLineLength(line
),
900 (unsigned int) GetValue().length(),
904 GetSelection(&from
, &to
);
906 wxString sel
= GetStringSelection();
908 wxLogMessage(_T("Selection: from %ld to %ld."), from
, to
);
909 wxLogMessage(_T("Selection = '%s' (len = %u)"),
911 (unsigned int) sel
.length());
917 SetInsertionPointEnd();
922 SetInsertionPoint(10);
928 wxLogDebug( wxT("Now capturing mouse and events.") );
934 wxLogDebug( wxT("Stopped capturing mouse and events.") );
935 m_hasCapture
= false;
941 // insert a blank line
946 wxLogMessage(_T("IsModified() before SetValue(): %d"),
948 SetValue(_T("SetValue() has been called"));
949 wxLogMessage(_T("IsModified() after SetValue(): %d"),
954 wxLogMessage(_T("Position 10 should be now visible."));
959 wxLogMessage(_T("Control has been cleared"));
964 WriteText(_T("WriteText() has been called"));
968 AppendText(_T("AppendText() has been called"));
973 wxLogMessage(_T("Control marked as non modified"));
978 LogKeyEvent( wxT("Key down"), event
);
983 //----------------------------------------------------------------------
985 //----------------------------------------------------------------------
987 MyPanel::MyPanel( wxFrame
*frame
, int x
, int y
, int w
, int h
)
988 : wxPanel( frame
, wxID_ANY
, wxPoint(x
, y
), wxSize(w
, h
) )
991 m_log
= new wxTextCtrl( this, wxID_ANY
, _T("This is the log window.\n"),
992 wxPoint(5,260), wxSize(630,100),
993 wxTE_MULTILINE
| wxTE_READONLY
/* | wxTE_RICH */);
995 m_logOld
= wxLog::SetActiveTarget( new wxLogTextCtrl( m_log
) );
998 // single line text controls
1000 m_text
= new MyTextCtrl( this, wxID_ANY
, _T("Single line."),
1001 wxDefaultPosition
, wxDefaultSize
,
1002 wxTE_PROCESS_ENTER
);
1003 m_text
->SetForegroundColour(*wxBLUE
);
1004 m_text
->SetBackgroundColour(*wxLIGHT_GREY
);
1005 (*m_text
) << _T(" Appended.");
1006 m_text
->SetInsertionPoint(0);
1007 m_text
->WriteText( _T("Prepended. ") );
1009 m_password
= new MyTextCtrl( this, wxID_ANY
, _T(""),
1010 wxPoint(10,50), wxSize(140,wxDefaultCoord
), wxTE_PASSWORD
);
1012 m_readonly
= new MyTextCtrl( this, wxID_ANY
, _T("Read only"),
1013 wxPoint(10,90), wxSize(140,wxDefaultCoord
), wxTE_READONLY
);
1015 m_limited
= new MyTextCtrl(this, wxID_ANY
, _T("Max 8 ch"),
1016 wxPoint(10, 130), wxSize(140, wxDefaultCoord
));
1017 m_limited
->SetMaxLength(8);
1019 // multi line text controls
1021 m_horizontal
= new MyTextCtrl( this, wxID_ANY
, _T("Multiline text control with a horizontal scrollbar.\n"),
1022 wxPoint(10,170), wxSize(140,70), wxTE_MULTILINE
| wxHSCROLL
);
1024 // a little hack to use the command line argument for encoding testing
1025 if ( wxTheApp
->argc
== 2 )
1027 switch ( wxTheApp
->argv
[1][0] )
1030 m_horizontal
->SetFont(wxFont(18, wxSWISS
, wxNORMAL
, wxNORMAL
,
1032 wxFONTENCODING_ISO8859_2
));
1033 m_horizontal
->AppendText(_T("\256lu\273ou\350k\375 k\371\362 zb\354sile \350e\271tina \253\273"));
1037 m_horizontal
->SetFont(wxFont(18, wxSWISS
, wxNORMAL
, wxNORMAL
,
1039 wxFONTENCODING_CP1251
));
1040 m_horizontal
->AppendText(_T("\317\360\350\342\345\362!"));
1044 m_horizontal
->SetFont(wxFont(18, wxSWISS
, wxNORMAL
, wxNORMAL
,
1046 wxFONTENCODING_CP1251
));
1048 m_horizontal
->AppendText(L
"\x0412\x0430\x0434\x0438\x043c \x0426");
1050 m_horizontal
->AppendText("\313\301\326\305\324\323\321 \325\304\301\336\316\331\315");
1056 m_horizontal
->AppendText(_T("Text in default encoding"));
1059 m_multitext
= new MyTextCtrl( this, wxID_ANY
, _T("Multi line."),
1060 wxPoint(180,10), wxSize(200,70), wxTE_MULTILINE
);
1061 m_multitext
->SetFont(*wxITALIC_FONT
);
1062 (*m_multitext
) << _T(" Appended.");
1063 m_multitext
->SetInsertionPoint(0);
1064 m_multitext
->WriteText( _T("Prepended. ") );
1065 m_multitext
->SetForegroundColour(*wxRED
);
1066 m_multitext
->SetBackgroundColour(*wxLIGHT_GREY
);
1069 m_multitext
->SetToolTip(_T("Press Fn function keys here"));
1072 m_tab
= new MyTextCtrl( this, 100, _T("Multiline, allow <TAB> processing."),
1073 wxPoint(180,90), wxSize(200,70), wxTE_MULTILINE
| wxTE_PROCESS_TAB
);
1074 m_tab
->SetClientData((void *)_T("tab"));
1076 m_enter
= new MyTextCtrl( this, 100, _T("Multiline, allow <ENTER> processing."),
1077 wxPoint(180,170), wxSize(200,70), wxTE_MULTILINE
);
1078 m_enter
->SetClientData((void *)_T("enter"));
1080 m_textrich
= new MyTextCtrl(this, wxID_ANY
, _T("Allows more than 30Kb of text\n")
1081 _T("(even under broken Win9x)\n")
1082 _T("and a very very very very very ")
1083 _T("very very very long line to test ")
1084 _T("wxHSCROLL style\n")
1085 _T("\nAnd here is a link in quotation marks to ")
1086 _T("test wxTE_AUTO_URL: \"http://www.wxwidgets.org\""),
1087 wxPoint(450, 10), wxSize(200, 230),
1088 wxTE_RICH
| wxTE_MULTILINE
| wxTE_AUTO_URL
);
1089 m_textrich
->SetStyle(0, 10, *wxRED
);
1090 m_textrich
->SetStyle(10, 20, *wxBLUE
);
1091 m_textrich
->SetStyle(30, 40,
1092 wxTextAttr(*wxGREEN
, wxNullColour
, *wxITALIC_FONT
));
1093 m_textrich
->SetDefaultStyle(wxTextAttr());
1094 m_textrich
->AppendText(_T("\n\nFirst 10 characters should be in red\n"));
1095 m_textrich
->AppendText(_T("Next 10 characters should be in blue\n"));
1096 m_textrich
->AppendText(_T("Next 10 characters should be normal\n"));
1097 m_textrich
->AppendText(_T("And the next 10 characters should be green and italic\n"));
1098 m_textrich
->SetDefaultStyle(wxTextAttr(*wxCYAN
, *wxBLUE
));
1099 m_textrich
->AppendText(_T("This text should be cyan on blue\n"));
1100 m_textrich
->SetDefaultStyle(wxTextAttr(*wxBLUE
, *wxWHITE
));
1101 m_textrich
->AppendText(_T("And this should be in blue and the text you ")
1102 _T("type should be in blue as well"));
1105 // lay out the controls
1106 wxBoxSizer
*column1
= new wxBoxSizer(wxVERTICAL
);
1107 column1
->Add( m_text
, 0, wxALL
| wxEXPAND
, 10 );
1108 column1
->Add( m_password
, 0, wxALL
| wxEXPAND
, 10 );
1109 column1
->Add( m_readonly
, 0, wxALL
| wxEXPAND
, 10 );
1110 column1
->Add( m_limited
, 0, wxALL
| wxEXPAND
, 10 );
1111 column1
->Add( m_horizontal
, 1, wxALL
| wxEXPAND
, 10 );
1113 wxBoxSizer
*column2
= new wxBoxSizer(wxVERTICAL
);
1114 column2
->Add( m_multitext
, 1, wxALL
| wxEXPAND
, 10 );
1115 column2
->Add( m_tab
, 1, wxALL
| wxEXPAND
, 10 );
1116 column2
->Add( m_enter
, 1, wxALL
| wxEXPAND
, 10 );
1118 wxBoxSizer
*row1
= new wxBoxSizer(wxHORIZONTAL
);
1119 row1
->Add( column1
, 0, wxALL
| wxEXPAND
, 10 );
1120 row1
->Add( column2
, 1, wxALL
| wxEXPAND
, 10 );
1121 row1
->Add( m_textrich
, 1, wxALL
| wxEXPAND
, 10 );
1123 wxBoxSizer
*topSizer
= new wxBoxSizer(wxVERTICAL
);
1124 topSizer
->Add( row1
, 2, wxALL
| wxEXPAND
, 10 );
1127 topSizer
->Add( m_log
, 1, wxALL
| wxEXPAND
, 10 );
1130 SetAutoLayout( true );
1134 wxTextCtrl
*MyPanel::GetFocusedText() const
1136 wxWindow
*win
= FindFocus();
1138 wxTextCtrl
*text
= win
? wxDynamicCast(win
, wxTextCtrl
) : NULL
;
1139 return text
? text
: m_multitext
;
1143 void MyPanel::DoPasteFromClipboard()
1145 // On X11, we want to get the data from the primary selection instead
1146 // of the normal clipboard (which isn't normal under X11 at all). This
1147 // call has no effect under MSW.
1148 wxTheClipboard
->UsePrimarySelection();
1150 if (!wxTheClipboard
->Open())
1153 *m_log
<< _T("Error opening the clipboard.\n");
1160 *m_log
<< _T("Successfully opened the clipboard.\n");
1164 wxTextDataObject data
;
1166 if (wxTheClipboard
->IsSupported( data
.GetFormat() ))
1169 *m_log
<< _T("Clipboard supports requested format.\n");
1172 if (wxTheClipboard
->GetData( data
))
1175 *m_log
<< _T("Successfully retrieved data from the clipboard.\n");
1177 GetFocusedText()->AppendText(data
.GetText());
1182 *m_log
<< _T("Error getting data from the clipboard.\n");
1189 *m_log
<< _T("Clipboard doesn't support requested format.\n");
1193 wxTheClipboard
->Close();
1196 *m_log
<< _T("Closed the clipboard.\n");
1200 void MyPanel::DoCopyToClipboard()
1202 // On X11, we want to get the data from the primary selection instead
1203 // of the normal clipboard (which isn't normal under X11 at all). This
1204 // call has no effect under MSW.
1205 wxTheClipboard
->UsePrimarySelection();
1207 wxString
text( GetFocusedText()->GetStringSelection() );
1212 *m_log
<< _T("No text to copy.\n");
1218 if (!wxTheClipboard
->Open())
1221 *m_log
<< _T("Error opening the clipboard.\n");
1229 *m_log
<< _T("Successfully opened the clipboard.\n");
1233 wxTextDataObject
*data
= new wxTextDataObject( text
);
1235 if (!wxTheClipboard
->SetData( data
))
1238 *m_log
<< _T("Error while copying to the clipboard.\n");
1244 *m_log
<< _T("Successfully copied data to the clipboard.\n");
1248 wxTheClipboard
->Close();
1251 *m_log
<< _T("Closed the clipboard.\n");
1255 #endif // wxUSE_CLIPBOARD
1257 void MyPanel::DoMoveToEndOfText()
1259 m_multitext
->SetInsertionPointEnd();
1260 m_multitext
->SetFocus();
1263 void MyPanel::DoMoveToEndOfEntry()
1265 m_text
->SetInsertionPointEnd();
1269 void MyPanel::DoRemoveText()
1271 GetFocusedText()->Remove(0, 10);
1274 void MyPanel::DoReplaceText()
1276 GetFocusedText()->Replace(3, 8, _T("ABC"));
1279 void MyPanel::DoSelectText()
1281 GetFocusedText()->SetSelection(3, 8);
1284 //----------------------------------------------------------------------
1286 //----------------------------------------------------------------------
1288 BEGIN_EVENT_TABLE(MyFrame
, wxFrame
)
1289 EVT_MENU(TEXT_QUIT
, MyFrame::OnQuit
)
1290 EVT_MENU(TEXT_ABOUT
, MyFrame::OnAbout
)
1291 EVT_MENU(TEXT_SAVE
, MyFrame::OnFileSave
)
1292 EVT_MENU(TEXT_LOAD
, MyFrame::OnFileLoad
)
1293 EVT_MENU(TEXT_RICH_TEXT_TEST
, MyFrame::OnRichTextTest
)
1295 EVT_MENU(TEXT_LOG_KEY
, MyFrame::OnLogKey
)
1296 EVT_MENU(TEXT_LOG_CHAR
, MyFrame::OnLogChar
)
1297 EVT_MENU(TEXT_LOG_MOUSE
,MyFrame::OnLogMouse
)
1298 EVT_MENU(TEXT_LOG_TEXT
, MyFrame::OnLogText
)
1299 EVT_MENU(TEXT_LOG_FOCUS
,MyFrame::OnLogFocus
)
1300 EVT_MENU(TEXT_LOG_CLIP
, MyFrame::OnLogClip
)
1302 EVT_MENU(TEXT_CLEAR
, MyFrame::OnLogClear
)
1306 EVT_MENU(TEXT_TOOLTIPS_SETDELAY
, MyFrame::OnSetTooltipDelay
)
1307 EVT_MENU(TEXT_TOOLTIPS_ENABLE
, MyFrame::OnToggleTooltips
)
1308 #endif // wxUSE_TOOLTIPS
1311 EVT_MENU(TEXT_CLIPBOARD_PASTE
, MyFrame::OnPasteFromClipboard
)
1312 EVT_MENU(TEXT_CLIPBOARD_COPY
, MyFrame::OnCopyToClipboard
)
1314 EVT_UPDATE_UI(TEXT_CLIPBOARD_PASTE
, MyFrame::OnUpdatePasteFromClipboard
)
1315 EVT_UPDATE_UI(TEXT_CLIPBOARD_COPY
, MyFrame::OnUpdateCopyToClipboard
)
1316 #endif // wxUSE_CLIPBOARD
1318 EVT_MENU(TEXT_REMOVE
, MyFrame::OnRemoveText
)
1319 EVT_MENU(TEXT_REPLACE
, MyFrame::OnReplaceText
)
1320 EVT_MENU(TEXT_SELECT
, MyFrame::OnSelectText
)
1321 EVT_MENU(TEXT_ADD_SOME
, MyFrame::OnAddText
)
1322 EVT_MENU(TEXT_ADD_FREEZE
, MyFrame::OnAddTextFreeze
)
1323 EVT_MENU(TEXT_MOVE_ENDTEXT
, MyFrame::OnMoveToEndOfText
)
1324 EVT_MENU(TEXT_MOVE_ENDENTRY
, MyFrame::OnMoveToEndOfEntry
)
1326 EVT_MENU(TEXT_SET_EDITABLE
, MyFrame::OnSetEditable
)
1327 EVT_MENU(TEXT_SET_ENABLED
, MyFrame::OnSetEnabled
)
1329 EVT_MENU(TEXT_LINE_DOWN
, MyFrame::OnScrollLineDown
)
1330 EVT_MENU(TEXT_LINE_UP
, MyFrame::OnScrollLineUp
)
1331 EVT_MENU(TEXT_PAGE_DOWN
, MyFrame::OnScrollPageDown
)
1332 EVT_MENU(TEXT_PAGE_UP
, MyFrame::OnScrollPageUp
)
1334 EVT_MENU(TEXT_GET_LINE
, MyFrame::OnGetLine
)
1335 EVT_MENU(TEXT_GET_LINELENGTH
, MyFrame::OnGetLineLength
)
1337 EVT_MENU(TEXT_SET
, MyFrame::OnSetText
)
1339 EVT_IDLE(MyFrame::OnIdle
)
1342 MyFrame::MyFrame(wxFrame
*frame
, const wxChar
*title
, int x
, int y
, int w
, int h
)
1343 : wxFrame(frame
, wxID_ANY
, title
, wxPoint(x
, y
), wxSize(w
, h
) )
1347 #endif // wxUSE_STATUSBAR
1349 m_panel
= new MyPanel( this, 10, 10, 300, 100 );
1352 void MyFrame::OnQuit (wxCommandEvent
& WXUNUSED(event
) )
1357 void MyFrame::OnAbout( wxCommandEvent
& WXUNUSED(event
) )
1359 wxBeginBusyCursor();
1361 wxMessageDialog
dialog(this,
1362 _T("This is a text control sample. It demonstrates the many different\n")
1363 _T("text control styles, the use of the clipboard, setting and handling\n")
1364 _T("tooltips and intercepting key and char events.\n")
1366 _T("Copyright (c) 1999, Robert Roebling, Julian Smart, Vadim Zeitlin"),
1367 _T("About wxTextCtrl Sample"),
1368 wxOK
| wxICON_INFORMATION
);
1377 void MyFrame::OnSetTooltipDelay(wxCommandEvent
& WXUNUSED(event
))
1379 static long s_delay
= 5000;
1382 delay
.Printf( _T("%ld"), s_delay
);
1384 delay
= wxGetTextFromUser(_T("Enter delay (in milliseconds)"),
1385 _T("Set tooltip delay"),
1389 return; // cancelled
1391 wxSscanf(delay
, _T("%ld"), &s_delay
);
1393 wxToolTip::SetDelay(s_delay
);
1395 wxLogStatus(this, _T("Tooltip delay set to %ld milliseconds"), s_delay
);
1398 void MyFrame::OnToggleTooltips(wxCommandEvent
& WXUNUSED(event
))
1400 static bool s_enabled
= true;
1402 s_enabled
= !s_enabled
;
1404 wxToolTip::Enable(s_enabled
);
1406 wxLogStatus(this, _T("Tooltips %sabled"), s_enabled
? _T("en") : _T("dis") );
1411 void MyFrame::OnLogClear(wxCommandEvent
& WXUNUSED(event
))
1413 m_panel
->m_log
->Clear();
1417 void MyFrame::OnSetEditable(wxCommandEvent
& WXUNUSED(event
))
1419 static bool s_editable
= true;
1421 s_editable
= !s_editable
;
1422 m_panel
->m_text
->SetEditable(s_editable
);
1423 m_panel
->m_password
->SetEditable(s_editable
);
1424 m_panel
->m_multitext
->SetEditable(s_editable
);
1425 m_panel
->m_textrich
->SetEditable(s_editable
);
1428 void MyFrame::OnSetEnabled(wxCommandEvent
& WXUNUSED(event
))
1430 bool enabled
= m_panel
->m_text
->IsEnabled();
1433 m_panel
->m_text
->Enable(enabled
);
1434 m_panel
->m_password
->Enable(enabled
);
1435 m_panel
->m_multitext
->Enable(enabled
);
1436 m_panel
->m_readonly
->Enable(enabled
);
1437 m_panel
->m_limited
->Enable(enabled
);
1438 m_panel
->m_textrich
->Enable(enabled
);
1441 void MyFrame::OnFileSave(wxCommandEvent
& WXUNUSED(event
))
1443 if ( m_panel
->m_textrich
->SaveFile(_T("dummy.txt")) )
1446 // verify that the fil length is correct (it wasn't under Win95)
1447 wxFile
file(wxT("dummy.txt"));
1449 _T("Successfully saved file (text len = %lu, file size = %ld)"),
1450 (unsigned long)m_panel
->m_textrich
->GetValue().length(),
1451 (long) file
.Length());
1455 wxLogStatus(this, _T("Couldn't save the file"));
1458 void MyFrame::OnFileLoad(wxCommandEvent
& WXUNUSED(event
))
1460 if ( m_panel
->m_textrich
->LoadFile(_T("dummy.txt")) )
1461 wxLogStatus(this, _T("Successfully loaded file"));
1463 wxLogStatus(this, _T("Couldn't load the file"));
1466 void MyFrame::OnRichTextTest(wxCommandEvent
& WXUNUSED(event
))
1468 RichTextFrame
* frame
= new RichTextFrame(this, _T("Rich Text Editor"));
1472 void MyFrame::OnIdle( wxIdleEvent
& event
)
1474 // track the window which has the focus in the status bar
1475 static wxWindow
*s_windowFocus
= (wxWindow
*)NULL
;
1476 wxWindow
*focus
= wxWindow::FindFocus();
1477 if ( focus
&& (focus
!= s_windowFocus
) )
1479 s_windowFocus
= focus
;
1484 _T("Focus: wxWindow = %p, HWND = %08x"),
1486 _T("Focus: wxWindow = %p"),
1490 , (unsigned int) s_windowFocus
->GetHWND()
1496 #endif // wxUSE_STATUSBAR
1502 * RichTextFrame is used to demonstrate rich text behaviour
1507 RICHTEXT_CLOSE
= 1000,
1508 RICHTEXT_LEFT_ALIGN
,
1509 RICHTEXT_RIGHT_ALIGN
,
1512 RICHTEXT_CHANGE_FONT
,
1513 RICHTEXT_CHANGE_TEXT_COLOUR
,
1514 RICHTEXT_CHANGE_BACKGROUND_COLOUR
,
1515 RICHTEXT_LEFT_INDENT
,
1516 RICHTEXT_RIGHT_INDENT
1519 BEGIN_EVENT_TABLE(RichTextFrame
, wxFrame
)
1520 EVT_IDLE(RichTextFrame::OnIdle
)
1521 EVT_MENU(RICHTEXT_CLOSE
, RichTextFrame::OnClose
)
1522 EVT_MENU(RICHTEXT_LEFT_ALIGN
, RichTextFrame::OnLeftAlign
)
1523 EVT_MENU(RICHTEXT_RIGHT_ALIGN
, RichTextFrame::OnRightAlign
)
1524 EVT_MENU(RICHTEXT_CENTRE
, RichTextFrame::OnCentre
)
1525 EVT_MENU(RICHTEXT_JUSTIFY
, RichTextFrame::OnJustify
)
1526 EVT_MENU(RICHTEXT_CHANGE_FONT
, RichTextFrame::OnChangeFont
)
1527 EVT_MENU(RICHTEXT_CHANGE_TEXT_COLOUR
, RichTextFrame::OnChangeTextColour
)
1528 EVT_MENU(RICHTEXT_CHANGE_BACKGROUND_COLOUR
, RichTextFrame::OnChangeBackgroundColour
)
1529 EVT_MENU(RICHTEXT_LEFT_INDENT
, RichTextFrame::OnLeftIndent
)
1530 EVT_MENU(RICHTEXT_RIGHT_INDENT
, RichTextFrame::OnRightIndent
)
1533 RichTextFrame::RichTextFrame(wxWindow
* parent
, const wxString
& title
):
1534 wxFrame(parent
, wxID_ANY
, title
, wxDefaultPosition
, wxSize(300, 400))
1536 m_currentPosition
= -1;
1537 m_textCtrl
= new wxTextCtrl(this, wxID_ANY
, wxEmptyString
, wxDefaultPosition
,
1538 wxDefaultSize
, wxTE_MULTILINE
|wxTE_RICH2
);
1542 for (i
= 0; i
< 10; i
++)
1545 for (j
= 0; j
< 10; j
++)
1547 value
<< wxT("Hello, welcome to a very simple rich text editor. You can set some character and paragraph styles from the Edit menu. ");
1549 value
<< wxT("\n\n");
1551 m_textCtrl
->SetValue(value
);
1553 wxMenuBar
* menuBar
= new wxMenuBar
;
1554 wxMenu
* fileMenu
= new wxMenu
;
1555 fileMenu
->Append(RICHTEXT_CLOSE
, _("Close\tCtrl+W"));
1556 menuBar
->Append(fileMenu
, _("File"));
1558 wxMenu
* editMenu
= new wxMenu
;
1559 editMenu
->Append(RICHTEXT_LEFT_ALIGN
, _("Left Align"));
1560 editMenu
->Append(RICHTEXT_RIGHT_ALIGN
, _("Right Align"));
1561 editMenu
->Append(RICHTEXT_CENTRE
, _("Centre"));
1562 editMenu
->Append(RICHTEXT_JUSTIFY
, _("Justify"));
1563 editMenu
->AppendSeparator();
1564 editMenu
->Append(RICHTEXT_CHANGE_FONT
, _("Change Font"));
1565 editMenu
->Append(RICHTEXT_CHANGE_TEXT_COLOUR
, _("Change Text Colour"));
1566 editMenu
->Append(RICHTEXT_CHANGE_BACKGROUND_COLOUR
, _("Change Background Colour"));
1567 editMenu
->AppendSeparator();
1568 editMenu
->Append(RICHTEXT_LEFT_INDENT
, _("Left Indent"));
1569 editMenu
->Append(RICHTEXT_RIGHT_INDENT
, _("Right indent"));
1570 menuBar
->Append(editMenu
, _("Edit"));
1572 SetMenuBar(menuBar
);
1575 #endif // wxUSE_STATUSBAR
1580 void RichTextFrame::OnClose(wxCommandEvent
& WXUNUSED(event
))
1585 void RichTextFrame::OnLeftAlign(wxCommandEvent
& WXUNUSED(event
))
1588 attr
.SetAlignment(wxTEXT_ALIGNMENT_LEFT
);
1591 m_textCtrl
->GetSelection(& start
, & end
);
1592 m_textCtrl
->SetStyle(start
, end
, attr
);
1594 m_currentPosition
= -1;
1597 void RichTextFrame::OnRightAlign(wxCommandEvent
& WXUNUSED(event
))
1600 attr
.SetAlignment(wxTEXT_ALIGNMENT_RIGHT
);
1603 m_textCtrl
->GetSelection(& start
, & end
);
1604 m_textCtrl
->SetStyle(start
, end
, attr
);
1606 m_currentPosition
= -1;
1609 void RichTextFrame::OnJustify(wxCommandEvent
& WXUNUSED(event
))
1612 attr
.SetAlignment(wxTEXT_ALIGNMENT_JUSTIFIED
);
1615 m_textCtrl
->GetSelection(& start
, & end
);
1616 m_textCtrl
->SetStyle(start
, end
, attr
);
1618 m_currentPosition
= -1;
1621 void RichTextFrame::OnCentre(wxCommandEvent
& WXUNUSED(event
))
1624 attr
.SetAlignment(wxTEXT_ALIGNMENT_CENTRE
);
1627 m_textCtrl
->GetSelection(& start
, & end
);
1628 m_textCtrl
->SetStyle(start
, end
, attr
);
1630 m_currentPosition
= -1;
1633 void RichTextFrame::OnChangeFont(wxCommandEvent
& WXUNUSED(event
))
1637 wxFontDialog
dialog(this, data
);
1639 if (dialog
.ShowModal() == wxID_OK
)
1641 wxFontData retData
= dialog
.GetFontData();
1642 wxFont font
= retData
.GetChosenFont();
1648 m_textCtrl
->GetSelection(& start
, & end
);
1649 m_textCtrl
->SetStyle(start
, end
, attr
);
1651 m_currentPosition
= -1;
1655 void RichTextFrame::OnChangeTextColour(wxCommandEvent
& WXUNUSED(event
))
1658 data
.SetColour(* wxBLACK
);
1659 data
.SetChooseFull(true);
1660 for (int i
= 0; i
< 16; i
++)
1662 wxColour
colour((unsigned char)(i
*16), (unsigned char)(i
*16), (unsigned char)(i
*16));
1663 data
.SetCustomColour(i
, colour
);
1666 wxColourDialog
dialog(this, &data
);
1667 dialog
.SetTitle(_T("Choose the text colour"));
1668 if (dialog
.ShowModal() == wxID_OK
)
1670 wxColourData retData
= dialog
.GetColourData();
1671 wxColour col
= retData
.GetColour();
1674 attr
.SetTextColour(col
);
1677 m_textCtrl
->GetSelection(& start
, & end
);
1678 m_textCtrl
->SetStyle(start
, end
, attr
);
1680 m_currentPosition
= -1;
1684 void RichTextFrame::OnChangeBackgroundColour(wxCommandEvent
& WXUNUSED(event
))
1687 data
.SetColour(* wxWHITE
);
1688 data
.SetChooseFull(true);
1689 for (int i
= 0; i
< 16; i
++)
1691 wxColour
colour((unsigned char)(i
*16), (unsigned char)(i
*16), (unsigned char)(i
*16));
1692 data
.SetCustomColour(i
, colour
);
1695 wxColourDialog
dialog(this, &data
);
1696 dialog
.SetTitle(_T("Choose the text background colour"));
1697 if (dialog
.ShowModal() == wxID_OK
)
1699 wxColourData retData
= dialog
.GetColourData();
1700 wxColour col
= retData
.GetColour();
1703 attr
.SetBackgroundColour(col
);
1706 m_textCtrl
->GetSelection(& start
, & end
);
1707 m_textCtrl
->SetStyle(start
, end
, attr
);
1709 m_currentPosition
= -1;
1713 void RichTextFrame::OnLeftIndent(wxCommandEvent
& WXUNUSED(event
))
1715 wxString indentStr
= wxGetTextFromUser
1717 _("Please enter the left indent in tenths of a millimetre."),
1722 if (!indentStr
.IsEmpty())
1724 int indent
= wxAtoi(indentStr
);
1727 attr
.SetLeftIndent(indent
);
1730 m_textCtrl
->GetSelection(& start
, & end
);
1731 m_textCtrl
->SetStyle(start
, end
, attr
);
1733 m_currentPosition
= -1;
1737 void RichTextFrame::OnRightIndent(wxCommandEvent
& WXUNUSED(event
))
1739 wxString indentStr
= wxGetTextFromUser
1741 _("Please enter the right indent in tenths of a millimetre."),
1746 if (!indentStr
.IsEmpty())
1748 int indent
= wxAtoi(indentStr
);
1751 attr
.SetRightIndent(indent
);
1754 m_textCtrl
->GetSelection(& start
, & end
);
1755 m_textCtrl
->SetStyle(start
, end
, attr
);
1757 m_currentPosition
= -1;
1761 void RichTextFrame::OnIdle(wxIdleEvent
& WXUNUSED(event
))
1763 long insertionPoint
= m_textCtrl
->GetInsertionPoint();
1764 if (insertionPoint
!= m_currentPosition
)
1768 if (m_textCtrl
->GetStyle(insertionPoint
, attr
))
1771 wxString
facename(wxT("unknown"));
1772 if (attr
.GetFont().Ok())
1774 facename
= attr
.GetFont().GetFaceName();
1776 wxString
alignment(wxT("unknown alignment"));
1777 if (attr
.GetAlignment() == wxTEXT_ALIGNMENT_CENTRE
)
1778 alignment
= wxT("centred");
1779 else if (attr
.GetAlignment() == wxTEXT_ALIGNMENT_RIGHT
)
1780 alignment
= wxT("right-aligned");
1781 else if (attr
.GetAlignment() == wxTEXT_ALIGNMENT_LEFT
)
1782 alignment
= wxT("left-aligned");
1783 else if (attr
.GetAlignment() == wxTEXT_ALIGNMENT_JUSTIFIED
)
1784 alignment
= wxT("justified");
1785 msg
.Printf(wxT("Facename: %s, wxColour(%d, %d, %d), %s"),
1786 (const wxChar
*) facename
,
1787 attr
.GetTextColour().Red(), attr
.GetTextColour().Green(), attr
.GetTextColour().Blue(),
1788 (const wxChar
*) alignment
);
1792 if (attr
.GetFont().GetWeight() == wxBOLD
)
1793 msg
+= wxT(" BOLD");
1794 else if (attr
.GetFont().GetWeight() == wxNORMAL
)
1795 msg
+= wxT(" NORMAL");
1797 if (attr
.GetFont().GetStyle() == wxITALIC
)
1798 msg
+= wxT(" ITALIC");
1800 if (attr
.GetFont().GetUnderlined())
1801 msg
+= wxT(" UNDERLINED");
1806 #endif // wxUSE_STATUSBAR
1807 m_currentPosition
= insertionPoint
;