mars3142/wx_wherigo
1
0
Fork 0
Code Issues Pull Requests Wiki Activity

initial commit

Browse Source 
Signed-off-by: Peter Siegmund <mars3142@noreply.mars3142.dev>
This commit is contained in:
Peter Siegmund
2025-10-31 23:37:30 +01:00
commit 7228269764
9653 changed files with 4034514 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

645
libs/wxWidgets-3.3.1/samples/htlbox/htlbox.cpp Normal file
View File

@@ -0,0 +1,645 @@
/////////////////////////////////////////////////////////////////////////////
// Name: htmllbox.cpp
// Purpose: HtmlLbox wxWidgets sample
// Author: Vadim Zeitlin
// Created: 31.05.03
// Copyright: (c) 2003 Vadim Zeitlin <vadim@wxwidgets.org>
// Licence: wxWindows licence
/////////////////////////////////////////////////////////////////////////////
// ============================================================================
// declarations
// ============================================================================
// ----------------------------------------------------------------------------
// headers
// ----------------------------------------------------------------------------
// For compilers that support precompilation, includes "wx/wx.h".
#include "wx/wxprec.h"
// for all others, include the necessary headers
#ifndef WX_PRECOMP
#include "wx/app.h"
#include "wx/frame.h"
#include "wx/log.h"
#include "wx/textdlg.h"
#include "wx/sizer.h"
#include "wx/menu.h"
#include "wx/msgdlg.h"
#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"
// you can also have a file containing HTML strings for testing, enable this if
// you want to use it
//#define USE_HTML_FILE
#ifdef USE_HTML_FILE
#include "wx/textfile.h"
#endif
#include "../sample.xpm"
// ----------------------------------------------------------------------------
// private classes
// ----------------------------------------------------------------------------
// to use wxHtmlListBox you must derive a new class from it as you must
// implement pure virtual OnGetItem()
class MyHtmlListBox : public wxHtmlListBox
{
public:
MyHtmlListBox() { }
MyHtmlListBox(wxWindow *parent, bool multi = false);
MyHtmlListBox(const MyHtmlListBox&) = delete;
MyHtmlListBox& operator=(const MyHtmlListBox&) = delete;
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 override;
// change the appearance by overriding these functions (this is optional)
virtual void OnDrawSeparator(wxDC& dc, wxRect& rect, size_t n) const override;
virtual wxColour GetSelectedTextColour(const wxColour& colFg) const override;
// 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
wxDECLARE_DYNAMIC_CLASS(MyHtmlListBox);
};
class MyFrame : public wxFrame
{
public:
MyFrame();
virtual ~MyFrame();
// event handlers
void OnSimpleOrCustomBox(wxCommandEvent& event);
void OnQuit(wxCommandEvent& event);
void OnAbout(wxCommandEvent& event);
void OnSetMargins(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("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:
wxHtmlListBox *m_hlbox;
// any class wishing to process wxWidgets events must use this macro
wxDECLARE_EVENT_TABLE();
};
class MyApp : public wxApp
{
public:
virtual bool OnInit() override { (new MyFrame())->Show(); return true; }
};
// ----------------------------------------------------------------------------
// constants
// ----------------------------------------------------------------------------
// IDs for the controls and the menu commands
enum
{
// menu items
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)
HtmlLbox_About = wxID_ABOUT
};
// ----------------------------------------------------------------------------
// event tables and other macros for wxWidgets
// ----------------------------------------------------------------------------
wxBEGIN_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_SetBgCol, MyFrame::OnSetBgCol)
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)
wxEND_EVENT_TABLE()
wxIMPLEMENT_APP(MyApp);
// ============================================================================
// MyFrame
// ============================================================================
// ----------------------------------------------------------------------------
// MyFrame ctor/dtor
// ----------------------------------------------------------------------------
// frame constructor
MyFrame::MyFrame()
: wxFrame(nullptr, wxID_ANY, "HtmlLbox wxWidgets Sample",
wxDefaultPosition, wxSize(500, 500))
{
// set the frame icon
SetIcon(wxICON(sample));
#if wxUSE_MENUS
// create a menu bar
wxMenu *menuFile = new wxMenu;
menuFile->AppendRadioItem(HtmlLbox_CustomBox, "Use custom box",
"Use a wxHtmlListBox virtual class control");
menuFile->AppendRadioItem(HtmlLbox_SimpleBox, "Use simple box",
"Use a wxSimpleHtmlListBox control");
menuFile->AppendSeparator();
menuFile->Append(HtmlLbox_Quit, "E&xit\tAlt-X", "Quit this program");
// create our specific menu
wxMenu *menuHLbox = new wxMenu;
menuHLbox->Append(HtmlLbox_SetMargins,
"Set &margins...\tCtrl-G",
"Change the margins around the items");
menuHLbox->AppendCheckItem(HtmlLbox_DrawSeparator,
"&Draw separators\tCtrl-D",
"Toggle drawing separators between cells");
menuHLbox->AppendSeparator();
menuHLbox->AppendCheckItem(HtmlLbox_ToggleMulti,
"&Multiple selection\tCtrl-M",
"Toggle multiple selection on/off");
menuHLbox->AppendSeparator();
menuHLbox->Append(HtmlLbox_SelectAll, "Select &all items\tCtrl-A");
menuHLbox->Append(HtmlLbox_UpdateItem, "Update &first item\tCtrl-U");
menuHLbox->Append(HtmlLbox_GetItemRect, "Show &rectangle of item #10\tCtrl-R");
menuHLbox->AppendSeparator();
menuHLbox->Append(HtmlLbox_SetBgCol, "Set &background...\tCtrl-B");
menuHLbox->Append(HtmlLbox_SetSelBgCol,
"Set &selection background...\tCtrl-S");
menuHLbox->AppendCheckItem(HtmlLbox_SetSelFgCol,
"Keep &foreground in selection\tCtrl-F");
menuHLbox->AppendSeparator();
menuHLbox->Append(HtmlLbox_Clear, "&Clear\tCtrl-L");
// the "About" item should be in the help menu
wxMenu *helpMenu = new wxMenu;
helpMenu->Append(HtmlLbox_About, "&About\tF1", "Show about dialog");
// now append the freshly created menu to the menu bar...
wxMenuBar *menuBar = new wxMenuBar();
menuBar->Append(menuFile, "&File");
menuBar->Append(menuHLbox, "&Listbox");
menuBar->Append(helpMenu, "&Help");
menuBar->Check(HtmlLbox_DrawSeparator, true);
// ... and attach this menu bar to the frame
SetMenuBar(menuBar);
#endif // wxUSE_MENUS
#if wxUSE_STATUSBAR
// create a status bar just for fun (by default with 1 pane only)
CreateStatusBar(2);
SetStatusText("Welcome to wxWidgets!");
#endif // wxUSE_STATUSBAR
// create the child controls
CreateBox();
wxTextCtrl *text = new wxTextCtrl(this, wxID_ANY, "",
wxDefaultPosition, wxDefaultSize,
wxTE_MULTILINE);
delete wxLog::SetActiveTarget(new wxLogTextCtrl(text));
// and lay them out
wxSizer *sizer = new wxBoxSizer(wxHORIZONTAL);
sizer->Add(m_hlbox, 2, wxGROW);
sizer->Add(text, 3, wxGROW);
SetSizer(sizer);
}
MyFrame::~MyFrame()
{
delete wxLog::SetActiveTarget(nullptr);
}
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, nullptr, 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("<h%d><font color=%s>"
"Item</font> <b>%lu</b>"
"</h%d>",
level,
clr.GetAsString(wxC2S_HTML_SYNTAX),
(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);
}
void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
{
wxMessageBox("This sample shows wxHtmlListBox class.\n"
"\n"
"(c) 2003 Vadim Zeitlin",
"About HtmlLbox",
wxOK | wxICON_INFORMATION,
this);
}
void MyFrame::OnSetMargins(wxCommandEvent& WXUNUSED(event))
{
long margin = wxGetNumberFromUser
(
"Enter the margins to use for the listbox items.",
"Margin: ",
"HtmlLbox: Set the margins",
0, 0, 20,
this
);
if ( margin != -1 )
{
m_hlbox->SetMargins(margin, margin);
m_hlbox->RefreshAll();
}
}
void MyFrame::OnToggleMulti(wxCommandEvent& WXUNUSED(event))
{
wxWindow *old = m_hlbox;
// we need to recreate the listbox
CreateBox();
GetSizer()->Replace(old, m_hlbox);
delete old;
GetSizer()->Layout();
}
void MyFrame::OnSelectAll(wxCommandEvent& WXUNUSED(event))
{
m_hlbox->SelectAll();
}
void MyFrame::OnUpdateUISelectAll(wxUpdateUIEvent& 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.IsOk() )
{
m_hlbox->SetBackgroundColour(col);
m_hlbox->Refresh();
#if wxUSE_STATUSBAR
SetStatusText("Background colour changed.");
#endif // wxUSE_STATUSBAR
}
}
void MyFrame::OnSetSelBgCol(wxCommandEvent& WXUNUSED(event))
{
wxColour col = wxGetColourFromUser(this, m_hlbox->GetSelectionBackground());
if ( col.IsOk() )
{
m_hlbox->SetSelectionBackground(col);
m_hlbox->Refresh();
#if wxUSE_STATUSBAR
SetStatusText("Selection background colour changed.");
#endif // wxUSE_STATUSBAR
}
}
void MyFrame::OnSetSelFgCol(wxCommandEvent& event)
{
if (GetMyBox())
{
GetMyBox()->SetChangeSelFg(!event.IsChecked());
GetMyBox()->Refresh();
}
}
void MyFrame::OnClear(wxCommandEvent& WXUNUSED(event))
{
m_hlbox->Clear();
}
void MyFrame::OnHtmlLinkClicked(wxHtmlLinkEvent &event)
{
wxLogMessage("The url '%s' has been clicked!", event.GetLinkInfo().GetHref());
if (GetMyBox())
{
GetMyBox()->m_linkClicked = true;
GetMyBox()->RefreshRow(1);
}
}
void MyFrame::OnHtmlCellHover(wxHtmlCellEvent &event)
{
wxLogMessage("Mouse moved over cell %p at %d;%d",
event.GetCell(), event.GetPoint().x, event.GetPoint().y);
}
void MyFrame::OnHtmlCellClicked(wxHtmlCellEvent &event)
{
wxLogMessage("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();
}
// ----------------------------------------------------------------------------
// listbox event handlers
// ----------------------------------------------------------------------------
void MyFrame::OnLboxSelect(wxCommandEvent& event)
{
wxLogMessage("Listbox selection is now %d.", event.GetInt());
if ( m_hlbox->HasMultipleSelection() )
{
wxString s;
bool first = true;
unsigned long cookie;
for ( int item = m_hlbox->GetFirstSelected(cookie);
item != wxNOT_FOUND;
item = m_hlbox->GetNextSelected(cookie) )
{
if ( first )
first = false;
else
s << ", ";
s << item;
}
if ( !s.empty() )
{
wxLogMessage("Selected items: %s", s);
}
}
#if wxUSE_STATUSBAR
SetStatusText(wxString::Format(
"# items selected = %lu",
(unsigned long)m_hlbox->GetSelectedCount()
));
#endif // wxUSE_STATUSBAR
}
// ============================================================================
// MyHtmlListBox
// ============================================================================
wxIMPLEMENT_DYNAMIC_CLASS(MyHtmlListBox, wxHtmlListBox);
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("results") )
{
wxLogError("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())->
GetMenuBar()->IsChecked(HtmlLbox_DrawSeparator) )
{
dc.SetPen(*wxBLACK_DASHED_PEN);
dc.DrawLine(rect.x, rect.y, rect.GetRight(), rect.y);
dc.DrawLine(rect.x, rect.GetBottom(), rect.GetRight(), rect.GetBottom());
}
}
wxString MyHtmlListBox::OnGetItem(size_t n) const
{
if ( !n && m_firstItemUpdated )
{
return "<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("<h%d><font color=%s>"
"Item</font> <b>%lu</b>"
"</h%d>",
level,
clr.GetAsString(wxC2S_HTML_SYNTAX),
(unsigned long)n, level);
if ( n == 1 )
{
if ( !m_linkClicked )
label += "<a href='1'>Click here...</a>";
else
label += "<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;
RefreshRow(0);
}