]>
Commit | Line | Data |
---|---|---|
1 | ///////////////////////////////////////////////////////////////////////////// | |
2 | // Name: htmllbox.cpp | |
3 | // Purpose: HtmlLbox wxWidgets sample | |
4 | // Author: Vadim Zeitlin | |
5 | // Modified by: | |
6 | // Created: 31.05.03 | |
7 | // RCS-ID: $Id$ | |
8 | // Copyright: (c) 2003 Vadim Zeitlin <vadim@wxwidgets.org> | |
9 | // Licence: wxWindows licence | |
10 | ///////////////////////////////////////////////////////////////////////////// | |
11 | ||
12 | // ============================================================================ | |
13 | // declarations | |
14 | // ============================================================================ | |
15 | ||
16 | // ---------------------------------------------------------------------------- | |
17 | // headers | |
18 | // ---------------------------------------------------------------------------- | |
19 | ||
20 | // For compilers that support precompilation, includes "wx/wx.h". | |
21 | #include "wx/wxprec.h" | |
22 | ||
23 | #ifdef __BORLANDC__ | |
24 | #pragma hdrstop | |
25 | #endif | |
26 | ||
27 | // for all others, include the necessary headers | |
28 | #ifndef WX_PRECOMP | |
29 | #include "wx/app.h" | |
30 | #include "wx/frame.h" | |
31 | #include "wx/log.h" | |
32 | #include "wx/textdlg.h" | |
33 | #include "wx/sizer.h" | |
34 | ||
35 | #include "wx/menu.h" | |
36 | #include "wx/msgdlg.h" | |
37 | #include "wx/textctrl.h" | |
38 | ||
39 | #include "wx/dc.h" | |
40 | #include "wx/icon.h" | |
41 | #endif | |
42 | ||
43 | #include "wx/colordlg.h" | |
44 | #include "wx/numdlg.h" | |
45 | ||
46 | #include "wx/htmllbox.h" | |
47 | ||
48 | // you can also have a file containing HTML strings for testing, enable this if | |
49 | // you want to use it | |
50 | //#define USE_HTML_FILE | |
51 | #ifdef USE_HTML_FILE | |
52 | #include "wx/textfile.h" | |
53 | #endif | |
54 | ||
55 | #include "../sample.xpm" | |
56 | ||
57 | // ---------------------------------------------------------------------------- | |
58 | // private classes | |
59 | // ---------------------------------------------------------------------------- | |
60 | ||
61 | // to use wxHtmlListBox you must derive a new class from it as you must | |
62 | // implement pure virtual OnGetItem() | |
63 | class MyHtmlListBox : public wxHtmlListBox | |
64 | { | |
65 | public: | |
66 | MyHtmlListBox(wxWindow *parent, bool multi = false); | |
67 | ||
68 | void SetChangeSelFg(bool change) { m_change = change; } | |
69 | void UpdateFirstItem(); | |
70 | ||
71 | protected: | |
72 | // override this method to return data to be shown in the listbox (this is | |
73 | // mandatory) | |
74 | virtual wxString OnGetItem(size_t n) const; | |
75 | ||
76 | // change the appearance by overriding these functions (this is optional) | |
77 | virtual void OnDrawSeparator(wxDC& dc, wxRect& rect, size_t n) const; | |
78 | virtual wxColour GetSelectedTextColour(const wxColour& colFg) const; | |
79 | ||
80 | // override this method to handle mouse clicks | |
81 | virtual void OnLinkClicked(size_t n, const wxHtmlLinkInfo& link); | |
82 | ||
83 | // flag telling us whether we should use fg colour even for the selected | |
84 | // item | |
85 | bool m_change; | |
86 | ||
87 | // flag which we toggle to update the first items text in OnGetItem() | |
88 | bool m_firstItemUpdated; | |
89 | ||
90 | // flag which we toggle when the user clicks on the link in 2nd item | |
91 | // to change 2nd item's text | |
92 | bool m_linkClicked; | |
93 | ||
94 | ||
95 | #ifdef USE_HTML_FILE | |
96 | wxTextFile m_file; | |
97 | #endif | |
98 | ||
99 | DECLARE_NO_COPY_CLASS(MyHtmlListBox) | |
100 | }; | |
101 | ||
102 | class MyFrame : public wxFrame | |
103 | { | |
104 | public: | |
105 | MyFrame(); | |
106 | virtual ~MyFrame(); | |
107 | ||
108 | // event handlers | |
109 | void OnQuit(wxCommandEvent& event); | |
110 | void OnAbout(wxCommandEvent& event); | |
111 | ||
112 | void OnSetMargins(wxCommandEvent& event); | |
113 | void OnDrawSeparator(wxCommandEvent&) { m_hlbox->RefreshAll(); } | |
114 | void OnToggleMulti(wxCommandEvent& event); | |
115 | void OnSelectAll(wxCommandEvent& event); | |
116 | void OnUpdateItem(wxCommandEvent& event); | |
117 | ||
118 | void OnSetBgCol(wxCommandEvent& event); | |
119 | void OnSetSelBgCol(wxCommandEvent& event); | |
120 | void OnSetSelFgCol(wxCommandEvent& event); | |
121 | ||
122 | ||
123 | void OnUpdateUISelectAll(wxUpdateUIEvent& event); | |
124 | ||
125 | void OnLboxSelect(wxCommandEvent& event); | |
126 | void OnLboxDClick(wxCommandEvent& event) | |
127 | { | |
128 | wxLogMessage(_T("Listbox item %ld double clicked."), event.GetInt()); | |
129 | } | |
130 | ||
131 | private: | |
132 | MyHtmlListBox *m_hlbox; | |
133 | ||
134 | // any class wishing to process wxWidgets events must use this macro | |
135 | DECLARE_EVENT_TABLE() | |
136 | }; | |
137 | ||
138 | class MyApp : public wxApp | |
139 | { | |
140 | public: | |
141 | virtual bool OnInit() { (new MyFrame())->Show(); return true; } | |
142 | }; | |
143 | ||
144 | // ---------------------------------------------------------------------------- | |
145 | // constants | |
146 | // ---------------------------------------------------------------------------- | |
147 | ||
148 | // IDs for the controls and the menu commands | |
149 | enum | |
150 | { | |
151 | // menu items | |
152 | HtmlLbox_Quit = 1, | |
153 | ||
154 | HtmlLbox_SetMargins, | |
155 | HtmlLbox_DrawSeparator, | |
156 | HtmlLbox_ToggleMulti, | |
157 | HtmlLbox_SelectAll, | |
158 | HtmlLbox_UpdateItem, | |
159 | ||
160 | HtmlLbox_SetBgCol, | |
161 | HtmlLbox_SetSelBgCol, | |
162 | HtmlLbox_SetSelFgCol, | |
163 | ||
164 | // it is important for the id corresponding to the "About" command to have | |
165 | // this standard value as otherwise it won't be handled properly under Mac | |
166 | // (where it is special and put into the "Apple" menu) | |
167 | HtmlLbox_About = wxID_ABOUT | |
168 | }; | |
169 | ||
170 | // ---------------------------------------------------------------------------- | |
171 | // event tables and other macros for wxWidgets | |
172 | // ---------------------------------------------------------------------------- | |
173 | ||
174 | BEGIN_EVENT_TABLE(MyFrame, wxFrame) | |
175 | EVT_MENU(HtmlLbox_Quit, MyFrame::OnQuit) | |
176 | ||
177 | EVT_MENU(HtmlLbox_SetMargins, MyFrame::OnSetMargins) | |
178 | EVT_MENU(HtmlLbox_DrawSeparator, MyFrame::OnDrawSeparator) | |
179 | EVT_MENU(HtmlLbox_ToggleMulti, MyFrame::OnToggleMulti) | |
180 | EVT_MENU(HtmlLbox_SelectAll, MyFrame::OnSelectAll) | |
181 | EVT_MENU(HtmlLbox_UpdateItem, MyFrame::OnUpdateItem) | |
182 | ||
183 | EVT_MENU(HtmlLbox_About, MyFrame::OnAbout) | |
184 | ||
185 | EVT_MENU(HtmlLbox_SetBgCol, MyFrame::OnSetBgCol) | |
186 | EVT_MENU(HtmlLbox_SetSelBgCol, MyFrame::OnSetSelBgCol) | |
187 | EVT_MENU(HtmlLbox_SetSelFgCol, MyFrame::OnSetSelFgCol) | |
188 | ||
189 | EVT_UPDATE_UI(HtmlLbox_SelectAll, MyFrame::OnUpdateUISelectAll) | |
190 | ||
191 | ||
192 | EVT_LISTBOX(wxID_ANY, MyFrame::OnLboxSelect) | |
193 | EVT_LISTBOX_DCLICK(wxID_ANY, MyFrame::OnLboxDClick) | |
194 | END_EVENT_TABLE() | |
195 | ||
196 | IMPLEMENT_APP(MyApp) | |
197 | ||
198 | // ============================================================================ | |
199 | // MyFrame | |
200 | // ============================================================================ | |
201 | ||
202 | // ---------------------------------------------------------------------------- | |
203 | // MyFrame ctor/dtor | |
204 | // ---------------------------------------------------------------------------- | |
205 | ||
206 | // frame constructor | |
207 | MyFrame::MyFrame() | |
208 | : wxFrame(NULL, wxID_ANY, _T("HtmlLbox wxWidgets Sample"), | |
209 | wxDefaultPosition, wxSize(400, 500)) | |
210 | { | |
211 | // set the frame icon | |
212 | SetIcon(wxIcon(sample_xpm)); | |
213 | ||
214 | #if wxUSE_MENUS | |
215 | // create a menu bar | |
216 | wxMenu *menuFile = new wxMenu; | |
217 | menuFile->Append(HtmlLbox_Quit, _T("E&xit\tAlt-X"), _T("Quit this program")); | |
218 | ||
219 | // create our specific menu | |
220 | wxMenu *menuHLbox = new wxMenu; | |
221 | menuHLbox->Append(HtmlLbox_SetMargins, | |
222 | _T("Set &margins...\tCtrl-G"), | |
223 | _T("Change the margins around the items")); | |
224 | menuHLbox->AppendCheckItem(HtmlLbox_DrawSeparator, | |
225 | _T("&Draw separators\tCtrl-D"), | |
226 | _T("Toggle drawing separators between cells")); | |
227 | menuHLbox->AppendSeparator(); | |
228 | menuHLbox->AppendCheckItem(HtmlLbox_ToggleMulti, | |
229 | _T("&Multiple selection\tCtrl-M"), | |
230 | _T("Toggle multiple selection on/off")); | |
231 | menuHLbox->AppendSeparator(); | |
232 | menuHLbox->Append(HtmlLbox_SelectAll, _T("Select &all items\tCtrl-A")); | |
233 | menuHLbox->Append(HtmlLbox_UpdateItem, _T("Update &first item\tCtrl-U")); | |
234 | menuHLbox->AppendSeparator(); | |
235 | menuHLbox->Append(HtmlLbox_SetBgCol, _T("Set &background...\tCtrl-B")); | |
236 | menuHLbox->Append(HtmlLbox_SetSelBgCol, | |
237 | _T("Set &selection background...\tCtrl-S")); | |
238 | menuHLbox->AppendCheckItem(HtmlLbox_SetSelFgCol, | |
239 | _T("Keep &foreground in selection\tCtrl-F")); | |
240 | ||
241 | // the "About" item should be in the help menu | |
242 | wxMenu *helpMenu = new wxMenu; | |
243 | helpMenu->Append(HtmlLbox_About, _T("&About...\tF1"), _T("Show about dialog")); | |
244 | ||
245 | // now append the freshly created menu to the menu bar... | |
246 | wxMenuBar *menuBar = new wxMenuBar(); | |
247 | menuBar->Append(menuFile, _T("&File")); | |
248 | menuBar->Append(menuHLbox, _T("&Listbox")); | |
249 | menuBar->Append(helpMenu, _T("&Help")); | |
250 | ||
251 | menuBar->Check(HtmlLbox_DrawSeparator, true); | |
252 | ||
253 | // ... and attach this menu bar to the frame | |
254 | SetMenuBar(menuBar); | |
255 | #endif // wxUSE_MENUS | |
256 | ||
257 | #if wxUSE_STATUSBAR | |
258 | // create a status bar just for fun (by default with 1 pane only) | |
259 | CreateStatusBar(2); | |
260 | SetStatusText(_T("Welcome to wxWidgets!")); | |
261 | #endif // wxUSE_STATUSBAR | |
262 | ||
263 | // create the child controls | |
264 | m_hlbox = new MyHtmlListBox(this); | |
265 | wxTextCtrl *text = new wxTextCtrl(this, wxID_ANY, _T(""), | |
266 | wxDefaultPosition, wxDefaultSize, | |
267 | wxTE_MULTILINE); | |
268 | delete wxLog::SetActiveTarget(new wxLogTextCtrl(text)); | |
269 | ||
270 | // and lay them out | |
271 | wxSizer *sizer = new wxBoxSizer(wxHORIZONTAL); | |
272 | sizer->Add(m_hlbox, 1, wxGROW); | |
273 | sizer->Add(text, 1, wxGROW); | |
274 | ||
275 | SetSizer(sizer); | |
276 | } | |
277 | ||
278 | MyFrame::~MyFrame() | |
279 | { | |
280 | delete wxLog::SetActiveTarget(NULL); | |
281 | } | |
282 | ||
283 | // ---------------------------------------------------------------------------- | |
284 | // menu event handlers | |
285 | // ---------------------------------------------------------------------------- | |
286 | ||
287 | void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event)) | |
288 | { | |
289 | // true is to force the frame to close | |
290 | Close(true); | |
291 | } | |
292 | ||
293 | void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event)) | |
294 | { | |
295 | wxMessageBox(_T("This sample shows wxHtmlListBox class.\n") | |
296 | _T("\n") | |
297 | _T("(c) 2003 Vadim Zeitlin"), | |
298 | _T("About HtmlLbox"), | |
299 | wxOK | wxICON_INFORMATION, | |
300 | this); | |
301 | } | |
302 | ||
303 | void MyFrame::OnSetMargins(wxCommandEvent& WXUNUSED(event)) | |
304 | { | |
305 | long margin = wxGetNumberFromUser | |
306 | ( | |
307 | _T("Enter the margins to use for the listbox items."), | |
308 | _T("Margin: "), | |
309 | _T("HtmlLbox: Set the margins"), | |
310 | 0, 0, 20, | |
311 | this | |
312 | ); | |
313 | ||
314 | if ( margin != -1 ) | |
315 | { | |
316 | m_hlbox->SetMargins(margin, margin); | |
317 | m_hlbox->RefreshAll(); | |
318 | } | |
319 | } | |
320 | ||
321 | void MyFrame::OnToggleMulti(wxCommandEvent& event) | |
322 | { | |
323 | // we need to recreate the listbox | |
324 | wxSizer *sizer = GetSizer(); | |
325 | sizer->Detach(m_hlbox); | |
326 | delete m_hlbox; | |
327 | ||
328 | m_hlbox = new MyHtmlListBox(this, event.IsChecked()); | |
329 | sizer->Prepend(m_hlbox, 1, wxGROW); | |
330 | ||
331 | sizer->Layout(); | |
332 | } | |
333 | ||
334 | void MyFrame::OnSelectAll(wxCommandEvent& WXUNUSED(event)) | |
335 | { | |
336 | m_hlbox->SelectAll(); | |
337 | } | |
338 | ||
339 | void MyFrame::OnUpdateUISelectAll(wxUpdateUIEvent& event) | |
340 | { | |
341 | event.Enable( m_hlbox && m_hlbox->HasMultipleSelection() ); | |
342 | } | |
343 | ||
344 | void MyFrame::OnUpdateItem(wxCommandEvent& WXUNUSED(event)) | |
345 | { | |
346 | m_hlbox->UpdateFirstItem(); | |
347 | } | |
348 | ||
349 | void MyFrame::OnSetBgCol(wxCommandEvent& WXUNUSED(event)) | |
350 | { | |
351 | wxColour col = wxGetColourFromUser(this, m_hlbox->GetBackgroundColour()); | |
352 | if ( col.Ok() ) | |
353 | { | |
354 | m_hlbox->SetBackgroundColour(col); | |
355 | m_hlbox->Refresh(); | |
356 | ||
357 | #if wxUSE_STATUSBAR | |
358 | SetStatusText(_T("Background colour changed.")); | |
359 | #endif // wxUSE_STATUSBAR | |
360 | } | |
361 | } | |
362 | ||
363 | void MyFrame::OnSetSelBgCol(wxCommandEvent& WXUNUSED(event)) | |
364 | { | |
365 | wxColour col = wxGetColourFromUser(this, m_hlbox->GetSelectionBackground()); | |
366 | if ( col.Ok() ) | |
367 | { | |
368 | m_hlbox->SetSelectionBackground(col); | |
369 | m_hlbox->Refresh(); | |
370 | ||
371 | #if wxUSE_STATUSBAR | |
372 | SetStatusText(_T("Selection background colour changed.")); | |
373 | #endif // wxUSE_STATUSBAR | |
374 | } | |
375 | } | |
376 | ||
377 | void MyFrame::OnSetSelFgCol(wxCommandEvent& event) | |
378 | { | |
379 | m_hlbox->SetChangeSelFg(!event.IsChecked()); | |
380 | m_hlbox->Refresh(); | |
381 | } | |
382 | ||
383 | // ---------------------------------------------------------------------------- | |
384 | // listbox event handlers | |
385 | // ---------------------------------------------------------------------------- | |
386 | ||
387 | void MyFrame::OnLboxSelect(wxCommandEvent& event) | |
388 | { | |
389 | wxLogMessage(_T("Listbox selection is now %ld."), event.GetInt()); | |
390 | ||
391 | if ( m_hlbox->HasMultipleSelection() ) | |
392 | { | |
393 | wxString s; | |
394 | ||
395 | bool first = true; | |
396 | unsigned long cookie; | |
397 | for ( int item = m_hlbox->GetFirstSelected(cookie); | |
398 | item != wxNOT_FOUND; | |
399 | item = m_hlbox->GetNextSelected(cookie) ) | |
400 | { | |
401 | if ( first ) | |
402 | first = false; | |
403 | else | |
404 | s << _T(", "); | |
405 | ||
406 | s << item; | |
407 | } | |
408 | ||
409 | if ( !s.empty() ) | |
410 | wxLogMessage(_T("Selected items: %s"), s.c_str()); | |
411 | } | |
412 | ||
413 | #if wxUSE_STATUSBAR | |
414 | SetStatusText(wxString::Format( | |
415 | _T("# items selected = %lu"), | |
416 | (unsigned long)m_hlbox->GetSelectedCount() | |
417 | )); | |
418 | #endif // wxUSE_STATUSBAR | |
419 | } | |
420 | ||
421 | // ============================================================================ | |
422 | // MyHtmlListBox | |
423 | // ============================================================================ | |
424 | ||
425 | MyHtmlListBox::MyHtmlListBox(wxWindow *parent, bool multi) | |
426 | : wxHtmlListBox(parent, wxID_ANY, wxDefaultPosition, wxDefaultSize, | |
427 | multi ? wxLB_MULTIPLE : 0) | |
428 | { | |
429 | m_change = true; | |
430 | m_firstItemUpdated = false; | |
431 | m_linkClicked = false; | |
432 | ||
433 | ||
434 | SetMargins(5, 5); | |
435 | ||
436 | #ifdef USE_HTML_FILE | |
437 | if ( !m_file.Open(_T("results")) ) | |
438 | { | |
439 | wxLogError(_T("Failed to open results file")); | |
440 | } | |
441 | else | |
442 | { | |
443 | SetItemCount(m_file.GetLineCount()); | |
444 | } | |
445 | #else | |
446 | SetItemCount(1000); | |
447 | #endif | |
448 | ||
449 | SetSelection(3); | |
450 | } | |
451 | ||
452 | void MyHtmlListBox::OnDrawSeparator(wxDC& dc, wxRect& rect, size_t) const | |
453 | { | |
454 | if ( ((MyFrame *)GetParent())-> | |
455 | GetMenuBar()->IsChecked(HtmlLbox_DrawSeparator) ) | |
456 | { | |
457 | dc.SetPen(*wxBLACK_DASHED_PEN); | |
458 | dc.DrawLine(rect.x, rect.y, rect.GetRight(), rect.y); | |
459 | dc.DrawLine(rect.x, rect.GetBottom(), rect.GetRight(), rect.GetBottom()); | |
460 | } | |
461 | } | |
462 | ||
463 | wxString MyHtmlListBox::OnGetItem(size_t n) const | |
464 | { | |
465 | if ( !n && m_firstItemUpdated ) | |
466 | { | |
467 | return wxString::Format(_T("<h1><b>Just updated</b></h1>")); | |
468 | } | |
469 | ||
470 | #ifdef USE_HTML_FILE | |
471 | wxString s; | |
472 | if ( m_file.IsOpened() ) | |
473 | s = m_file[n]; | |
474 | ||
475 | return s; | |
476 | #else | |
477 | int level = n % 6 + 1; | |
478 | ||
479 | wxColour clr((unsigned char)(abs((int)n - 192) % 256), | |
480 | (unsigned char)(abs((int)n - 256) % 256), | |
481 | (unsigned char)(abs((int)n - 128) % 256)); | |
482 | ||
483 | wxString label = wxString::Format(_T("<h%d><font color=%s>") | |
484 | _T("Item</font> <b>%lu</b>") | |
485 | _T("</h%d>"), | |
486 | level, | |
487 | clr.GetAsString(wxC2S_HTML_SYNTAX).c_str(), | |
488 | (unsigned long)n, level); | |
489 | if ( n == 1 ) | |
490 | { | |
491 | if ( !m_linkClicked ) | |
492 | label += _T("<a href='1'>Click here...</a>"); | |
493 | else | |
494 | label += _T("<font color='#9999ff'>Clicked here...</font>"); | |
495 | } | |
496 | ||
497 | return label; | |
498 | #endif | |
499 | } | |
500 | ||
501 | wxColour MyHtmlListBox::GetSelectedTextColour(const wxColour& colFg) const | |
502 | { | |
503 | return m_change ? wxHtmlListBox::GetSelectedTextColour(colFg) : colFg; | |
504 | } | |
505 | ||
506 | void MyHtmlListBox::UpdateFirstItem() | |
507 | { | |
508 | m_firstItemUpdated = !m_firstItemUpdated; | |
509 | ||
510 | RefreshLine(0); | |
511 | } | |
512 | ||
513 | void MyHtmlListBox::OnLinkClicked(size_t WXUNUSED(n), | |
514 | const wxHtmlLinkInfo& WXUNUSED(link)) | |
515 | { | |
516 | m_linkClicked = true; | |
517 | ||
518 | RefreshLine(1); | |
519 | } |