public:
MyTextCtrl(wxWindow *parent, wxWindowID id, const wxString &value,
const wxPoint &pos, const wxSize &size, int style = 0)
- : wxTextCtrl(parent, id, value, pos, size, style) { m_hasCapture = FALSE; }
+ : wxTextCtrl(parent, id, value, pos, size, style)
+ {
+ m_hasCapture = FALSE;
+ }
void OnKeyDown(wxKeyEvent& event);
void OnKeyUp(wxKeyEvent& event);
void OnChar(wxKeyEvent& event);
+
void OnText(wxCommandEvent& event);
+ void OnTextURL(wxTextUrlEvent& event);
+ void OnTextMaxLen(wxCommandEvent& event);
+
void OnMouseEvent(wxMouseEvent& event);
- bool m_hasCapture;
+ static bool ms_logKey;
+ static bool ms_logChar;
+ static bool ms_logMouse;
private:
static inline wxChar GetChar(bool on, wxChar c) { return on ? c : _T('-'); }
void LogEvent(const wxChar *name, wxKeyEvent& event) const;
+ bool m_hasCapture;
+
DECLARE_EVENT_TABLE()
};
MyTextCtrl *m_enter;
MyTextCtrl *m_tab;
MyTextCtrl *m_readonly;
+ MyTextCtrl *m_limited;
MyTextCtrl *m_multitext;
MyTextCtrl *m_horizontal;
void OnMoveToEndOfEntry( wxCommandEvent &event )
{ m_panel->DoMoveToEndOfEntry(); }
+ void OnScrollLineDown(wxCommandEvent& event)
+ {
+ if ( !m_panel->m_textrich->LineDown() )
+ wxLogMessage(_T("Already at the bottom"));
+ }
+
+ void OnScrollLineUp(wxCommandEvent& event)
+ {
+ if ( !m_panel->m_textrich->LineUp() )
+ wxLogMessage(_T("Already at the top"));
+ }
+
+ void OnScrollPageDown(wxCommandEvent& event)
+ {
+ if ( !m_panel->m_textrich->PageDown() )
+ wxLogMessage(_T("Already at the bottom"));
+ }
+
+ void OnScrollPageUp(wxCommandEvent& event)
+ {
+ if ( !m_panel->m_textrich->PageUp() )
+ wxLogMessage(_T("Already at the top"));
+ }
+
void OnLogClear(wxCommandEvent& event);
void OnFileSave(wxCommandEvent& event);
void OnFileLoad(wxCommandEvent& event);
void OnSetEditable(wxCommandEvent& event);
void OnSetEnabled(wxCommandEvent& event);
+ void OnLogKey(wxCommandEvent& event)
+ {
+ MyTextCtrl::ms_logKey = event.IsChecked();
+ }
+
+ void OnLogChar(wxCommandEvent& event)
+ {
+ MyTextCtrl::ms_logChar = event.IsChecked();
+ }
+
+ void OnLogMouse(wxCommandEvent& event)
+ {
+ MyTextCtrl::ms_logMouse = event.IsChecked();
+ }
+
void OnIdle( wxIdleEvent& event );
private:
text->Freeze();
for ( int i = 0; i < 100; i++ )
- text->AppendText(wxString::Format("Line %i\n", i));
+ text->AppendText(wxString::Format(wxT("Line %i\n"), i));
text->SetInsertionPoint(0);
TEXT_MOVE_ENDTEXT,
TEXT_MOVE_ENDENTRY,
TEXT_SET_EDITABLE,
- TEXT_SET_ENABLED
+ TEXT_SET_ENABLED,
+ TEXT_LINE_DOWN,
+ TEXT_LINE_UP,
+ TEXT_PAGE_DOWN,
+ TEXT_PAGE_UP,
+
+ // log menu
+ TEXT_LOG_KEY,
+ TEXT_LOG_CHAR,
+ TEXT_LOG_MOUSE,
+
+ TEXT_END
};
bool MyApp::OnInit()
frame->SetSizeHints( 500, 400 );
wxMenu *file_menu = new wxMenu;
- file_menu->Append(TEXT_CLEAR, "&Clear the log\tCtrl-C",
- "Clear the log window contents");
file_menu->Append(TEXT_SAVE, "&Save file\tCtrl-S",
"Save the text control contents to file");
file_menu->Append(TEXT_LOAD, "&Load file\tCtrl-O",
menuText->Append(TEXT_SET_ENABLED, "Toggle e&nabled state", "", TRUE);
menuText->Check(TEXT_SET_EDITABLE, TRUE);
menuText->Check(TEXT_SET_ENABLED, TRUE);
- menu_bar->Append(menuText, "&Text");
+ menuText->AppendSeparator();
+ menuText->Append(TEXT_LINE_DOWN, "Scroll text one line down");
+ menuText->Append(TEXT_LINE_UP, "Scroll text one line up");
+ menuText->Append(TEXT_PAGE_DOWN, "Scroll text one page down");
+ menuText->Append(TEXT_PAGE_DOWN, "Scroll text one page up");
+ menu_bar->Append(menuText, "Te&xt");
+
+ wxMenu *menuLog = new wxMenu;
+ menuLog->Append(TEXT_LOG_KEY, "Log &key events", "", TRUE);
+ menuLog->Append(TEXT_LOG_CHAR, "Log &char events", "", TRUE);
+ menuLog->Append(TEXT_LOG_MOUSE, "Log &mouse events", "", TRUE);
+ menuLog->AppendSeparator();
+ menuLog->Append(TEXT_CLEAR, "&Clear the log\tCtrl-C",
+ "Clear the log window contents");
+ menuLog->Check(TEXT_LOG_KEY, TRUE);
+ menuLog->Check(TEXT_LOG_CHAR, TRUE);
+ menuLog->Check(TEXT_LOG_MOUSE, TRUE);
+ menu_bar->Append(menuLog, "&Log");
frame->SetMenuBar(menu_bar);
EVT_KEY_DOWN(MyTextCtrl::OnKeyDown)
EVT_KEY_UP(MyTextCtrl::OnKeyUp)
EVT_CHAR(MyTextCtrl::OnChar)
+
EVT_TEXT(-1, MyTextCtrl::OnText)
+ EVT_TEXT_URL(-1, MyTextCtrl::OnTextURL)
+ EVT_TEXT_MAXLEN(-1, MyTextCtrl::OnTextMaxLen)
+
EVT_MOUSE_EVENTS(MyTextCtrl::OnMouseEvent)
END_EVENT_TABLE()
+bool MyTextCtrl::ms_logKey = TRUE;
+bool MyTextCtrl::ms_logChar = TRUE;
+bool MyTextCtrl::ms_logMouse = TRUE;
+
void MyTextCtrl::LogEvent(const wxChar *name, wxKeyEvent& event) const
{
wxString key;
GetChar( event.MetaDown(), _T('M') ) );
}
+static wxString GetMouseEventDesc(const wxMouseEvent& ev)
+{
+ // click event
+ wxString button;
+ bool dbl, up;
+ if ( ev.LeftDown() || ev.LeftUp() || ev.LeftDClick() )
+ {
+ button = _T("Left");
+ dbl = ev.LeftDClick();
+ up = ev.LeftUp();
+ }
+ else if ( ev.MiddleDown() || ev.MiddleUp() || ev.MiddleDClick() )
+ {
+ button = _T("Middle");
+ dbl = ev.MiddleDClick();
+ up = ev.MiddleUp();
+ }
+ else if ( ev.RightDown() || ev.RightUp() || ev.RightDClick() )
+ {
+ button = _T("Right");
+ dbl = ev.RightDClick();
+ up = ev.RightUp();
+ }
+ else
+ {
+ return _T("Unknown mouse event");
+ }
+
+ return wxString::Format(_T("%s mouse button %s"),
+ button.c_str(),
+ dbl ? _T("double clicked")
+ : up ? _T("released") : _T("clicked"));
+}
+
void MyTextCtrl::OnMouseEvent(wxMouseEvent& ev)
{
+ ev.Skip();
+
+ if ( !MyTextCtrl::ms_logMouse )
+ return;
+
if ( !ev.Moving() )
{
wxString msg;
}
else
{
- // click event
- wxString button;
- bool dbl, up;
- if ( ev.LeftDown() || ev.LeftUp() || ev.LeftDClick() )
- {
- button = _T("Left");
- dbl = ev.LeftDClick();
- up = ev.LeftUp();
- }
- else if ( ev.MiddleDown() || ev.MiddleUp() || ev.MiddleDClick() )
- {
- button = _T("Middle");
- dbl = ev.MiddleDClick();
- up = ev.MiddleUp();
- }
- else if ( ev.RightDown() || ev.RightUp() || ev.RightDClick() )
- {
- button = _T("Right");
- dbl = ev.RightDClick();
- up = ev.RightUp();
- }
- else
- {
- wxLogStatus(_T("Unknown mouse event"));
- return;
- }
-
- msg.Printf(_T("%s mouse button %s"),
- button.c_str(),
- dbl ? _T("double clicked")
- : up ? _T("released") : _T("clicked"));
+ msg = GetMouseEventDesc(ev);
}
msg << _T(" at (") << ev.GetX() << _T(", ") << ev.GetY() << _T(") ")
wxLogMessage(msg);
}
//else: we're not interested in mouse move events
-
- ev.Skip();
}
void MyTextCtrl::OnText(wxCommandEvent& event)
}
}
-void MyTextCtrl::OnChar(wxKeyEvent& event)
+void MyTextCtrl::OnTextMaxLen(wxCommandEvent& event)
{
- LogEvent( _T("Char"), event);
+ wxLogMessage(_T("You can't enter more characters into this control."));
+}
-/* How are we supposed to test wxTE_PROCESS_TAB with this code?
+void MyTextCtrl::OnTextURL(wxTextUrlEvent& event)
+{
+ const wxMouseEvent& ev = event.GetMouseEvent();
+
+ // filter out mouse moves, too many of them
+ if ( ev.Moving() )
+ return;
+
+ long start = event.GetURLStart(),
+ end = event.GetURLEnd();
+
+ wxLogMessage(_T("Mouse event over URL '%s': %s"),
+ GetValue().Mid(start, end - start).c_str(),
+ GetMouseEventDesc(ev).c_str());
+}
+
+void MyTextCtrl::OnChar(wxKeyEvent& event)
+{
+ if ( MyTextCtrl::ms_logChar )
+ LogEvent( _T("Char"), event);
- if ( event.KeyCode() == WXK_TAB )
- {
- WriteText("\t");
- }
- else
- {
- event.Skip();
- }
-*/
event.Skip();
}
void MyTextCtrl::OnKeyUp(wxKeyEvent& event)
{
- LogEvent( _T("Key up"), event);
+ if ( MyTextCtrl::ms_logKey )
+ LogEvent( _T("Key up"), event);
event.Skip();
}
long line, column, pos = GetInsertionPoint();
PositionToXY(pos, &column, &line);
- wxLogMessage( _T("Current position: %ld\n"
- "Current line, column: (%ld, %ld)\n"
- "Number of lines: %ld\n"
- "Current line length: %ld\n"
- "Total text length: %u (%ld)"),
+ wxLogMessage( _T("Current position: %ld\nCurrent line, column: (%ld, %ld)\nNumber of lines: %ld\nCurrent line length: %ld\nTotal text length: %u (%ld)"),
pos,
line, column,
GetNumberOfLines(),
break;
}
- LogEvent( wxT("Key down"), event);
+ if ( MyTextCtrl::ms_logKey )
+ LogEvent( wxT("Key down"), event);
event.Skip();
}
m_readonly = new MyTextCtrl( this, -1, "Read only",
wxPoint(10,90), wxSize(140,-1), wxTE_READONLY );
+ m_limited = new MyTextCtrl(this, -1, "Max 8 ch",
+ wxPoint(10, 130), wxSize(140, -1));
+ m_limited->SetMaxLength(8);
+
// multi line text controls
m_horizontal = new MyTextCtrl( this, -1, "Multiline text control with a horizontal scrollbar.",
m_textrich = new MyTextCtrl(this, -1, "Allows more than 30Kb of text\n"
"(even under broken Win9x)\n"
"and a very very very very very "
- "very very very long line to test"
+ "very very very long line to test "
"wxHSCROLL style",
wxPoint(450, 10), wxSize(230, 230),
- wxTE_RICH | wxTE_MULTILINE | wxHSCROLL);
+ wxTE_RICH |
+ wxTE_MULTILINE |
+ wxTE_AUTO_URL |
+ wxHSCROLL);
+#if 1
m_textrich->SetStyle(0, 10, *wxRED);
m_textrich->SetStyle(10, 20, *wxBLUE);
m_textrich->SetStyle(30, 40,
m_textrich->SetDefaultStyle(*wxBLUE);
m_textrich->AppendText(_T("And this should be in blue and the text you ")
_T("type should be in blue as well"));
+#else
+ m_textrich->SetFont(wxFont(12, wxFONTFAMILY_TELETYPE,
+ wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL));
+ m_textrich->SetDefaultStyle(wxTextAttr(*wxRED));
+ m_textrich->AppendText(_T("Red text\n"));
+ m_textrich->SetDefaultStyle(wxTextAttr(wxNullColour, *wxLIGHT_GREY));
+ m_textrich->AppendText(_T("Red on grey text\n"));
+ m_textrich->SetDefaultStyle(wxTextAttr(*wxBLUE));
+ m_textrich->AppendText(_T("Blue on grey text\n"));
+#endif
}
void MyPanel::OnSize( wxSizeEvent &event )
EVT_MENU(TEXT_ABOUT, MyFrame::OnAbout)
EVT_MENU(TEXT_SAVE, MyFrame::OnFileSave)
EVT_MENU(TEXT_LOAD, MyFrame::OnFileLoad)
+
+ EVT_MENU(TEXT_LOG_KEY, MyFrame::OnLogKey)
+ EVT_MENU(TEXT_LOG_CHAR, MyFrame::OnLogChar)
+ EVT_MENU(TEXT_LOG_MOUSE, MyFrame::OnLogMouse)
EVT_MENU(TEXT_CLEAR, MyFrame::OnLogClear)
#if wxUSE_TOOLTIPS
EVT_MENU(TEXT_SET_EDITABLE, MyFrame::OnSetEditable)
EVT_MENU(TEXT_SET_ENABLED, MyFrame::OnSetEnabled)
+ EVT_MENU(TEXT_LINE_DOWN, MyFrame::OnScrollLineDown)
+ EVT_MENU(TEXT_LINE_UP, MyFrame::OnScrollLineUp)
+ EVT_MENU(TEXT_PAGE_DOWN, MyFrame::OnScrollPageDown)
+ EVT_MENU(TEXT_PAGE_UP, MyFrame::OnScrollPageUp)
+
EVT_IDLE(MyFrame::OnIdle)
END_EVENT_TABLE()
m_panel->m_password->Enable(enabled);
m_panel->m_multitext->Enable(enabled);
m_panel->m_readonly->Enable(enabled);
+ m_panel->m_limited->Enable(enabled);
m_panel->m_textrich->Enable(enabled);
}
{
#if wxUSE_FILE
// verify that the fil length is correct (it wasn't under Win95)
- wxFile file("dummy.txt");
- wxLogStatus(this, _T("Successfully saved file "
- "(text len = %ld, file size = %ld)"),
+ wxFile file(wxT("dummy.txt"));
+ wxLogStatus(this, _T("Successfully saved file (text len = %ld, file size = %ld)"),
m_panel->m_textrich->GetValue().length(),
file.Length());
#endif
projects / wxWidgets.git / blobdiff