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