]> git.saurik.com Git - wxWidgets.git/blob - contrib/samples/foldbar/extended/extended.cpp
Fix previous change in case somebody is still using
[wxWidgets.git] / contrib / samples / foldbar / extended / extended.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: expended.cpp
3 // Purpose: Layout/foldpanelbar sample
4 // Author: Jorgen Bodde
5 // Modified by:
6 // Created: 24/07/2004
7 // Copyright: (c) Jorgen Bodde based upon FoldPanelBarTest (c) Julian Smart
8 // Licence: wxWindows license
9 /////////////////////////////////////////////////////////////////////////////
10
11 // For compilers that support precompilation, includes "wx/wx.h".
12 #include "wx/wxprec.h"
13
14 #ifdef __BORLANDC__
15 #pragma hdrstop
16 #endif
17
18 #ifndef WX_PRECOMP
19 #include "wx/wx.h"
20 #include "wx/mdi.h"
21 #endif
22
23 #include "wx/toolbar.h"
24 #include "wx/laywin.h"
25 #include "wx/spinctrl.h"
26 #include "wx/slider.h"
27
28 #include "sample.xpm"
29
30 #include "extended.h"
31
32 MyFrame *frame = NULL;
33 wxList my_children;
34
35 IMPLEMENT_APP(MyApp)
36
37 // For drawing lines in a canvas
38 long xpos = -1;
39 long ypos = -1;
40
41 int winNumber = 1;
42
43 // Initialise this in OnInit, not statically
44 bool MyApp::OnInit(void)
45 {
46 // Create the main frame window
47
48 frame = new MyFrame(NULL, wxID_ANY, _T("FoldPanelBar Extended Demo"), wxDefaultPosition, wxSize(500, 600),
49 wxDEFAULT_FRAME_STYLE |
50 wxNO_FULL_REPAINT_ON_RESIZE |
51 wxHSCROLL | wxVSCROLL);
52
53 frame->SetIcon(wxIcon(sample_xpm));
54
55 // Associate the menu bar with the frame
56 frame->SetMenuBar(CreateMenuBar(false));
57
58 frame->CreateStatusBar();
59
60 frame->Show(true);
61
62 SetTopWindow(frame);
63
64 return true;
65 }
66
67 BEGIN_EVENT_TABLE(MyFrame, wxMDIParentFrame)
68 EVT_MENU(FPBTEST_ABOUT, MyFrame::OnAbout)
69 EVT_MENU(FPBTEST_NEW_WINDOW, MyFrame::OnNewWindow)
70 EVT_SIZE(MyFrame::OnSize)
71 EVT_MENU(FPBTEST_QUIT, MyFrame::OnQuit)
72 EVT_MENU(FPBTEST_TOGGLE_WINDOW, MyFrame::OnToggleWindow)
73 EVT_SASH_DRAGGED_RANGE(ID_WINDOW_TOP, ID_WINDOW_BOTTOM, MyFrame::OnFoldPanelBarDrag)
74 EVT_MENU(FPB_BOTTOM_STICK, MyFrame::OnCreateBottomStyle)
75 EVT_MENU(FPB_SINGLE_FOLD, MyFrame::OnCreateNormalStyle)
76 EVT_BUTTON(ID_COLLAPSEME, MyFrame::OnCollapseMe)
77 EVT_BUTTON(ID_APPLYTOALL, MyFrame::OnExpandMe)
78 EVT_SCROLL(MyFrame::OnSlideColour)
79 EVT_RADIOBUTTON(ID_USE_HGRADIENT, MyFrame::OnStyleChange)
80 EVT_RADIOBUTTON(ID_USE_VGRADIENT, MyFrame::OnStyleChange)
81 EVT_RADIOBUTTON(ID_USE_SINGLE, MyFrame::OnStyleChange)
82 EVT_RADIOBUTTON(ID_USE_RECTANGLE, MyFrame::OnStyleChange)
83 EVT_RADIOBUTTON(ID_USE_FILLED_RECTANGLE, MyFrame::OnStyleChange)
84 END_EVENT_TABLE()
85
86
87 // Define my frame constructor
88 MyFrame::MyFrame(wxWindow *parent, const wxWindowID id, const wxString& title, const wxPoint& pos, const wxSize& size,
89 const long style)
90 : wxMDIParentFrame(parent, id, title, pos, size, style)
91 , m_flags(0)
92 {
93 m_leftWindow1 = new wxSashLayoutWindow(this, ID_WINDOW_LEFT1,
94 wxDefaultPosition, wxSize(200, 30),
95 wxNO_BORDER | wxSW_3D | wxCLIP_CHILDREN);
96
97 m_leftWindow1->SetDefaultSize(wxSize(160, 1000));
98 m_leftWindow1->SetOrientation(wxLAYOUT_VERTICAL);
99 m_leftWindow1->SetAlignment(wxLAYOUT_LEFT);
100 m_leftWindow1->SetSashVisible(wxSASH_RIGHT, true);
101 m_leftWindow1->SetExtraBorderSize(0);
102
103 m_pnl = NULL;
104 ReCreateFoldPanel(0);
105 }
106
107 void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
108 {
109 Close(true);
110 }
111
112 void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
113 {
114 (void)wxMessageBox(_T("wxWidgets 2.0 FoldPanelBar Demo\nAuthor: Julian Smart (c) 1998"), _T("About FoldPanelBar Demo"));
115 }
116
117 void MyFrame::OnToggleWindow(wxCommandEvent& WXUNUSED(event))
118 {
119 m_leftWindow1->Show(!m_leftWindow1->IsShown());
120 wxLayoutAlgorithm layout;
121 layout.LayoutMDIFrame(this);
122 }
123
124 void MyFrame::OnFoldPanelBarDrag(wxSashEvent& event)
125 {
126 if (event.GetDragStatus() == wxSASH_STATUS_OUT_OF_RANGE)
127 return;
128
129 if(event.GetId() == ID_WINDOW_LEFT1)
130 m_leftWindow1->SetDefaultSize(wxSize(event.GetDragRect().width, 1000));
131
132 wxLayoutAlgorithm layout;
133 layout.LayoutMDIFrame(this);
134
135 // Leaves bits of itself behind sometimes
136 GetClientWindow()->Refresh();
137 }
138
139 void MyFrame::OnNewWindow(wxCommandEvent& WXUNUSED(event))
140 {
141 // Make another frame, containing a canvas
142 MyChild *subframe = new MyChild(frame, _T("Canvas Frame"),
143 wxPoint(10, 10), wxSize(300, 300),
144 wxDEFAULT_FRAME_STYLE |
145 wxNO_FULL_REPAINT_ON_RESIZE);
146
147 subframe->SetTitle(wxString::Format(_T("Canvas Frame %d"), winNumber));
148 winNumber ++;
149
150 // Give it a status line
151 subframe->CreateStatusBar();
152
153 // Associate the menu bar with the frame
154 subframe->SetMenuBar(CreateMenuBar(true));
155
156 int width, height;
157 subframe->GetClientSize(&width, &height);
158 MyCanvas *canvas = new MyCanvas(subframe, wxPoint(0, 0), wxSize(width, height));
159 canvas->SetCursor(wxCursor(wxCURSOR_PENCIL));
160 subframe->canvas = canvas;
161
162 // Give it scrollbars
163 canvas->SetScrollbars(20, 20, 50, 50);
164
165 subframe->Show(true);
166 }
167
168 void MyFrame::ReCreateFoldPanel(int fpb_flags)
169 {
170 // delete earlier panel
171 m_leftWindow1->DestroyChildren();
172
173 // recreate the foldpanelbar
174
175 m_pnl = new wxFoldPanelBar(m_leftWindow1, wxID_ANY, wxDefaultPosition, wxDefaultSize, wxFPB_DEFAULT_STYLE, fpb_flags);
176
177 wxFoldPanel item = m_pnl->AddFoldPanel(_T("Caption colours"), false);
178
179 m_pnl->AddFoldPanelWindow(item, new wxStaticText(item.GetParent(), wxID_ANY, _T("Adjust the first colour")),
180 wxFPB_ALIGN_WIDTH, 5, 20);
181
182 // RED color spin control
183 m_rslider1 = new wxSlider(item.GetParent(), wxID_ANY, 0, 0, 255);
184 m_pnl->AddFoldPanelWindow(item, m_rslider1, wxFPB_ALIGN_WIDTH,
185 2, 20);
186
187 // GREEN color spin control
188 m_gslider1 = new wxSlider(item.GetParent(), wxID_ANY, 0, 0, 255);
189 m_pnl->AddFoldPanelWindow(item, m_gslider1, wxFPB_ALIGN_WIDTH,
190 0, 20);
191
192 // BLUE color spin control
193 m_bslider1 = new wxSlider(item.GetParent(), wxID_ANY, 0, 0, 255);
194 m_pnl->AddFoldPanelWindow(item, m_bslider1, wxFPB_ALIGN_WIDTH,
195 0, 20);
196
197 m_pnl->AddFoldPanelSeperator(item);
198
199 m_pnl->AddFoldPanelWindow(item, new wxStaticText(item.GetParent(), wxID_ANY, _T("Adjust the second colour")),
200 wxFPB_ALIGN_WIDTH, 5, 20);
201
202 // RED color spin control
203 m_rslider2 = new wxSlider(item.GetParent(), wxID_ANY, 0, 0, 255);
204 m_pnl->AddFoldPanelWindow(item, m_rslider2, wxFPB_ALIGN_WIDTH,
205 2, 20);
206
207 // GREEN color spin control
208 m_gslider2 = new wxSlider(item.GetParent(), wxID_ANY, 0, 0, 255);
209 m_pnl->AddFoldPanelWindow(item, m_gslider2, wxFPB_ALIGN_WIDTH,
210 0, 20);
211
212 // BLUE color spin control
213 m_bslider2 = new wxSlider(item.GetParent(), wxID_ANY, 0, 0, 255);
214 m_pnl->AddFoldPanelWindow(item, m_bslider2, wxFPB_ALIGN_WIDTH,
215 0, 20);
216
217 m_pnl->AddFoldPanelSeperator(item);
218
219 m_btn = new wxButton(item.GetParent(), ID_APPLYTOALL, _T("Apply to all"));
220 m_pnl->AddFoldPanelWindow(item, m_btn);
221
222 // read back current gradients and set the sliders
223 // for the colour which is now taken as default
224
225 wxCaptionBarStyle style = m_pnl->GetCaptionStyle(item);
226 wxColour col = style.GetFirstColour();
227 m_rslider1->SetValue(col.Red());
228 m_gslider1->SetValue(col.Green());
229 m_bslider1->SetValue(col.Blue());
230
231 col = style.GetSecondColour();
232 m_rslider2->SetValue(col.Red());
233 m_gslider2->SetValue(col.Green());
234 m_bslider2->SetValue(col.Blue());
235
236 // put down some caption styles from which the user can
237 // select to show how the current or all caption bars will look like
238
239 item = m_pnl->AddFoldPanel(_T("Caption style"), false);
240
241 wxRadioButton *currStyle = new wxRadioButton(item.GetParent(), ID_USE_VGRADIENT, _T("&Vertical gradient"));
242 m_pnl->AddFoldPanelWindow(item, currStyle, wxFPB_ALIGN_WIDTH, wxFPB_DEFAULT_SPACING, 10);
243 currStyle->SetValue(true);
244
245 m_pnl->AddFoldPanelWindow(item, new wxRadioButton(item.GetParent(), ID_USE_HGRADIENT, _T("&Horizontal gradient")),
246 wxFPB_ALIGN_WIDTH, wxFPB_DEFAULT_SPACING, 10);
247 m_pnl->AddFoldPanelWindow(item, new wxRadioButton(item.GetParent(), ID_USE_SINGLE, _T("&Single colour")),
248 wxFPB_ALIGN_WIDTH, wxFPB_DEFAULT_SPACING, 10);
249 m_pnl->AddFoldPanelWindow(item, new wxRadioButton(item.GetParent(), ID_USE_RECTANGLE, _T("&Rectangle box")),
250 wxFPB_ALIGN_WIDTH, wxFPB_DEFAULT_SPACING, 10);
251 m_pnl->AddFoldPanelWindow(item, new wxRadioButton(item.GetParent(), ID_USE_FILLED_RECTANGLE, _T("&Filled rectangle box")),
252 wxFPB_ALIGN_WIDTH, wxFPB_DEFAULT_SPACING, 10);
253
254 m_pnl->AddFoldPanelSeperator(item);
255
256 m_single = new wxCheckBox(item.GetParent(), wxID_ANY, _T("&Only this caption"));
257 m_pnl->AddFoldPanelWindow(item, m_single, wxFPB_ALIGN_WIDTH, wxFPB_DEFAULT_SPACING, 10);
258
259
260 // one more panel to finish it
261
262 wxCaptionBarStyle cs;
263 cs.SetCaptionStyle(wxCAPTIONBAR_RECTANGLE);
264
265 item = m_pnl->AddFoldPanel(_T("Misc stuff"), true, cs);
266
267 m_pnl->AddFoldPanelWindow(item, new wxButton(item.GetParent(), ID_COLLAPSEME, _T("Collapse All")));
268
269 m_pnl->AddFoldPanelWindow(item, new wxStaticText(item.GetParent(), wxID_ANY, _T("Enter some comments")),
270 wxFPB_ALIGN_WIDTH, 5, 20);
271
272 m_pnl->AddFoldPanelWindow(item, new wxTextCtrl(item.GetParent(), wxID_ANY, _T("Comments")),
273 wxFPB_ALIGN_WIDTH, wxFPB_DEFAULT_SPACING, 10);
274
275 m_leftWindow1->SizeWindows();
276
277 }
278
279 void MyFrame::OnCreateBottomStyle(wxCommandEvent& event)
280 {
281 // recreate with style collapse to bottom, which means
282 // all panels that are collapsed are placed at the bottom,
283 // or normal
284
285 if(event.IsChecked())
286 m_flags |= wxFPB_COLLAPSE_TO_BOTTOM;
287 else
288 m_flags &= ~wxFPB_COLLAPSE_TO_BOTTOM;
289
290 ReCreateFoldPanel(m_flags);
291 }
292
293 void MyFrame::OnCreateNormalStyle(wxCommandEvent& event)
294 {
295 // receate with style where only one panel at the time is
296 // allowed to be opened
297
298 // TODO: Not yet implemented!
299
300 if(event.IsChecked())
301 m_flags |= wxFPB_SINGLE_FOLD;
302 else
303 m_flags &= ~wxFPB_SINGLE_FOLD;
304
305 ReCreateFoldPanel(m_flags);
306 }
307
308 void MyFrame::OnCollapseMe(wxCommandEvent &WXUNUSED(event))
309 {
310 wxFoldPanel item(0);
311 for(size_t i = 0; i < m_pnl->GetCount(); i++)
312 {
313 item = m_pnl->Item(i);
314 m_pnl->Collapse(item);
315 }
316 }
317
318 void MyFrame::OnExpandMe(wxCommandEvent &WXUNUSED(event))
319 {
320 wxColour col1((unsigned char)m_rslider1->GetValue(),
321 (unsigned char)m_gslider1->GetValue(),
322 (unsigned char)m_bslider1->GetValue()),
323 col2((unsigned char)m_rslider2->GetValue(),
324 (unsigned char)m_gslider2->GetValue(),
325 (unsigned char)m_bslider2->GetValue());
326
327 wxCaptionBarStyle style;
328
329 style.SetFirstColour(col1);
330 style.SetSecondColour(col2);
331
332 m_pnl->ApplyCaptionStyleAll(style);
333 }
334
335 wxMenuBar *CreateMenuBar(bool with_window)
336 {
337 // Make a menubar
338 wxMenu *file_menu = new wxMenu;
339
340 file_menu->Append(FPBTEST_NEW_WINDOW, _T("&New window"));
341 if(with_window)
342 file_menu->Append(FPBTEST_CHILD_QUIT, _T("&Close child"));
343
344 file_menu->AppendSeparator();
345 file_menu->Append(FPBTEST_QUIT, _T("&Exit"));
346
347 wxMenu *option_menu = 0;
348 if(with_window)
349 {
350 // Dummy option
351 option_menu = new wxMenu;
352 option_menu->Append(FPBTEST_REFRESH, _T("&Refresh picture"));
353 }
354
355 // make fold panel menu
356
357 wxMenu *fpb_menu = new wxMenu;
358 fpb_menu->AppendCheckItem(FPB_BOTTOM_STICK, _T("Create with &wxFPB_COLLAPSE_TO_BOTTOM"));
359 //fpb_menu->AppendCheckItem(FPB_SINGLE_FOLD, _T("Create with &wxFPB_SINGLE_FOLD"));
360
361 fpb_menu->AppendSeparator();
362 fpb_menu->Append(FPBTEST_TOGGLE_WINDOW, _T("&Toggle FoldPanelBar"));
363
364 wxMenu *help_menu = new wxMenu;
365 help_menu->Append(FPBTEST_ABOUT, _T("&About"));
366
367 wxMenuBar *menu_bar = new wxMenuBar;
368
369 menu_bar->Append(file_menu, _T("&File"));
370 menu_bar->Append(fpb_menu, _T("&FoldPanel"));
371 if(option_menu)
372 menu_bar->Append(option_menu, _T("&Options"));
373 menu_bar->Append(help_menu, _T("&Help"));
374
375 return menu_bar;
376 }
377
378 void MyFrame::OnSlideColour(wxScrollEvent &WXUNUSED(event))
379 {
380 wxColour col1((unsigned char)m_rslider1->GetValue(),
381 (unsigned char)m_gslider1->GetValue(),
382 (unsigned char)m_bslider1->GetValue()),
383 col2((unsigned char)m_rslider2->GetValue(),
384 (unsigned char)m_gslider2->GetValue(),
385 (unsigned char)m_bslider2->GetValue());
386 //m_btn->SetBackgroundColour(col);
387
388 wxCaptionBarStyle style;
389
390 style.SetFirstColour(col1);
391 style.SetSecondColour(col2);
392
393 wxFoldPanel item = m_pnl->Item(0);
394 m_pnl->ApplyCaptionStyle(item, style);
395 }
396
397 void MyFrame::OnStyleChange(wxCommandEvent &event)
398 {
399 wxCaptionBarStyle style;
400 switch(event.GetId())
401 {
402 case ID_USE_HGRADIENT:
403 style.SetCaptionStyle(wxCAPTIONBAR_GRADIENT_H);
404 break;
405
406 case ID_USE_VGRADIENT:
407 style.SetCaptionStyle(wxCAPTIONBAR_GRADIENT_V);
408 break;
409
410 case ID_USE_SINGLE:
411 style.SetCaptionStyle(wxCAPTIONBAR_SINGLE);
412 break;
413
414 case ID_USE_RECTANGLE:
415 style.SetCaptionStyle(wxCAPTIONBAR_RECTANGLE);
416 break;
417
418 case ID_USE_FILLED_RECTANGLE:
419 style.SetCaptionStyle(wxCAPTIONBAR_FILLED_RECTANGLE);
420 break;
421
422 default:
423 break;
424 }
425
426 if(m_single->GetValue())
427 {
428 wxFoldPanel item = m_pnl->Item(1);
429 m_pnl->ApplyCaptionStyle(item, style);
430 }
431 else
432 {
433 m_pnl->ApplyCaptionStyleAll(style);
434 }
435 }
436
437 /* ----------------------------------------------------------------------------------------------- */
438
439 BEGIN_EVENT_TABLE(MyCanvas, wxScrolledWindow)
440 EVT_MOUSE_EVENTS(MyCanvas::OnEvent)
441 END_EVENT_TABLE()
442
443 // Define a constructor for my canvas
444 MyCanvas::MyCanvas(wxWindow *parent, const wxPoint& pos, const wxSize& size)
445 :wxScrolledWindow(parent, wxID_ANY, pos, size,
446 wxSUNKEN_BORDER | wxNO_FULL_REPAINT_ON_RESIZE)
447 {
448 SetBackgroundColour(* wxWHITE);
449 }
450
451 // Define the repainting behaviour
452 void MyCanvas::OnDraw(wxDC& dc)
453 {
454 dc.SetFont(*wxSWISS_FONT);
455 dc.SetPen(*wxGREEN_PEN);
456 dc.DrawLine(0, 0, 200, 200);
457 dc.DrawLine(200, 0, 0, 200);
458
459 dc.SetBrush(*wxCYAN_BRUSH);
460 dc.SetPen(*wxRED_PEN);
461 dc.DrawRectangle(100, 100, 100, 50);
462 dc.DrawRoundedRectangle(150, 150, 100, 50, 20);
463
464 dc.DrawEllipse(250, 250, 100, 50);
465 #if wxUSE_SPLINES
466 dc.DrawSpline(50, 200, 50, 100, 200, 10);
467 #endif // wxUSE_SPLINES
468 dc.DrawLine(50, 230, 200, 230);
469 dc.DrawText(_T("This is a test string"), 50, 230);
470
471 wxPoint points[3];
472 points[0].x = 200; points[0].y = 300;
473 points[1].x = 100; points[1].y = 400;
474 points[2].x = 300; points[2].y = 400;
475
476 dc.DrawPolygon(3, points);
477 }
478
479 // This implements a tiny doodling program! Drag the mouse using
480 // the left button.
481 void MyCanvas::OnEvent(wxMouseEvent& event)
482 {
483 wxClientDC dc(this);
484 PrepareDC(dc);
485
486 wxPoint pt(event.GetLogicalPosition(dc));
487
488 if (xpos > -1 && ypos > -1 && event.Dragging())
489 {
490 dc.SetPen(*wxBLACK_PEN);
491 dc.DrawLine(xpos, ypos, pt.x, pt.y);
492 }
493 xpos = pt.x;
494 ypos = pt.y;
495 }
496
497 void MyFrame::OnSize(wxSizeEvent& WXUNUSED(event))
498 {
499 wxLayoutAlgorithm layout;
500 layout.LayoutMDIFrame(this);
501 }
502
503 // Note that FPBTEST_NEW_WINDOW and FPBTEST_ABOUT commands get passed
504 // to the parent window for processing, so no need to
505 // duplicate event handlers here.
506
507 BEGIN_EVENT_TABLE(MyChild, wxMDIChildFrame)
508 EVT_MENU(FPBTEST_CHILD_QUIT, MyChild::OnQuit)
509 END_EVENT_TABLE()
510
511 MyChild::MyChild(wxMDIParentFrame *parent, const wxString& title,
512 const wxPoint& pos, const wxSize& size,
513 const long style)
514 :wxMDIChildFrame(parent, wxID_ANY, title, pos, size, style)
515 {
516 canvas = NULL;
517 my_children.Append(this);
518 }
519
520 MyChild::~MyChild(void)
521 {
522 my_children.DeleteObject(this);
523 }
524
525 void MyChild::OnQuit(wxCommandEvent& WXUNUSED(event))
526 {
527 Close(true);
528 }
529
530 void MyChild::OnActivate(wxActivateEvent& event)
531 {
532 if (event.GetActive() && canvas)
533 canvas->SetFocus();
534 }
535