/////////////////////////////////////////////////////////////////////////////
// Name: htmllbox.cpp
-// Purpose: HtmlLbox wxWindows sample
+// Purpose: HtmlLbox wxWidgets sample
// Author: Vadim Zeitlin
// Modified by:
// Created: 31.05.03
// RCS-ID: $Id$
-// Copyright: (c) 2003 Vadim Zeitlin <vadim@wxwindows.org>
+// Copyright: (c) 2003 Vadim Zeitlin <vadim@wxwidgets.org>
// Licence: wxWindows licence
/////////////////////////////////////////////////////////////////////////////
#include "wx/textctrl.h"
#include "wx/dc.h"
+ #include "wx/icon.h"
#endif
#include "wx/colordlg.h"
+#include "wx/numdlg.h"
#include "wx/htmllbox.h"
#include "wx/textfile.h"
#endif
-// ----------------------------------------------------------------------------
-// resources
-// ----------------------------------------------------------------------------
-
-// the application icon (under Windows and OS/2 it is in resources)
-#if defined(__WXGTK__) || defined(__WXMOTIF__) || defined(__WXMAC__) || defined(__WXMGL__) || defined(__WXX11__)
- #include "mondrian.xpm"
-#endif
+#include "../sample.xpm"
// ----------------------------------------------------------------------------
// private classes
class MyHtmlListBox : public wxHtmlListBox
{
public:
+ MyHtmlListBox() { }
MyHtmlListBox(wxWindow *parent, bool multi = false);
void SetChangeSelFg(bool change) { m_change = change; }
+ void UpdateFirstItem();
protected:
+ // override this method to return data to be shown in the listbox (this is
+ // mandatory)
virtual wxString OnGetItem(size_t n) const;
- // change the appearance by overriding these functions
+ // change the appearance by overriding these functions (this is optional)
virtual void OnDrawSeparator(wxDC& dc, wxRect& rect, size_t n) const;
virtual wxColour GetSelectedTextColour(const wxColour& colFg) const;
+ // flag telling us whether we should use fg colour even for the selected
+ // item
bool m_change;
+ // flag which we toggle to update the first items text in OnGetItem()
+ bool m_firstItemUpdated;
+
+public:
+
+ // flag which we toggle when the user clicks on the link in 2nd item
+ // to change 2nd item's text
+ bool m_linkClicked;
+
#ifdef USE_HTML_FILE
wxTextFile m_file;
#endif
- DECLARE_NO_COPY_CLASS(MyHtmlListBox)
+ wxDECLARE_NO_COPY_CLASS(MyHtmlListBox);
+ DECLARE_DYNAMIC_CLASS(MyHtmlListBox)
};
+
class MyFrame : public wxFrame
{
public:
virtual ~MyFrame();
// event handlers
+ void OnSimpleOrCustomBox(wxCommandEvent& event);
void OnQuit(wxCommandEvent& event);
void OnAbout(wxCommandEvent& event);
void OnDrawSeparator(wxCommandEvent&) { m_hlbox->RefreshAll(); }
void OnToggleMulti(wxCommandEvent& event);
void OnSelectAll(wxCommandEvent& event);
+ void OnUpdateItem(wxCommandEvent& event);
+ void OnGetItemRect(wxCommandEvent& event);
void OnSetBgCol(wxCommandEvent& event);
void OnSetSelBgCol(wxCommandEvent& event);
void OnSetSelFgCol(wxCommandEvent& event);
+ void OnClear(wxCommandEvent& event);
void OnUpdateUISelectAll(wxUpdateUIEvent& event);
void OnLboxSelect(wxCommandEvent& event);
void OnLboxDClick(wxCommandEvent& event)
{
- wxLogMessage(_T("Listbox item %ld double clicked."), event.GetInt());
+ wxLogMessage(wxT("Listbox item %d double clicked."), event.GetInt());
}
+ void OnHtmlLinkClicked(wxHtmlLinkEvent& event);
+ void OnHtmlCellHover(wxHtmlCellEvent &event);
+ void OnHtmlCellClicked(wxHtmlCellEvent &event);
+
+ wxSimpleHtmlListBox *GetSimpleBox()
+ { return wxDynamicCast(m_hlbox, wxSimpleHtmlListBox); }
+ MyHtmlListBox *GetMyBox()
+ { return wxDynamicCast(m_hlbox, MyHtmlListBox); }
+
+ void CreateBox();
+
private:
- MyHtmlListBox *m_hlbox;
+ wxHtmlListBox *m_hlbox;
- // any class wishing to process wxWindows events must use this macro
+ // any class wishing to process wxWidgets events must use this macro
DECLARE_EVENT_TABLE()
};
class MyApp : public wxApp
{
public:
- virtual bool OnInit() { (new MyFrame())->Show(); return TRUE; }
+ virtual bool OnInit() { (new MyFrame())->Show(); return true; }
};
// ----------------------------------------------------------------------------
enum
{
// menu items
- HtmlLbox_Quit = 1,
+ HtmlLbox_CustomBox = 1,
+ HtmlLbox_SimpleBox,
+ HtmlLbox_Quit,
HtmlLbox_SetMargins,
HtmlLbox_DrawSeparator,
HtmlLbox_ToggleMulti,
HtmlLbox_SelectAll,
+ HtmlLbox_UpdateItem,
+ HtmlLbox_GetItemRect,
HtmlLbox_SetBgCol,
HtmlLbox_SetSelBgCol,
HtmlLbox_SetSelFgCol,
+ HtmlLbox_Clear,
+
// it is important for the id corresponding to the "About" command to have
// this standard value as otherwise it won't be handled properly under Mac
// (where it is special and put into the "Apple" menu)
};
// ----------------------------------------------------------------------------
-// event tables and other macros for wxWindows
+// event tables and other macros for wxWidgets
// ----------------------------------------------------------------------------
BEGIN_EVENT_TABLE(MyFrame, wxFrame)
+ EVT_MENU(HtmlLbox_CustomBox, MyFrame::OnSimpleOrCustomBox)
+ EVT_MENU(HtmlLbox_SimpleBox, MyFrame::OnSimpleOrCustomBox)
EVT_MENU(HtmlLbox_Quit, MyFrame::OnQuit)
EVT_MENU(HtmlLbox_SetMargins, MyFrame::OnSetMargins)
EVT_MENU(HtmlLbox_DrawSeparator, MyFrame::OnDrawSeparator)
EVT_MENU(HtmlLbox_ToggleMulti, MyFrame::OnToggleMulti)
EVT_MENU(HtmlLbox_SelectAll, MyFrame::OnSelectAll)
+ EVT_MENU(HtmlLbox_UpdateItem, MyFrame::OnUpdateItem)
+ EVT_MENU(HtmlLbox_GetItemRect, MyFrame::OnGetItemRect)
EVT_MENU(HtmlLbox_About, MyFrame::OnAbout)
EVT_MENU(HtmlLbox_SetSelBgCol, MyFrame::OnSetSelBgCol)
EVT_MENU(HtmlLbox_SetSelFgCol, MyFrame::OnSetSelFgCol)
+ EVT_MENU(HtmlLbox_Clear, MyFrame::OnClear)
+
EVT_UPDATE_UI(HtmlLbox_SelectAll, MyFrame::OnUpdateUISelectAll)
EVT_LISTBOX(wxID_ANY, MyFrame::OnLboxSelect)
EVT_LISTBOX_DCLICK(wxID_ANY, MyFrame::OnLboxDClick)
+
+
+ // the HTML listbox's events
+ EVT_HTML_LINK_CLICKED(wxID_ANY, MyFrame::OnHtmlLinkClicked)
+ EVT_HTML_CELL_HOVER(wxID_ANY, MyFrame::OnHtmlCellHover)
+ EVT_HTML_CELL_CLICKED(wxID_ANY, MyFrame::OnHtmlCellClicked)
+
END_EVENT_TABLE()
IMPLEMENT_APP(MyApp)
// frame constructor
MyFrame::MyFrame()
- : wxFrame(NULL, -1, _T("HtmlLbox wxWindows Sample"),
- wxDefaultPosition, wxSize(400, 500))
+ : wxFrame(NULL, wxID_ANY, wxT("HtmlLbox wxWidgets Sample"),
+ wxDefaultPosition, wxSize(500, 500))
{
// set the frame icon
- SetIcon(wxICON(mondrian));
+ SetIcon(wxICON(sample));
#if wxUSE_MENUS
// create a menu bar
wxMenu *menuFile = new wxMenu;
- menuFile->Append(HtmlLbox_Quit, _T("E&xit\tAlt-X"), _T("Quit this program"));
+ menuFile->AppendRadioItem(HtmlLbox_CustomBox, wxT("Use custom box"),
+ wxT("Use a wxHtmlListBox virtual class control"));
+ menuFile->AppendRadioItem(HtmlLbox_SimpleBox, wxT("Use simple box"),
+ wxT("Use a wxSimpleHtmlListBox control"));
+ menuFile->AppendSeparator();
+ menuFile->Append(HtmlLbox_Quit, wxT("E&xit\tAlt-X"), wxT("Quit this program"));
// create our specific menu
wxMenu *menuHLbox = new wxMenu;
menuHLbox->Append(HtmlLbox_SetMargins,
- _T("Set &margins...\tCtrl-G"),
- _T("Change the margins around the items"));
+ wxT("Set &margins...\tCtrl-G"),
+ wxT("Change the margins around the items"));
menuHLbox->AppendCheckItem(HtmlLbox_DrawSeparator,
- _T("&Draw separators\tCtrl-D"),
- _T("Toggle drawing separators between cells"));
+ wxT("&Draw separators\tCtrl-D"),
+ wxT("Toggle drawing separators between cells"));
menuHLbox->AppendSeparator();
menuHLbox->AppendCheckItem(HtmlLbox_ToggleMulti,
- _T("&Multiple selection\tCtrl-M"),
- _T("Toggle multiple selection on/off"));
+ wxT("&Multiple selection\tCtrl-M"),
+ wxT("Toggle multiple selection on/off"));
menuHLbox->AppendSeparator();
- menuHLbox->Append(HtmlLbox_SelectAll, _T("Select &all items\tCtrl-A"));
+ menuHLbox->Append(HtmlLbox_SelectAll, wxT("Select &all items\tCtrl-A"));
+ menuHLbox->Append(HtmlLbox_UpdateItem, wxT("Update &first item\tCtrl-U"));
+ menuHLbox->Append(HtmlLbox_GetItemRect, wxT("Show &rectangle of item #10\tCtrl-R"));
menuHLbox->AppendSeparator();
- menuHLbox->Append(HtmlLbox_SetBgCol, _T("Set &background...\tCtrl-B"));
+ menuHLbox->Append(HtmlLbox_SetBgCol, wxT("Set &background...\tCtrl-B"));
menuHLbox->Append(HtmlLbox_SetSelBgCol,
- _T("Set &selection background...\tCtrl-S"));
+ wxT("Set &selection background...\tCtrl-S"));
menuHLbox->AppendCheckItem(HtmlLbox_SetSelFgCol,
- _T("Keep &foreground in selection\tCtrl-F"));
+ wxT("Keep &foreground in selection\tCtrl-F"));
+
+ menuHLbox->AppendSeparator();
+ menuHLbox->Append(HtmlLbox_Clear, wxT("&Clear\tCtrl-L"));
// the "About" item should be in the help menu
wxMenu *helpMenu = new wxMenu;
- helpMenu->Append(HtmlLbox_About, _T("&About...\tF1"), _T("Show about dialog"));
+ helpMenu->Append(HtmlLbox_About, wxT("&About\tF1"), wxT("Show about dialog"));
// now append the freshly created menu to the menu bar...
wxMenuBar *menuBar = new wxMenuBar();
- menuBar->Append(menuFile, _T("&File"));
- menuBar->Append(menuHLbox, _T("&Listbox"));
- menuBar->Append(helpMenu, _T("&Help"));
+ menuBar->Append(menuFile, wxT("&File"));
+ menuBar->Append(menuHLbox, wxT("&Listbox"));
+ menuBar->Append(helpMenu, wxT("&Help"));
menuBar->Check(HtmlLbox_DrawSeparator, true);
#if wxUSE_STATUSBAR
// create a status bar just for fun (by default with 1 pane only)
CreateStatusBar(2);
- SetStatusText(_T("Welcome to wxWindows!"));
+ SetStatusText(wxT("Welcome to wxWidgets!"));
#endif // wxUSE_STATUSBAR
// create the child controls
- m_hlbox = new MyHtmlListBox(this);
- wxTextCtrl *text = new wxTextCtrl(this, -1, _T(""),
+ CreateBox();
+ wxTextCtrl *text = new wxTextCtrl(this, wxID_ANY, wxT(""),
wxDefaultPosition, wxDefaultSize,
wxTE_MULTILINE);
delete wxLog::SetActiveTarget(new wxLogTextCtrl(text));
// and lay them out
wxSizer *sizer = new wxBoxSizer(wxHORIZONTAL);
- sizer->Add(m_hlbox, 1, wxGROW);
- sizer->Add(text, 1, wxGROW);
+ sizer->Add(m_hlbox, 2, wxGROW);
+ sizer->Add(text, 3, wxGROW);
SetSizer(sizer);
}
delete wxLog::SetActiveTarget(NULL);
}
+void MyFrame::CreateBox()
+{
+ bool multi = GetMenuBar()->IsChecked(HtmlLbox_ToggleMulti);
+
+ if ( GetMenuBar()->IsChecked(HtmlLbox_CustomBox) )
+ {
+ m_hlbox = new MyHtmlListBox(this, multi);
+ }
+ else // simple listbox
+ {
+ m_hlbox = new wxSimpleHtmlListBox(this, wxID_ANY, wxDefaultPosition, wxDefaultSize,
+ 0, NULL, multi ? wxLB_MULTIPLE : 0);
+
+ // unlike wxHtmlListBox which is abstract, wxSimpleHtmlListBox is a
+ // concrete control and doesn't support virtual mode, this we need
+ // to add all of its items from the beginning
+ wxArrayString arr;
+ for (size_t n = 0; n < 1000; n++ )
+ {
+ wxColour clr((unsigned char)(abs((int)n - 192) % 256),
+ (unsigned char)(abs((int)n - 256) % 256),
+ (unsigned char)(abs((int)n - 128) % 256));
+ int level = n % 6 + 1;
+
+ wxString label = wxString::Format(wxT("<h%d><font color=%s>")
+ wxT("Item</font> <b>%lu</b>")
+ wxT("</h%d>"),
+ level,
+ clr.GetAsString(wxC2S_HTML_SYNTAX).c_str(),
+ (unsigned long)n, level);
+ arr.Add(label);
+ }
+
+ GetSimpleBox()->Append(arr);
+ }
+}
+
+
// ----------------------------------------------------------------------------
// menu event handlers
// ----------------------------------------------------------------------------
+void MyFrame::OnSimpleOrCustomBox(wxCommandEvent& WXUNUSED(event))
+{
+ wxWindow *old = m_hlbox;
+
+ // we need to recreate the listbox
+ CreateBox();
+ GetSizer()->Replace(old, m_hlbox);
+ delete old;
+
+ GetSizer()->Layout();
+ Refresh();
+}
+
void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
{
- // TRUE is to force the frame to close
- Close(TRUE);
+ // true is to force the frame to close
+ Close(true);
}
void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
{
- wxMessageBox(_T("This sample shows wxHtmlListBox class.\n")
- _T("\n")
- _T("© 2003 Vadim Zeitlin"),
- _T("About HtmlLbox"),
+ wxMessageBox(wxT("This sample shows wxHtmlListBox class.\n")
+ wxT("\n")
+ wxT("(c) 2003 Vadim Zeitlin"),
+ wxT("About HtmlLbox"),
wxOK | wxICON_INFORMATION,
this);
}
{
long margin = wxGetNumberFromUser
(
- _T("Enter the margins to use for the listbox items."),
- _T("Margin: "),
- _T("HtmlLbox: Set the margins"),
+ wxT("Enter the margins to use for the listbox items."),
+ wxT("Margin: "),
+ wxT("HtmlLbox: Set the margins"),
0, 0, 20,
this
);
}
}
-void MyFrame::OnToggleMulti(wxCommandEvent& event)
+void MyFrame::OnToggleMulti(wxCommandEvent& WXUNUSED(event))
{
- // we need to recreate the listbox
- wxSizer *sizer = GetSizer();
- sizer->Detach(m_hlbox);
- delete m_hlbox;
+ wxWindow *old = m_hlbox;
- m_hlbox = new MyHtmlListBox(this, event.IsChecked());
- sizer->Prepend(m_hlbox, 1, wxGROW);
+ // we need to recreate the listbox
+ CreateBox();
+ GetSizer()->Replace(old, m_hlbox);
+ delete old;
- sizer->Layout();
+ GetSizer()->Layout();
}
void MyFrame::OnSelectAll(wxCommandEvent& WXUNUSED(event))
event.Enable( m_hlbox && m_hlbox->HasMultipleSelection() );
}
+void MyFrame::OnUpdateItem(wxCommandEvent& WXUNUSED(event))
+{
+ if (GetMyBox())
+ GetMyBox()->UpdateFirstItem();
+}
+
+void MyFrame::OnGetItemRect(wxCommandEvent& WXUNUSED(event))
+{
+ static const int ITEM = 10;
+ const wxRect r = m_hlbox->GetItemRect(ITEM);
+ wxLogMessage("Rect of item %d: (%d, %d)-(%d, %d)",
+ ITEM, r.x, r.y, r.x + r.width, r.y + r.height);
+}
+
void MyFrame::OnSetBgCol(wxCommandEvent& WXUNUSED(event))
{
wxColour col = wxGetColourFromUser(this, m_hlbox->GetBackgroundColour());
- if ( col.Ok() )
+ if ( col.IsOk() )
{
m_hlbox->SetBackgroundColour(col);
m_hlbox->Refresh();
- SetStatusText(_T("Background colour changed."));
+#if wxUSE_STATUSBAR
+ SetStatusText(wxT("Background colour changed."));
+#endif // wxUSE_STATUSBAR
}
}
void MyFrame::OnSetSelBgCol(wxCommandEvent& WXUNUSED(event))
{
wxColour col = wxGetColourFromUser(this, m_hlbox->GetSelectionBackground());
- if ( col.Ok() )
+ if ( col.IsOk() )
{
m_hlbox->SetSelectionBackground(col);
m_hlbox->Refresh();
- SetStatusText(_T("Selection background colour changed."));
+#if wxUSE_STATUSBAR
+ SetStatusText(wxT("Selection background colour changed."));
+#endif // wxUSE_STATUSBAR
}
}
void MyFrame::OnSetSelFgCol(wxCommandEvent& event)
{
- m_hlbox->SetChangeSelFg(!event.IsChecked());
- m_hlbox->Refresh();
+ if (GetMyBox())
+ {
+ GetMyBox()->SetChangeSelFg(!event.IsChecked());
+ GetMyBox()->Refresh();
+ }
+}
+
+void MyFrame::OnClear(wxCommandEvent& WXUNUSED(event))
+{
+ m_hlbox->Clear();
+}
+
+void MyFrame::OnHtmlLinkClicked(wxHtmlLinkEvent &event)
+{
+ wxLogMessage(wxT("The url '%s' has been clicked!"), event.GetLinkInfo().GetHref().c_str());
+
+ if (GetMyBox())
+ {
+ GetMyBox()->m_linkClicked = true;
+ GetMyBox()->RefreshRow(1);
+ }
+}
+
+void MyFrame::OnHtmlCellHover(wxHtmlCellEvent &event)
+{
+ wxLogMessage(wxT("Mouse moved over cell %p at %d;%d"),
+ event.GetCell(), event.GetPoint().x, event.GetPoint().y);
+}
+
+void MyFrame::OnHtmlCellClicked(wxHtmlCellEvent &event)
+{
+ wxLogMessage(wxT("Click over cell %p at %d;%d"),
+ event.GetCell(), event.GetPoint().x, event.GetPoint().y);
+
+ // if we don't skip the event, OnHtmlLinkClicked won't be called!
+ event.Skip();
}
// ----------------------------------------------------------------------------
void MyFrame::OnLboxSelect(wxCommandEvent& event)
{
- wxLogMessage(_T("Listbox selection is now %ld."), event.GetInt());
+ wxLogMessage(wxT("Listbox selection is now %d."), event.GetInt());
if ( m_hlbox->HasMultipleSelection() )
{
if ( first )
first = false;
else
- s << _T(", ");
+ s << wxT(", ");
s << item;
}
if ( !s.empty() )
- wxLogMessage(_T("Selected items: %s"), s.c_str());
+ {
+ wxLogMessage(wxT("Selected items: %s"), s.c_str());
+ }
}
+#if wxUSE_STATUSBAR
SetStatusText(wxString::Format(
- _T("# items selected = %lu"),
+ wxT("# items selected = %lu"),
(unsigned long)m_hlbox->GetSelectedCount()
));
+#endif // wxUSE_STATUSBAR
}
// ============================================================================
// MyHtmlListBox
// ============================================================================
+IMPLEMENT_DYNAMIC_CLASS(MyHtmlListBox, wxHtmlListBox)
+
MyHtmlListBox::MyHtmlListBox(wxWindow *parent, bool multi)
- : wxHtmlListBox(parent, -1, wxDefaultPosition, wxDefaultSize,
+ : wxHtmlListBox(parent, wxID_ANY, wxDefaultPosition, wxDefaultSize,
multi ? wxLB_MULTIPLE : 0)
{
m_change = true;
+ m_firstItemUpdated = false;
+ m_linkClicked = false;
+
SetMargins(5, 5);
#ifdef USE_HTML_FILE
- if ( !m_file.Open(_T("results")) )
+ if ( !m_file.Open(wxT("results")) )
{
- wxLogError(_T("Failed to open results file"));
+ wxLogError(wxT("Failed to open results file"));
}
else
{
wxString MyHtmlListBox::OnGetItem(size_t n) const
{
+ if ( !n && m_firstItemUpdated )
+ {
+ return wxT("<h1><b>Just updated</b></h1>");
+ }
+
#ifdef USE_HTML_FILE
wxString s;
if ( m_file.IsOpened() )
return s;
#else
int level = n % 6 + 1;
- return wxString::Format(_T("<h%d><font color=#%2x%2x%2x>")
- _T("Item</font> <b>%lu</b>")
- _T("</h%d>"),
- level,
- abs(n - 192) % 256,
- abs(n - 256) % 256,
- abs(n - 128) % 256,
- (unsigned long)n, level);
+
+ wxColour clr((unsigned char)(abs((int)n - 192) % 256),
+ (unsigned char)(abs((int)n - 256) % 256),
+ (unsigned char)(abs((int)n - 128) % 256));
+
+ wxString label = wxString::Format(wxT("<h%d><font color=%s>")
+ wxT("Item</font> <b>%lu</b>")
+ wxT("</h%d>"),
+ level,
+ clr.GetAsString(wxC2S_HTML_SYNTAX).c_str(),
+ (unsigned long)n, level);
+ if ( n == 1 )
+ {
+ if ( !m_linkClicked )
+ label += wxT("<a href='1'>Click here...</a>");
+ else
+ label += wxT("<font color='#9999ff'>Clicked here...</font>");
+ }
+
+ return label;
#endif
}
return m_change ? wxHtmlListBox::GetSelectedTextColour(colFg) : colFg;
}
+void MyHtmlListBox::UpdateFirstItem()
+{
+ m_firstItemUpdated = !m_firstItemUpdated;
+
+ RefreshRow(0);
+}
projects / wxWidgets.git / blobdiff