RD forgot to add "Do"

[wxWidgets.git] / samples / htlbox / htlbox.cpp

diff --git a/samples/htlbox/htlbox.cpp b/samples/htlbox/htlbox.cpp
index adae3ed978a5110ee8e65e469676ad7d64ba9130..a1f97576247a30c0228b52300c146c24d0444334 100644 (file)
--- a/samples/htlbox/htlbox.cpp
+++ b/samples/htlbox/htlbox.cpp
@@ -1,11 +1,11 @@
 /////////////////////////////////////////////////////////////////////////////
 // Name:        htmllbox.cpp
 /////////////////////////////////////////////////////////////////////////////
 // Name:        htmllbox.cpp

-// Purpose:     HtmlLbox wxWindows sample
+// Purpose:     HtmlLbox wxWidgets sample

 // Author:      Vadim Zeitlin
 // Modified by:
 // Created:     31.05.03
 // RCS-ID:      $Id$
 // 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
 /////////////////////////////////////////////////////////////////////////////
 
 // Licence:     wxWindows licence
 /////////////////////////////////////////////////////////////////////////////
 


@@ -37,8 +37,12 @@
     #include "wx/textctrl.h"
 
     #include "wx/dc.h"
     #include "wx/textctrl.h"
 
     #include "wx/dc.h"

+    #include "wx/icon.h"

 #endif
 
 #endif
 

+#include "wx/colordlg.h"
+#include "wx/numdlg.h"
+

 #include "wx/htmllbox.h"
 
 // you can also have a file containing HTML strings for testing, enable this if
 #include "wx/htmllbox.h"
 
 // you can also have a file containing HTML strings for testing, enable this if


@@ -48,14 +52,7 @@
     #include "wx/textfile.h"
 #endif
 
     #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
 
 // ----------------------------------------------------------------------------
 // private classes


@@ -66,56 +63,40 @@
 class MyHtmlListBox : public wxHtmlListBox
 {
 public:
 class MyHtmlListBox : public wxHtmlListBox
 {
 public:

-    MyHtmlListBox(wxWindow *parent, bool multi = false)
-        : wxHtmlListBox(parent, -1, wxDefaultPosition, wxDefaultSize,
-                        multi ? wxLB_MULTIPLE : 0)
-    {
-        SetMargins(5, 5);
+    MyHtmlListBox(wxWindow *parent, bool multi = false);

 
 

-#ifdef USE_HTML_FILE
-        if ( !m_file.Open("results") )
-        {
-            wxLogError("Failed to open results file");
-        }
-        else
-        {
-            SetItemCount(m_file.GetLineCount());
-        }
-#else
-        SetItemCount(10);
-#endif
-
-        if ( HasMultipleSelection() )
-            Select(3);
-        else
-            SetSelection(3);
-    }
+    void SetChangeSelFg(bool change) { m_change = change; }
+    void UpdateFirstItem();

 
 protected:
 
 protected:

-    virtual wxString OnGetItem(size_t n) const
-    {
-#ifdef USE_HTML_FILE
-        wxString s;
-        if ( m_file.IsOpened() )
-            s = m_file[n];
-
-        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);
-#endif
-    }
+    // 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 (this is optional)

     virtual void OnDrawSeparator(wxDC& dc, wxRect& rect, size_t n) const;
     virtual void OnDrawSeparator(wxDC& dc, wxRect& rect, size_t n) const;

+    virtual wxColour GetSelectedTextColour(const wxColour& colFg) const;
+
+    // override this method to handle mouse clicks
+    virtual void OnLinkClicked(size_t n, const wxHtmlLinkInfo& link);

 
 

+    // 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;
+
+    // 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;
     wxTextFile m_file;

+#endif
+
+    DECLARE_NO_COPY_CLASS(MyHtmlListBox)

 };
 
 class MyFrame : public wxFrame
 };
 
 class MyFrame : public wxFrame


@@ -132,6 +113,12 @@ public:
     void OnDrawSeparator(wxCommandEvent&) { m_hlbox->RefreshAll(); }
     void OnToggleMulti(wxCommandEvent& event);
     void OnSelectAll(wxCommandEvent& event);
     void OnDrawSeparator(wxCommandEvent&) { m_hlbox->RefreshAll(); }
     void OnToggleMulti(wxCommandEvent& event);
     void OnSelectAll(wxCommandEvent& event);

+    void OnUpdateItem(wxCommandEvent& event);
+
+    void OnSetBgCol(wxCommandEvent& event);
+    void OnSetSelBgCol(wxCommandEvent& event);
+    void OnSetSelFgCol(wxCommandEvent& event);
+

 
     void OnUpdateUISelectAll(wxUpdateUIEvent& event);
 
 
     void OnUpdateUISelectAll(wxUpdateUIEvent& event);
 


