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 //----------------------------------------------------------------------
  48 // class definitions
  49 //----------------------------------------------------------------------
  50
  51 class MyApp: public wxApp
  52 {
  53 public:
  54     bool OnInit();
  55 };
  56
  57 // a text ctrl which allows to call different wxTextCtrl functions
  58 // interactively by pressing function keys in it
  59 class MyTextCtrl : public wxTextCtrl
  60 {
  61 public:
  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)
  65     {
  66         m_hasCapture = FALSE;
  67     }
  68
  69     void OnKeyDown(wxKeyEvent& event);
  70     void OnKeyUp(wxKeyEvent& event);
  71     void OnChar(wxKeyEvent& event);
  72
  73     void OnText(wxCommandEvent& event);
  74     void OnTextURL(wxTextUrlEvent& event);
  75     void OnTextMaxLen(wxCommandEvent& event);
  76
  77     void OnMouseEvent(wxMouseEvent& event);
  78
  79     static bool ms_logKey;
  80     static bool ms_logChar;
  81     static bool ms_logMouse;
  82     static bool ms_logText;
  83
  84 private:
  85     static inline wxChar GetChar(bool on, wxChar c) { return on ? c : _T('-'); }
  86     void LogEvent(const wxChar *name, wxKeyEvent& event) const;
  87
  88     bool m_hasCapture;
  89
  90     DECLARE_EVENT_TABLE()
  91 };
  92
  93 class MyPanel: public wxPanel
  94 {
  95 public:
  96     MyPanel(wxFrame *frame, int x, int y, int w, int h);
  97
  98 #if wxUSE_CLIPBOARD
  99     void DoPasteFromClipboard();
 100     void DoCopyToClipboard();
 101 #endif // wxUSE_CLIPBOARD
 102
 103     void DoMoveToEndOfText();
 104     void DoMoveToEndOfEntry();
 105
 106     void OnSize( wxSizeEvent &event );
 107
 108     MyTextCtrl    *m_text;
 109     MyTextCtrl    *m_password;
 110     MyTextCtrl    *m_enter;
 111     MyTextCtrl    *m_tab;
 112     MyTextCtrl    *m_readonly;
 113     MyTextCtrl    *m_limited;
 114
 115     MyTextCtrl    *m_multitext;
 116     MyTextCtrl    *m_horizontal;
 117
 118     MyTextCtrl    *m_textrich;
 119
 120     wxTextCtrl    *m_log;
 121
 122 private:
 123     DECLARE_EVENT_TABLE()
 124 };
 125
 126 class MyFrame: public wxFrame
 127 {
 128 public:
 129     MyFrame(wxFrame *frame, const char *title, int x, int y, int w, int h);
 130
 131     void OnQuit(wxCommandEvent& event);
 132     void OnAbout(wxCommandEvent& event);
 133 #if wxUSE_TOOLTIPS
 134     void OnSetTooltipDelay(wxCommandEvent& event);
 135     void OnToggleTooltips(wxCommandEvent& event);
 136 #endif // wxUSE_TOOLTIPS
 137
 138 #if wxUSE_CLIPBOARD
 139     void OnPasteFromClipboard( wxCommandEvent &event )
 140         { m_panel->DoPasteFromClipboard(); }
 141     void OnCopyToClipboard( wxCommandEvent &event )
 142         { m_panel->DoCopyToClipboard(); }
 143 #endif // wxUSE_CLIPBOARD
 144
 145     void OnAddTextFreeze( wxCommandEvent& event )
 146         { DoAddText(true); }
 147     void OnAddText( wxCommandEvent& event )
 148         { DoAddText(false); }
 149
 150     void OnMoveToEndOfText( wxCommandEvent &event )
 151         { m_panel->DoMoveToEndOfText(); }
 152     void OnMoveToEndOfEntry( wxCommandEvent &event )
 153         { m_panel->DoMoveToEndOfEntry(); }
 154
 155     void OnScrollLineDown(wxCommandEvent& event)
 156     {
 157         if ( !m_panel->m_textrich->LineDown() )
 158             wxLogMessage(_T("Already at the bottom"));
 159     }
 160
 161     void OnScrollLineUp(wxCommandEvent& event)
 162     {
 163         if ( !m_panel->m_textrich->LineUp() )
 164             wxLogMessage(_T("Already at the top"));
 165     }
 166
 167     void OnScrollPageDown(wxCommandEvent& event)
 168     {
 169         if ( !m_panel->m_textrich->PageDown() )
 170             wxLogMessage(_T("Already at the bottom"));
 171     }
 172
 173     void OnScrollPageUp(wxCommandEvent& event)
 174     {
 175         if ( !m_panel->m_textrich->PageUp() )
 176             wxLogMessage(_T("Already at the top"));
 177     }
 178
 179     void OnLogClear(wxCommandEvent& event);
 180     void OnFileSave(wxCommandEvent& event);
 181     void OnFileLoad(wxCommandEvent& event);
 182
 183     void OnSetEditable(wxCommandEvent& event);
 184     void OnSetEnabled(wxCommandEvent& event);
 185
 186     void OnLogKey(wxCommandEvent& event)
 187     {
 188         MyTextCtrl::ms_logKey = event.IsChecked();
 189     }
 190
 191     void OnLogChar(wxCommandEvent& event)
 192     {
 193         MyTextCtrl::ms_logChar = event.IsChecked();
 194     }
 195
 196     void OnLogMouse(wxCommandEvent& event)
 197     {
 198         MyTextCtrl::ms_logMouse = event.IsChecked();
 199     }
 200
 201     void OnLogText(wxCommandEvent& event)
 202     {
 203         MyTextCtrl::ms_logText = event.IsChecked();
 204     }
 205
 206     void OnIdle( wxIdleEvent& event );
 207
 208 private:
 209     void DoAddText(bool freeze)
 210     {
 211         wxTextCtrl *text = m_panel->m_textrich;
 212         if ( freeze )
 213             text->Freeze();
 214
 215         for ( int i = 0; i < 100; i++ )
 216             text->AppendText(wxString::Format(wxT("Line %i\n"), i));
 217
 218         text->SetInsertionPoint(0);
 219
 220         if ( freeze )
 221             text->Thaw();
 222     }
 223
 224     MyPanel *m_panel;
 225
 226     DECLARE_EVENT_TABLE()
 227 };
 228
 229 //----------------------------------------------------------------------
 230 // main()
 231 //----------------------------------------------------------------------
 232
 233 IMPLEMENT_APP(MyApp)
 234
 235 //----------------------------------------------------------------------
 236 // MyApp
 237 //----------------------------------------------------------------------
 238
 239 enum
 240 {
 241     TEXT_QUIT = 100,
 242     TEXT_ABOUT,
 243     TEXT_LOAD,
 244     TEXT_SAVE,
 245     TEXT_CLEAR,
 246
 247     // clipboard menu
 248     TEXT_CLIPBOARD_COPY = 200,
 249     TEXT_CLIPBOARD_PASTE,
 250
 251     // tooltip menu
 252     TEXT_TOOLTIPS_SETDELAY = 300,
 253     TEXT_TOOLTIPS_ENABLE,
 254
 255     // text menu
 256     TEXT_ADD_SOME = 400,
 257     TEXT_ADD_FREEZE,
 258     TEXT_MOVE_ENDTEXT,
 259     TEXT_MOVE_ENDENTRY,
 260     TEXT_SET_EDITABLE,
 261     TEXT_SET_ENABLED,
 262     TEXT_LINE_DOWN,
 263     TEXT_LINE_UP,
 264     TEXT_PAGE_DOWN,
 265     TEXT_PAGE_UP,
 266
 267     // log menu
 268     TEXT_LOG_KEY,
 269     TEXT_LOG_CHAR,
 270     TEXT_LOG_MOUSE,
 271     TEXT_LOG_TEXT,
 272
 273     TEXT_END
 274 };
 275
 276 bool MyApp::OnInit()
 277 {
 278     // Create the main frame window
 279     MyFrame *frame = new MyFrame((wxFrame *) NULL,
 280             "Text wxWindows sample", 50, 50, 700, 420);
 281     frame->SetSizeHints( 500, 400 );
 282
 283     wxMenu *file_menu = new wxMenu;
 284     file_menu->Append(TEXT_SAVE, "&Save file\tCtrl-S",
 285                       "Save the text control contents to file");
 286     file_menu->Append(TEXT_LOAD, "&Load file\tCtrl-O",
 287                       "Load the sample file into text control");
 288     file_menu->AppendSeparator();
 289     file_menu->Append(TEXT_ABOUT, "&About\tAlt-A");
 290     file_menu->AppendSeparator();
 291     file_menu->Append(TEXT_QUIT, "E&xit\tAlt-X", "Quit this sample");
 292
 293     wxMenuBar *menu_bar = new wxMenuBar( wxMB_DOCKABLE );
 294     menu_bar->Append(file_menu, "&File");
 295
 296 #if wxUSE_TOOLTIPS
 297     wxMenu *tooltip_menu = new wxMenu;
 298     tooltip_menu->Append(TEXT_TOOLTIPS_SETDELAY, "Set &delay\tCtrl-D");
 299     tooltip_menu->AppendSeparator();
 300     tooltip_menu->Append(TEXT_TOOLTIPS_ENABLE, "&Toggle tooltips\tCtrl-T",
 301             "enable/disable tooltips", TRUE);
 302     tooltip_menu->Check(TEXT_TOOLTIPS_ENABLE, TRUE);
 303     menu_bar->Append(tooltip_menu, "&Tooltips");
 304 #endif // wxUSE_TOOLTIPS
 305
 306 #if wxUSE_CLIPBOARD
 307     wxMenu *menuClipboard = new wxMenu;
 308     menuClipboard->Append(TEXT_CLIPBOARD_COPY, "&Copy\tCtrl-C",
 309                           "Copy the first line to the clipboard");
 310     menuClipboard->Append(TEXT_CLIPBOARD_PASTE, "&Paste\tCtrl-V",
 311                           "Paste from clipboard to the text control");
 312     menu_bar->Append(menuClipboard, "&Clipboard");
 313 #endif // wxUSE_CLIPBOARD
 314
 315     wxMenu *menuText = new wxMenu;
 316     menuText->Append(TEXT_ADD_SOME, "&Append some text\tCtrl-A");
 317     menuText->Append(TEXT_ADD_FREEZE, "&Append text with freeze/thaw\tShift-Ctrl-A");
 318     menuText->Append(TEXT_MOVE_ENDTEXT, "Move cursor to the end of &text");
 319     menuText->Append(TEXT_MOVE_ENDENTRY, "Move cursor to the end of &entry");
 320     menuText->Append(TEXT_SET_EDITABLE, "Toggle &editable state", "", TRUE);
 321     menuText->Append(TEXT_SET_ENABLED, "Toggle e&nabled state", "", TRUE);
 322     menuText->Check(TEXT_SET_EDITABLE, TRUE);
 323     menuText->Check(TEXT_SET_ENABLED, TRUE);
 324     menuText->AppendSeparator();
 325     menuText->Append(TEXT_LINE_DOWN, "Scroll text one line down");
 326     menuText->Append(TEXT_LINE_UP, "Scroll text one line up");
 327     menuText->Append(TEXT_PAGE_DOWN, "Scroll text one page down");
 328     menuText->Append(TEXT_PAGE_DOWN, "Scroll text one page up");
 329     menu_bar->Append(menuText, "Te&xt");
 330
 331     wxMenu *menuLog = new wxMenu;
 332     menuLog->Append(TEXT_LOG_KEY, "Log &key events", "", TRUE);
 333     menuLog->Append(TEXT_LOG_CHAR, "Log &char events", "", TRUE);
 334     menuLog->Append(TEXT_LOG_MOUSE, "Log &mouse events", "", TRUE);
 335     menuLog->Append(TEXT_LOG_TEXT, "Log &text events", "", TRUE);
 336     menuLog->AppendSeparator();
 337     menuLog->Append(TEXT_CLEAR, "&Clear the log\tCtrl-C",
 338                     "Clear the log window contents");
 339     menuLog->Check(TEXT_LOG_KEY, TRUE);
 340     menuLog->Check(TEXT_LOG_CHAR, TRUE);
 341     menuLog->Check(TEXT_LOG_TEXT, TRUE);
 342     menu_bar->Append(menuLog, "&Log");
 343
 344     frame->SetMenuBar(menu_bar);
 345
 346     frame->Show(TRUE);
 347
 348     SetTopWindow(frame);
 349
 350     // report success
 351     return TRUE;
 352 }
 353
 354 //----------------------------------------------------------------------
 355 // MyTextCtrl
 356 //----------------------------------------------------------------------
 357
 358 BEGIN_EVENT_TABLE(MyTextCtrl, wxTextCtrl)
 359     EVT_KEY_DOWN(MyTextCtrl::OnKeyDown)
 360     EVT_KEY_UP(MyTextCtrl::OnKeyUp)
 361     EVT_CHAR(MyTextCtrl::OnChar)
 362
 363     EVT_TEXT(-1, MyTextCtrl::OnText)
 364     EVT_TEXT_URL(-1, MyTextCtrl::OnTextURL)
 365     EVT_TEXT_MAXLEN(-1, MyTextCtrl::OnTextMaxLen)
 366
 367     EVT_MOUSE_EVENTS(MyTextCtrl::OnMouseEvent)
 368 END_EVENT_TABLE()
 369
 370 bool MyTextCtrl::ms_logKey = TRUE;
 371 bool MyTextCtrl::ms_logChar = TRUE;
 372 bool MyTextCtrl::ms_logMouse = FALSE;
 373 bool MyTextCtrl::ms_logText = TRUE;
 374
 375 void MyTextCtrl::LogEvent(const wxChar *name, wxKeyEvent& event) const
 376 {
 377     wxString key;
 378     long keycode = event.KeyCode();
 379     {
 380         switch ( keycode )
 381         {
 382             case WXK_BACK: key = "BACK"; break;
 383             case WXK_TAB: key = "TAB"; break;
 384             case WXK_RETURN: key = "RETURN"; break;
 385             case WXK_ESCAPE: key = "ESCAPE"; break;
 386             case WXK_SPACE: key = "SPACE"; break;
 387             case WXK_DELETE: key = "DELETE"; break;
 388             case WXK_START: key = "START"; break;
 389             case WXK_LBUTTON: key = "LBUTTON"; break;
 390             case WXK_RBUTTON: key = "RBUTTON"; break;
 391             case WXK_CANCEL: key = "CANCEL"; break;
 392             case WXK_MBUTTON: key = "MBUTTON"; break;
 393             case WXK_CLEAR: key = "CLEAR"; break;
 394             case WXK_SHIFT: key = "SHIFT"; break;
 395             case WXK_ALT: key = "ALT"; break;
 396             case WXK_CONTROL: key = "CONTROL"; break;
 397             case WXK_MENU: key = "MENU"; break;
 398             case WXK_PAUSE: key = "PAUSE"; break;
 399             case WXK_CAPITAL: key = "CAPITAL"; break;
 400             case WXK_PRIOR: key = "PRIOR"; break;
 401             case WXK_NEXT: key = "NEXT"; break;
 402             case WXK_END: key = "END"; break;
 403             case WXK_HOME: key = "HOME"; break;
 404             case WXK_LEFT: key = "LEFT"; break;
 405             case WXK_UP: key = "UP"; break;
 406             case WXK_RIGHT: key = "RIGHT"; break;
 407             case WXK_DOWN: key = "DOWN"; break;
 408             case WXK_SELECT: key = "SELECT"; break;
 409             case WXK_PRINT: key = "PRINT"; break;
 410             case WXK_EXECUTE: key = "EXECUTE"; break;
 411             case WXK_SNAPSHOT: key = "SNAPSHOT"; break;
 412             case WXK_INSERT: key = "INSERT"; break;
 413             case WXK_HELP: key = "HELP"; break;
 414             case WXK_NUMPAD0: key = "NUMPAD0"; break;
 415             case WXK_NUMPAD1: key = "NUMPAD1"; break;
 416             case WXK_NUMPAD2: key = "NUMPAD2"; break;
 417             case WXK_NUMPAD3: key = "NUMPAD3"; break;
 418             case WXK_NUMPAD4: key = "NUMPAD4"; break;
 419             case WXK_NUMPAD5: key = "NUMPAD5"; break;
 420             case WXK_NUMPAD6: key = "NUMPAD6"; break;
 421             case WXK_NUMPAD7: key = "NUMPAD7"; break;
 422             case WXK_NUMPAD8: key = "NUMPAD8"; break;
 423             case WXK_NUMPAD9: key = "NUMPAD9"; break;
 424             case WXK_MULTIPLY: key = "MULTIPLY"; break;
 425             case WXK_ADD: key = "ADD"; break;
 426             case WXK_SEPARATOR: key = "SEPARATOR"; break;
 427             case WXK_SUBTRACT: key = "SUBTRACT"; break;
 428             case WXK_DECIMAL: key = "DECIMAL"; break;
 429             case WXK_DIVIDE: key = "DIVIDE"; break;
 430             case WXK_F1: key = "F1"; break;
 431             case WXK_F2: key = "F2"; break;
 432             case WXK_F3: key = "F3"; break;
 433             case WXK_F4: key = "F4"; break;
 434             case WXK_F5: key = "F5"; break;
 435             case WXK_F6: key = "F6"; break;
 436             case WXK_F7: key = "F7"; break;
 437             case WXK_F8: key = "F8"; break;
 438             case WXK_F9: key = "F9"; break;
 439             case WXK_F10: key = "F10"; break;
 440             case WXK_F11: key = "F11"; break;
 441             case WXK_F12: key = "F12"; break;
 442             case WXK_F13: key = "F13"; break;
 443             case WXK_F14: key = "F14"; break;
 444             case WXK_F15: key = "F15"; break;
 445             case WXK_F16: key = "F16"; break;
 446             case WXK_F17: key = "F17"; break;
 447             case WXK_F18: key = "F18"; break;
 448             case WXK_F19: key = "F19"; break;
 449             case WXK_F20: key = "F20"; break;
 450             case WXK_F21: key = "F21"; break;
 451             case WXK_F22: key = "F22"; break;
 452             case WXK_F23: key = "F23"; break;
 453             case WXK_F24: key = "F24"; break;
 454             case WXK_NUMLOCK: key = "NUMLOCK"; break;
 455             case WXK_SCROLL: key = "SCROLL"; break;
 456             case WXK_PAGEUP: key = "PAGEUP"; break;
 457             case WXK_PAGEDOWN: key = "PAGEDOWN"; break;
 458             case WXK_NUMPAD_SPACE: key = "NUMPAD_SPACE"; break;
 459             case WXK_NUMPAD_TAB: key = "NUMPAD_TAB"; break;
 460             case WXK_NUMPAD_ENTER: key = "NUMPAD_ENTER"; break;
 461             case WXK_NUMPAD_F1: key = "NUMPAD_F1"; break;
 462             case WXK_NUMPAD_F2: key = "NUMPAD_F2"; break;
 463             case WXK_NUMPAD_F3: key = "NUMPAD_F3"; break;
 464             case WXK_NUMPAD_F4: key = "NUMPAD_F4"; break;
 465             case WXK_NUMPAD_HOME: key = "NUMPAD_HOME"; break;
 466             case WXK_NUMPAD_LEFT: key = "NUMPAD_LEFT"; break;
 467             case WXK_NUMPAD_UP: key = "NUMPAD_UP"; break;
 468             case WXK_NUMPAD_RIGHT: key = "NUMPAD_RIGHT"; break;
 469             case WXK_NUMPAD_DOWN: key = "NUMPAD_DOWN"; break;
 470             case WXK_NUMPAD_PRIOR: key = "NUMPAD_PRIOR"; break;
 471             case WXK_NUMPAD_PAGEUP: key = "NUMPAD_PAGEUP"; break;
 472             case WXK_NUMPAD_PAGEDOWN: key = "NUMPAD_PAGEDOWN"; break;
 473             case WXK_NUMPAD_END: key = "NUMPAD_END"; break;
 474             case WXK_NUMPAD_BEGIN: key = "NUMPAD_BEGIN"; break;
 475             case WXK_NUMPAD_INSERT: key = "NUMPAD_INSERT"; break;
 476             case WXK_NUMPAD_DELETE: key = "NUMPAD_DELETE"; break;
 477             case WXK_NUMPAD_EQUAL: key = "NUMPAD_EQUAL"; break;
 478             case WXK_NUMPAD_MULTIPLY: key = "NUMPAD_MULTIPLY"; break;
 479             case WXK_NUMPAD_ADD: key = "NUMPAD_ADD"; break;
 480             case WXK_NUMPAD_SEPARATOR: key = "NUMPAD_SEPARATOR"; break;
 481             case WXK_NUMPAD_SUBTRACT: key = "NUMPAD_SUBTRACT"; break;
 482             case WXK_NUMPAD_DECIMAL: key = "NUMPAD_DECIMAL"; break;
 483
 484             default:
 485             {
 486                if ( wxIsprint((int)keycode) )
 487                    key.Printf(_T("'%c'"), (char)keycode);
 488                else if ( keycode > 0 && keycode < 27 )
 489                    key.Printf(_("Ctrl-%c"), _T('A') + keycode - 1);
 490                else
 491                    key.Printf(_T("unknown (%ld)"), keycode);
 492             }
 493         }
 494     }
 495
 496     wxLogMessage( _T("%s event: %s (flags = %c%c%c%c)"),
 497                   name,
 498                   key.c_str(),
 499                   GetChar( event.ControlDown(), _T('C') ),
 500                   GetChar( event.AltDown(), _T('A') ),
 501                   GetChar( event.ShiftDown(), _T('S') ),
 502                   GetChar( event.MetaDown(), _T('M') ) );
 503 }
 504
 505 static wxString GetMouseEventDesc(const wxMouseEvent& ev)
 506 {
 507     // click event
 508     wxString button;
 509     bool dbl, up;
 510     if ( ev.LeftDown() || ev.LeftUp() || ev.LeftDClick() )
 511     {
 512         button = _T("Left");
 513         dbl = ev.LeftDClick();
 514         up = ev.LeftUp();
 515     }
 516     else if ( ev.MiddleDown() || ev.MiddleUp() || ev.MiddleDClick() )
 517     {
 518         button = _T("Middle");
 519         dbl = ev.MiddleDClick();
 520         up = ev.MiddleUp();
 521     }
 522     else if ( ev.RightDown() || ev.RightUp() || ev.RightDClick() )
 523     {
 524         button = _T("Right");
 525         dbl = ev.RightDClick();
 526         up = ev.RightUp();
 527     }
 528     else
 529     {
 530         return _T("Unknown mouse event");
 531     }
 532
 533     return wxString::Format(_T("%s mouse button %s"),
 534                             button.c_str(),
 535                             dbl ? _T("double clicked")
 536                                 : up ? _T("released") : _T("clicked"));
 537 }
 538
 539 void MyTextCtrl::OnMouseEvent(wxMouseEvent& ev)
 540 {
 541     ev.Skip();
 542
 543     if ( !ms_logMouse )
 544         return;
 545
 546     if ( !ev.Moving() )
 547     {
 548         wxString msg;
 549         if ( ev.Entering() )
 550         {
 551             msg = _T("Mouse entered the window");
 552         }
 553         else if ( ev.Leaving() )
 554         {
 555             msg = _T("Mouse left the window");
 556         }
 557         else
 558         {
 559             msg = GetMouseEventDesc(ev);
 560         }
 561
 562         msg << _T(" at (") << ev.GetX() << _T(", ") << ev.GetY() << _T(") ")
 563             << _T("Flags: ")
 564             << GetChar( ev.LeftIsDown(), _T('1') )
 565             << GetChar( ev.MiddleIsDown(), _T('2') )
 566             << GetChar( ev.RightIsDown(), _T('3') )
 567             << GetChar( ev.ControlDown(), _T('C') )
 568             << GetChar( ev.AltDown(), _T('A') )
 569             << GetChar( ev.ShiftDown(), _T('S') )
 570             << GetChar( ev.MetaDown(), _T('M') );
 571
 572         wxLogMessage(msg);
 573     }
 574     //else: we're not interested in mouse move events
 575 }
 576
 577 void MyTextCtrl::OnText(wxCommandEvent& event)
 578 {
 579     if ( !ms_logText )
 580         return;
 581
 582     MyTextCtrl *win = (MyTextCtrl *)event.GetEventObject();
 583     const wxChar *data = (const wxChar *)(win->GetClientData());
 584     if ( data )
 585     {
 586         wxLogMessage(_T("Text changed in control '%s'"), data);
 587     }
 588     else
 589     {
 590         wxLogMessage(_T("Text changed in some control"));
 591     }
 592 }
 593
 594 void MyTextCtrl::OnTextMaxLen(wxCommandEvent& event)
 595 {
 596     wxLogMessage(_T("You can't enter more characters into this control."));
 597 }
 598
 599 void MyTextCtrl::OnTextURL(wxTextUrlEvent& event)
 600 {
 601     const wxMouseEvent& ev = event.GetMouseEvent();
 602
 603     // filter out mouse moves, too many of them
 604     if ( ev.Moving() )
 605         return;
 606
 607     long start = event.GetURLStart(),
 608          end = event.GetURLEnd();
 609
 610     wxLogMessage(_T("Mouse event over URL '%s': %s"),
 611                  GetValue().Mid(start, end - start).c_str(),
 612                  GetMouseEventDesc(ev).c_str());
 613 }
 614
 615 void MyTextCtrl::OnChar(wxKeyEvent& event)
 616 {
 617     if ( ms_logChar )
 618         LogEvent( _T("Char"), event);
 619
 620     event.Skip();
 621 }
 622
 623 void MyTextCtrl::OnKeyUp(wxKeyEvent& event)
 624 {
 625     if ( ms_logKey )
 626         LogEvent( _T("Key up"), event);
 627
 628     event.Skip();
 629 }
 630
 631 void MyTextCtrl::OnKeyDown(wxKeyEvent& event)
 632 {
 633     switch ( event.KeyCode() )
 634     {
 635         case WXK_F1:
 636             // show current position and text length
 637             {
 638                 long line, column, pos = GetInsertionPoint();
 639                 PositionToXY(pos, &column, &line);
 640
 641                 wxLogMessage( _T("Current position: %ld\nCurrent line, column: (%ld, %ld)\nNumber of lines: %ld\nCurrent line length: %ld\nTotal text length: %u (%ld)"),
 642                         pos,
 643                         line, column,
 644                         GetNumberOfLines(),
 645                         GetLineLength(line),
 646                         GetValue().length(),
 647                         GetLastPosition());
 648             }
 649             break;
 650
 651         case WXK_F2:
 652             // go to the end
 653             SetInsertionPointEnd();
 654             break;
 655
 656         case WXK_F3:
 657             // go to position 10
 658             SetInsertionPoint(10);
 659             break;
 660
 661         case WXK_F4:
 662             if (!m_hasCapture)
 663             {
 664                 wxLogDebug( wxT("Now capturing mouse and events.") );
 665                 m_hasCapture = TRUE;
 666                 CaptureMouse();
 667             }
 668             else
 669             {
 670                 wxLogDebug( wxT("Stopped capturing mouse and events.") );
 671                 m_hasCapture = TRUE;
 672                 ReleaseMouse();
 673             }
 674             break;
 675
 676         case WXK_F5:
 677             // insert a blank line
 678             WriteText("\n");
 679             break;
 680
 681         case WXK_F6:
 682             SetValue("F6 was just pressed.");
 683             break;
 684
 685         case WXK_F7:
 686             ShowPosition(10);
 687             break;
 688     }
 689
 690     if ( ms_logKey )
 691         LogEvent( wxT("Key down"), event);
 692
 693     event.Skip();
 694 }
 695
 696 //----------------------------------------------------------------------
 697 // MyPanel
 698 //----------------------------------------------------------------------
 699
 700 BEGIN_EVENT_TABLE(MyPanel, wxPanel)
 701     EVT_SIZE(MyPanel::OnSize)
 702 END_EVENT_TABLE()
 703
 704 MyPanel::MyPanel( wxFrame *frame, int x, int y, int w, int h )
 705        : wxPanel( frame, -1, wxPoint(x, y), wxSize(w, h) )
 706 {
 707     m_log = new wxTextCtrl( this, -1, "This is the log window.\n", wxPoint(5,260), wxSize(630,100), wxTE_MULTILINE );
 708
 709     wxLog *old_log = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );
 710
 711     delete old_log;
 712
 713     // single line text controls
 714
 715     m_text = new MyTextCtrl( this, -1, "Single line.",
 716                              wxPoint(10,10), wxSize(140,-1),
 717                              wxTE_PROCESS_ENTER);
 718     m_text->SetForegroundColour(*wxBLUE);
 719     m_text->SetBackgroundColour(*wxLIGHT_GREY);
 720     (*m_text) << " Appended.";
 721     m_text->SetInsertionPoint(0);
 722     m_text->WriteText( "Prepended. " );
 723
 724     m_password = new MyTextCtrl( this, -1, "",
 725       wxPoint(10,50), wxSize(140,-1), wxTE_PASSWORD );
 726
 727     m_readonly = new MyTextCtrl( this, -1, "Read only",
 728       wxPoint(10,90), wxSize(140,-1), wxTE_READONLY );
 729
 730     m_limited = new MyTextCtrl(this, -1, "Max 8 ch",
 731                               wxPoint(10, 130), wxSize(140, -1));
 732     m_limited->SetMaxLength(8);
 733
 734     // multi line text controls
 735
 736     m_horizontal = new MyTextCtrl( this, -1, "Multiline text control with a horizontal scrollbar.",
 737       wxPoint(10,170), wxSize(140,70), wxTE_MULTILINE | wxHSCROLL );
 738
 739     // a little hack to use the command line argument for encoding testing
 740     if ( wxTheApp->argc == 2 )
 741     {
 742         switch ( wxTheApp->argv[1][0] )
 743         {
 744             case '2':
 745                 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
 746                                              FALSE, "",
 747                                              wxFONTENCODING_ISO8859_2));
 748                 m_horizontal->SetValue("®lu»ouèký kùò zbìsile èe¹tina «»");
 749                 break;
 750
 751             default:
 752                 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
 753                                              FALSE, "",
 754                                              wxFONTENCODING_KOI8));
 755                 m_horizontal->SetValue("ËÁÖÅÔÓÑ ÕÄÁÞÎÙÍ");
 756         }
 757     }
 758     else
 759     {
 760         m_horizontal->SetValue("Text in default encoding");
 761     }
 762
 763     m_multitext = new MyTextCtrl( this, -1, "Multi line.",
 764       wxPoint(180,10), wxSize(240,70), wxTE_MULTILINE );
 765     m_multitext->SetFont(*wxITALIC_FONT);
 766     (*m_multitext) << " Appended.";
 767     m_multitext->SetInsertionPoint(0);
 768     m_multitext->WriteText( "Prepended. " );
 769     m_multitext->SetForegroundColour(*wxRED);
 770     m_multitext->SetBackgroundColour(*wxLIGHT_GREY);
 771
 772 #if wxUSE_TOOLTIPS
 773     m_multitext->SetToolTip("Press F1 here for statitics, F4 for capture and uncapture mouse.");
 774 #endif
 775
 776     m_tab = new MyTextCtrl( this, 100, "Multiline, allow <TAB> processing.",
 777       wxPoint(180,90), wxSize(240,70), wxTE_MULTILINE |  wxTE_PROCESS_TAB );
 778     m_tab->SetClientData((void *)_T("tab"));
 779
 780     m_enter = new MyTextCtrl( this, 100, "Multiline, allow <ENTER> processing.",
 781       wxPoint(180,170), wxSize(240,70), wxTE_MULTILINE);
 782     m_enter->SetClientData((void *)_T("enter"));
 783
 784     m_textrich = new MyTextCtrl(this, -1, "Allows more than 30Kb of text\n"
 785                                 "(even under broken Win9x)\n"
 786                                 "and a very very very very very "
 787                                 "very very very long line to test "
 788                                 "wxHSCROLL style",
 789                                 wxPoint(450, 10), wxSize(230, 230),
 790                                 wxTE_RICH |
 791                                 wxTE_MULTILINE |
 792                                 wxTE_AUTO_URL |
 793                                 wxHSCROLL);
 794
 795 #if 1
 796     m_textrich->SetStyle(0, 10, *wxRED);
 797     m_textrich->SetStyle(10, 20, *wxBLUE);
 798     m_textrich->SetStyle(30, 40,
 799                          wxTextAttr(*wxGREEN, wxNullColour, *wxITALIC_FONT));
 800     m_textrich->SetDefaultStyle(wxTextAttr());
 801     m_textrich->AppendText(_T("\n\nFirst 10 characters should be in red\n"));
 802     m_textrich->AppendText(_T("Next 10 characters should be in blue\n"));
 803     m_textrich->AppendText(_T("Next 10 characters should be normal\n"));
 804     m_textrich->AppendText(_T("And the next 10 characters should be green and italic\n"));
 805     m_textrich->SetDefaultStyle(wxTextAttr(*wxCYAN, *wxBLUE));
 806     m_textrich->AppendText(_T("This text should be cyan on blue\n"));
 807     m_textrich->SetDefaultStyle(*wxBLUE);
 808     m_textrich->AppendText(_T("And this should be in blue and the text you ")
 809                            _T("type should be in blue as well"));
 810 #else
 811     m_textrich->SetFont(wxFont(12, wxFONTFAMILY_TELETYPE,
 812                                wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL));
 813     m_textrich->SetDefaultStyle(wxTextAttr(*wxRED));
 814     m_textrich->AppendText(_T("Red text\n"));
 815     m_textrich->SetDefaultStyle(wxTextAttr(wxNullColour, *wxLIGHT_GREY));
 816     m_textrich->AppendText(_T("Red on grey text\n"));
 817     m_textrich->SetDefaultStyle(wxTextAttr(*wxBLUE));
 818     m_textrich->AppendText(_T("Blue on grey text\n"));
 819 #endif
 820 }
 821
 822 void MyPanel::OnSize( wxSizeEvent &event )
 823 {
 824     wxSize client_area( GetClientSize() );
 825     m_log->SetSize( 0, 260, client_area.x, client_area.y - 260 );
 826     event.Skip();
 827 }
 828
 829 #if wxUSE_CLIPBOARD
 830 void MyPanel::DoPasteFromClipboard()
 831 {
 832     // On X11, we want to get the data from the primary selection instead
 833     // of the normal clipboard (which isn't normal under X11 at all). This
 834     // call has no effect under MSW.
 835     wxTheClipboard->UsePrimarySelection();
 836
 837     if (!wxTheClipboard->Open())
 838     {
 839         *m_log << "Error opening the clipboard.\n";
 840         return;
 841     }
 842     else
 843     {
 844         *m_log << "Successfully opened the clipboard.\n";
 845     }
 846
 847     wxTextDataObject data;
 848
 849     if (wxTheClipboard->IsSupported( data.GetFormat() ))
 850     {
 851         *m_log << "Clipboard supports requested format.\n";
 852
 853         if (wxTheClipboard->GetData( data ))
 854         {
 855             *m_log << "Successfully retrieved data from the clipboard.\n";
 856             *m_multitext << data.GetText() << "\n";
 857         }
 858         else
 859         {
 860             *m_log << "Error getting data from the clipboard.\n";
 861         }
 862     }
 863     else
 864     {
 865         *m_log << "Clipboard doesn't support requested format.\n";
 866     }
 867
 868     wxTheClipboard->Close();
 869
 870     *m_log << "Closed the clipboard.\n";
 871 }
 872
 873 void MyPanel::DoCopyToClipboard()
 874 {
 875     // On X11, we want to get the data from the primary selection instead
 876     // of the normal clipboard (which isn't normal under X11 at all). This
 877     // call has no effect under MSW.
 878     wxTheClipboard->UsePrimarySelection();
 879
 880     wxString text( m_multitext->GetLineText(0) );
 881
 882     if (text.IsEmpty())
 883     {
 884         *m_log << "No text to copy.\n";
 885
 886         return;
 887     }
 888
 889     if (!wxTheClipboard->Open())
 890     {
 891         *m_log << "Error opening the clipboard.\n";
 892
 893         return;
 894     }
 895     else
 896     {
 897         *m_log << "Successfully opened the clipboard.\n";
 898     }
 899
 900     wxTextDataObject *data = new wxTextDataObject( text );
 901
 902     if (!wxTheClipboard->SetData( data ))
 903     {
 904         *m_log << "Error while copying to the clipboard.\n";
 905     }
 906     else
 907     {
 908         *m_log << "Successfully copied data to the clipboard.\n";
 909     }
 910
 911     wxTheClipboard->Close();
 912
 913     *m_log << "Closed the clipboard.\n";
 914 }
 915
 916 #endif // wxUSE_CLIPBOARD
 917
 918 void MyPanel::DoMoveToEndOfText()
 919 {
 920     m_multitext->SetInsertionPointEnd();
 921     m_multitext->SetFocus();
 922 }
 923
 924 void MyPanel::DoMoveToEndOfEntry()
 925 {
 926     m_text->SetInsertionPointEnd();
 927     m_text->SetFocus();
 928 }
 929
 930 //----------------------------------------------------------------------
 931 // MyFrame
 932 //----------------------------------------------------------------------
 933
 934 BEGIN_EVENT_TABLE(MyFrame, wxFrame)
 935     EVT_MENU(TEXT_QUIT,   MyFrame::OnQuit)
 936     EVT_MENU(TEXT_ABOUT,  MyFrame::OnAbout)
 937     EVT_MENU(TEXT_SAVE,   MyFrame::OnFileSave)
 938     EVT_MENU(TEXT_LOAD,   MyFrame::OnFileLoad)
 939
 940     EVT_MENU(TEXT_LOG_KEY,  MyFrame::OnLogKey)
 941     EVT_MENU(TEXT_LOG_CHAR, MyFrame::OnLogChar)
 942     EVT_MENU(TEXT_LOG_MOUSE,MyFrame::OnLogMouse)
 943     EVT_MENU(TEXT_LOG_TEXT, MyFrame::OnLogText)
 944     EVT_MENU(TEXT_CLEAR,  MyFrame::OnLogClear)
 945
 946 #if wxUSE_TOOLTIPS
 947     EVT_MENU(TEXT_TOOLTIPS_SETDELAY,  MyFrame::OnSetTooltipDelay)
 948     EVT_MENU(TEXT_TOOLTIPS_ENABLE,    MyFrame::OnToggleTooltips)
 949 #endif // wxUSE_TOOLTIPS
 950
 951 #if wxUSE_CLIPBOARD
 952     EVT_MENU(TEXT_CLIPBOARD_PASTE,    MyFrame::OnPasteFromClipboard)
 953     EVT_MENU(TEXT_CLIPBOARD_COPY,     MyFrame::OnCopyToClipboard)
 954 #endif // wxUSE_CLIPBOARD
 955
 956     EVT_MENU(TEXT_ADD_SOME,           MyFrame::OnAddText)
 957     EVT_MENU(TEXT_ADD_FREEZE,         MyFrame::OnAddTextFreeze)
 958     EVT_MENU(TEXT_MOVE_ENDTEXT,       MyFrame::OnMoveToEndOfText)
 959     EVT_MENU(TEXT_MOVE_ENDENTRY,      MyFrame::OnMoveToEndOfEntry)
 960
 961     EVT_MENU(TEXT_SET_EDITABLE,       MyFrame::OnSetEditable)
 962     EVT_MENU(TEXT_SET_ENABLED,        MyFrame::OnSetEnabled)
 963
 964     EVT_MENU(TEXT_LINE_DOWN,          MyFrame::OnScrollLineDown)
 965     EVT_MENU(TEXT_LINE_UP,            MyFrame::OnScrollLineUp)
 966     EVT_MENU(TEXT_PAGE_DOWN,          MyFrame::OnScrollPageDown)
 967     EVT_MENU(TEXT_PAGE_UP,            MyFrame::OnScrollPageUp)
 968
 969     EVT_IDLE(MyFrame::OnIdle)
 970 END_EVENT_TABLE()
 971
 972 MyFrame::MyFrame(wxFrame *frame, const char *title, int x, int y, int w, int h)
 973        : wxFrame(frame, -1, title, wxPoint(x, y), wxSize(w, h) )
 974 {
 975     CreateStatusBar(2);
 976
 977     m_panel = new MyPanel( this, 10, 10, 300, 100 );
 978 }
 979
 980 void MyFrame::OnQuit (wxCommandEvent& WXUNUSED(event) )
 981 {
 982     Close(TRUE);
 983 }
 984
 985 void MyFrame::OnAbout( wxCommandEvent& WXUNUSED(event) )
 986 {
 987     wxBeginBusyCursor();
 988
 989     wxMessageDialog dialog(this,
 990         "This is a text control sample. It demonstrates the many different\n"
 991         "text control styles, the use of the clipboard, setting and handling\n"
 992         "tooltips and intercepting key and char events.\n"
 993         "\n"
 994         "Copyright (c) 1999, Robert Roebling, Julian Smart, Vadim Zeitlin",
 995         "About wxTextCtrl Sample",
 996         wxOK | wxICON_INFORMATION);
 997
 998     dialog.ShowModal();
 999
1000     wxEndBusyCursor();
1001 }
1002
1003 #if wxUSE_TOOLTIPS
1004 void MyFrame::OnSetTooltipDelay(wxCommandEvent& event)
1005 {
1006     static long s_delay = 5000;
1007
1008     wxString delay;
1009     delay.Printf( _T("%ld"), s_delay);
1010
1011     delay = wxGetTextFromUser("Enter delay (in milliseconds)",
1012                               "Set tooltip delay",
1013                               delay,
1014                               this);
1015     if ( !delay )
1016         return; // cancelled
1017
1018     wxSscanf(delay, _T("%ld"), &s_delay);
1019
1020     wxToolTip::SetDelay(s_delay);
1021
1022     wxLogStatus(this, _T("Tooltip delay set to %ld milliseconds"), s_delay);
1023 }
1024
1025 void MyFrame::OnToggleTooltips(wxCommandEvent& event)
1026 {
1027     static bool s_enabled = TRUE;
1028
1029     s_enabled = !s_enabled;
1030
1031     wxToolTip::Enable(s_enabled);
1032
1033     wxLogStatus(this, _T("Tooltips %sabled"), s_enabled ? _T("en") : _T("dis") );
1034 }
1035 #endif // tooltips
1036
1037 void MyFrame::OnLogClear(wxCommandEvent& WXUNUSED(event))
1038 {
1039     m_panel->m_log->Clear();
1040 }
1041
1042 void MyFrame::OnSetEditable(wxCommandEvent& WXUNUSED(event))
1043 {
1044     static bool s_editable = TRUE;
1045
1046     s_editable = !s_editable;
1047     m_panel->m_text->SetEditable(s_editable);
1048     m_panel->m_password->SetEditable(s_editable);
1049     m_panel->m_multitext->SetEditable(s_editable);
1050     m_panel->m_textrich->SetEditable(s_editable);
1051 }
1052
1053 void MyFrame::OnSetEnabled(wxCommandEvent& WXUNUSED(event))
1054 {
1055     bool enabled = m_panel->m_text->IsEnabled();
1056     enabled = !enabled;
1057
1058     m_panel->m_text->Enable(enabled);
1059     m_panel->m_password->Enable(enabled);
1060     m_panel->m_multitext->Enable(enabled);
1061     m_panel->m_readonly->Enable(enabled);
1062     m_panel->m_limited->Enable(enabled);
1063     m_panel->m_textrich->Enable(enabled);
1064 }
1065
1066 void MyFrame::OnFileSave(wxCommandEvent& event)
1067 {
1068     if ( m_panel->m_textrich->SaveFile("dummy.txt") )
1069     {
1070 #if wxUSE_FILE
1071         // verify that the fil length is correct (it wasn't under Win95)
1072         wxFile file(wxT("dummy.txt"));
1073         wxLogStatus(this, _T("Successfully saved file (text len = %ld, file size = %ld)"),
1074                     m_panel->m_textrich->GetValue().length(),
1075                     file.Length());
1076 #endif
1077     }
1078     else
1079         wxLogStatus(this, _T("Couldn't save the file"));
1080 }
1081
1082 void MyFrame::OnFileLoad(wxCommandEvent& event)
1083 {
1084     if ( m_panel->m_textrich->LoadFile("dummy.txt") )
1085         wxLogStatus(this, _T("Successfully loaded file"));
1086     else
1087         wxLogStatus(this, _T("Couldn't load the file"));
1088 }
1089
1090 void MyFrame::OnIdle( wxIdleEvent& event )
1091 {
1092     // track the window which has the focus in the status bar
1093     static wxWindow *s_windowFocus = (wxWindow *)NULL;
1094     wxWindow *focus = wxWindow::FindFocus();
1095     if ( focus && (focus != s_windowFocus) )
1096     {
1097         s_windowFocus = focus;
1098
1099         wxString msg;
1100         msg.Printf(
1101 #ifdef __WXMSW__
1102                 _T("Focus: wxWindow = %p, HWND = %08x"),
1103 #else
1104                 _T("Focus: wxWindow = %p"),
1105 #endif
1106                 s_windowFocus
1107 #ifdef __WXMSW__
1108                 , s_windowFocus->GetHWND()
1109 #endif
1110                   );
1111
1112         SetStatusText(msg);
1113     }
1114     event.Skip();
1115 }