]> git.saurik.com Git - wxWidgets.git/blame - samples/taskbar/tbtest.cpp
don't crash when invalid colour is set as fg/bg colour
[wxWidgets.git] / samples / taskbar / tbtest.cpp
CommitLineData
bbf1f0e5
KB
1/////////////////////////////////////////////////////////////////////////////
2// Name: tbtest.cpp
3// Purpose: wxTaskBarIcon demo
4// Author: Julian Smart
5// Modified by:
6// Created: 01/02/97
7// RCS-ID: $Id$
8// Copyright: (c)
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12// For compilers that support precompilation, includes "wx.h".
13#include "wx/wxprec.h"
14
15#ifdef __BORLANDC__
16#pragma hdrstop
17#endif
18
19#ifndef WX_PRECOMP
c25a510b 20#include <wx/wx.h>
bbf1f0e5
KB
21#endif
22
c25a510b 23#include <wx/msw/taskbar.h>
bbf1f0e5
KB
24#include "tbtest.h"
25
26// Declare two frames
27MyDialog *dialog = NULL;
28
29IMPLEMENT_APP(MyApp)
30
31bool MyApp::OnInit(void)
32{
ab85e6cd 33 wxIcon icon(wxT("mondrian_icon"));
bbf1f0e5 34
ab85e6cd
JS
35 if (!m_taskBarIcon.SetIcon(icon, wxT("wxTaskBarIcon Sample")))
36 wxMessageBox(wxT("Could not set icon."));
bbf1f0e5
KB
37
38 // Create the main frame window
ab85e6cd 39 dialog = new MyDialog(NULL, -1, wxT("wxTaskBarIcon Test Dialog"), wxPoint(-1, -1), wxSize(365, 290), wxDIALOG_MODELESS|wxDEFAULT_DIALOG_STYLE);
bbf1f0e5
KB
40
41 dialog->Show(TRUE);
42
43 return TRUE;
44}
45
69ecd30f 46
bbf1f0e5
KB
47BEGIN_EVENT_TABLE(MyDialog, wxDialog)
48 EVT_BUTTON(wxID_OK, MyDialog::OnOK)
49 EVT_BUTTON(wxID_EXIT, MyDialog::OnExit)
d66d9d5b 50 EVT_CLOSE(MyDialog::OnCloseWindow)
bbf1f0e5
KB
51END_EVENT_TABLE()
52
69ecd30f
RD
53
54
bbf1f0e5
KB
55MyDialog::MyDialog(wxWindow* parent, const wxWindowID id, const wxString& title,
56 const wxPoint& pos, const wxSize& size, const long windowStyle):
57 wxDialog(parent, id, title, pos, size, windowStyle)
58{
59 Init();
60}
61
62void MyDialog::OnOK(wxCommandEvent& event)
63{
64 Show(FALSE);
65}
66
67void MyDialog::OnExit(wxCommandEvent& event)
68{
69 Close(TRUE);
70}
71
72void MyDialog::OnCloseWindow(wxCloseEvent& event)
73{
74 Destroy();
75}
76
77void MyDialog::Init(void)
78{
79 int dialogWidth = 365;
80 int dialogHeight = 290;
81
82 wxStaticText* stat = new wxStaticText(this, -1, "Press OK to hide me, Exit to quit.",
83 wxPoint(10, 20));
69ecd30f 84
bbf1f0e5
KB
85 wxStaticText* stat2 = new wxStaticText(this, -1, "Double-click on the taskbar icon to show me again.",
86 wxPoint(10, 40));
87
88 wxButton *okButton = new wxButton(this, wxID_OK, "OK", wxPoint(100, 230), wxSize(80, 25));
89 wxButton *exitButton = new wxButton(this, wxID_EXIT, "Exit", wxPoint(185, 230), wxSize(80, 25));
90 okButton->SetDefault();
91 this->Centre(wxBOTH);
92}
93
69ecd30f
RD
94
95enum {
96 PU_RESTORE = 10001,
ab85e6cd 97 PU_NEW_ICON,
69ecd30f
RD
98 PU_EXIT,
99};
100
101
102BEGIN_EVENT_TABLE(MyTaskBarIcon, wxTaskBarIcon)
103 EVT_MENU(PU_RESTORE, MyTaskBarIcon::OnMenuRestore)
104 EVT_MENU(PU_EXIT, MyTaskBarIcon::OnMenuExit)
ab85e6cd 105 EVT_MENU(PU_NEW_ICON,MyTaskBarIcon::OnMenuSetNewIcon)
69ecd30f
RD
106END_EVENT_TABLE()
107
a42b93aa 108void MyTaskBarIcon::OnMenuRestore(wxCommandEvent& )
69ecd30f
RD
109{
110 dialog->Show(TRUE);
111}
112
a42b93aa 113void MyTaskBarIcon::OnMenuExit(wxCommandEvent& )
69ecd30f
RD
114{
115 dialog->Close(TRUE);
f6bcfd97
BP
116
117 // Nudge wxWindows into destroying the dialog, since
118 // with a hidden window no messages will get sent to put
119 // it into idle processing.
120 wxGetApp().ProcessIdle();
69ecd30f
RD
121}
122
ab85e6cd
JS
123void MyTaskBarIcon::OnMenuSetNewIcon(wxCommandEvent&)
124{
125#ifdef __WXMSW__
126 wxIcon icon(wxT("wxDEFAULT_FRAME"));
127
128 if (!SetIcon(icon, wxT("wxTaskBarIcon Sample")))
129 wxMessageBox(wxT("Could not set new icon."));
130#endif
131}
69ecd30f 132
bbf1f0e5 133// Overridables
69ecd30f 134void MyTaskBarIcon::OnMouseMove(wxEvent&)
bbf1f0e5
KB
135{
136}
137
69ecd30f 138void MyTaskBarIcon::OnLButtonDown(wxEvent&)
bbf1f0e5
KB
139{
140}
141
69ecd30f 142void MyTaskBarIcon::OnLButtonUp(wxEvent&)
bbf1f0e5
KB
143{
144}
145
69ecd30f 146void MyTaskBarIcon::OnRButtonDown(wxEvent&)
bbf1f0e5
KB
147{
148}
149
69ecd30f 150void MyTaskBarIcon::OnRButtonUp(wxEvent&)
bbf1f0e5 151{
69ecd30f
RD
152 wxMenu menu;
153
154 menu.Append(PU_RESTORE, "&Restore TBTest");
ab85e6cd
JS
155#ifdef __WXMSW__
156 menu.Append(PU_NEW_ICON,"&Set New Icon");
157#endif
69ecd30f
RD
158 menu.Append(PU_EXIT, "E&xit");
159
160 PopupMenu(&menu);
bbf1f0e5
KB
161}
162
69ecd30f 163void MyTaskBarIcon::OnLButtonDClick(wxEvent&)
bbf1f0e5
KB
164{
165 dialog->Show(TRUE);
166}
167
69ecd30f 168void MyTaskBarIcon::OnRButtonDClick(wxEvent&)
bbf1f0e5
KB
169{
170}
171
172
69ecd30f
RD
173
174