@@ -144,14 +131,14 @@ public:
 private:
     MyHtmlListBox *m_hlbox;
 
 private:
     MyHtmlListBox *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:
     DECLARE_EVENT_TABLE()
 };
 
 class MyApp : public wxApp
 {
 public:

-    virtual bool OnInit() { (new MyFrame())->Show(); return TRUE; }
+    virtual bool OnInit() { (new MyFrame())->Show(); return true; }

 };
 
 // ----------------------------------------------------------------------------
 };
 
 // ----------------------------------------------------------------------------


@@ -168,6 +155,11 @@ enum
     HtmlLbox_DrawSeparator,
     HtmlLbox_ToggleMulti,
     HtmlLbox_SelectAll,
     HtmlLbox_DrawSeparator,
     HtmlLbox_ToggleMulti,
     HtmlLbox_SelectAll,

+    HtmlLbox_UpdateItem,
+
+    HtmlLbox_SetBgCol,
+    HtmlLbox_SetSelBgCol,
+    HtmlLbox_SetSelFgCol,

 
     // 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
 
     // 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


@@ -176,7 +168,7 @@ enum
 };
 
 // ----------------------------------------------------------------------------
 };
 
 // ----------------------------------------------------------------------------

-// event tables and other macros for wxWindows
+// event tables and other macros for wxWidgets

 // ----------------------------------------------------------------------------
 
 BEGIN_EVENT_TABLE(MyFrame, wxFrame)
 // ----------------------------------------------------------------------------
 
 BEGIN_EVENT_TABLE(MyFrame, wxFrame)


@@ -186,9 +178,13 @@ BEGIN_EVENT_TABLE(MyFrame, wxFrame)
     EVT_MENU(HtmlLbox_DrawSeparator, MyFrame::OnDrawSeparator)
     EVT_MENU(HtmlLbox_ToggleMulti, MyFrame::OnToggleMulti)
     EVT_MENU(HtmlLbox_SelectAll, MyFrame::OnSelectAll)
     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_About, MyFrame::OnAbout)
 
 
     EVT_MENU(HtmlLbox_About, MyFrame::OnAbout)
 

+    EVT_MENU(HtmlLbox_SetBgCol, MyFrame::OnSetBgCol)
+    EVT_MENU(HtmlLbox_SetSelBgCol, MyFrame::OnSetSelBgCol)
+    EVT_MENU(HtmlLbox_SetSelFgCol, MyFrame::OnSetSelFgCol)

 
     EVT_UPDATE_UI(HtmlLbox_SelectAll, MyFrame::OnUpdateUISelectAll)
 
 
     EVT_UPDATE_UI(HtmlLbox_SelectAll, MyFrame::OnUpdateUISelectAll)
 


@@ -209,11 +205,11 @@ IMPLEMENT_APP(MyApp)
 
 // frame constructor
 MyFrame::MyFrame()
 
 // frame constructor
 MyFrame::MyFrame()

-       : wxFrame(NULL, -1, _T("HtmlLbox wxWindows Sample"),
+       : wxFrame(NULL, wxID_ANY, _T("HtmlLbox wxWidgets Sample"),

                  wxDefaultPosition, wxSize(400, 500))
 {
     // set the frame icon
                  wxDefaultPosition, wxSize(400, 500))
 {
     // set the frame icon

-    SetIcon(wxICON(mondrian));
+    SetIcon(wxIcon(sample_xpm));

 
 #if wxUSE_MENUS
     // create a menu bar
 
 #if wxUSE_MENUS
     // create a menu bar


@@ -226,7 +222,7 @@ MyFrame::MyFrame()
                       _T("Set &margins...\tCtrl-G"),
                       _T("Change the margins around the items"));
     menuHLbox->AppendCheckItem(HtmlLbox_DrawSeparator,
                       _T("Set &margins...\tCtrl-G"),
                       _T("Change the margins around the items"));
     menuHLbox->AppendCheckItem(HtmlLbox_DrawSeparator,

-                               _T("Draw &separators\tCtrl-S"),
+                               _T("&Draw separators\tCtrl-D"),

                                _T("Toggle drawing separators between cells"));
     menuHLbox->AppendSeparator();
     menuHLbox->AppendCheckItem(HtmlLbox_ToggleMulti,
                                _T("Toggle drawing separators between cells"));
     menuHLbox->AppendSeparator();
     menuHLbox->AppendCheckItem(HtmlLbox_ToggleMulti,


@@ -234,6 +230,13 @@ MyFrame::MyFrame()
                                _T("Toggle multiple selection on/off"));
     menuHLbox->AppendSeparator();
     menuHLbox->Append(HtmlLbox_SelectAll, _T("Select &all items\tCtrl-A"));
                                _T("Toggle multiple selection on/off"));
     menuHLbox->AppendSeparator();
     menuHLbox->Append(HtmlLbox_SelectAll, _T("Select &all items\tCtrl-A"));

