]> git.saurik.com Git - wxWidgets.git/blame - src/richtext/richtexttabspage.cpp
Improve wxCheckListBox appearance under Vista/Win7.
[wxWidgets.git] / src / richtext / richtexttabspage.cpp
CommitLineData
97ff49b3 1/////////////////////////////////////////////////////////////////////////////
b68603d5 2// Name: src/richtext/richtexttabspage.cpp
97ff49b3
JS
3// Purpose:
4// Author: Julian Smart
5// Modified by:
6// Created: 10/4/2006 8:03:20 AM
b68603d5 7// RCS-ID: $Id$
97ff49b3 8// Copyright: (c) Julian Smart
b68603d5 9// Licence: wxWindows licence
97ff49b3
JS
10/////////////////////////////////////////////////////////////////////////////
11
b68603d5
WS
12#if wxUSE_RICHTEXT
13
14#include "wx/richtext/richtexttabspage.h"
15
97ff49b3
JS
16/*!
17 * wxRichTextTabsPage type definition
18 */
19
20IMPLEMENT_DYNAMIC_CLASS( wxRichTextTabsPage, wxPanel )
21
22/*!
23 * wxRichTextTabsPage event table definition
24 */
25
26BEGIN_EVENT_TABLE( wxRichTextTabsPage, wxPanel )
27
28////@begin wxRichTextTabsPage event table entries
29 EVT_LISTBOX( ID_RICHTEXTTABSPAGE_TABLIST, wxRichTextTabsPage::OnTablistSelected )
30
31 EVT_BUTTON( ID_RICHTEXTTABSPAGE_NEW_TAB, wxRichTextTabsPage::OnNewTabClick )
32 EVT_UPDATE_UI( ID_RICHTEXTTABSPAGE_NEW_TAB, wxRichTextTabsPage::OnNewTabUpdate )
33
34 EVT_BUTTON( ID_RICHTEXTTABSPAGE_DELETE_TAB, wxRichTextTabsPage::OnDeleteTabClick )
35 EVT_UPDATE_UI( ID_RICHTEXTTABSPAGE_DELETE_TAB, wxRichTextTabsPage::OnDeleteTabUpdate )
36
37 EVT_BUTTON( ID_RICHTEXTTABSPAGE_DELETE_ALL_TABS, wxRichTextTabsPage::OnDeleteAllTabsClick )
38 EVT_UPDATE_UI( ID_RICHTEXTTABSPAGE_DELETE_ALL_TABS, wxRichTextTabsPage::OnDeleteAllTabsUpdate )
39
40////@end wxRichTextTabsPage event table entries
41
42END_EVENT_TABLE()
43
44/*!
45 * wxRichTextTabsPage constructors
46 */
47
48wxRichTextTabsPage::wxRichTextTabsPage( )
49{
50 Init();
51}
52
53wxRichTextTabsPage::wxRichTextTabsPage( wxWindow* parent, wxWindowID id, const wxPoint& pos, const wxSize& size, long style )
54{
55 Init();
56 Create(parent, id, pos, size, style);
57}
58
59/*!
60 * Initialise members
61 */
5778b3c8 62
97ff49b3
JS
63void wxRichTextTabsPage::Init()
64{
65 m_tabsPresent = false;
66
67////@begin wxRichTextTabsPage member initialisation
68 m_tabEditCtrl = NULL;
69 m_tabListCtrl = NULL;
70////@end wxRichTextTabsPage member initialisation
71}
72
73/*!
74 * wxRichTextTabsPage creator
75 */
76
77bool wxRichTextTabsPage::Create( wxWindow* parent, wxWindowID id, const wxPoint& pos, const wxSize& size, long style )
78{
79////@begin wxRichTextTabsPage creation
80 wxPanel::Create( parent, id, pos, size, style );
81
82 CreateControls();
83 if (GetSizer())
84 {
85 GetSizer()->SetSizeHints(this);
86 }
87 Centre();
88////@end wxRichTextTabsPage creation
89 return true;
90}
91
92/*!
93 * Control creation for wxRichTextTabsPage
94 */
95
96void wxRichTextTabsPage::CreateControls()
97{
98////@begin wxRichTextTabsPage content construction
99 wxRichTextTabsPage* itemPanel1 = this;
100
101 wxBoxSizer* itemBoxSizer2 = new wxBoxSizer(wxVERTICAL);
102 itemPanel1->SetSizer(itemBoxSizer2);
103
104 wxBoxSizer* itemBoxSizer3 = new wxBoxSizer(wxVERTICAL);
105 itemBoxSizer2->Add(itemBoxSizer3, 1, wxGROW|wxALL, 5);
106
107 wxBoxSizer* itemBoxSizer4 = new wxBoxSizer(wxHORIZONTAL);
108 itemBoxSizer3->Add(itemBoxSizer4, 1, wxGROW, 5);
109
110 wxBoxSizer* itemBoxSizer5 = new wxBoxSizer(wxVERTICAL);
111 itemBoxSizer4->Add(itemBoxSizer5, 0, wxGROW, 5);
112
113 wxStaticText* itemStaticText6 = new wxStaticText( itemPanel1, wxID_STATIC, _("&Position (tenths of a mm):"), wxDefaultPosition, wxDefaultSize, 0 );
69ce77e2 114 itemBoxSizer5->Add(itemStaticText6, 0, wxALIGN_LEFT|wxLEFT|wxRIGHT|wxTOP, 5);
97ff49b3 115
9a83f860 116 m_tabEditCtrl = new wxTextCtrl( itemPanel1, ID_RICHTEXTTABSPAGE_TABEDIT, wxT(""), wxDefaultPosition, wxDefaultSize, 0 );
dadd4f55 117 m_tabEditCtrl->SetHelpText(_("The tab position."));
5bf3b6fe 118 if (wxRichTextTabsPage::ShowToolTips())
dadd4f55 119 m_tabEditCtrl->SetToolTip(_("The tab position."));
97ff49b3
JS
120 itemBoxSizer5->Add(m_tabEditCtrl, 0, wxGROW|wxALL, 5);
121
5bf3b6fe
JS
122 wxArrayString m_tabListCtrlStrings;
123 m_tabListCtrlStrings.Add(_("The tab positions."));
124 m_tabListCtrl = new wxListBox( itemPanel1, ID_RICHTEXTTABSPAGE_TABLIST, wxDefaultPosition, wxSize(80, 200), m_tabListCtrlStrings, wxLB_SINGLE );
97ff49b3
JS
125 itemBoxSizer5->Add(m_tabListCtrl, 1, wxGROW|wxLEFT|wxRIGHT|wxBOTTOM, 5);
126
127 itemBoxSizer4->Add(2, 1, 1, wxALIGN_CENTER_VERTICAL|wxTOP|wxBOTTOM, 5);
128
129 wxBoxSizer* itemBoxSizer10 = new wxBoxSizer(wxVERTICAL);
130 itemBoxSizer4->Add(itemBoxSizer10, 0, wxGROW, 5);
131
9a83f860 132 wxStaticText* itemStaticText11 = new wxStaticText( itemPanel1, wxID_STATIC, wxT(""), wxDefaultPosition, wxDefaultSize, 0 );
69ce77e2 133 itemBoxSizer10->Add(itemStaticText11, 0, wxALIGN_CENTER_HORIZONTAL|wxBOTTOM, 5);
97ff49b3
JS
134
135 wxButton* itemButton12 = new wxButton( itemPanel1, ID_RICHTEXTTABSPAGE_NEW_TAB, _("&New"), wxDefaultPosition, wxDefaultSize, 0 );
dadd4f55 136 itemButton12->SetHelpText(_("Click to create a new tab position."));
5bf3b6fe 137 if (wxRichTextTabsPage::ShowToolTips())
dadd4f55 138 itemButton12->SetToolTip(_("Click to create a new tab position."));
5bf3b6fe 139 itemBoxSizer10->Add(itemButton12, 0, wxGROW|wxALL, 5);
97ff49b3
JS
140
141 wxButton* itemButton13 = new wxButton( itemPanel1, ID_RICHTEXTTABSPAGE_DELETE_TAB, _("&Delete"), wxDefaultPosition, wxDefaultSize, 0 );
dadd4f55 142 itemButton13->SetHelpText(_("Click to delete the selected tab position."));
5bf3b6fe 143 if (wxRichTextTabsPage::ShowToolTips())
dadd4f55 144 itemButton13->SetToolTip(_("Click to delete the selected tab position."));
5bf3b6fe 145 itemBoxSizer10->Add(itemButton13, 0, wxGROW|wxLEFT|wxRIGHT|wxBOTTOM, 5);
97ff49b3
JS
146
147 wxButton* itemButton14 = new wxButton( itemPanel1, ID_RICHTEXTTABSPAGE_DELETE_ALL_TABS, _("Delete A&ll"), wxDefaultPosition, wxDefaultSize, 0 );
dadd4f55 148 itemButton14->SetHelpText(_("Click to delete all tab positions."));
5bf3b6fe 149 if (wxRichTextTabsPage::ShowToolTips())
dadd4f55 150 itemButton14->SetToolTip(_("Click to delete all tab positions."));
5bf3b6fe 151 itemBoxSizer10->Add(itemButton14, 0, wxGROW|wxLEFT|wxRIGHT|wxBOTTOM, 5);
97ff49b3
JS
152
153////@end wxRichTextTabsPage content construction
154}
155
156/// Transfer data from/to window
157bool wxRichTextTabsPage::TransferDataFromWindow()
158{
159 wxPanel::TransferDataFromWindow();
160
44cc96a8 161 wxTextAttr* attr = GetAttributes();
97ff49b3
JS
162
163 if (m_tabsPresent)
164 {
165 wxArrayInt tabs;
166 size_t i;
167 for (i = 0; i < m_tabListCtrl->GetCount(); i++)
168 {
169 tabs.Add(wxAtoi(m_tabListCtrl->GetString(i)));
170 }
171 attr->SetTabs(tabs);
172 }
173 return true;
174}
175
176bool wxRichTextTabsPage::TransferDataToWindow()
177{
178 wxPanel::TransferDataToWindow();
179
44cc96a8 180 wxTextAttr* attr = GetAttributes();
97ff49b3
JS
181
182 m_tabListCtrl->Clear();
183 m_tabEditCtrl->SetValue(wxEmptyString);
184
185 if (attr->HasTabs())
186 {
187 m_tabsPresent = true;
188 size_t i;
189 for (i = 0; i < attr->GetTabs().GetCount(); i++)
190 {
191 wxString s(wxString::Format(wxT("%d"), attr->GetTabs()[i]));
192 m_tabListCtrl->Append(s);
193 }
194 }
195
196 return true;
197}
198
199static int wxTabSortFunc(int* a, int* b)
200{
201 if ((*a) < (*b))
202 return -1;
203 else if ((*b) < (*a))
204 return 1;
205 else
206 return 0;
207}
208
209/// Sorts the tab array
210void wxRichTextTabsPage::SortTabs()
211{
212 wxArrayInt tabs;
213 size_t i;
214 for (i = 0; i < m_tabListCtrl->GetCount(); i++)
215 {
216 tabs.Add(wxAtoi(m_tabListCtrl->GetString(i)));
217 }
218 tabs.Sort(& wxTabSortFunc);
219
220 m_tabListCtrl->Clear();
221 for (i = 0; i < tabs.GetCount(); i++)
222 {
223 wxString s(wxString::Format(wxT("%d"), tabs[i]));
224 m_tabListCtrl->Append(s);
225 }
226}
227
44cc96a8 228wxTextAttr* wxRichTextTabsPage::GetAttributes()
97ff49b3
JS
229{
230 return wxRichTextFormattingDialog::GetDialogAttributes(this);
231}
232
233/*!
234 * Should we show tooltips?
235 */
236
237bool wxRichTextTabsPage::ShowToolTips()
238{
dadd4f55 239 return wxRichTextFormattingDialog::ShowToolTips();
97ff49b3
JS
240}
241
242/*!
243 * Get bitmap resources
244 */
245
246wxBitmap wxRichTextTabsPage::GetBitmapResource( const wxString& name )
247{
248 // Bitmap retrieval
249////@begin wxRichTextTabsPage bitmap retrieval
250 wxUnusedVar(name);
251 return wxNullBitmap;
252////@end wxRichTextTabsPage bitmap retrieval
253}
254
255/*!
256 * Get icon resources
257 */
258
259wxIcon wxRichTextTabsPage::GetIconResource( const wxString& name )
260{
261 // Icon retrieval
262////@begin wxRichTextTabsPage icon retrieval
263 wxUnusedVar(name);
264 return wxNullIcon;
265////@end wxRichTextTabsPage icon retrieval
266}
267
268/*!
269 * wxEVT_COMMAND_BUTTON_CLICKED event handler for ID_RICHTEXTTABSPAGE_NEW_TAB
270 */
271
272void wxRichTextTabsPage::OnNewTabClick( wxCommandEvent& WXUNUSED(event) )
273{
274 wxString str = m_tabEditCtrl->GetValue();
b68603d5 275 if (!str.empty() && str.IsNumber())
97ff49b3
JS
276 {
277 wxString s(wxString::Format(wxT("%d"), wxAtoi(str)));
278
279 m_tabListCtrl->Append(s);
280 m_tabsPresent = true;
281
282 SortTabs();
283 }
284}
285
286/*!
287 * wxEVT_UPDATE_UI event handler for ID_RICHTEXTTABSPAGE_NEW_TAB
288 */
289
290void wxRichTextTabsPage::OnNewTabUpdate( wxUpdateUIEvent& event )
291{
292 // This may be a bit expensive - consider updating New button when text
293 // changes in edit control
294 wxString str = m_tabEditCtrl->GetValue();
b68603d5 295 if (!str.empty() && str.IsNumber())
97ff49b3
JS
296 {
297 wxString s(wxString::Format(wxT("%d"), wxAtoi(str)));
298 event.Enable(m_tabListCtrl->FindString(s) == wxNOT_FOUND);
299 }
300 else
301 event.Enable(false);
302}
303
304
305/*!
306 * wxEVT_COMMAND_BUTTON_CLICKED event handler for ID_RICHTEXTTABSPAGE_DELETE_TAB
307 */
308
309void wxRichTextTabsPage::OnDeleteTabClick( wxCommandEvent& WXUNUSED(event) )
310{
311 if (m_tabsPresent && m_tabListCtrl->GetCount() > 0 && m_tabListCtrl->GetSelection() != wxNOT_FOUND)
312 {
313 m_tabListCtrl->Delete(m_tabListCtrl->GetSelection());
314 }
315}
316
317/*!
318 * wxEVT_UPDATE_UI event handler for ID_RICHTEXTTABSPAGE_DELETE_TAB
319 */
320
321void wxRichTextTabsPage::OnDeleteTabUpdate( wxUpdateUIEvent& event )
322{
323 event.Enable( m_tabsPresent && m_tabListCtrl->GetCount() > 0 && m_tabListCtrl->GetSelection() != wxNOT_FOUND );
324}
325
326
327/*!
328 * wxEVT_COMMAND_BUTTON_CLICKED event handler for ID_RICHTEXTTABSPAGE_DELETE_ALL_TABS
329 */
330
331void wxRichTextTabsPage::OnDeleteAllTabsClick( wxCommandEvent& WXUNUSED(event) )
332{
333 if (m_tabsPresent && m_tabListCtrl->GetCount() > 0)
334 {
335 m_tabListCtrl->Clear();
336 m_tabEditCtrl->SetValue(wxEmptyString);
337 }
338}
339
340/*!
341 * wxEVT_UPDATE_UI event handler for ID_RICHTEXTTABSPAGE_DELETE_ALL_TABS
342 */
343
344void wxRichTextTabsPage::OnDeleteAllTabsUpdate( wxUpdateUIEvent& event )
345{
346 event.Enable( m_tabsPresent && m_tabListCtrl->GetCount() > 0 );
347}
348
349
350/*!
351 * wxEVT_COMMAND_LISTBOX_SELECTED event handler for ID_RICHTEXTTABSPAGE_TABLIST
352 */
353
354void wxRichTextTabsPage::OnTablistSelected( wxCommandEvent& WXUNUSED(event) )
355{
356 wxString str = m_tabListCtrl->GetStringSelection();
b68603d5 357 if (!str.empty())
97ff49b3
JS
358 m_tabEditCtrl->SetValue(str);
359}
b68603d5
WS
360
361#endif // wxUSE_RICHTEXT