]> git.saurik.com Git - wxWidgets.git/blame_incremental - samples/text/text.cpp
Fixes for common dialogs
[wxWidgets.git] / samples / text / text.cpp
... / ...
CommitLineData
1/////////////////////////////////////////////////////////////////////////////
2// Name: text.cpp
3// Purpose: TextCtrl wxWindows sample
4// Author: Robert Roebling
5// Modified by:
6// RCS-ID: $Id$
7// Copyright: (c) Robert Roebling, Julian Smart, Vadim Zeitlin
8// Licence: wxWindows license
9/////////////////////////////////////////////////////////////////////////////
10
11#ifdef __GNUG__
12 #pragma implementation "text.cpp"
13#endif
14
15// For compilers that support precompilation, includes "wx/wx.h".
16#include "wx/wxprec.h"
17
18#ifdef __BORLANDC__
19 #pragma hdrstop
20#endif
21
22#ifndef WX_PRECOMP
23 #include "wx/wx.h"
24#endif
25
26#if wxUSE_CLIPBOARD
27 #include "wx/dataobj.h"
28 #include "wx/clipbrd.h"
29#endif
30
31#if wxUSE_FILE
32 #include "wx/file.h"
33#endif
34
35#if wxUSE_TOOLTIPS
36 #include "wx/tooltip.h"
37#endif
38
39 #include "wx/progdlg.h"
40
41// We test for wxUSE_DRAG_AND_DROP also, because data objects may not be
42// implemented for compilers that can't cope with the OLE parts in
43// wxUSE_DRAG_AND_DROP.
44#if !wxUSE_DRAG_AND_DROP
45 #undef wxUSE_CLIPBOARD
46 #define wxUSE_CLIPBOARD 0
47#endif
48
49//----------------------------------------------------------------------
50// class definitions
51//----------------------------------------------------------------------
52
53class MyApp: public wxApp
54{
55public:
56 bool OnInit();
57};
58
59// a text ctrl which allows to call different wxTextCtrl functions
60// interactively by pressing function keys in it
61class MyTextCtrl : public wxTextCtrl
62{
63public:
64 MyTextCtrl(wxWindow *parent, wxWindowID id, const wxString &value,
65 const wxPoint &pos, const wxSize &size, int style = 0)
66 : wxTextCtrl(parent, id, value, pos, size, style)
67 {
68 m_hasCapture = FALSE;
69 }
70
71 void OnKeyDown(wxKeyEvent& event);
72 void OnKeyUp(wxKeyEvent& event);
73 void OnChar(wxKeyEvent& event);
74
75 void OnText(wxCommandEvent& event);
76 void OnTextURL(wxTextUrlEvent& event);
77 void OnTextMaxLen(wxCommandEvent& event);
78
79 void OnMouseEvent(wxMouseEvent& event);
80
81 void OnSetFocus(wxFocusEvent& event);
82 void OnKillFocus(wxFocusEvent& event);
83
84 static bool ms_logKey;
85 static bool ms_logChar;
86 static bool ms_logMouse;
87 static bool ms_logText;
88 static bool ms_logFocus;
89
90private:
91 static inline wxChar GetChar(bool on, wxChar c) { return on ? c : _T('-'); }
92 void LogKeyEvent(const wxChar *name, wxKeyEvent& event) const;
93
94 bool m_hasCapture;
95
96 DECLARE_EVENT_TABLE()
97};
98
99class MyPanel: public wxPanel
100{
101public:
102 MyPanel(wxFrame *frame, int x, int y, int w, int h);
103 virtual ~MyPanel() { delete wxLog::SetActiveTarget(m_logOld); }
104
105#if wxUSE_CLIPBOARD
106 void DoPasteFromClipboard();
107 void DoCopyToClipboard();
108#endif // wxUSE_CLIPBOARD
109
110 void DoRemoveText();
111 void DoMoveToEndOfText();
112 void DoMoveToEndOfEntry();
113
114 void OnSize( wxSizeEvent &event );
115
116 MyTextCtrl *m_text;
117 MyTextCtrl *m_password;
118 MyTextCtrl *m_enter;
119 MyTextCtrl *m_tab;
120 MyTextCtrl *m_readonly;
121 MyTextCtrl *m_limited;
122
123 MyTextCtrl *m_multitext;
124 MyTextCtrl *m_horizontal;
125
126 MyTextCtrl *m_textrich;
127
128 wxTextCtrl *m_log;
129
130 wxLog *m_logOld;
131
132private:
133 // get the currently focused text control or return the default one is no
134 // text ctrl has focus
135 wxTextCtrl *GetFocusedText(wxTextCtrl *textDef);
136
137 DECLARE_EVENT_TABLE()
138};
139
140class MyFrame: public wxFrame
141{
142public:
143 MyFrame(wxFrame *frame, const char *title, int x, int y, int w, int h);
144
145 void OnQuit(wxCommandEvent& event);
146 void OnAbout(wxCommandEvent& event);
147#if wxUSE_TOOLTIPS
148 void OnSetTooltipDelay(wxCommandEvent& event);
149 void OnToggleTooltips(wxCommandEvent& event);
150#endif // wxUSE_TOOLTIPS
151
152#if wxUSE_CLIPBOARD
153 void OnPasteFromClipboard( wxCommandEvent &event )
154 { m_panel->DoPasteFromClipboard(); }
155 void OnCopyToClipboard( wxCommandEvent &event )
156 { m_panel->DoCopyToClipboard(); }
157#endif // wxUSE_CLIPBOARD
158
159 void OnAddTextFreeze( wxCommandEvent& event )
160 { DoAddText(true); }
161 void OnAddText( wxCommandEvent& event )
162 { DoAddText(false); }
163 void OnRemoveText( wxCommandEvent& event )
164 { m_panel->DoRemoveText(); }
165
166 void OnMoveToEndOfText( wxCommandEvent &event )
167 { m_panel->DoMoveToEndOfText(); }
168 void OnMoveToEndOfEntry( wxCommandEvent &event )
169 { m_panel->DoMoveToEndOfEntry(); }
170
171 void OnScrollLineDown(wxCommandEvent& event)
172 {
173 if ( !m_panel->m_textrich->LineDown() )
174 wxLogMessage(_T("Already at the bottom"));
175 }
176
177 void OnScrollLineUp(wxCommandEvent& event)
178 {
179 if ( !m_panel->m_textrich->LineUp() )
180 wxLogMessage(_T("Already at the top"));
181 }
182
183 void OnScrollPageDown(wxCommandEvent& event)
184 {
185 if ( !m_panel->m_textrich->PageDown() )
186 wxLogMessage(_T("Already at the bottom"));
187 }
188
189 void OnScrollPageUp(wxCommandEvent& event)
190 {
191 if ( !m_panel->m_textrich->PageUp() )
192 wxLogMessage(_T("Already at the top"));
193 }
194
195 void OnLogClear(wxCommandEvent& event);
196 void OnFileSave(wxCommandEvent& event);
197 void OnFileLoad(wxCommandEvent& event);
198
199 void OnSetEditable(wxCommandEvent& event);
200 void OnSetEnabled(wxCommandEvent& event);
201
202 void OnLogKey(wxCommandEvent& event)
203 {
204 MyTextCtrl::ms_logKey = event.IsChecked();
205 }
206
207 void OnLogChar(wxCommandEvent& event)
208 {
209 MyTextCtrl::ms_logChar = event.IsChecked();
210 }
211
212 void OnLogMouse(wxCommandEvent& event)
213 {
214 MyTextCtrl::ms_logMouse = event.IsChecked();
215 }
216
217 void OnLogText(wxCommandEvent& event)
218 {
219 MyTextCtrl::ms_logText = event.IsChecked();
220 }
221
222 void OnLogFocus(wxCommandEvent& event)
223 {
224 MyTextCtrl::ms_logFocus = event.IsChecked();
225 }
226
227 void OnSetText(wxCommandEvent& event)
228 {
229 m_panel->m_text->SetValue(_T("Hello, world (what else did you expect)?"));
230 }
231
232 void OnIdle( wxIdleEvent& event );
233
234private:
235 void DoAddText(bool freeze)
236 {
237 wxTextCtrl *text = m_panel->m_textrich;
238 if ( freeze )
239 text->Freeze();
240
241 text->Clear();
242
243 wxProgressDialog dlg(_T("Wait..."), _T("Updating"), 100, this);
244 for ( int i = 0; i < 100; i++ )
245 {
246 dlg.Update(i);
247 text->AppendText(wxString::Format(wxT("Line %i\n"), i));
248 }
249
250 text->SetInsertionPoint(0);
251
252 if ( freeze )
253 text->Thaw();
254 }
255
256 MyPanel *m_panel;
257
258 DECLARE_EVENT_TABLE()
259};
260
261//----------------------------------------------------------------------
262// main()
263//----------------------------------------------------------------------
264
265IMPLEMENT_APP(MyApp)
266
267//----------------------------------------------------------------------
268// MyApp
269//----------------------------------------------------------------------
270
271enum
272{
273 TEXT_QUIT = 100,
274 TEXT_ABOUT,
275 TEXT_LOAD,
276 TEXT_SAVE,
277 TEXT_CLEAR,
278
279 // clipboard menu
280 TEXT_CLIPBOARD_COPY = 200,
281 TEXT_CLIPBOARD_PASTE,
282
283 // tooltip menu
284 TEXT_TOOLTIPS_SETDELAY = 300,
285 TEXT_TOOLTIPS_ENABLE,
286
287 // text menu
288 TEXT_ADD_SOME = 400,
289 TEXT_ADD_FREEZE,
290 TEXT_MOVE_ENDTEXT,
291 TEXT_MOVE_ENDENTRY,
292 TEXT_SET_EDITABLE,
293 TEXT_SET_ENABLED,
294 TEXT_LINE_DOWN,
295 TEXT_LINE_UP,
296 TEXT_PAGE_DOWN,
297 TEXT_PAGE_UP,
298 TEXT_REMOVE,
299 TEXT_SET,
300
301 // log menu
302 TEXT_LOG_KEY,
303 TEXT_LOG_CHAR,
304 TEXT_LOG_MOUSE,
305 TEXT_LOG_TEXT,
306 TEXT_LOG_FOCUS,
307
308 TEXT_END
309};
310
311bool MyApp::OnInit()
312{
313 // Create the main frame window
314 MyFrame *frame = new MyFrame((wxFrame *) NULL,
315 "Text wxWindows sample", 50, 50, 700, 420);
316 frame->SetSizeHints( 500, 400 );
317
318 wxMenu *file_menu = new wxMenu;
319 file_menu->Append(TEXT_SAVE, "&Save file\tCtrl-S",
320 "Save the text control contents to file");
321 file_menu->Append(TEXT_LOAD, "&Load file\tCtrl-O",
322 "Load the sample file into text control");
323 file_menu->AppendSeparator();
324 file_menu->Append(TEXT_ABOUT, "&About\tAlt-A");
325 file_menu->AppendSeparator();
326 file_menu->Append(TEXT_QUIT, "E&xit\tAlt-X", "Quit this sample");
327
328 wxMenuBar *menu_bar = new wxMenuBar( wxMB_DOCKABLE );
329 menu_bar->Append(file_menu, "&File");
330
331#if wxUSE_TOOLTIPS
332 wxMenu *tooltip_menu = new wxMenu;
333 tooltip_menu->Append(TEXT_TOOLTIPS_SETDELAY, "Set &delay\tCtrl-D");
334 tooltip_menu->AppendSeparator();
335 tooltip_menu->Append(TEXT_TOOLTIPS_ENABLE, "&Toggle tooltips\tCtrl-T",
336 "enable/disable tooltips", TRUE);
337 tooltip_menu->Check(TEXT_TOOLTIPS_ENABLE, TRUE);
338 menu_bar->Append(tooltip_menu, "&Tooltips");
339#endif // wxUSE_TOOLTIPS
340
341#if wxUSE_CLIPBOARD
342 wxMenu *menuClipboard = new wxMenu;
343 menuClipboard->Append(TEXT_CLIPBOARD_COPY, "&Copy\tCtrl-C",
344 "Copy the first line to the clipboard");
345 menuClipboard->Append(TEXT_CLIPBOARD_PASTE, "&Paste\tCtrl-V",
346 "Paste from clipboard to the text control");
347 menu_bar->Append(menuClipboard, "&Clipboard");
348#endif // wxUSE_CLIPBOARD
349
350 wxMenu *menuText = new wxMenu;
351 menuText->Append(TEXT_ADD_SOME, "&Append some text\tCtrl-A");
352 menuText->Append(TEXT_ADD_FREEZE, "&Append text with freeze/thaw\tShift-Ctrl-A");
353 menuText->Append(TEXT_REMOVE, "&Remove first 10 characters\tCtrl-X");
354 menuText->Append(TEXT_SET, "&Set the first text zone value\tCtrl-E");
355 menuText->AppendSeparator();
356 menuText->Append(TEXT_MOVE_ENDTEXT, "Move cursor to the end of &text");
357 menuText->Append(TEXT_MOVE_ENDENTRY, "Move cursor to the end of &entry");
358 menuText->Append(TEXT_SET_EDITABLE, "Toggle &editable state", "", TRUE);
359 menuText->Append(TEXT_SET_ENABLED, "Toggle e&nabled state", "", TRUE);
360 menuText->Check(TEXT_SET_EDITABLE, TRUE);
361 menuText->Check(TEXT_SET_ENABLED, TRUE);
362 menuText->AppendSeparator();
363 menuText->Append(TEXT_LINE_DOWN, "Scroll text one line down");
364 menuText->Append(TEXT_LINE_UP, "Scroll text one line up");
365 menuText->Append(TEXT_PAGE_DOWN, "Scroll text one page down");
366 menuText->Append(TEXT_PAGE_DOWN, "Scroll text one page up");
367 menu_bar->Append(menuText, "Te&xt");
368
369 wxMenu *menuLog = new wxMenu;
370 menuLog->Append(TEXT_LOG_KEY, "Log &key events", "", TRUE);
371 menuLog->Append(TEXT_LOG_CHAR, "Log &char events", "", TRUE);
372 menuLog->Append(TEXT_LOG_MOUSE, "Log &mouse events", "", TRUE);
373 menuLog->Append(TEXT_LOG_TEXT, "Log &text events", "", TRUE);
374 menuLog->Append(TEXT_LOG_FOCUS, "Log &focus events", "", TRUE);
375 menuLog->AppendSeparator();
376 menuLog->Append(TEXT_CLEAR, "&Clear the log\tCtrl-C",
377 "Clear the log window contents");
378
379 // select only the interesting events by default
380#if 0
381 menuLog->Check(TEXT_LOG_KEY, TRUE);
382 menuLog->Check(TEXT_LOG_CHAR, TRUE);
383 menuLog->Check(TEXT_LOG_TEXT, TRUE);
384
385 MyTextCtrl::ms_logKey =
386 MyTextCtrl::ms_logChar =
387 MyTextCtrl::ms_logText = TRUE;
388#else
389 menuLog->Check(TEXT_LOG_FOCUS, TRUE);
390 MyTextCtrl::ms_logFocus = TRUE;
391#endif
392 menu_bar->Append(menuLog, "&Log");
393
394 frame->SetMenuBar(menu_bar);
395
396 frame->Show(TRUE);
397
398 SetTopWindow(frame);
399
400 // report success
401 return TRUE;
402}
403
404//----------------------------------------------------------------------
405// MyTextCtrl
406//----------------------------------------------------------------------
407
408BEGIN_EVENT_TABLE(MyTextCtrl, wxTextCtrl)
409 EVT_KEY_DOWN(MyTextCtrl::OnKeyDown)
410 EVT_KEY_UP(MyTextCtrl::OnKeyUp)
411 EVT_CHAR(MyTextCtrl::OnChar)
412
413 EVT_TEXT(-1, MyTextCtrl::OnText)
414 EVT_TEXT_URL(-1, MyTextCtrl::OnTextURL)
415 EVT_TEXT_MAXLEN(-1, MyTextCtrl::OnTextMaxLen)
416
417 EVT_MOUSE_EVENTS(MyTextCtrl::OnMouseEvent)
418
419 EVT_SET_FOCUS(MyTextCtrl::OnSetFocus)
420 EVT_KILL_FOCUS(MyTextCtrl::OnKillFocus)
421END_EVENT_TABLE()
422
423bool MyTextCtrl::ms_logKey = FALSE;
424bool MyTextCtrl::ms_logChar = FALSE;
425bool MyTextCtrl::ms_logMouse = FALSE;
426bool MyTextCtrl::ms_logText = FALSE;
427bool MyTextCtrl::ms_logFocus = FALSE;
428
429void MyTextCtrl::LogKeyEvent(const wxChar *name, wxKeyEvent& event) const
430{
431 wxString key;
432 long keycode = event.KeyCode();
433 {
434 switch ( keycode )
435 {
436 case WXK_BACK: key = "BACK"; break;
437 case WXK_TAB: key = "TAB"; break;
438 case WXK_RETURN: key = "RETURN"; break;
439 case WXK_ESCAPE: key = "ESCAPE"; break;
440 case WXK_SPACE: key = "SPACE"; break;
441 case WXK_DELETE: key = "DELETE"; break;
442 case WXK_START: key = "START"; break;
443 case WXK_LBUTTON: key = "LBUTTON"; break;
444 case WXK_RBUTTON: key = "RBUTTON"; break;
445 case WXK_CANCEL: key = "CANCEL"; break;
446 case WXK_MBUTTON: key = "MBUTTON"; break;
447 case WXK_CLEAR: key = "CLEAR"; break;
448 case WXK_SHIFT: key = "SHIFT"; break;
449 case WXK_ALT: key = "ALT"; break;
450 case WXK_CONTROL: key = "CONTROL"; break;
451 case WXK_MENU: key = "MENU"; break;
452 case WXK_PAUSE: key = "PAUSE"; break;
453 case WXK_CAPITAL: key = "CAPITAL"; break;
454 case WXK_PRIOR: key = "PRIOR"; break;
455 case WXK_NEXT: key = "NEXT"; break;
456 case WXK_END: key = "END"; break;
457 case WXK_HOME: key = "HOME"; break;
458 case WXK_LEFT: key = "LEFT"; break;
459 case WXK_UP: key = "UP"; break;
460 case WXK_RIGHT: key = "RIGHT"; break;
461 case WXK_DOWN: key = "DOWN"; break;
462 case WXK_SELECT: key = "SELECT"; break;
463 case WXK_PRINT: key = "PRINT"; break;
464 case WXK_EXECUTE: key = "EXECUTE"; break;
465 case WXK_SNAPSHOT: key = "SNAPSHOT"; break;
466 case WXK_INSERT: key = "INSERT"; break;
467 case WXK_HELP: key = "HELP"; break;
468 case WXK_NUMPAD0: key = "NUMPAD0"; break;
469 case WXK_NUMPAD1: key = "NUMPAD1"; break;
470 case WXK_NUMPAD2: key = "NUMPAD2"; break;
471 case WXK_NUMPAD3: key = "NUMPAD3"; break;
472 case WXK_NUMPAD4: key = "NUMPAD4"; break;
473 case WXK_NUMPAD5: key = "NUMPAD5"; break;
474 case WXK_NUMPAD6: key = "NUMPAD6"; break;
475 case WXK_NUMPAD7: key = "NUMPAD7"; break;
476 case WXK_NUMPAD8: key = "NUMPAD8"; break;
477 case WXK_NUMPAD9: key = "NUMPAD9"; break;
478 case WXK_MULTIPLY: key = "MULTIPLY"; break;
479 case WXK_ADD: key = "ADD"; break;
480 case WXK_SEPARATOR: key = "SEPARATOR"; break;
481 case WXK_SUBTRACT: key = "SUBTRACT"; break;
482 case WXK_DECIMAL: key = "DECIMAL"; break;
483 case WXK_DIVIDE: key = "DIVIDE"; break;
484 case WXK_F1: key = "F1"; break;
485 case WXK_F2: key = "F2"; break;
486 case WXK_F3: key = "F3"; break;
487 case WXK_F4: key = "F4"; break;
488 case WXK_F5: key = "F5"; break;
489 case WXK_F6: key = "F6"; break;
490 case WXK_F7: key = "F7"; break;
491 case WXK_F8: key = "F8"; break;
492 case WXK_F9: key = "F9"; break;
493 case WXK_F10: key = "F10"; break;
494 case WXK_F11: key = "F11"; break;
495 case WXK_F12: key = "F12"; break;
496 case WXK_F13: key = "F13"; break;
497 case WXK_F14: key = "F14"; break;
498 case WXK_F15: key = "F15"; break;
499 case WXK_F16: key = "F16"; break;
500 case WXK_F17: key = "F17"; break;
501 case WXK_F18: key = "F18"; break;
502 case WXK_F19: key = "F19"; break;
503 case WXK_F20: key = "F20"; break;
504 case WXK_F21: key = "F21"; break;
505 case WXK_F22: key = "F22"; break;
506 case WXK_F23: key = "F23"; break;
507 case WXK_F24: key = "F24"; break;
508 case WXK_NUMLOCK: key = "NUMLOCK"; break;
509 case WXK_SCROLL: key = "SCROLL"; break;
510 case WXK_PAGEUP: key = "PAGEUP"; break;
511 case WXK_PAGEDOWN: key = "PAGEDOWN"; break;
512 case WXK_NUMPAD_SPACE: key = "NUMPAD_SPACE"; break;
513 case WXK_NUMPAD_TAB: key = "NUMPAD_TAB"; break;
514 case WXK_NUMPAD_ENTER: key = "NUMPAD_ENTER"; break;
515 case WXK_NUMPAD_F1: key = "NUMPAD_F1"; break;
516 case WXK_NUMPAD_F2: key = "NUMPAD_F2"; break;
517 case WXK_NUMPAD_F3: key = "NUMPAD_F3"; break;
518 case WXK_NUMPAD_F4: key = "NUMPAD_F4"; break;
519 case WXK_NUMPAD_HOME: key = "NUMPAD_HOME"; break;
520 case WXK_NUMPAD_LEFT: key = "NUMPAD_LEFT"; break;
521 case WXK_NUMPAD_UP: key = "NUMPAD_UP"; break;
522 case WXK_NUMPAD_RIGHT: key = "NUMPAD_RIGHT"; break;
523 case WXK_NUMPAD_DOWN: key = "NUMPAD_DOWN"; break;
524 case WXK_NUMPAD_PRIOR: key = "NUMPAD_PRIOR"; break;
525 case WXK_NUMPAD_PAGEUP: key = "NUMPAD_PAGEUP"; break;
526 case WXK_NUMPAD_PAGEDOWN: key = "NUMPAD_PAGEDOWN"; break;
527 case WXK_NUMPAD_END: key = "NUMPAD_END"; break;
528 case WXK_NUMPAD_BEGIN: key = "NUMPAD_BEGIN"; break;
529 case WXK_NUMPAD_INSERT: key = "NUMPAD_INSERT"; break;
530 case WXK_NUMPAD_DELETE: key = "NUMPAD_DELETE"; break;
531 case WXK_NUMPAD_EQUAL: key = "NUMPAD_EQUAL"; break;
532 case WXK_NUMPAD_MULTIPLY: key = "NUMPAD_MULTIPLY"; break;
533 case WXK_NUMPAD_ADD: key = "NUMPAD_ADD"; break;
534 case WXK_NUMPAD_SEPARATOR: key = "NUMPAD_SEPARATOR"; break;
535 case WXK_NUMPAD_SUBTRACT: key = "NUMPAD_SUBTRACT"; break;
536 case WXK_NUMPAD_DECIMAL: key = "NUMPAD_DECIMAL"; break;
537
538 default:
539 {
540 if ( wxIsprint((int)keycode) )
541 key.Printf(_T("'%c'"), (char)keycode);
542 else if ( keycode > 0 && keycode < 27 )
543 key.Printf(_("Ctrl-%c"), _T('A') + keycode - 1);
544 else
545 key.Printf(_T("unknown (%ld)"), keycode);
546 }
547 }
548 }
549
550 wxLogMessage( _T("%s event: %s (flags = %c%c%c%c)"),
551 name,
552 key.c_str(),
553 GetChar( event.ControlDown(), _T('C') ),
554 GetChar( event.AltDown(), _T('A') ),
555 GetChar( event.ShiftDown(), _T('S') ),
556 GetChar( event.MetaDown(), _T('M') ) );
557}
558
559static wxString GetMouseEventDesc(const wxMouseEvent& ev)
560{
561 // click event
562 wxString button;
563 bool dbl, up;
564 if ( ev.LeftDown() || ev.LeftUp() || ev.LeftDClick() )
565 {
566 button = _T("Left");
567 dbl = ev.LeftDClick();
568 up = ev.LeftUp();
569 }
570 else if ( ev.MiddleDown() || ev.MiddleUp() || ev.MiddleDClick() )
571 {
572 button = _T("Middle");
573 dbl = ev.MiddleDClick();
574 up = ev.MiddleUp();
575 }
576 else if ( ev.RightDown() || ev.RightUp() || ev.RightDClick() )
577 {
578 button = _T("Right");
579 dbl = ev.RightDClick();
580 up = ev.RightUp();
581 }
582 else
583 {
584 return _T("Unknown mouse event");
585 }
586
587 return wxString::Format(_T("%s mouse button %s"),
588 button.c_str(),
589 dbl ? _T("double clicked")
590 : up ? _T("released") : _T("clicked"));
591}
592
593void MyTextCtrl::OnMouseEvent(wxMouseEvent& ev)
594{
595 ev.Skip();
596
597 if ( !ms_logMouse )
598 return;
599
600 if ( !ev.Moving() )
601 {
602 wxString msg;
603 if ( ev.Entering() )
604 {
605 msg = _T("Mouse entered the window");
606 }
607 else if ( ev.Leaving() )
608 {
609 msg = _T("Mouse left the window");
610 }
611 else
612 {
613 msg = GetMouseEventDesc(ev);
614 }
615
616 msg << _T(" at (") << ev.GetX() << _T(", ") << ev.GetY() << _T(") ")
617 << _T("Flags: ")
618 << GetChar( ev.LeftIsDown(), _T('1') )
619 << GetChar( ev.MiddleIsDown(), _T('2') )
620 << GetChar( ev.RightIsDown(), _T('3') )
621 << GetChar( ev.ControlDown(), _T('C') )
622 << GetChar( ev.AltDown(), _T('A') )
623 << GetChar( ev.ShiftDown(), _T('S') )
624 << GetChar( ev.MetaDown(), _T('M') );
625
626 wxLogMessage(msg);
627 }
628 //else: we're not interested in mouse move events
629}
630
631void MyTextCtrl::OnSetFocus(wxFocusEvent& event)
632{
633 if ( ms_logFocus )
634 wxLogMessage("%p got focus.", this);
635
636 event.Skip();
637}
638
639void MyTextCtrl::OnKillFocus(wxFocusEvent& event)
640{
641 if ( ms_logFocus )
642 wxLogMessage("%p lost focus", this);
643
644 event.Skip();
645}
646
647void MyTextCtrl::OnText(wxCommandEvent& event)
648{
649 if ( !ms_logText )
650 return;
651
652 MyTextCtrl *win = (MyTextCtrl *)event.GetEventObject();
653 const wxChar *data = (const wxChar *)(win->GetClientData());
654 if ( data )
655 {
656 wxLogMessage(_T("Text changed in control '%s'"), data);
657 }
658 else
659 {
660 wxLogMessage(_T("Text changed in some control"));
661 }
662}
663
664void MyTextCtrl::OnTextMaxLen(wxCommandEvent& event)
665{
666 wxLogMessage(_T("You can't enter more characters into this control."));
667}
668
669void MyTextCtrl::OnTextURL(wxTextUrlEvent& event)
670{
671 const wxMouseEvent& ev = event.GetMouseEvent();
672
673 // filter out mouse moves, too many of them
674 if ( ev.Moving() )
675 return;
676
677 long start = event.GetURLStart(),
678 end = event.GetURLEnd();
679
680 wxLogMessage(_T("Mouse event over URL '%s': %s"),
681 GetValue().Mid(start, end - start).c_str(),
682 GetMouseEventDesc(ev).c_str());
683}
684
685void MyTextCtrl::OnChar(wxKeyEvent& event)
686{
687 if ( ms_logChar )
688 LogKeyEvent( _T("Char"), event);
689
690 event.Skip();
691}
692
693void MyTextCtrl::OnKeyUp(wxKeyEvent& event)
694{
695 if ( ms_logKey )
696 LogKeyEvent( _T("Key up"), event);
697
698 event.Skip();
699}
700
701void MyTextCtrl::OnKeyDown(wxKeyEvent& event)
702{
703 switch ( event.KeyCode() )
704 {
705 case WXK_F1:
706 // show current position and text length
707 {
708 long line, column, pos = GetInsertionPoint();
709 PositionToXY(pos, &column, &line);
710
711 wxLogMessage( _T("Current position: %ld\nCurrent line, column: (%ld, %ld)\nNumber of lines: %ld\nCurrent line length: %ld\nTotal text length: %u (%ld)"),
712 pos,
713 line, column,
714 GetNumberOfLines(),
715 GetLineLength(line),
716 GetValue().length(),
717 GetLastPosition());
718 }
719 break;
720
721 case WXK_F2:
722 // go to the end
723 SetInsertionPointEnd();
724 break;
725
726 case WXK_F3:
727 // go to position 10
728 SetInsertionPoint(10);
729 break;
730
731 case WXK_F4:
732 if (!m_hasCapture)
733 {
734 wxLogDebug( wxT("Now capturing mouse and events.") );
735 m_hasCapture = TRUE;
736 CaptureMouse();
737 }
738 else
739 {
740 wxLogDebug( wxT("Stopped capturing mouse and events.") );
741 m_hasCapture = FALSE;
742 ReleaseMouse();
743 }
744 break;
745
746 case WXK_F5:
747 // insert a blank line
748 WriteText("\n");
749 break;
750
751 case WXK_F6:
752 SetValue("F6 was just pressed.");
753 break;
754
755 case WXK_F7:
756 ShowPosition(10);
757 break;
758
759 case WXK_F10:
760 {
761 long from, to;
762 GetSelection(&from, &to);
763
764 wxString sel = GetStringSelection();
765
766 wxLogMessage(_T("Selection: from %ld to %ld."), from, to);
767 wxLogMessage(_T("Selection = '%s' (len = %u)"),
768 sel.c_str(), sel.length());
769 }
770 }
771
772 if ( ms_logKey )
773 LogKeyEvent( wxT("Key down"), event);
774
775 event.Skip();
776}
777
778//----------------------------------------------------------------------
779// MyPanel
780//----------------------------------------------------------------------
781
782BEGIN_EVENT_TABLE(MyPanel, wxPanel)
783 EVT_SIZE(MyPanel::OnSize)
784END_EVENT_TABLE()
785
786MyPanel::MyPanel( wxFrame *frame, int x, int y, int w, int h )
787 : wxPanel( frame, -1, wxPoint(x, y), wxSize(w, h) )
788{
789 m_log = new wxTextCtrl( this, -1, "This is the log window.\n",
790 wxPoint(5,260), wxSize(630,100),
791 wxTE_MULTILINE | wxTE_READONLY /* | wxTE_RICH */);
792
793 m_logOld = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );
794
795 // single line text controls
796
797 m_text = new MyTextCtrl( this, -1, "Single line.",
798 wxPoint(10,10), wxSize(140,-1),
799 wxTE_PROCESS_ENTER);
800 m_text->SetForegroundColour(*wxBLUE);
801 m_text->SetBackgroundColour(*wxLIGHT_GREY);
802 (*m_text) << " Appended.";
803 m_text->SetInsertionPoint(0);
804 m_text->WriteText( "Prepended. " );
805
806 m_password = new MyTextCtrl( this, -1, "",
807 wxPoint(10,50), wxSize(140,-1), wxTE_PASSWORD );
808
809 m_readonly = new MyTextCtrl( this, -1, "Read only",
810 wxPoint(10,90), wxSize(140,-1), wxTE_READONLY );
811
812 m_limited = new MyTextCtrl(this, -1, "Max 8 ch",
813 wxPoint(10, 130), wxSize(140, -1));
814 m_limited->SetMaxLength(8);
815
816 // multi line text controls
817
818 m_horizontal = new MyTextCtrl( this, -1, "Multiline text control with a horizontal scrollbar.",
819 wxPoint(10,170), wxSize(140,70), wxTE_MULTILINE | wxHSCROLL );
820
821 // a little hack to use the command line argument for encoding testing
822 if ( wxTheApp->argc == 2 )
823 {
824 switch ( wxTheApp->argv[1][0] )
825 {
826 case '2':
827 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
828 FALSE, "",
829 wxFONTENCODING_ISO8859_2));
830