+    menuHLbox->Append(HtmlLbox_UpdateItem, _T("Update &first item\tCtrl-U"));
+    menuHLbox->AppendSeparator();
+    menuHLbox->Append(HtmlLbox_SetBgCol, _T("Set &background...\tCtrl-B"));
+    menuHLbox->Append(HtmlLbox_SetSelBgCol,
+                      _T("Set &selection background...\tCtrl-S"));
+    menuHLbox->AppendCheckItem(HtmlLbox_SetSelFgCol,
+                               _T("Keep &foreground in selection\tCtrl-F"));

 
     // the "About" item should be in the help menu
     wxMenu *helpMenu = new wxMenu;
 
     // the "About" item should be in the help menu
     wxMenu *helpMenu = new wxMenu;


@@ -254,12 +257,12 @@ MyFrame::MyFrame()
 #if wxUSE_STATUSBAR
     // create a status bar just for fun (by default with 1 pane only)
     CreateStatusBar(2);
 #if wxUSE_STATUSBAR
     // create a status bar just for fun (by default with 1 pane only)
     CreateStatusBar(2);

-    SetStatusText(_T("Welcome to wxWindows!"));
+    SetStatusText(_T("Welcome to wxWidgets!"));

 #endif // wxUSE_STATUSBAR
 
     // create the child controls
     m_hlbox = new MyHtmlListBox(this);
 #endif // wxUSE_STATUSBAR
 
     // create the child controls
     m_hlbox = new MyHtmlListBox(this);

-    wxTextCtrl *text = new wxTextCtrl(this, -1, _T(""),
+    wxTextCtrl *text = new wxTextCtrl(this, wxID_ANY, _T(""),

                                       wxDefaultPosition, wxDefaultSize,
                                       wxTE_MULTILINE);
     delete wxLog::SetActiveTarget(new wxLogTextCtrl(text));
                                       wxDefaultPosition, wxDefaultSize,
                                       wxTE_MULTILINE);
     delete wxLog::SetActiveTarget(new wxLogTextCtrl(text));


@@ -283,21 +286,21 @@ MyFrame::~MyFrame()
 
 void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
 {
 
 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")
 }
 
 void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
 {
     wxMessageBox(_T("This sample shows wxHtmlListBox class.\n")
                  _T("\n")

-                 _T("© 2003 Vadim Zeitlin"),
+                 _T("(c) 2003 Vadim Zeitlin"),

                  _T("About HtmlLbox"),
                  wxOK | wxICON_INFORMATION,
                  this);
 }
 
                  _T("About HtmlLbox"),
                  wxOK | wxICON_INFORMATION,
                  this);
 }
 

-void MyFrame::OnSetMargins(wxCommandEvent&)
+void MyFrame::OnSetMargins(wxCommandEvent& WXUNUSED(event))

 {
     long margin = wxGetNumberFromUser
                   (
 {
     long margin = wxGetNumberFromUser
                   (


@@ -328,9 +331,9 @@ void MyFrame::OnToggleMulti(wxCommandEvent& event)
     sizer->Layout();
 }
 
     sizer->Layout();
 }
 

-void MyFrame::OnSelectAll(wxCommandEvent& event)
+void MyFrame::OnSelectAll(wxCommandEvent& WXUNUSED(event))

 {
 {

-    m_hlbox->SelectRange(0, m_hlbox->GetItemCount() - 1);
+    m_hlbox->SelectAll();

 }
 
 void MyFrame::OnUpdateUISelectAll(wxUpdateUIEvent& event)
 }
 
 void MyFrame::OnUpdateUISelectAll(wxUpdateUIEvent& event)


@@ -338,6 +341,45 @@ void MyFrame::OnUpdateUISelectAll(wxUpdateUIEvent& event)
     event.Enable( m_hlbox && m_hlbox->HasMultipleSelection() );
 }
 
     event.Enable( m_hlbox && m_hlbox->HasMultipleSelection() );
 }
 

