preparing wxHtmlWindow for text selection (highlighting works, mouse input and clipbo...
[wxWidgets.git] / src / html / m_list.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: m_list.cpp
3 // Purpose: wxHtml module for lists
4 // Author: Vaclav Slavik
5 // RCS-ID: $Id$
6 // Copyright: (c) 1999 Vaclav Slavik
7 // Licence: wxWindows Licence
8 /////////////////////////////////////////////////////////////////////////////
9 #ifdef __GNUG__
10 #pragma implementation
11 #endif
12
13 #include "wx/wxprec.h"
14
15
16 #include "wx/defs.h"
17 #if wxUSE_HTML && wxUSE_STREAMS
18
19 #ifdef __BORLANDC__
20 #pragma hdrstop
21 #endif
22
23 #ifndef WXPRECOMP
24 #include "wx/brush.h"
25 #include "wx/dc.h"
26 #endif
27
28 #include "wx/html/forcelnk.h"
29 #include "wx/html/m_templ.h"
30
31 #include "wx/html/htmlcell.h"
32
33 FORCE_LINK_ME(m_list)
34
35
36 //-----------------------------------------------------------------------------
37 // wxHtmlListmarkCell
38 //-----------------------------------------------------------------------------
39
40 class wxHtmlListmarkCell : public wxHtmlCell
41 {
42 private:
43 wxBrush m_Brush;
44 public:
45 wxHtmlListmarkCell(wxDC *dc, const wxColour& clr);
46 void Draw(wxDC& dc, int x, int y, int view_y1, int view_y2,
47 wxHtmlRenderingState& state);
48 };
49
50 wxHtmlListmarkCell::wxHtmlListmarkCell(wxDC* dc, const wxColour& clr) : wxHtmlCell(), m_Brush(clr, wxSOLID)
51 {
52 m_Width = dc->GetCharHeight();
53 m_Height = dc->GetCharHeight();
54 m_Descent = 0;
55 }
56
57
58
59 void wxHtmlListmarkCell::Draw(wxDC& dc, int x, int y,
60 int WXUNUSED(view_y1), int WXUNUSED(view_y2),
61 wxHtmlRenderingState& WXUNUSED(state))
62 {
63 dc.SetBrush(m_Brush);
64 dc.DrawEllipse(x + m_PosX + m_Width / 3, y + m_PosY + m_Height / 3,
65 (m_Width / 3), (m_Width / 3));
66 }
67
68
69
70
71 //-----------------------------------------------------------------------------
72 // The list handler:
73 //-----------------------------------------------------------------------------
74
75
76 TAG_HANDLER_BEGIN(OLULLI, "OL,UL,LI")
77
78 TAG_HANDLER_VARS
79 int m_Numbering;
80 // this is number of actual item of list or 0 for dots
81
82 TAG_HANDLER_CONSTR(OLULLI)
83 {
84 m_Numbering = 0;
85 }
86
87 TAG_HANDLER_PROC(tag)
88 {
89 wxHtmlContainerCell *c;
90
91 // List Item:
92 if (tag.GetName() == wxT("LI"))
93 {
94 m_WParser->GetContainer()->SetIndent(0, wxHTML_INDENT_TOP);
95 // this is to prevent indetation in <li><p> case
96 m_WParser->CloseContainer();
97 m_WParser->CloseContainer();
98
99 c = m_WParser->OpenContainer();
100 c->SetWidthFloat(2 * m_WParser->GetCharWidth(), wxHTML_UNITS_PIXELS);
101 if (m_Numbering == 0)
102 {
103 // Centering gives more space after the bullet
104 c->SetAlignHor(wxHTML_ALIGN_CENTER);
105 c->InsertCell(new wxHtmlListmarkCell(m_WParser->GetDC(), m_WParser->GetActualColor()));
106 }
107 else
108 {
109 c->SetAlignHor(wxHTML_ALIGN_RIGHT);
110 wxString mark;
111 mark.Printf(wxT("%i."), m_Numbering);
112 c->InsertCell(new wxHtmlWordCell(mark, *(m_WParser->GetDC())));
113 }
114 m_WParser->CloseContainer();
115
116 c = m_WParser->OpenContainer();
117 c->SetIndent(m_WParser->GetCharWidth() / 4, wxHTML_INDENT_LEFT);
118 c->SetWidthFloat(-2 * m_WParser->GetCharWidth(), wxHTML_UNITS_PIXELS);
119
120 m_WParser->OpenContainer();
121
122 if (m_Numbering != 0) m_Numbering++;
123
124 return FALSE;
125 }
126
127 // Begin of List (not-numbered): "UL", "OL"
128 else
129 {
130 int oldnum = m_Numbering;
131
132 if (tag.GetName() == wxT("UL")) m_Numbering = 0;
133 else m_Numbering = 1;
134
135 c = m_WParser->GetContainer();
136 if (c->GetFirstCell() != NULL)
137 {
138 m_WParser->CloseContainer();
139 m_WParser->OpenContainer();
140 c = m_WParser->GetContainer();
141 }
142 c->SetAlignHor(wxHTML_ALIGN_LEFT);
143 c->SetIndent(2 * m_WParser->GetCharWidth(), wxHTML_INDENT_LEFT);
144 m_WParser->OpenContainer()->SetAlignVer(wxHTML_ALIGN_TOP);
145
146 m_WParser->OpenContainer();
147 m_WParser->OpenContainer();
148 ParseInner(tag);
149
150 m_WParser->GetContainer()->SetIndent(0, wxHTML_INDENT_TOP);
151 // this is to prevent indetation in <li><p> case
152 m_WParser->CloseContainer();
153
154 m_WParser->CloseContainer();
155 m_WParser->CloseContainer();
156 m_WParser->CloseContainer();
157 m_WParser->OpenContainer();
158
159 m_Numbering = oldnum;
160 return TRUE;
161 }
162 }
163
164 TAG_HANDLER_END(OLULLI)
165
166
167 TAGS_MODULE_BEGIN(List)
168
169 TAGS_MODULE_ADD(OLULLI)
170
171 TAGS_MODULE_END(List)
172
173 #endif