]> git.saurik.com Git - wxWidgets.git/blob - samples/text/text.cpp
attempt to fix GUI apps building on OS/2
[wxWidgets.git] / samples / text / text.cpp
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 // We test for wxUSE_DRAG_AND_DROP also, because data objects may not be
40 // implemented for compilers that can't cope with the OLE parts in
41 // wxUSE_DRAG_AND_DROP.
42 #if !wxUSE_DRAG_AND_DROP
43 #undef wxUSE_CLIPBOARD
44 #define wxUSE_CLIPBOARD 0
45 #endif
46
47 #include "wx/colordlg.h"
48 #include "wx/fontdlg.h"
49
50 //----------------------------------------------------------------------
51 // class definitions
52 //----------------------------------------------------------------------
53
54 class MyApp: public wxApp
55 {
56 public:
57 bool OnInit();
58 };
59
60 // a text ctrl which allows to call different wxTextCtrl functions
61 // interactively by pressing function keys in it
62 class MyTextCtrl : public wxTextCtrl
63 {
64 public:
65 MyTextCtrl(wxWindow *parent, wxWindowID id, const wxString &value,
66 const wxPoint &pos, const wxSize &size, int style = 0)
67 : wxTextCtrl(parent, id, value, pos, size, style)
68 {
69 m_hasCapture = FALSE;
70 }
71
72 void OnKeyDown(wxKeyEvent& event);
73 void OnKeyUp(wxKeyEvent& event);
74 void OnChar(wxKeyEvent& event);
75
76 void OnText(wxCommandEvent& event);
77 void OnTextURL(wxTextUrlEvent& event);
78 void OnTextMaxLen(wxCommandEvent& event);
79
80 void OnMouseEvent(wxMouseEvent& event);
81
82 void OnSetFocus(wxFocusEvent& event);
83 void OnKillFocus(wxFocusEvent& event);
84
85 static bool ms_logKey;
86 static bool ms_logChar;
87 static bool ms_logMouse;
88 static bool ms_logText;
89 static bool ms_logFocus;
90
91 private:
92 static inline wxChar GetChar(bool on, wxChar c) { return on ? c : _T('-'); }
93 void LogKeyEvent(const wxChar *name, wxKeyEvent& event) const;
94
95 bool m_hasCapture;
96
97 DECLARE_EVENT_TABLE()
98 };
99
100 class MyPanel: public wxPanel
101 {
102 public:
103 MyPanel(wxFrame *frame, int x, int y, int w, int h);
104 virtual ~MyPanel() { delete wxLog::SetActiveTarget(m_logOld); }
105
106 #if wxUSE_CLIPBOARD
107 void DoPasteFromClipboard();
108 void DoCopyToClipboard();
109 #endif // wxUSE_CLIPBOARD
110
111 void DoRemoveText();
112 void DoReplaceText();
113 void DoSelectText();
114 void DoMoveToEndOfText();
115 void DoMoveToEndOfEntry();
116
117 void OnSize( wxSizeEvent &event );
118
119 MyTextCtrl *m_text;
120 MyTextCtrl *m_password;
121 MyTextCtrl *m_enter;
122 MyTextCtrl *m_tab;
123 MyTextCtrl *m_readonly;
124 MyTextCtrl *m_limited;
125
126 MyTextCtrl *m_multitext;
127 MyTextCtrl *m_horizontal;
128
129 MyTextCtrl *m_textrich;
130
131 wxTextCtrl *m_log;
132
133 wxLog *m_logOld;
134
135 private:
136 // get the currently focused text control or return the default one is no
137 // text ctrl has focus
138 wxTextCtrl *GetFocusedText(wxTextCtrl *textDef);
139
140 DECLARE_EVENT_TABLE()
141 };
142
143 class MyFrame: public wxFrame
144 {
145 public:
146 MyFrame(wxFrame *frame, const wxChar *title, int x, int y, int w, int h);
147
148 void OnQuit(wxCommandEvent& event);
149 void OnAbout(wxCommandEvent& event);
150 #if wxUSE_TOOLTIPS
151 void OnSetTooltipDelay(wxCommandEvent& event);
152 void OnToggleTooltips(wxCommandEvent& event);
153 #endif // wxUSE_TOOLTIPS
154
155 #if wxUSE_CLIPBOARD
156 void OnPasteFromClipboard( wxCommandEvent& WXUNUSED(event) )
157 { m_panel->DoPasteFromClipboard(); }
158 void OnCopyToClipboard( wxCommandEvent& WXUNUSED(event) )
159 { m_panel->DoCopyToClipboard(); }
160 #endif // wxUSE_CLIPBOARD
161
162 void OnAddTextFreeze( wxCommandEvent& WXUNUSED(event) )
163 { DoAddText(true); }
164 void OnAddText( wxCommandEvent& WXUNUSED(event) )
165 { DoAddText(false); }
166 void OnRemoveText( wxCommandEvent& WXUNUSED(event) )
167 { m_panel->DoRemoveText(); }
168 void OnReplaceText( wxCommandEvent& WXUNUSED(event) )
169 { m_panel->DoReplaceText(); }
170 void OnSelectText( wxCommandEvent& WXUNUSED(event) )
171 { m_panel->DoSelectText(); }
172
173 void OnMoveToEndOfText( wxCommandEvent& WXUNUSED(event) )
174 { m_panel->DoMoveToEndOfText(); }
175 void OnMoveToEndOfEntry( wxCommandEvent& WXUNUSED(event) )
176 { m_panel->DoMoveToEndOfEntry(); }
177
178 void OnScrollLineDown(wxCommandEvent& WXUNUSED(event))
179 {
180 if ( !m_panel->m_textrich->LineDown() )
181 wxLogMessage(_T("Already at the bottom"));
182 }
183
184 void OnScrollLineUp(wxCommandEvent& WXUNUSED(event))
185 {
186 if ( !m_panel->m_textrich->LineUp() )
187 wxLogMessage(_T("Already at the top"));
188 }
189
190 void OnScrollPageDown(wxCommandEvent& WXUNUSED(event))
191 {
192 if ( !m_panel->m_textrich->PageDown() )
193 wxLogMessage(_T("Already at the bottom"));
194 }
195
196 void OnScrollPageUp(wxCommandEvent& WXUNUSED(event))
197 {
198 if ( !m_panel->m_textrich->PageUp() )
199 wxLogMessage(_T("Already at the top"));
200 }
201
202 void OnLogClear(wxCommandEvent& event);
203 void OnFileSave(wxCommandEvent& event);
204 void OnFileLoad(wxCommandEvent& event);
205 void OnRichTextTest(wxCommandEvent& event);
206
207 void OnSetEditable(wxCommandEvent& event);
208 void OnSetEnabled(wxCommandEvent& event);
209
210 void OnLogKey(wxCommandEvent& event)
211 {
212 MyTextCtrl::ms_logKey = event.IsChecked();
213 }
214
215 void OnLogChar(wxCommandEvent& event)
216 {
217 MyTextCtrl::ms_logChar = event.IsChecked();
218 }
219
220 void OnLogMouse(wxCommandEvent& event)
221 {
222 MyTextCtrl::ms_logMouse = event.IsChecked();
223 }
224
225 void OnLogText(wxCommandEvent& event)
226 {
227 MyTextCtrl::ms_logText = event.IsChecked();
228 }
229
230 void OnLogFocus(wxCommandEvent& event)
231 {
232 MyTextCtrl::ms_logFocus = event.IsChecked();
233 }
234
235 void OnSetText(wxCommandEvent& WXUNUSED(event))
236 {
237 m_panel->m_text->SetValue(_T("Hello, world (what else did you expect)?"));
238 }
239
240 void OnIdle( wxIdleEvent& event );
241
242 private:
243 void DoAddText(bool freeze)
244 {
245 wxTextCtrl * const text = m_panel->m_textrich;
246 text->Clear();
247
248 if ( freeze )
249 text->Freeze();
250
251 for ( int i = 0; i < 100; i++ )
252 {
253 text->AppendText(wxString::Format(wxT("Line %i\n"), i));
254 }
255
256 if ( freeze )
257 text->Thaw();
258
259 text->SetInsertionPoint(0);
260 }
261
262 MyPanel *m_panel;
263
264 DECLARE_EVENT_TABLE()
265 };
266
267 /*
268 * RichTextFrame is used to demonstrate rich text behaviour
269 */
270
271 class RichTextFrame: public wxFrame
272 {
273 public:
274 RichTextFrame(wxWindow* parent, const wxString& title);
275
276 // Event handlers
277
278 void OnClose(wxCommandEvent& event);
279 void OnIdle(wxIdleEvent& event);
280 void OnLeftAlign(wxCommandEvent& event);
281 void OnRightAlign(wxCommandEvent& event);
282 void OnJustify(wxCommandEvent& event);
283 void OnCentre(wxCommandEvent& event);
284 void OnChangeFont(wxCommandEvent& event);
285 void OnChangeTextColour(wxCommandEvent& event);
286 void OnChangeBackgroundColour(wxCommandEvent& event);
287 void OnLeftIndent(wxCommandEvent& event);
288 void OnRightIndent(wxCommandEvent& event);
289
290 private:
291 wxTextCtrl *m_textCtrl;
292 long m_currentPosition;
293
294 DECLARE_EVENT_TABLE()
295 };
296
297 //----------------------------------------------------------------------
298 // main()
299 //----------------------------------------------------------------------
300
301 IMPLEMENT_APP(MyApp)
302
303 //----------------------------------------------------------------------
304 // MyApp
305 //----------------------------------------------------------------------
306
307 enum
308 {
309 TEXT_QUIT = 100,
310 TEXT_ABOUT,
311 TEXT_LOAD,
312 TEXT_SAVE,
313 TEXT_CLEAR,
314 TEXT_RICH_TEXT_TEST,
315
316 // clipboard menu
317 TEXT_CLIPBOARD_COPY = 200,
318 TEXT_CLIPBOARD_PASTE,
319
320 // tooltip menu
321 TEXT_TOOLTIPS_SETDELAY = 300,
322 TEXT_TOOLTIPS_ENABLE,
323
324 // text menu
325 TEXT_ADD_SOME = 400,
326 TEXT_ADD_FREEZE,
327 TEXT_MOVE_ENDTEXT,
328 TEXT_MOVE_ENDENTRY,
329 TEXT_SET_EDITABLE,
330 TEXT_SET_ENABLED,
331 TEXT_LINE_DOWN,
332 TEXT_LINE_UP,
333 TEXT_PAGE_DOWN,
334 TEXT_PAGE_UP,
335 TEXT_REMOVE,
336 TEXT_REPLACE,
337 TEXT_SELECT,
338 TEXT_SET,
339
340 // log menu
341 TEXT_LOG_KEY,
342 TEXT_LOG_CHAR,
343 TEXT_LOG_MOUSE,
344 TEXT_LOG_TEXT,
345 TEXT_LOG_FOCUS,
346
347 TEXT_END
348 };
349
350 bool MyApp::OnInit()
351 {
352 // Create the main frame window
353 MyFrame *frame = new MyFrame((wxFrame *) NULL,
354 _T("Text wxWindows sample"), 50, 50, 700, 420);
355 frame->SetSizeHints( 500, 400 );
356
357 wxMenu *file_menu = new wxMenu;
358 file_menu->Append(TEXT_SAVE, _T("&Save file\tCtrl-S"),
359 _T("Save the text control contents to file"));
360 file_menu->Append(TEXT_LOAD, _T("&Load file\tCtrl-O"),
361 _T("Load the sample file into text control"));
362 file_menu->AppendSeparator();
363 file_menu->Append(TEXT_RICH_TEXT_TEST, _T("Show Rich Text Editor"));
364 file_menu->AppendSeparator();
365 file_menu->Append(TEXT_ABOUT, _T("&About\tAlt-A"));
366 file_menu->AppendSeparator();
367 file_menu->Append(TEXT_QUIT, _T("E&xit\tAlt-X"), _T("Quit this sample"));
368
369 wxMenuBar *menu_bar = new wxMenuBar( wxMB_DOCKABLE );
370 menu_bar->Append(file_menu, _T("&File"));
371
372 #if wxUSE_TOOLTIPS
373 wxMenu *tooltip_menu = new wxMenu;
374 tooltip_menu->Append(TEXT_TOOLTIPS_SETDELAY, _T("Set &delay\tCtrl-D"));
375 tooltip_menu->AppendSeparator();
376 tooltip_menu->Append(TEXT_TOOLTIPS_ENABLE, _T("&Toggle tooltips\tCtrl-T"),
377 _T("enable/disable tooltips"), TRUE);
378 tooltip_menu->Check(TEXT_TOOLTIPS_ENABLE, TRUE);
379 menu_bar->Append(tooltip_menu, _T("&Tooltips"));
380 #endif // wxUSE_TOOLTIPS
381
382 #if wxUSE_CLIPBOARD
383 wxMenu *menuClipboard = new wxMenu;
384 menuClipboard->Append(TEXT_CLIPBOARD_COPY, _T("&Copy\tCtrl-C"),
385 _T("Copy the first line to the clipboard"));
386 menuClipboard->Append(TEXT_CLIPBOARD_PASTE, _T("&Paste\tCtrl-V"),
387 _T("Paste from clipboard to the text control"));
388 menu_bar->Append(menuClipboard, _T("&Clipboard"));
389 #endif // wxUSE_CLIPBOARD
390
391 wxMenu *menuText = new wxMenu;
392 menuText->Append(TEXT_ADD_SOME, _T("&Append some text\tCtrl-A"));
393 menuText->Append(TEXT_ADD_FREEZE, _T("&Append text with freeze/thaw\tShift-Ctrl-A"));
394 menuText->Append(TEXT_REMOVE, _T("&Remove first 10 characters\tCtrl-Y"));
395 menuText->Append(TEXT_REPLACE, _T("&Replace characters 4 to 8 with ABC\tCtrl-R"));
396 menuText->Append(TEXT_SELECT, _T("&Select characters 4 to 8\tCtrl-I"));
397 menuText->Append(TEXT_SET, _T("&Set the first text zone value\tCtrl-E"));
398 menuText->AppendSeparator();
399 menuText->Append(TEXT_MOVE_ENDTEXT, _T("Move cursor to the end of &text"));
400 menuText->Append(TEXT_MOVE_ENDENTRY, _T("Move cursor to the end of &entry"));
401 menuText->Append(TEXT_SET_EDITABLE, _T("Toggle &editable state"), _T(""), TRUE);
402 menuText->Append(TEXT_SET_ENABLED, _T("Toggle e&nabled state"), _T(""), TRUE);
403 menuText->Check(TEXT_SET_EDITABLE, TRUE);
404 menuText->Check(TEXT_SET_ENABLED, TRUE);
405 menuText->AppendSeparator();
406 menuText->Append(TEXT_LINE_DOWN, _T("Scroll text one line down"));
407 menuText->Append(TEXT_LINE_UP, _T("Scroll text one line up"));
408 menuText->Append(TEXT_PAGE_DOWN, _T("Scroll text one page down"));
409 menuText->Append(TEXT_PAGE_DOWN, _T("Scroll text one page up"));
410 menu_bar->Append(menuText, _T("Te&xt"));
411
412 wxMenu *menuLog = new wxMenu;
413 menuLog->Append(TEXT_LOG_KEY, _T("Log &key events"), _T(""), TRUE);
414 menuLog->Append(TEXT_LOG_CHAR, _T("Log &char events"), _T(""), TRUE);
415 menuLog->Append(TEXT_LOG_MOUSE, _T("Log &mouse events"), _T(""), TRUE);
416 menuLog->Append(TEXT_LOG_TEXT, _T("Log &text events"), _T(""), TRUE);
417 menuLog->Append(TEXT_LOG_FOCUS, _T("Log &focus events"), _T(""), TRUE);
418 menuLog->AppendSeparator();
419 menuLog->Append(TEXT_CLEAR, _T("&Clear the log\tCtrl-C"),
420 _T("Clear the log window contents"));
421
422 // select only the interesting events by default
423 menuLog->Check(TEXT_LOG_KEY, TRUE);
424 menuLog->Check(TEXT_LOG_CHAR, TRUE);
425 menuLog->Check(TEXT_LOG_TEXT, TRUE);
426
427 MyTextCtrl::ms_logKey =
428 MyTextCtrl::ms_logChar =
429 MyTextCtrl::ms_logText = TRUE;
430 menu_bar->Append(menuLog, _T("&Log"));
431
432 frame->SetMenuBar(menu_bar);
433
434 frame->Show(TRUE);
435
436 SetTopWindow(frame);
437
438 // report success
439 return TRUE;
440 }
441
442 //----------------------------------------------------------------------
443 // MyTextCtrl
444 //----------------------------------------------------------------------
445
446 BEGIN_EVENT_TABLE(MyTextCtrl, wxTextCtrl)
447 EVT_KEY_DOWN(MyTextCtrl::OnKeyDown)
448 EVT_KEY_UP(MyTextCtrl::OnKeyUp)
449 EVT_CHAR(MyTextCtrl::OnChar)
450
451 EVT_TEXT(-1, MyTextCtrl::OnText)
452 EVT_TEXT_URL(-1, MyTextCtrl::OnTextURL)
453 EVT_TEXT_MAXLEN(-1, MyTextCtrl::OnTextMaxLen)
454
455 EVT_MOUSE_EVENTS(MyTextCtrl::OnMouseEvent)
456
457 EVT_SET_FOCUS(MyTextCtrl::OnSetFocus)
458 EVT_KILL_FOCUS(MyTextCtrl::OnKillFocus)
459 END_EVENT_TABLE()
460
461 bool MyTextCtrl::ms_logKey = FALSE;
462 bool MyTextCtrl::ms_logChar = FALSE;
463 bool MyTextCtrl::ms_logMouse = FALSE;
464 bool MyTextCtrl::ms_logText = FALSE;
465 bool MyTextCtrl::ms_logFocus = FALSE;
466
467 void MyTextCtrl::LogKeyEvent(const wxChar *name, wxKeyEvent& event) const
468 {
469 wxString key;
470 long keycode = event.GetKeyCode();
471 {
472 switch ( keycode )
473 {
474 case WXK_BACK: key = _T("BACK"); break;
475 case WXK_TAB: key = _T("TAB"); break;
476 case WXK_RETURN: key = _T("RETURN"); break;
477 case WXK_ESCAPE: key = _T("ESCAPE"); break;
478 case WXK_SPACE: key = _T("SPACE"); break;
479 case WXK_DELETE: key = _T("DELETE"); break;
480 case WXK_START: key = _T("START"); break;
481 case WXK_LBUTTON: key = _T("LBUTTON"); break;
482 case WXK_RBUTTON: key = _T("RBUTTON"); break;
483 case WXK_CANCEL: key = _T("CANCEL"); break;
484 case WXK_MBUTTON: key = _T("MBUTTON"); break;
485 case WXK_CLEAR: key = _T("CLEAR"); break;
486 case WXK_SHIFT: key = _T("SHIFT"); break;
487 case WXK_ALT: key = _T("ALT"); break;
488 case WXK_CONTROL: key = _T("CONTROL"); break;
489 case WXK_MENU: key = _T("MENU"); break;
490 case WXK_PAUSE: key = _T("PAUSE"); break;
491 case WXK_CAPITAL: key = _T("CAPITAL"); break;
492 case WXK_PRIOR: key = _T("PRIOR"); break;
493 case WXK_NEXT: key = _T("NEXT"); break;
494 case WXK_END: key = _T("END"); break;
495 case WXK_HOME: key = _T("HOME"); break;
496 case WXK_LEFT: key = _T("LEFT"); break;
497 case WXK_UP: key = _T("UP"); break;
498 case WXK_RIGHT: key = _T("RIGHT"); break;
499 case WXK_DOWN: key = _T("DOWN"); break;
500 case WXK_SELECT: key = _T("SELECT"); break;
501 case WXK_PRINT: key = _T("PRINT"); break;
502 case WXK_EXECUTE: key = _T("EXECUTE"); break;
503 case WXK_SNAPSHOT: key = _T("SNAPSHOT"); break;
504 case WXK_INSERT: key = _T("INSERT"); break;
505 case WXK_HELP: key = _T("HELP"); break;
506 case WXK_NUMPAD0: key = _T("NUMPAD0"); break;
507 case WXK_NUMPAD1: key = _T("NUMPAD1"); break;
508 case WXK_NUMPAD2: key = _T("NUMPAD2"); break;
509 case WXK_NUMPAD3: key = _T("NUMPAD3"); break;
510 case WXK_NUMPAD4: key = _T("NUMPAD4"); break;
511 case WXK_NUMPAD5: key = _T("NUMPAD5"); break;
512 case WXK_NUMPAD6: key = _T("NUMPAD6"); break;
513 case WXK_NUMPAD7: key = _T("NUMPAD7"); break;
514 case WXK_NUMPAD8: key = _T("NUMPAD8"); break;
515 case WXK_NUMPAD9: key = _T("NUMPAD9"); break;
516 case WXK_MULTIPLY: key = _T("MULTIPLY"); break;
517 case WXK_ADD: key = _T("ADD"); break;
518 case WXK_SEPARATOR: key = _T("SEPARATOR"); break;
519 case WXK_SUBTRACT: key = _T("SUBTRACT"); break;
520 case WXK_DECIMAL: key = _T("DECIMAL"); break;
521 case WXK_DIVIDE: key = _T("DIVIDE"); break;
522 case WXK_F1: key = _T("F1"); break;
523 case WXK_F2: key = _T("F2"); break;
524 case WXK_F3: key = _T("F3"); break;
525 case WXK_F4: key = _T("F4"); break;
526 case WXK_F5: key = _T("F5"); break;
527 case WXK_F6: key = _T("F6"); break;
528 case WXK_F7: key = _T("F7"); break;
529 case WXK_F8: key = _T("F8"); break;
530 case WXK_F9: key = _T("F9"); break;
531 case WXK_F10: key = _T("F10"); break;
532 case WXK_F11: key = _T("F11"); break;
533 case WXK_F12: key = _T("F12"); break;
534 case WXK_F13: key = _T("F13"); break;
535 case WXK_F14: key = _T("F14"); break;
536 case WXK_F15: key = _T("F15"); break;
537 case WXK_F16: key = _T("F16"); break;
538 case WXK_F17: key = _T("F17"); break;
539 case WXK_F18: key = _T("F18"); break;
540 case WXK_F19: key = _T("F19"); break;
541 case WXK_F20: key = _T("F20"); break;
542 case WXK_F21: key = _T("F21"); break;
543 case WXK_F22: key = _T("F22"); break;
544 case WXK_F23: key = _T("F23"); break;
545 case WXK_F24: key = _T("F24"); break;
546 case WXK_NUMLOCK: key = _T("NUMLOCK"); break;
547 case WXK_SCROLL: key = _T("SCROLL"); break;
548 case WXK_PAGEUP: key = _T("PAGEUP"); break;
549 case WXK_PAGEDOWN: key = _T("PAGEDOWN"); break;
550 case WXK_NUMPAD_SPACE: key = _T("NUMPAD_SPACE"); break;
551 case WXK_NUMPAD_TAB: key = _T("NUMPAD_TAB"); break;
552 case WXK_NUMPAD_ENTER: key = _T("NUMPAD_ENTER"); break;
553 case WXK_NUMPAD_F1: key = _T("NUMPAD_F1"); break;
554 case WXK_NUMPAD_F2: key = _T("NUMPAD_F2"); break;
555 case WXK_NUMPAD_F3: key = _T("NUMPAD_F3"); break;
556 case WXK_NUMPAD_F4: key = _T("NUMPAD_F4"); break;
557 case WXK_NUMPAD_HOME: key = _T("NUMPAD_HOME"); break;
558 case WXK_NUMPAD_LEFT: key = _T("NUMPAD_LEFT"); break;
559 case WXK_NUMPAD_UP: key = _T("NUMPAD_UP"); break;
560 case WXK_NUMPAD_RIGHT: key = _T("NUMPAD_RIGHT"); break;
561 case WXK_NUMPAD_DOWN: key = _T("NUMPAD_DOWN"); break;
562 case WXK_NUMPAD_PRIOR: key = _T("NUMPAD_PRIOR"); break;
563 case WXK_NUMPAD_PAGEUP: key = _T("NUMPAD_PAGEUP"); break;
564 case WXK_NUMPAD_PAGEDOWN: key = _T("NUMPAD_PAGEDOWN"); break;
565 case WXK_NUMPAD_END: key = _T("NUMPAD_END"); break;
566 case WXK_NUMPAD_BEGIN: key = _T("NUMPAD_BEGIN"); break;
567 case WXK_NUMPAD_INSERT: key = _T("NUMPAD_INSERT"); break;
568 case WXK_NUMPAD_DELETE: key = _T("NUMPAD_DELETE"); break;
569 case WXK_NUMPAD_EQUAL: key = _T("NUMPAD_EQUAL"); break;
570 case WXK_NUMPAD_MULTIPLY: key = _T("NUMPAD_MULTIPLY"); break;
571 case WXK_NUMPAD_ADD: key = _T("NUMPAD_ADD"); break;
572 case WXK_NUMPAD_SEPARATOR: key = _T("NUMPAD_SEPARATOR"); break;
573 case WXK_NUMPAD_SUBTRACT: key = _T("NUMPAD_SUBTRACT"); break;
574 case WXK_NUMPAD_DECIMAL: key = _T("NUMPAD_DECIMAL"); break;
575
576 default:
577 {
578 if ( wxIsprint((int)keycode) )
579 key.Printf(_T("'%c'"), (char)keycode);
580 else if ( keycode > 0 && keycode < 27 )
581 key.Printf(_("Ctrl-%c"), _T('A') + keycode - 1);
582 else
583 key.Printf(_T("unknown (%ld)"), keycode);
584 }
585 }
586 }
587
588 wxLogMessage( _T("%s event: %s (flags = %c%c%c%c)"),
589 name,
590 key.c_str(),
591 GetChar( event.ControlDown(), _T('C') ),
592 GetChar( event.AltDown(), _T('A') ),
593 GetChar( event.ShiftDown(), _T('S') ),
594 GetChar( event.MetaDown(), _T('M') ) );
595 }
596
597 static wxString GetMouseEventDesc(const wxMouseEvent& ev)
598 {
599 // click event
600 wxString button;
601 bool dbl, up;
602 if ( ev.LeftDown() || ev.LeftUp() || ev.LeftDClick() )
603 {
604 button = _T("Left");
605 dbl = ev.LeftDClick();
606 up = ev.LeftUp();
607 }
608 else if ( ev.MiddleDown() || ev.MiddleUp() || ev.MiddleDClick() )
609 {
610 button = _T("Middle");
611 dbl = ev.MiddleDClick();
612 up = ev.MiddleUp();
613 }
614 else if ( ev.RightDown() || ev.RightUp() || ev.RightDClick() )
615 {
616 button = _T("Right");
617 dbl = ev.RightDClick();
618 up = ev.RightUp();
619 }
620 else
621 {
622 return _T("Unknown mouse event");
623 }
624
625 return wxString::Format(_T("%s mouse button %s"),
626 button.c_str(),
627 dbl ? _T("double clicked")
628 : up ? _T("released") : _T("clicked"));
629 }
630
631 void MyTextCtrl::OnMouseEvent(wxMouseEvent& ev)
632 {
633 ev.Skip();
634
635 if ( !ms_logMouse )
636 return;
637
638 if ( !ev.Moving() )
639 {
640 wxString msg;
641 if ( ev.Entering() )
642 {
643 msg = _T("Mouse entered the window");
644 }
645 else if ( ev.Leaving() )
646 {
647 msg = _T("Mouse left the window");
648 }
649 else
650 {
651 msg = GetMouseEventDesc(ev);
652 }
653
654 msg << _T(" at (") << ev.GetX() << _T(", ") << ev.GetY() << _T(") ")
655 << _T("Flags: ")
656 << GetChar( ev.LeftIsDown(), _T('1') )
657 << GetChar( ev.MiddleIsDown(), _T('2') )
658 << GetChar( ev.RightIsDown(), _T('3') )
659 << GetChar( ev.ControlDown(), _T('C') )
660 << GetChar( ev.AltDown(), _T('A') )
661 << GetChar( ev.ShiftDown(), _T('S') )
662 << GetChar( ev.MetaDown(), _T('M') );
663
664 wxLogMessage(msg);
665 }
666 //else: we're not interested in mouse move events
667 }
668
669 void MyTextCtrl::OnSetFocus(wxFocusEvent& event)
670 {
671 if ( ms_logFocus )
672 wxLogMessage( wxT("%p got focus."), this);
673
674 event.Skip();
675 }
676
677 void MyTextCtrl::OnKillFocus(wxFocusEvent& event)
678 {
679 if ( ms_logFocus )
680 wxLogMessage( wxT("%p lost focus"), this);
681
682 event.Skip();
683 }
684
685 void MyTextCtrl::OnText(wxCommandEvent& event)
686 {
687 if ( !ms_logText )
688 return;
689
690 MyTextCtrl *win = (MyTextCtrl *)event.GetEventObject();
691 const wxChar *data = (const wxChar *)(win->GetClientData());
692 if ( data )
693 {
694 wxLogMessage(_T("Text changed in control '%s'"), data);
695 }
696 else
697 {
698 // wxLogMessage( event.GetString() );
699 wxLogMessage(_T("Text changed in some control"));
700 }
701 }
702
703 void MyTextCtrl::OnTextMaxLen(wxCommandEvent& WXUNUSED(event))
704 {
705 wxLogMessage(_T("You can't enter more characters into this control."));
706 }
707
708 void MyTextCtrl::OnTextURL(wxTextUrlEvent& event)
709 {
710 const wxMouseEvent& ev = event.GetMouseEvent();
711
712 // filter out mouse moves, too many of them
713 if ( ev.Moving() )
714 return;
715
716 long start = event.GetURLStart(),
717 end = event.GetURLEnd();
718
719 wxLogMessage(_T("Mouse event over URL '%s': %s"),
720 GetValue().Mid(start, end - start).c_str(),
721 GetMouseEventDesc(ev).c_str());
722 }
723
724 void MyTextCtrl::OnChar(wxKeyEvent& event)
725 {
726 if ( ms_logChar )
727 LogKeyEvent( _T("Char"), event);
728
729 event.Skip();
730 }
731
732 void MyTextCtrl::OnKeyUp(wxKeyEvent& event)
733 {
734 if ( ms_logKey )
735 LogKeyEvent( _T("Key up"), event);
736
737 event.Skip();
738 }
739
740 void MyTextCtrl::OnKeyDown(wxKeyEvent& event)
741 {
742 switch ( event.GetKeyCode() )
743 {
744 case WXK_F1:
745 // show current position and text length
746 {
747 long line, column, pos = GetInsertionPoint();
748 PositionToXY(pos, &column, &line);
749
750 wxLogMessage(_T("Current position: %ld\nCurrent line, column: (%ld, %ld)\nNumber of lines: %ld\nCurrent line length: %ld\nTotal text length: %u (%ld)"),
751 pos,
752 line, column,
753 (long) GetNumberOfLines(),
754 (long) GetLineLength(line),
755 GetValue().length(),
756 GetLastPosition());
757
758 long from, to;
759 GetSelection(&from, &to);
760
761 wxString sel = GetStringSelection();
762
763 wxLogMessage(_T("Selection: from %ld to %ld."), from, to);
764 wxLogMessage(_T("Selection = '%s' (len = %u)"),
765 sel.c_str(), sel.length());
766 }
767 break;
768
769 case WXK_F2:
770 // go to the end
771 SetInsertionPointEnd();
772 break;
773
774 case WXK_F3:
775 // go to position 10
776 SetInsertionPoint(10);
777 break;
778
779 case WXK_F4:
780 if (!m_hasCapture)
781 {
782 wxLogDebug( wxT("Now capturing mouse and events.") );
783 m_hasCapture = TRUE;
784 CaptureMouse();
785 }
786 else
787 {
788 wxLogDebug( wxT("Stopped capturing mouse and events.") );
789 m_hasCapture = FALSE;
790 ReleaseMouse();
791 }
792 break;
793
794 case WXK_F5:
795 // insert a blank line
796 WriteText(_T("\n"));
797 break;
798
799 case WXK_F6:
800 wxLogMessage(_T("IsModified() before SetValue(): %d"),
801 IsModified());
802 SetValue(_T("SetValue() has been called"));
803 wxLogMessage(_T("IsModified() after SetValue(): %d"),
804 IsModified());
805 break;
806
807 case WXK_F7:
808 wxLogMessage(_T("Position 10 should be now visible."));
809 ShowPosition(10);
810 break;
811
812 case WXK_F8:
813 wxLogMessage(_T("Control has been cleared"));
814 Clear();
815 break;
816
817 case WXK_F9:
818 WriteText(_T("WriteText() has been called"));
819 break;
820
821 case WXK_F10:
822 AppendText(_T("AppendText() has been called"));
823 break;
824 }
825
826 if ( ms_logKey )
827 LogKeyEvent( wxT("Key down"), event);
828
829 event.Skip();
830 }
831
832 //----------------------------------------------------------------------
833 // MyPanel
834 //----------------------------------------------------------------------
835
836 BEGIN_EVENT_TABLE(MyPanel, wxPanel)
837 EVT_SIZE(MyPanel::OnSize)
838 END_EVENT_TABLE()
839
840 MyPanel::MyPanel( wxFrame *frame, int x, int y, int w, int h )
841 : wxPanel( frame, -1, wxPoint(x, y), wxSize(w, h) )
842 {
843 m_log = new wxTextCtrl( this, -1, _T("This is the log window.\n"),
844 wxPoint(5,260), wxSize(630,100),
845 wxTE_MULTILINE | wxTE_READONLY /* | wxTE_RICH */);
846
847 m_logOld = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );
848
849 // single line text controls
850
851 m_text = new MyTextCtrl( this, -1, _T("Single line."),
852 wxPoint(10,10), wxSize(140,-1),
853 wxTE_PROCESS_ENTER);
854 m_text->SetForegroundColour(*wxBLUE);
855 m_text->SetBackgroundColour(*wxLIGHT_GREY);
856 (*m_text) << _T(" Appended.");
857 m_text->SetInsertionPoint(0);
858 m_text->WriteText( _T("Prepended. ") );
859
860 m_password = new MyTextCtrl( this, -1, _T(""),
861 wxPoint(10,50), wxSize(140,-1), wxTE_PASSWORD );
862
863 m_readonly = new MyTextCtrl( this, -1, _T("Read only"),
864 wxPoint(10,90), wxSize(140,-1), wxTE_READONLY );
865
866 m_limited = new MyTextCtrl(this, -1, _T("Max 8 ch"),
867 wxPoint(10, 130), wxSize(140, -1));
868 m_limited->SetMaxLength(8);
869
870 // multi line text controls
871
872 m_horizontal = new MyTextCtrl( this, -1, _T("Multiline text control with a horizontal scrollbar."),
873 wxPoint(10,170), wxSize(140,70), wxTE_MULTILINE | wxHSCROLL );
874
875 // a little hack to use the command line argument for encoding testing
876 if ( wxTheApp->argc == 2 )
877 {
878 switch ( wxTheApp->argv[1][0] )
879 {
880 case '2':
881 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
882 FALSE, _T(""),
883 wxFONTENCODING_ISO8859_2));
884 m_horizontal->SetValue(_T("®lu»ouèký kùò zbìsile èe¹tina «»"));
885 break;
886
887 case '1':
888 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
889 FALSE, _T(""),
890 wxFONTENCODING_CP1251));
891 m_horizontal->SetValue(_T("Ïðèâåò!"));
892 break;
893
894 case '8':
895 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
896 FALSE, _T(""),
897 wxFONTENCODING_CP1251));
898 #if wxUSE_UNICODE
899 m_horizontal->SetValue(L"\x0412\x0430\x0434\x0438\x043c \x0426");
900 #else
901 m_horizontal->SetValue("ËÁÖÅÔÓÑ ÕÄÁÞÎÙÍ");
902 #endif
903 }
904 }
905 else
906 {
907 m_horizontal->SetValue(_T("Text in default encoding"));
908 }
909
910 m_multitext = new MyTextCtrl( this, -1, _T("Multi line."),
911 wxPoint(180,10), wxSize(240,70), wxTE_MULTILINE );
912 m_multitext->SetFont(*wxITALIC_FONT);
913 (*m_multitext) << _T(" Appended.");
914 m_multitext->SetInsertionPoint(0);
915 m_multitext->WriteText( _T("Prepended. ") );
916 m_multitext->SetForegroundColour(*wxRED);
917 m_multitext->SetBackgroundColour(*wxLIGHT_GREY);
918
919 #if wxUSE_TOOLTIPS
920 m_multitext->SetToolTip(_T("Press Fn function keys here"));
921 #endif
922
923 m_tab = new MyTextCtrl( this, 100, _T("Multiline, allow <TAB> processing."),
924 wxPoint(180,90), wxSize(240,70), wxTE_MULTILINE | wxTE_PROCESS_TAB );
925 m_tab->SetClientData((void *)_T("tab"));
926
927 m_enter = new MyTextCtrl( this, 100, _T("Multiline, allow <ENTER> processing."),
928 wxPoint(180,170), wxSize(240,70), wxTE_MULTILINE);
929 m_enter->SetClientData((void *)_T("enter"));
930
931 m_textrich = new MyTextCtrl(this, -1, _T("Allows more than 30Kb of text\n")
932 _T("(even under broken Win9x)\n")
933 _T("and a very very very very very ")
934 _T("very very very long line to test ")
935 _T("wxHSCROLL style"),
936 wxPoint(450, 10), wxSize(230, 230),
937 wxTE_RICH | wxTE_MULTILINE | wxHSCROLL);
938 m_textrich->SetStyle(0, 10, *wxRED);
939 m_textrich->SetStyle(10, 20, *wxBLUE);
940 m_textrich->SetStyle(30, 40,
941 wxTextAttr(*wxGREEN, wxNullColour, *wxITALIC_FONT));
942 m_textrich->SetDefaultStyle(wxTextAttr());
943 m_textrich->AppendText(_T("\n\nFirst 10 characters should be in red\n"));
944 m_textrich->AppendText(_T("Next 10 characters should be in blue\n"));
945 m_textrich->AppendText(_T("Next 10 characters should be normal\n"));
946 m_textrich->AppendText(_T("And the next 10 characters should be green and italic\n"));
947 m_textrich->SetDefaultStyle(wxTextAttr(*wxCYAN, *wxBLUE));
948 m_textrich->AppendText(_T("This text should be cyan on blue\n"));
949 m_textrich->SetDefaultStyle(wxTextAttr(*wxBLUE, *wxWHITE));
950 m_textrich->AppendText(_T("And this should be in blue and the text you ")
951 _T("type should be in blue as well"));
952 }
953
954 void MyPanel::OnSize( wxSizeEvent &event )
955 {
956 wxSize client_area( GetClientSize() );
957 if (m_log)
958 m_log->SetSize( 0, 260, client_area.x, client_area.y - 260 );
959 event.Skip();
960 }
961
962 wxTextCtrl *MyPanel::GetFocusedText(wxTextCtrl *textDef)
963 {
964 wxWindow *win = FindFocus();
965
966 wxTextCtrl *text = win ? wxDynamicCast(win, wxTextCtrl) : NULL;
967 return text ? text : textDef;
968 }
969
970 #if wxUSE_CLIPBOARD
971 void MyPanel::DoPasteFromClipboard()
972 {
973 // On X11, we want to get the data from the primary selection instead
974 // of the normal clipboard (which isn't normal under X11 at all). This
975 // call has no effect under MSW.
976 wxTheClipboard->UsePrimarySelection();
977
978 if (!wxTheClipboard->Open())
979 {
980 *m_log << _T("Error opening the clipboard.\n");
981 return;
982 }
983 else
984 {
985 *m_log << _T("Successfully opened the clipboard.\n");
986 }
987
988 wxTextDataObject data;
989
990 if (wxTheClipboard->IsSupported( data.GetFormat() ))
991 {
992 *m_log << _T("Clipboard supports requested format.\n");
993
994 if (wxTheClipboard->GetData( data ))
995 {
996 *m_log << _T("Successfully retrieved data from the clipboard.\n");
997 *m_multitext << data.GetText() << _T("\n");
998 }
999 else
1000 {
1001 *m_log << _T("Error getting data from the clipboard.\n");
1002 }
1003 }
1004 else
1005 {
1006 *m_log << _T("Clipboard doesn't support requested format.\n");
1007 }
1008
1009 wxTheClipboard->Close();
1010
1011 *m_log << _T("Closed the clipboard.\n");
1012 }
1013
1014 void MyPanel::DoCopyToClipboard()
1015 {
1016 // On X11, we want to get the data from the primary selection instead
1017 // of the normal clipboard (which isn't normal under X11 at all). This
1018 // call has no effect under MSW.
1019 wxTheClipboard->UsePrimarySelection();
1020
1021 wxString text( m_multitext->GetLineText(0) );
1022
1023 if (text.IsEmpty())
1024 {
1025 *m_log << _T("No text to copy.\n");
1026
1027 return;
1028 }
1029
1030 if (!wxTheClipboard->Open())
1031 {
1032 *m_log << _T("Error opening the clipboard.\n");
1033
1034 return;
1035 }
1036 else
1037 {
1038 *m_log << _T("Successfully opened the clipboard.\n");
1039 }
1040
1041 wxTextDataObject *data = new wxTextDataObject( text );
1042
1043 if (!wxTheClipboard->SetData( data ))
1044 {
1045 *m_log << _T("Error while copying to the clipboard.\n");
1046 }
1047 else
1048 {
1049 *m_log << _T("Successfully copied data to the clipboard.\n");
1050 }
1051
1052 wxTheClipboard->Close();
1053
1054 *m_log << _T("Closed the clipboard.\n");
1055 }
1056
1057 #endif // wxUSE_CLIPBOARD
1058
1059 void MyPanel::DoMoveToEndOfText()
1060 {
1061 m_multitext->SetInsertionPointEnd();
1062 m_multitext->SetFocus();
1063 }
1064
1065 void MyPanel::DoMoveToEndOfEntry()
1066 {
1067 m_text->SetInsertionPointEnd();
1068 m_text->SetFocus();
1069 }
1070
1071 void MyPanel::DoRemoveText()
1072 {
1073 GetFocusedText(m_multitext)->Remove(0, 10);
1074 }
1075
1076 void MyPanel::DoReplaceText()
1077 {
1078 GetFocusedText(m_multitext)->Replace(3, 8, _T("ABC"));
1079 }
1080
1081 void MyPanel::DoSelectText()
1082 {
1083 GetFocusedText(m_multitext)->SetSelection(3, 8);
1084 }
1085
1086 //----------------------------------------------------------------------
1087 // MyFrame
1088 //----------------------------------------------------------------------
1089
1090 BEGIN_EVENT_TABLE(MyFrame, wxFrame)
1091 EVT_MENU(TEXT_QUIT, MyFrame::OnQuit)
1092 EVT_MENU(TEXT_ABOUT, MyFrame::OnAbout)
1093 EVT_MENU(TEXT_SAVE, MyFrame::OnFileSave)
1094 EVT_MENU(TEXT_LOAD, MyFrame::OnFileLoad)
1095 EVT_MENU(TEXT_RICH_TEXT_TEST, MyFrame::OnRichTextTest)
1096
1097 EVT_MENU(TEXT_LOG_KEY, MyFrame::OnLogKey)
1098 EVT_MENU(TEXT_LOG_CHAR, MyFrame::OnLogChar)
1099 EVT_MENU(TEXT_LOG_MOUSE,MyFrame::OnLogMouse)
1100 EVT_MENU(TEXT_LOG_TEXT, MyFrame::OnLogText)
1101 EVT_MENU(TEXT_LOG_FOCUS,MyFrame::OnLogFocus)
1102 EVT_MENU(TEXT_CLEAR, MyFrame::OnLogClear)
1103
1104 #if wxUSE_TOOLTIPS
1105 EVT_MENU(TEXT_TOOLTIPS_SETDELAY, MyFrame::OnSetTooltipDelay)
1106 EVT_MENU(TEXT_TOOLTIPS_ENABLE, MyFrame::OnToggleTooltips)
1107 #endif // wxUSE_TOOLTIPS
1108
1109 #if wxUSE_CLIPBOARD
1110 EVT_MENU(TEXT_CLIPBOARD_PASTE, MyFrame::OnPasteFromClipboard)
1111 EVT_MENU(TEXT_CLIPBOARD_COPY, MyFrame::OnCopyToClipboard)
1112 #endif // wxUSE_CLIPBOARD
1113
1114 EVT_MENU(TEXT_REMOVE, MyFrame::OnRemoveText)
1115 EVT_MENU(TEXT_REPLACE, MyFrame::OnReplaceText)
1116 EVT_MENU(TEXT_SELECT, MyFrame::OnSelectText)
1117 EVT_MENU(TEXT_ADD_SOME, MyFrame::OnAddText)
1118 EVT_MENU(TEXT_ADD_FREEZE, MyFrame::OnAddTextFreeze)
1119 EVT_MENU(TEXT_MOVE_ENDTEXT, MyFrame::OnMoveToEndOfText)
1120 EVT_MENU(TEXT_MOVE_ENDENTRY, MyFrame::OnMoveToEndOfEntry)
1121
1122 EVT_MENU(TEXT_SET_EDITABLE, MyFrame::OnSetEditable)
1123 EVT_MENU(TEXT_SET_ENABLED, MyFrame::OnSetEnabled)
1124
1125 EVT_MENU(TEXT_LINE_DOWN, MyFrame::OnScrollLineDown)
1126 EVT_MENU(TEXT_LINE_UP, MyFrame::OnScrollLineUp)
1127 EVT_MENU(TEXT_PAGE_DOWN, MyFrame::OnScrollPageDown)
1128 EVT_MENU(TEXT_PAGE_UP, MyFrame::OnScrollPageUp)
1129
1130 EVT_MENU(TEXT_SET, MyFrame::OnSetText)
1131
1132 EVT_IDLE(MyFrame::OnIdle)
1133 END_EVENT_TABLE()
1134
1135 MyFrame::MyFrame(wxFrame *frame, const wxChar *title, int x, int y, int w, int h)
1136 : wxFrame(frame, -1, title, wxPoint(x, y), wxSize(w, h) )
1137 {
1138 CreateStatusBar(2);
1139
1140 m_panel = new MyPanel( this, 10, 10, 300, 100 );
1141 }
1142
1143 void MyFrame::OnQuit (wxCommandEvent& WXUNUSED(event) )
1144 {
1145 Close(TRUE);
1146 }
1147
1148 void MyFrame::OnAbout( wxCommandEvent& WXUNUSED(event) )
1149 {
1150 wxBeginBusyCursor();
1151
1152 wxMessageDialog dialog(this,
1153 _T("This is a text control sample. It demonstrates the many different\n")
1154 _T("text control styles, the use of the clipboard, setting and handling\n")
1155 _T("tooltips and intercepting key and char events.\n")
1156 _T("\n")
1157 _T("Copyright (c) 1999, Robert Roebling, Julian Smart, Vadim Zeitlin"),
1158 _T("About wxTextCtrl Sample"),
1159 wxOK | wxICON_INFORMATION);
1160
1161 dialog.ShowModal();
1162
1163 wxEndBusyCursor();
1164 }
1165
1166 #if wxUSE_TOOLTIPS
1167
1168 void MyFrame::OnSetTooltipDelay(wxCommandEvent& WXUNUSED(event))
1169 {
1170 static long s_delay = 5000;
1171
1172 wxString delay;
1173 delay.Printf( _T("%ld"), s_delay);
1174
1175 delay = wxGetTextFromUser(_T("Enter delay (in milliseconds)"),
1176 _T("Set tooltip delay"),
1177 delay,
1178 this);
1179 if ( !delay )
1180 return; // cancelled
1181
1182 wxSscanf(delay, _T("%ld"), &s_delay);
1183
1184 wxToolTip::SetDelay(s_delay);
1185
1186 wxLogStatus(this, _T("Tooltip delay set to %ld milliseconds"), s_delay);
1187 }
1188
1189 void MyFrame::OnToggleTooltips(wxCommandEvent& WXUNUSED(event))
1190 {
1191 static bool s_enabled = TRUE;
1192
1193 s_enabled = !s_enabled;
1194
1195 wxToolTip::Enable(s_enabled);
1196
1197 wxLogStatus(this, _T("Tooltips %sabled"), s_enabled ? _T("en") : _T("dis") );
1198 }
1199 #endif // tooltips
1200
1201 void MyFrame::OnLogClear(wxCommandEvent& WXUNUSED(event))
1202 {
1203 m_panel->m_log->Clear();
1204 }
1205
1206 void MyFrame::OnSetEditable(wxCommandEvent& WXUNUSED(event))
1207 {
1208 static bool s_editable = TRUE;
1209
1210 s_editable = !s_editable;
1211 m_panel->m_text->SetEditable(s_editable);
1212 m_panel->m_password->SetEditable(s_editable);
1213 m_panel->m_multitext->SetEditable(s_editable);
1214 m_panel->m_textrich->SetEditable(s_editable);
1215 }
1216
1217 void MyFrame::OnSetEnabled(wxCommandEvent& WXUNUSED(event))
1218 {
1219 bool enabled = m_panel->m_text->IsEnabled();
1220 enabled = !enabled;
1221
1222 m_panel->m_text->Enable(enabled);
1223 m_panel->m_password->Enable(enabled);
1224 m_panel->m_multitext->Enable(enabled);
1225 m_panel->m_readonly->Enable(enabled);
1226 m_panel->m_limited->Enable(enabled);
1227 m_panel->m_textrich->Enable(enabled);
1228 }
1229
1230 void MyFrame::OnFileSave(wxCommandEvent& WXUNUSED(event))
1231 {
1232 if ( m_panel->m_textrich->SaveFile(_T("dummy.txt")) )
1233 {
1234 #if wxUSE_FILE
1235 // verify that the fil length is correct (it wasn't under Win95)
1236 wxFile file(wxT("dummy.txt"));
1237 wxLogStatus(this,
1238 _T("Successfully saved file (text len = %lu, file size = %ld)"),
1239 (unsigned long)m_panel->m_textrich->GetValue().length(),
1240 (long) file.Length());
1241 #endif
1242 }
1243 else
1244 wxLogStatus(this, _T("Couldn't save the file"));
1245 }
1246
1247 void MyFrame::OnFileLoad(wxCommandEvent& WXUNUSED(event))
1248 {
1249 if ( m_panel->m_textrich->LoadFile(_T("dummy.txt")) )
1250 wxLogStatus(this, _T("Successfully loaded file"));
1251 else
1252 wxLogStatus(this, _T("Couldn't load the file"));
1253 }
1254
1255 void MyFrame::OnRichTextTest(wxCommandEvent& WXUNUSED(event))
1256 {
1257 RichTextFrame* frame = new RichTextFrame(this, _T("Rich Text Editor"));
1258 frame->Show(TRUE);
1259 }
1260
1261 void MyFrame::OnIdle( wxIdleEvent& event )
1262 {
1263 // track the window which has the focus in the status bar
1264 static wxWindow *s_windowFocus = (wxWindow *)NULL;
1265 wxWindow *focus = wxWindow::FindFocus();
1266 if ( focus && (focus != s_windowFocus) )
1267 {
1268 s_windowFocus = focus;
1269
1270 wxString msg;
1271 msg.Printf(
1272 #ifdef __WXMSW__
1273 _T("Focus: wxWindow = %p, HWND = %08x"),
1274 #else
1275 _T("Focus: wxWindow = %p"),
1276 #endif
1277 s_windowFocus
1278 #ifdef __WXMSW__
1279 , (unsigned int) s_windowFocus->GetHWND()
1280 #endif
1281 );
1282
1283 SetStatusText(msg);
1284 }
1285 event.Skip();
1286 }
1287
1288 /*
1289 * RichTextFrame is used to demonstrate rich text behaviour
1290 */
1291
1292 enum
1293 {
1294 RICHTEXT_CLOSE = 1000,
1295 RICHTEXT_LEFT_ALIGN,
1296 RICHTEXT_RIGHT_ALIGN,
1297 RICHTEXT_CENTRE,
1298 RICHTEXT_JUSTIFY,
1299 RICHTEXT_CHANGE_FONT,
1300 RICHTEXT_CHANGE_TEXT_COLOUR,
1301 RICHTEXT_CHANGE_BACKGROUND_COLOUR,
1302 RICHTEXT_LEFT_INDENT,
1303 RICHTEXT_RIGHT_INDENT
1304 };
1305
1306 BEGIN_EVENT_TABLE(RichTextFrame, wxFrame)
1307 EVT_IDLE(RichTextFrame::OnIdle)
1308 EVT_MENU(RICHTEXT_CLOSE, RichTextFrame::OnClose)
1309 EVT_MENU(RICHTEXT_LEFT_ALIGN, RichTextFrame::OnLeftAlign)
1310 EVT_MENU(RICHTEXT_RIGHT_ALIGN, RichTextFrame::OnRightAlign)
1311 EVT_MENU(RICHTEXT_CENTRE, RichTextFrame::OnCentre)
1312 EVT_MENU(RICHTEXT_JUSTIFY, RichTextFrame::OnJustify)
1313 EVT_MENU(RICHTEXT_CHANGE_FONT, RichTextFrame::OnChangeFont)
1314 EVT_MENU(RICHTEXT_CHANGE_TEXT_COLOUR, RichTextFrame::OnChangeTextColour)
1315 EVT_MENU(RICHTEXT_CHANGE_BACKGROUND_COLOUR, RichTextFrame::OnChangeBackgroundColour)
1316 EVT_MENU(RICHTEXT_LEFT_INDENT, RichTextFrame::OnLeftIndent)
1317 EVT_MENU(RICHTEXT_RIGHT_INDENT, RichTextFrame::OnRightIndent)
1318 END_EVENT_TABLE()
1319
1320 RichTextFrame::RichTextFrame(wxWindow* parent, const wxString& title):
1321 wxFrame(parent, -1, title, wxDefaultPosition, wxSize(300, 400))
1322 {
1323 m_currentPosition = -1;
1324 m_textCtrl = new wxTextCtrl(this, -1, wxEmptyString, wxDefaultPosition,
1325 wxDefaultSize, wxTE_MULTILINE|wxTE_RICH2);
1326
1327 wxString value;
1328 int i;
1329 for (i = 0; i < 10; i++)
1330 {
1331 int j;
1332 for (j = 0; j < 10; j++)
1333 {
1334 value << wxT("Hello, welcome to a very simple rich text editor. You can set some character and paragraph styles from the Edit menu. ");
1335 }
1336 value << wxT("\n\n");
1337 }
1338 m_textCtrl->SetValue(value);
1339
1340 wxMenuBar* menuBar = new wxMenuBar;
1341 wxMenu* fileMenu = new wxMenu;
1342 fileMenu->Append(RICHTEXT_CLOSE, _("Close\tCtrl+W"));
1343 menuBar->Append(fileMenu, _("File"));
1344
1345 wxMenu* editMenu = new wxMenu;
1346 editMenu->Append(RICHTEXT_LEFT_ALIGN, _("Left Align"));
1347 editMenu->Append(RICHTEXT_RIGHT_ALIGN, _("Right Align"));
1348 editMenu->Append(RICHTEXT_CENTRE, _("Centre"));
1349 editMenu->Append(RICHTEXT_JUSTIFY, _("Justify"));
1350 editMenu->AppendSeparator();
1351 editMenu->Append(RICHTEXT_CHANGE_FONT, _("Change Font"));
1352 editMenu->Append(RICHTEXT_CHANGE_TEXT_COLOUR, _("Change Text Colour"));
1353 editMenu->Append(RICHTEXT_CHANGE_BACKGROUND_COLOUR, _("Change Background Colour"));
1354 editMenu->AppendSeparator();
1355 editMenu->Append(RICHTEXT_LEFT_INDENT, _("Left Indent"));
1356 editMenu->Append(RICHTEXT_RIGHT_INDENT, _("Right indent"));
1357 menuBar->Append(editMenu, _("Edit"));
1358
1359 SetMenuBar(menuBar);
1360 CreateStatusBar();
1361 }
1362
1363 // Event handlers
1364
1365 void RichTextFrame::OnClose(wxCommandEvent& WXUNUSED(event))
1366 {
1367 Close(TRUE);
1368 }
1369
1370 void RichTextFrame::OnLeftAlign(wxCommandEvent& WXUNUSED(event))
1371 {
1372 wxTextAttr attr;
1373 attr.SetAlignment(wxTEXT_ALIGNMENT_LEFT);
1374
1375 long start, end;
1376 m_textCtrl->GetSelection(& start, & end);
1377 m_textCtrl->SetStyle(start, end, attr);
1378
1379 m_currentPosition = -1;
1380 }
1381
1382 void RichTextFrame::OnRightAlign(wxCommandEvent& WXUNUSED(event))
1383 {
1384 wxTextAttr attr;
1385 attr.SetAlignment(wxTEXT_ALIGNMENT_RIGHT);
1386
1387 long start, end;
1388 m_textCtrl->GetSelection(& start, & end);
1389 m_textCtrl->SetStyle(start, end, attr);
1390
1391 m_currentPosition = -1;
1392 }
1393
1394 void RichTextFrame::OnJustify(wxCommandEvent& WXUNUSED(event))
1395 {
1396 wxTextAttr attr;
1397 attr.SetAlignment(wxTEXT_ALIGNMENT_JUSTIFIED);
1398
1399 long start, end;
1400 m_textCtrl->GetSelection(& start, & end);
1401 m_textCtrl->SetStyle(start, end, attr);
1402
1403 m_currentPosition = -1;
1404 }
1405
1406 void RichTextFrame::OnCentre(wxCommandEvent& WXUNUSED(event))
1407 {
1408 wxTextAttr attr;
1409 attr.SetAlignment(wxTEXT_ALIGNMENT_CENTRE);
1410
1411 long start, end;
1412 m_textCtrl->GetSelection(& start, & end);
1413 m_textCtrl->SetStyle(start, end, attr);
1414
1415 m_currentPosition = -1;
1416 }
1417
1418 void RichTextFrame::OnChangeFont(wxCommandEvent& WXUNUSED(event))
1419 {
1420 wxFontData data;
1421
1422 wxFontDialog dialog(this, data);
1423
1424 if (dialog.ShowModal() == wxID_OK)
1425 {
1426 wxFontData retData = dialog.GetFontData();
1427 wxFont font = retData.GetChosenFont();
1428
1429 wxTextAttr attr;
1430 attr.SetFont(font);
1431
1432 long start, end;
1433 m_textCtrl->GetSelection(& start, & end);
1434 m_textCtrl->SetStyle(start, end, attr);
1435
1436 m_currentPosition = -1;
1437 }
1438 }
1439
1440 void RichTextFrame::OnChangeTextColour(wxCommandEvent& WXUNUSED(event))
1441 {
1442 wxColourData data;
1443 data.SetColour(* wxBLACK);
1444 data.SetChooseFull(TRUE);
1445 for (int i = 0; i < 16; i++)
1446 {
1447 wxColour colour(i*16, i*16, i*16);
1448 data.SetCustomColour(i, colour);
1449 }
1450
1451 wxColourDialog dialog(this, &data);
1452 dialog.SetTitle(_T("Choose the text colour"));
1453 if (dialog.ShowModal() == wxID_OK)
1454 {
1455 wxColourData retData = dialog.GetColourData();
1456 wxColour col = retData.GetColour();
1457
1458 wxTextAttr attr;
1459 attr.SetTextColour(col);
1460
1461 long start, end;
1462 m_textCtrl->GetSelection(& start, & end);
1463 m_textCtrl->SetStyle(start, end, attr);
1464
1465 m_currentPosition = -1;
1466 }
1467 }
1468
1469 void RichTextFrame::OnChangeBackgroundColour(wxCommandEvent& WXUNUSED(event))
1470 {
1471 wxColourData data;
1472 data.SetColour(* wxWHITE);
1473 data.SetChooseFull(TRUE);
1474 for (int i = 0; i < 16; i++)
1475 {
1476 wxColour colour(i*16, i*16, i*16);
1477 data.SetCustomColour(i, colour);
1478 }
1479
1480 wxColourDialog dialog(this, &data);
1481 dialog.SetTitle(_T("Choose the text background colour"));
1482 if (dialog.ShowModal() == wxID_OK)
1483 {
1484 wxColourData retData = dialog.GetColourData();
1485 wxColour col = retData.GetColour();
1486
1487 wxTextAttr attr;
1488 attr.SetBackgroundColour(col);
1489
1490 long start, end;
1491 m_textCtrl->GetSelection(& start, & end);
1492 m_textCtrl->SetStyle(start, end, attr);
1493
1494 m_currentPosition = -1;
1495 }
1496 }
1497
1498 void RichTextFrame::OnLeftIndent(wxCommandEvent& WXUNUSED(event))
1499 {
1500 wxString indentStr = wxGetTextFromUser
1501 (
1502 _("Please enter the left indent in tenths of a millimetre."),
1503 _("Left Indent")
1504 );
1505 if (!indentStr.IsEmpty())
1506 {
1507 int indent = wxAtoi(indentStr);
1508
1509 wxTextAttr attr;
1510 attr.SetLeftIndent(indent);
1511
1512 long start, end;
1513 m_textCtrl->GetSelection(& start, & end);
1514 m_textCtrl->SetStyle(start, end, attr);
1515
1516 m_currentPosition = -1;
1517 }
1518 }
1519
1520 void RichTextFrame::OnRightIndent(wxCommandEvent& WXUNUSED(event))
1521 {
1522 wxString indentStr = wxGetTextFromUser
1523 (
1524 _("Please enter the right indent in tenths of a millimetre."),
1525 _("Right Indent")
1526 );
1527 if (!indentStr.IsEmpty())
1528 {
1529 int indent = wxAtoi(indentStr);
1530
1531 wxTextAttr attr;
1532 attr.SetRightIndent(indent);
1533
1534 long start, end;
1535 m_textCtrl->GetSelection(& start, & end);
1536 m_textCtrl->SetStyle(start, end, attr);
1537
1538 m_currentPosition = -1;
1539 }
1540 }
1541
1542 void RichTextFrame::OnIdle(wxIdleEvent& WXUNUSED(event))
1543 {
1544 long insertionPoint = m_textCtrl->GetInsertionPoint();
1545 if (insertionPoint != m_currentPosition)
1546 {
1547 wxTextAttr attr;
1548 if (m_textCtrl->GetStyle(insertionPoint, attr))
1549 {
1550 wxString msg;
1551 wxString facename(wxT("unknown"));
1552 if (attr.GetFont().Ok())
1553 {
1554 facename = attr.GetFont().GetFaceName();
1555 }
1556 wxString alignment(wxT("unknown alignment"));
1557 if (attr.GetAlignment() == wxTEXT_ALIGNMENT_CENTRE)
1558 alignment = wxT("centred");
1559 else if (attr.GetAlignment() == wxTEXT_ALIGNMENT_RIGHT)
1560 alignment = wxT("right-aligned");
1561 else if (attr.GetAlignment() == wxTEXT_ALIGNMENT_LEFT)
1562 alignment = wxT("left-aligned");
1563 else if (attr.GetAlignment() == wxTEXT_ALIGNMENT_JUSTIFIED)
1564 alignment = wxT("justified");
1565 msg.Printf(wxT("Facename: %s, wxColour(%d, %d, %d), %s"),
1566 (const wxChar*) facename,
1567 attr.GetTextColour().Red(), attr.GetTextColour().Green(), attr.GetTextColour().Blue(),
1568 (const wxChar*) alignment);
1569 SetStatusText(msg);
1570 }
1571 m_currentPosition = insertionPoint;
1572 }
1573 }