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