]> git.saurik.com Git - wxWidgets.git/blame - src/msw/dialog.cpp
code using ms_PaintDC changed a little (a couple of asserts added, the behaviour
[wxWidgets.git] / src / msw / dialog.cpp
CommitLineData
2bda0e17
KB
1/////////////////////////////////////////////////////////////////////////////
2// Name: dialog.cpp
3// Purpose: wxDialog class
4// Author: Julian Smart
5// Modified by:
6// Created: 01/02/97
7// RCS-ID: $Id$
8// Copyright: (c) Julian Smart and Markus Holzem
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12#ifdef __GNUG__
13#pragma implementation "dialog.h"
14#endif
15
16// For compilers that support precompilation, includes "wx.h".
17#include "wx/wxprec.h"
18
19#ifdef __BORLANDC__
20#pragma hdrstop
21#endif
22
23#ifndef WX_PRECOMP
24#include "wx/dialog.h"
25#include "wx/utils.h"
26#include "wx/frame.h"
27#include "wx/app.h"
28#include "wx/settings.h"
29#endif
30
31#include "wx/msw/private.h"
32
33#if USE_COMMON_DIALOGS
34#include <commdlg.h>
35#endif
36
37#define wxDIALOG_DEFAULT_X 300
38#define wxDIALOG_DEFAULT_Y 300
39
40// Lists to keep track of windows, so we can disable/enable them
41// for modal dialogs
42wxList wxModalDialogs;
43wxList wxModelessWindows; // Frames and modeless dialogs
44extern wxList wxPendingDelete;
45
46#if !USE_SHARED_LIBRARY
47IMPLEMENT_DYNAMIC_CLASS(wxDialog, wxPanel)
48
49BEGIN_EVENT_TABLE(wxDialog, wxPanel)
50 EVT_BUTTON(wxID_OK, wxDialog::OnOK)
51 EVT_BUTTON(wxID_APPLY, wxDialog::OnApply)
52 EVT_BUTTON(wxID_CANCEL, wxDialog::OnCancel)
53 EVT_CHAR_HOOK(wxDialog::OnCharHook)
54 EVT_SYS_COLOUR_CHANGED(wxDialog::OnSysColourChanged)
55 EVT_CLOSE(wxDialog::OnCloseWindow)
56END_EVENT_TABLE()
57
58#endif
59
60long wxDialog::MSWDefWindowProc(WXUINT nMsg, WXWPARAM wParam, WXLPARAM lParam)
61{
62 return ::CallWindowProc(CASTWNDPROC (FARPROC) m_oldWndProc, (HWND) GetHWND(), (UINT) nMsg, (WPARAM) wParam, (LPARAM) lParam);
63}
64
65bool wxDialog::MSWProcessMessage(WXMSG* pMsg)
66{
67 return (::IsDialogMessage((HWND) GetHWND(), (MSG*)pMsg) != 0);
68}
69
70bool wxDialog::MSWOnClose(void)
71{
72 return Close();
73}
74
75wxDialog::wxDialog(void)
76{
77 m_isShown = FALSE;
78 m_modalShowing = FALSE;
79
80 SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
81 SetDefaultBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
82}
83
debe6624 84bool wxDialog::Create(wxWindow *parent, wxWindowID id,
2bda0e17
KB
85 const wxString& title,
86 const wxPoint& pos,
87 const wxSize& size,
debe6624 88 long style,
2bda0e17
KB
89 const wxString& name)
90{
91 SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
92 SetDefaultBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
93 SetName(name);
94
95 if (!parent)
96 wxTopLevelWindows.Append(this);
97
98// windowFont = wxTheFontList->FindOrCreateFont(11, wxSWISS, wxNORMAL, wxNORMAL);
99
100 if (parent) parent->AddChild(this);
101
102 if ( id == -1 )
103 m_windowId = (int)NewControlId();
104 else
105 m_windowId = id;
106
107 int x = pos.x;
108 int y = pos.y;
109 int width = size.x;
110 int height = size.y;
111
112 if (x < 0) x = wxDIALOG_DEFAULT_X;
113 if (y < 0) y = wxDIALOG_DEFAULT_Y;
114
115 m_windowStyle = style;
116
117 m_isShown = FALSE;
118 m_modalShowing = FALSE;
119
120 if (width < 0)
121 width = 500;
122 if (height < 0)
123 height = 500;
124
125 WXDWORD extendedStyle = MakeExtendedStyle(m_windowStyle);
126 if (m_windowStyle & wxSTAY_ON_TOP)
127 extendedStyle |= WS_EX_TOPMOST;
128
129 // Allows creation of dialogs with & without captions under MSWindows
130 if(style & wxCAPTION){
131 MSWCreate(m_windowId, (wxWindow *)parent, NULL, this, NULL, x, y, width, height, 0, "wxCaptionDialog",
132 extendedStyle);
133 }
134 else{
135 MSWCreate(m_windowId, (wxWindow *)parent, NULL, this, NULL, x, y, width, height, 0, "wxNoCaptionDialog",
136 extendedStyle);
137 }
138
139 SubclassWin(GetHWND());
140
141 SetWindowText((HWND) GetHWND(), (const char *)title);
142 SetFont(wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT));
143
144 return TRUE;
145}
146
debe6624 147void wxDialog::SetModal(bool flag)
2bda0e17
KB
148{
149 if ( flag )
150 m_windowStyle |= wxDIALOG_MODAL ;
151 else
152 if ( m_windowStyle & wxDIALOG_MODAL )
153 m_windowStyle -= wxDIALOG_MODAL ;
154
155 wxModelessWindows.DeleteObject(this);
156 if (!flag)
157 wxModelessWindows.Append(this);
158}
159
160wxDialog::~wxDialog()
161{
162 m_isBeingDeleted = TRUE;
163
164 wxTopLevelWindows.DeleteObject(this);
165
166 if (m_modalShowing)
167 {
168 Show(FALSE);
169 // For some reason, wxWindows can activate another task altogether
170 // when a frame is destroyed after a modal dialog has been invoked.
171 // Try to bring the parent to the top.
172 // dfgg: I moved this following line from end of function -
173 // must not call if another window is on top!!
174 // This can often happen with Close() and delayed deleting
175 if (GetParent() && GetParent()->GetHWND())
176 ::BringWindowToTop((HWND) GetParent()->GetHWND());
177 }
178
179 m_modalShowing = FALSE;
180 if ( GetHWND() )
181 ShowWindow((HWND) GetHWND(), SW_HIDE);
182
183 if ( (GetWindowStyleFlag() & wxDIALOG_MODAL) != wxDIALOG_MODAL )
184 wxModelessWindows.DeleteObject(this);
185
186 UnsubclassWin();
187
188 // If this is the last top-level window, exit.
189 if (wxTheApp && (wxTopLevelWindows.Number() == 0))
190 {
191 wxTheApp->SetTopWindow(NULL);
192
193 if (wxTheApp->GetExitOnFrameDelete())
194 {
195 PostQuitMessage(0);
196 }
197 }
198}
199
200// By default, pressing escape cancels the dialog
201void wxDialog::OnCharHook(wxKeyEvent& event)
202{
203 if (GetHWND())
204 {
205 if (event.m_keyCode == WXK_ESCAPE)
206 {
207 // Behaviour changed in 2.0: we'll send a Cancel message
208 // to the dialog instead of Close.
209 wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
210 cancelEvent.SetEventObject( this );
211 GetEventHandler()->ProcessEvent(cancelEvent);
212
213 return;
214 }
215 }
216 // We didn't process this event.
217 event.Skip();
218}
219
220void wxDialog::OnPaint(wxPaintEvent& event)
221{
222 // No: if you call the default procedure, it makes
223 // the following painting code not work.
224// wxWindow::OnPaint(event);
225}
226
227void wxDialog::Fit(void)
228{
229 wxWindow::Fit();
230}
231
debe6624 232void wxDialog::Iconize(bool WXUNUSED(iconize))
2bda0e17
KB
233{
234 // Windows dialog boxes can't be iconized
235}
236
237bool wxDialog::IsIconized(void) const
238{
239 return FALSE;
240}
241
debe6624 242void wxDialog::SetSize(int x, int y, int width, int height, int WXUNUSED(sizeFlags))
2bda0e17
KB
243{
244 wxWindow::SetSize(x, y, width, height);
245}
246
debe6624 247void wxDialog::SetClientSize(int width, int height)
2bda0e17
KB
248{
249 HWND hWnd = (HWND) GetHWND();
250 RECT rect;
251 GetClientRect(hWnd, &rect);
252
253 RECT rect2;
254 GetWindowRect(hWnd, &rect2);
255
256 // Find the difference between the entire window (title bar and all)
257 // and the client area; add this to the new client size to move the
258 // window
259 int actual_width = rect2.right - rect2.left - rect.right + width;
260 int actual_height = rect2.bottom - rect2.top - rect.bottom + height;
261
262 MoveWindow(hWnd, rect2.left, rect2.top, actual_width, actual_height, TRUE);
debe6624 263
2bda0e17 264 wxSizeEvent event(wxSize(actual_width, actual_height), m_windowId);
debe6624 265 event.SetEventObject( this );
2bda0e17 266 GetEventHandler()->ProcessEvent(event);
2bda0e17
KB
267}
268
269void wxDialog::GetPosition(int *x, int *y) const
270{
271 HWND hWnd = (HWND) GetHWND();
272 RECT rect;
273 GetWindowRect(hWnd, &rect);
274
275 *x = rect.left;
276 *y = rect.top;
277}
278
279bool wxDialog::IsShown(void) const
280{
281 return m_isShown;
282}
283
debe6624 284bool wxDialog::Show(bool show)
2bda0e17
KB
285{
286 m_isShown = show;
287
288 if (show)
289 InitDialog();
290
291 bool modal = ((GetWindowStyleFlag() & wxDIALOG_MODAL) == wxDIALOG_MODAL) ;
292
293#if WXGARBAGE_COLLECTION_ON /* MATTHEW: GC */
294 if (!modal) {
295 if (show) {
296 if (!wxModelessWindows.Member(this))
297 wxModelessWindows.Append(this);
298 } else
299 wxModelessWindows.DeleteObject(this);
300 }
301 if (show) {
302 if (!wxTopLevelWindows.Member(this))
303 wxTopLevelWindows.Append(this);
304 } else
305 wxTopLevelWindows.DeleteObject(this);
306#endif
307
308 if (modal)
309 {
310 if (show)
311 {
312 wxList DisabledWindows;
313 if (m_modalShowing)
314 {
315 BringWindowToTop((HWND) GetHWND());
316 return TRUE;
317 }
318
319 m_modalShowing = TRUE;
320 wxNode *node = wxModalDialogs.First();
321 while (node)
322 {
323 wxDialog *box = (wxDialog *)node->Data();
324 if (box != this)
325 ::EnableWindow((HWND) box->GetHWND(), FALSE);
326 node = node->Next();
327 }
328 node = wxModelessWindows.First();
329 while (node)
330 {
331 wxWindow *win = (wxWindow *)node->Data();
332 if (::IsWindowEnabled((HWND) win->GetHWND()))
333 {
334 ::EnableWindow((HWND) win->GetHWND(), FALSE);
335 DisabledWindows.Append(win);
336 }
337 node = node->Next();
338 }
339
340 ShowWindow((HWND) GetHWND(), SW_SHOW);
341 EnableWindow((HWND) GetHWND(), TRUE);
342 BringWindowToTop((HWND) GetHWND());
343
344 if (!wxModalDialogs.Member(this))
345 wxModalDialogs.Append(this);
346
347 MSG msg;
348 // Must test whether this dialog still exists: we may not process
349 // a message before the deletion.
350 while (wxModalDialogs.Member(this) && m_modalShowing && GetMessage(&msg, NULL, 0, 0))
351 {
352 if (!IsDialogMessage((HWND) GetHWND(), &msg))
353 {
354 TranslateMessage(&msg);
355 DispatchMessage(&msg);
356 }
357 if (m_modalShowing && !::PeekMessage(&msg, 0, 0, 0, PM_NOREMOVE))
358 // dfgg: NB MUST test m_modalShowing again as the message loop could have triggered
359 // a Show(FALSE) in the mean time!!!
360 // Without the test, we might delete the dialog before the end of modal showing.
361 {
362 while (wxTheApp->ProcessIdle() && m_modalShowing)
363 {
364 // Keep going until we decide we've done enough
365 }
366 }
367 }
368 // dfgg: now must specifically re-enable all other app windows that we disabled earlier
369 node=DisabledWindows.First();
370 while(node) {
371 wxWindow* win = (wxWindow*) node->Data();
372 HWND hWnd = (HWND) win->GetHWND();
373 if (::IsWindow(hWnd) && (wxModalDialogs.Member(win) || wxModelessWindows.Member(win) ))
374 ::EnableWindow(hWnd,TRUE);
375 node=node->Next();
376 }
377 }
378 else
379 {
380 wxModalDialogs.DeleteObject(this);
381
382 wxNode *last = wxModalDialogs.Last();
383
384 // If there's still a modal dialog active, we
385 // enable it, else we enable all modeless windows
386 if (last)
387 {
388 wxDialog *box = (wxDialog *)last->Data();
389 HWND hwnd = (HWND) box->GetHWND();
390 if (box->m_winEnabled)
391 EnableWindow(hwnd, TRUE);
392 BringWindowToTop(hwnd);
393 }
394 else
395 {
396 wxNode *node = wxModelessWindows.First();
397 while (node)
398 {
399 wxWindow *win = (wxWindow *)node->Data();
400 HWND hwnd = (HWND) win->GetHWND();
401 // Only enable again if not user-disabled.
402 if (win->IsUserEnabled())
403 EnableWindow(hwnd, TRUE);
404 node = node->Next();
405 }
406 }
407 // Try to highlight the correct window (the parent)
408 HWND hWndParent = 0;
409 if (GetParent())
410 {
411 hWndParent = (HWND) GetParent()->GetHWND();
412 if (hWndParent)
413 ::BringWindowToTop(hWndParent);
414 }
415 ShowWindow((HWND) GetHWND(), SW_HIDE);
416 m_modalShowing = FALSE;
417 }
418 }
419 else
420 {
421 if (show)
422 {
423 ShowWindow((HWND) GetHWND(), SW_SHOW);
424 BringWindowToTop((HWND) GetHWND());
425 }
426 else
427 {
428 // Try to highlight the correct window (the parent)
429 HWND hWndParent = 0;
430 if (GetParent())
431 {
432 hWndParent = (HWND) GetParent()->GetHWND();
433 if (hWndParent)
434 ::BringWindowToTop(hWndParent);
435 }
436 ShowWindow((HWND) GetHWND(), SW_HIDE);
437 }
438 }
439 return TRUE;
440}
441
442void wxDialog::SetTitle(const wxString& title)
443{
444 SetWindowText((HWND) GetHWND(), (const char *)title);
445}
446
447wxString wxDialog::GetTitle(void) const
448{
449 GetWindowText((HWND) GetHWND(), wxBuffer, 1000);
450 return wxString(wxBuffer);
451}
452
debe6624 453void wxDialog::Centre(int direction)
2bda0e17
KB
454{
455 int x_offset,y_offset ;
456 int display_width, display_height;
457 int width, height, x, y;
458 wxFrame *frame ;
459 if (direction & wxCENTER_FRAME)
460 {
461 frame = (wxFrame*)GetParent() ;
462 if (frame)
463 {
464 frame->GetPosition(&x_offset,&y_offset) ;
465 frame->GetSize(&display_width,&display_height) ;
466 }
467 }
468 else
469 frame = NULL ;
470
471 if (frame==NULL)
472 {
473 wxDisplaySize(&display_width, &display_height);
474 x_offset = 0 ;
475 y_offset = 0 ;
476 }
477
478
479 GetSize(&width, &height);
480 GetPosition(&x, &y);
481
482 if (direction & wxHORIZONTAL)
483 x = (int)((display_width - width)/2);
484 if (direction & wxVERTICAL)
485 y = (int)((display_height - height)/2);
486
487 SetSize(x+x_offset, y+y_offset, width, height);
488}
489
490// Replacement for Show(TRUE) for modal dialogs - returns return code
491int wxDialog::ShowModal(void)
492{
5de76427 493 m_windowStyle |= wxDIALOG_MODAL;
2bda0e17
KB
494 Show(TRUE);
495 return GetReturnCode();
496}
497
498void wxDialog::EndModal(int retCode)
499{
500 SetReturnCode(retCode);
501 Show(FALSE);
502}
503
504// Define for each class of dialog and control
debe6624 505WXHBRUSH wxDialog::OnCtlColor(WXHDC pDC, WXHWND pWnd, WXUINT nCtlColor,
2bda0e17
KB
506 WXUINT message, WXWPARAM wParam, WXLPARAM lParam)
507{
508#if CTL3D
509 HBRUSH hbrush = Ctl3dCtlColorEx(message, wParam, lParam);
510 return (WXHBRUSH) hbrush;
511#else
512 return 0;
513#endif
514}
515
516// Standard buttons
517void wxDialog::OnOK(wxCommandEvent& event)
518{
519 if ( Validate() && TransferDataFromWindow() )
520 {
521 if ( IsModal() )
522 EndModal(wxID_OK);
523 else
524 {
525 SetReturnCode(wxID_OK);
526 this->Show(FALSE);
527 }
528 }
529}
530
531void wxDialog::OnApply(wxCommandEvent& event)
532{
533 if (Validate())
534 TransferDataFromWindow();
535 // TODO probably need to disable the Apply button until things change again
536}
537
538void wxDialog::OnCancel(wxCommandEvent& event)
539{
540 if ( IsModal() )
541 EndModal(wxID_CANCEL);
542 else
543 {
544 SetReturnCode(wxID_CANCEL);
545 this->Show(FALSE);
546 }
547}
548
549bool wxDialog::OnClose(void)
550{
551 // Behaviour changed in 2.0: we'll send a Cancel message by default,
552 // which may close the dialog.
553 // Check for looping if the Cancel event handler calls Close()
554
555 static wxList closing;
556
557 if ( closing.Member(this) )
558 return FALSE;
559
560 closing.Append(this);
561
562 wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
563 cancelEvent.SetEventObject( this );
564 GetEventHandler()->ProcessEvent(cancelEvent);
565
566 closing.DeleteObject(this);
567
568 return FALSE;
569}
570
571void wxDialog::OnCloseWindow(wxCloseEvent& event)
572{
573 // Compatibility
574 if ( GetEventHandler()->OnClose() || event.GetForce())
575 {
576 this->Destroy();
577 }
578}
579
580// Destroy the window (delayed, if a managed window)
581bool wxDialog::Destroy(void)
582{
583 if (!wxPendingDelete.Member(this))
584 wxPendingDelete.Append(this);
585 return TRUE;
586}
587
588void wxDialog::OnSysColourChanged(wxSysColourChangedEvent& event)
589{
590#if CTL3D
591 Ctl3dColorChange();
592#else
593 SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
594 SetDefaultBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
595 Refresh();
596#endif
597}
598
599long wxDialog::MSWWindowProc(WXUINT message, WXWPARAM wParam, WXLPARAM lParam)
600{
601 return wxWindow::MSWWindowProc(message, wParam, lParam);
602}
603