+void MyFrame::OnUpdateItem(wxCommandEvent& WXUNUSED(event))
+{
+    m_hlbox->UpdateFirstItem();
+}
+
+void MyFrame::OnSetBgCol(wxCommandEvent& WXUNUSED(event))
+{
+    wxColour col = wxGetColourFromUser(this, m_hlbox->GetBackgroundColour());
+    if ( col.Ok() )
+    {
+        m_hlbox->SetBackgroundColour(col);
+        m_hlbox->Refresh();
+
+#if wxUSE_STATUSBAR
+        SetStatusText(_T("Background colour changed."));
+#endif // wxUSE_STATUSBAR
+    }
+}
+
+void MyFrame::OnSetSelBgCol(wxCommandEvent& WXUNUSED(event))
+{
+    wxColour col = wxGetColourFromUser(this, m_hlbox->GetSelectionBackground());
+    if ( col.Ok() )
+    {
+        m_hlbox->SetSelectionBackground(col);
+        m_hlbox->Refresh();
+
+#if wxUSE_STATUSBAR
+        SetStatusText(_T("Selection background colour changed."));
+#endif // wxUSE_STATUSBAR
+    }
+}
+
+void MyFrame::OnSetSelFgCol(wxCommandEvent& event)
+{
+    m_hlbox->SetChangeSelFg(!event.IsChecked());
+    m_hlbox->Refresh();
+}
+

 // ----------------------------------------------------------------------------
 // listbox event handlers
 // ----------------------------------------------------------------------------
 // ----------------------------------------------------------------------------
 // listbox event handlers
 // ----------------------------------------------------------------------------


@@ -368,16 +410,45 @@ void MyFrame::OnLboxSelect(wxCommandEvent& event)
             wxLogMessage(_T("Selected items: %s"), s.c_str());
     }
 
             wxLogMessage(_T("Selected items: %s"), s.c_str());
     }
 

+#if wxUSE_STATUSBAR

     SetStatusText(wxString::Format(
                     _T("# items selected = %lu"),
                     (unsigned long)m_hlbox->GetSelectedCount()
                   ));
     SetStatusText(wxString::Format(
                     _T("# items selected = %lu"),
                     (unsigned long)m_hlbox->GetSelectedCount()
                   ));

+#endif // wxUSE_STATUSBAR

 }
 
 // ============================================================================
 // MyHtmlListBox
 // ============================================================================
 
 }
 
 // ============================================================================
 // MyHtmlListBox
 // ============================================================================
 

+MyHtmlListBox::MyHtmlListBox(wxWindow *parent, bool multi)
+             : 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")) )
+    {
+        wxLogError(_T("Failed to open results file"));
+    }
+    else
+    {
+        SetItemCount(m_file.GetLineCount());
+    }
+#else
+    SetItemCount(1000);
+#endif
+
+    SetSelection(3);
+}
+

 void MyHtmlListBox::OnDrawSeparator(wxDC& dc, wxRect& rect, size_t) const
 {
     if ( ((MyFrame *)GetParent())->
 void MyHtmlListBox::OnDrawSeparator(wxDC& dc, wxRect& rect, size_t) const
 {
     if ( ((MyFrame *)GetParent())->


@@ -389,3 +460,60 @@ void MyHtmlListBox::OnDrawSeparator(wxDC& dc, wxRect& rect, size_t) const
     }
 }
 
     }
 }
 

+wxString MyHtmlListBox::OnGetItem(size_t n) const
+{
+    if ( !n && m_firstItemUpdated )
+    {
+        return wxString::Format(_T("<h1><b>Just updated</b></h1>"));
+    }
+
+#ifdef USE_HTML_FILE
+    wxString s;
+    if ( m_file.IsOpened() )
+        s = m_file[n];
+
+    return s;
+#else
+    int level = n % 6 + 1;
+
+    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(_T("<h%d><font color=%s>")
+                                      _T("Item</font> <b>%lu</b>")
+                                      _T("</h%d>"),
+                                      level,
+                                      clr.GetAsString(wxC2S_HTML_SYNTAX).c_str(),
+                                      (unsigned long)n, level);
+    if ( n == 1 )
+    {
+        if ( !m_linkClicked )
+            label += _T("<a href='1'>Click here...</a>");
+        else
+            label += _T("<font color='#9999ff'>Clicked here...</font>");
+    }
+
+    return label;
+#endif
+}
+
+wxColour MyHtmlListBox::GetSelectedTextColour(const wxColour& colFg) const
+{
+    return m_change ? wxHtmlListBox::GetSelectedTextColour(colFg) : colFg;
+}
+
+void MyHtmlListBox::UpdateFirstItem()
+{
+    m_firstItemUpdated = !m_firstItemUpdated;
+
+    RefreshLine(0);
+}
+
+void MyHtmlListBox::OnLinkClicked(size_t WXUNUSED(n),
+                                  const wxHtmlLinkInfo& WXUNUSED(link))
+{
+    m_linkClicked = true;
+
+    RefreshLine(1);
+}