1 /////////////////////////////////////////////////////////////////////////////
4 // Author: Julian Smart
8 // Copyright: (c) Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
12 // ============================================================================
14 // ============================================================================
16 // ----------------------------------------------------------------------------
18 // ----------------------------------------------------------------------------
20 #if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
21 #pragma implementation "frame.h"
24 // For compilers that support precompilation, includes "wx.h".
25 #include "wx/wxprec.h"
36 #include "wx/dialog.h"
37 #include "wx/settings.h"
38 #include "wx/dcclient.h"
43 #include "wx/msw/private.h"
50 #include "wx/statusbr.h"
51 #include "wx/generic/statusbr.h"
52 #endif // wxUSE_STATUSBAR
55 #include "wx/toolbar.h"
56 #endif // wxUSE_TOOLBAR
58 #include "wx/menuitem.h"
61 #ifdef __WXUNIVERSAL__
62 #include "wx/univ/theme.h"
63 #include "wx/univ/colschem.h"
64 #endif // __WXUNIVERSAL__
66 // ----------------------------------------------------------------------------
68 // ----------------------------------------------------------------------------
70 #if wxUSE_MENUS_NATIVE
71 extern wxMenu
*wxCurrentPopupMenu
;
72 #endif // wxUSE_MENUS_NATIVE
74 // ----------------------------------------------------------------------------
76 // ----------------------------------------------------------------------------
78 BEGIN_EVENT_TABLE(wxFrame
, wxFrameBase
)
79 EVT_SYS_COLOUR_CHANGED(wxFrame
::OnSysColourChanged
)
82 #if wxUSE_EXTENDED_RTTI
83 WX_DEFINE_FLAGS( wxFrameStyle
)
85 wxBEGIN_FLAGS( wxFrameStyle
)
86 // new style border flags, we put them first to
87 // use them for streaming out
88 wxFLAGS_MEMBER(wxBORDER_SIMPLE
)
89 wxFLAGS_MEMBER(wxBORDER_SUNKEN
)
90 wxFLAGS_MEMBER(wxBORDER_DOUBLE
)
91 wxFLAGS_MEMBER(wxBORDER_RAISED
)
92 wxFLAGS_MEMBER(wxBORDER_STATIC
)
93 wxFLAGS_MEMBER(wxBORDER_NONE
)
95 // old style border flags
96 wxFLAGS_MEMBER(wxSIMPLE_BORDER
)
97 wxFLAGS_MEMBER(wxSUNKEN_BORDER
)
98 wxFLAGS_MEMBER(wxDOUBLE_BORDER
)
99 wxFLAGS_MEMBER(wxRAISED_BORDER
)
100 wxFLAGS_MEMBER(wxSTATIC_BORDER
)
101 wxFLAGS_MEMBER(wxBORDER
)
103 // standard window styles
104 wxFLAGS_MEMBER(wxTAB_TRAVERSAL
)
105 wxFLAGS_MEMBER(wxCLIP_CHILDREN
)
106 wxFLAGS_MEMBER(wxTRANSPARENT_WINDOW
)
107 wxFLAGS_MEMBER(wxWANTS_CHARS
)
108 wxFLAGS_MEMBER(wxFULL_REPAINT_ON_RESIZE
)
109 wxFLAGS_MEMBER(wxALWAYS_SHOW_SB
)
110 wxFLAGS_MEMBER(wxVSCROLL
)
111 wxFLAGS_MEMBER(wxHSCROLL
)
114 wxFLAGS_MEMBER(wxSTAY_ON_TOP
)
115 wxFLAGS_MEMBER(wxCAPTION
)
116 wxFLAGS_MEMBER(wxTHICK_FRAME
)
117 wxFLAGS_MEMBER(wxSYSTEM_MENU
)
118 wxFLAGS_MEMBER(wxRESIZE_BORDER
)
119 wxFLAGS_MEMBER(wxRESIZE_BOX
)
120 wxFLAGS_MEMBER(wxCLOSE_BOX
)
121 wxFLAGS_MEMBER(wxMAXIMIZE_BOX
)
122 wxFLAGS_MEMBER(wxMINIMIZE_BOX
)
124 wxFLAGS_MEMBER(wxFRAME_TOOL_WINDOW
)
125 wxFLAGS_MEMBER(wxFRAME_FLOAT_ON_PARENT
)
127 wxFLAGS_MEMBER(wxFRAME_SHAPED
)
129 wxEND_FLAGS( wxFrameStyle
)
131 IMPLEMENT_DYNAMIC_CLASS_XTI(wxFrame
, wxTopLevelWindow
,"wx/frame.h")
133 wxBEGIN_PROPERTIES_TABLE(wxFrame
)
134 wxEVENT_PROPERTY( Menu
, wxEVT_COMMAND_MENU_SELECTED
, wxCommandEvent
)
136 wxPROPERTY( Title
,wxString
, SetTitle
, GetTitle
, wxString() , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
137 wxPROPERTY_FLAGS( WindowStyle
, wxFrameStyle
, long , SetWindowStyleFlag
, GetWindowStyleFlag
, EMPTY_MACROVALUE
, 0 /*flags*/ , wxT("Helpstring") , wxT("group")) // style
138 wxPROPERTY( MenuBar
, wxMenuBar
* , SetMenuBar
, GetMenuBar
, EMPTY_MACROVALUE
, 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
139 wxEND_PROPERTIES_TABLE()
141 wxBEGIN_HANDLERS_TABLE(wxFrame
)
142 wxEND_HANDLERS_TABLE()
144 wxCONSTRUCTOR_6( wxFrame
, wxWindow
* , Parent
, wxWindowID
, Id
, wxString
, Title
, wxPoint
, Position
, wxSize
, Size
, long , WindowStyle
)
147 IMPLEMENT_DYNAMIC_CLASS(wxFrame
, wxTopLevelWindow
)
150 // ============================================================================
152 // ============================================================================
154 // ----------------------------------------------------------------------------
155 // static class members
156 // ----------------------------------------------------------------------------
159 #if wxUSE_NATIVE_STATUSBAR
160 bool wxFrame
::m_useNativeStatusBar
= true;
162 bool wxFrame
::m_useNativeStatusBar
= false;
164 #endif // wxUSE_NATIVE_STATUSBAR
166 // ----------------------------------------------------------------------------
167 // creation/destruction
168 // ----------------------------------------------------------------------------
176 // Data to save/restore when calling ShowFullScreen
177 m_fsStatusBarFields
= 0;
178 m_fsStatusBarHeight
= 0;
179 m_fsToolBarHeight
= 0;
181 m_wasMinimized
= false;
184 bool wxFrame
::Create(wxWindow
*parent
,
186 const wxString
& title
,
190 const wxString
& name
)
192 if ( !wxTopLevelWindow
::Create(parent
, id
, title
, pos
, size
, style
, name
) )
195 #if defined(__SMARTPHONE__) && defined(__WXWINCE__)
196 SetLeftMenu(wxID_EXIT
, _("Done"));
204 m_isBeingDeleted
= true;
208 // ----------------------------------------------------------------------------
209 // wxFrame client size calculations
210 // ----------------------------------------------------------------------------
212 void wxFrame
::DoSetClientSize(int width
, int height
)
214 // leave enough space for the status bar if we have (and show) it
216 wxStatusBar
*statbar
= GetStatusBar();
217 if ( statbar
&& statbar
->IsShown() )
219 height
+= statbar
->GetSize().y
;
221 #endif // wxUSE_STATUSBAR
223 // call GetClientAreaOrigin() to take the toolbar into account
224 wxPoint pt
= GetClientAreaOrigin();
228 wxTopLevelWindow
::DoSetClientSize(width
, height
);
231 // Get size *available for subwindows* i.e. excluding menu bar, toolbar etc.
232 void wxFrame
::DoGetClientSize(int *x
, int *y
) const
234 wxTopLevelWindow
::DoGetClientSize(x
, y
);
236 // account for the possible toolbar
237 wxPoint pt
= GetClientAreaOrigin();
245 // adjust client area height to take the status bar into account
248 wxStatusBar
*statbar
= GetStatusBar();
249 if ( statbar
&& statbar
->IsShown() )
251 *y
-= statbar
->GetClientSize().y
;
254 #endif // wxUSE_STATUSBAR
257 // ----------------------------------------------------------------------------
258 // wxFrame: various geometry-related functions
259 // ----------------------------------------------------------------------------
261 void wxFrame
::Raise()
263 ::SetForegroundWindow(GetHwnd());
266 // generate an artificial resize event
267 void wxFrame
::SendSizeEvent()
271 RECT r
= wxGetWindowRect(GetHwnd());
273 (void)::PostMessage(GetHwnd(), WM_SIZE
,
274 IsMaximized() ? SIZE_MAXIMIZED
: SIZE_RESTORED
,
275 MAKELPARAM(r
.right
- r
.left
, r
.bottom
- r
.top
));
280 wxStatusBar
*wxFrame
::OnCreateStatusBar(int number
,
283 const wxString
& name
)
285 wxStatusBar
*statusBar
wxDUMMY_INITIALIZE(NULL
);
287 #if wxUSE_NATIVE_STATUSBAR
288 if ( !UsesNativeStatusBar() )
290 statusBar
= (wxStatusBar
*)new wxStatusBarGeneric(this, id
, style
);
295 statusBar
= new wxStatusBar(this, id
, style
, name
);
298 statusBar
->SetFieldsCount(number
);
303 void wxFrame
::PositionStatusBar()
305 if ( !m_frameStatusBar
|| !m_frameStatusBar
->IsShown() )
309 GetClientSize(&w
, &h
);
311 m_frameStatusBar
->GetSize(&sw
, &sh
);
313 // Since we wish the status bar to be directly under the client area,
314 // we use the adjusted sizes without using wxSIZE_NO_ADJUSTMENTS.
315 m_frameStatusBar
->SetSize(0, h
, w
, sh
);
317 #endif // wxUSE_STATUSBAR
319 #if wxUSE_MENUS_NATIVE
321 void wxFrame
::AttachMenuBar(wxMenuBar
*menubar
)
323 #if defined(__SMARTPHONE__) && defined(__WXWINCE__)
325 wxMenu
*autoMenu
= NULL
;
327 if( menubar
->GetMenuCount() == 1 )
329 autoMenu
= wxTopLevelWindowMSW
::ButtonMenu
::DuplicateMenu(menubar
->GetMenu(0));
330 SetRightMenu(wxID_ANY
, menubar
->GetLabelTop(0), autoMenu
);
334 autoMenu
= new wxMenu
;
336 for( size_t n
= 0; n
< menubar
->GetMenuCount(); n
++ )
338 wxMenu
*item
= menubar
->GetMenu(n
);
339 wxString label
= menubar
->GetLabelTop(n
);
340 wxMenu
*new_item
= wxTopLevelWindowMSW
::ButtonMenu
::DuplicateMenu(item
);
341 autoMenu
->Append(wxID_ANY
, label
, new_item
);
344 SetRightMenu(wxID_ANY
, _("Menu"), autoMenu
);
347 #elif defined(WINCE_WITHOUT_COMMANDBAR)
350 wxToolBar
* toolBar
= new wxToolBar(this, wxID_ANY
,
351 wxDefaultPosition
, wxDefaultSize
,
352 wxBORDER_NONE
| wxTB_HORIZONTAL
,
353 wxToolBarNameStr
, menubar
);
355 menubar
->SetToolBar(toolBar
);
357 // Now adjust size for menu bar
360 //When the main window is created using CW_USEDEFAULT the height of the
361 // is created is not taken into account). So we resize the window after
362 // if a menubar is present
365 ::GetWindowRect((HWND
) GetHWND(), &rc
);
366 // adjust for menu / titlebar height
367 rc
.bottom
-= (2*menuHeight
-1);
369 ::MoveWindow((HWND
) GetHWND(), rc
.left
, rc
.top
, rc
.right
, rc
.bottom
, FALSE
);
373 wxFrameBase
::AttachMenuBar(menubar
);
377 // actually remove the menu from the frame
378 m_hMenu
= (WXHMENU
)0;
379 InternalSetMenuBar();
381 else // set new non NULL menu bar
383 #if !defined(__WXWINCE__) || defined(WINCE_WITH_COMMANDBAR)
384 // Can set a menubar several times.
385 if ( menubar
->GetHMenu() )
387 m_hMenu
= menubar
->GetHMenu();
391 m_hMenu
= menubar
->Create();
395 wxFAIL_MSG( _T("failed to create menu bar") );
400 InternalSetMenuBar();
404 void wxFrame
::InternalSetMenuBar()
406 #if defined(__WXMICROWIN__) || defined(__WXWINCE__)
409 if ( !::SetMenu(GetHwnd(), (HMENU
)m_hMenu
) )
411 wxLogLastError(wxT("SetMenu"));
416 #endif // wxUSE_MENUS_NATIVE
418 // Responds to colour changes, and passes event on to children.
419 void wxFrame
::OnSysColourChanged(wxSysColourChangedEvent
& event
)
421 SetBackgroundColour(wxSystemSettings
::GetColour(wxSYS_COLOUR_APPWORKSPACE
));
425 if ( m_frameStatusBar
)
427 wxSysColourChangedEvent event2
;
428 event2
.SetEventObject( m_frameStatusBar
);
429 m_frameStatusBar
->GetEventHandler()->ProcessEvent(event2
);
431 #endif // wxUSE_STATUSBAR
433 // Propagate the event to the non-top-level children
434 wxWindow
::OnSysColourChanged(event
);
437 // Pass true to show full screen, false to restore.
438 bool wxFrame
::ShowFullScreen(bool show
, long style
)
440 if ( IsFullScreen() == show
)
447 #if defined(WINCE_WITH_COMMANDBAR)
448 // TODO: hide commandbar
450 wxToolBar
*theToolBar
= GetToolBar();
452 theToolBar
->GetSize(NULL
, &m_fsToolBarHeight
);
454 // zap the toolbar, menubar, and statusbar
456 if ((style
& wxFULLSCREEN_NOTOOLBAR
) && theToolBar
)
458 theToolBar
->SetSize(wxDefaultCoord
,0);
459 theToolBar
->Show(false);
461 #endif // __WXWINCE__
462 #endif // wxUSE_TOOLBAR
464 #if defined(__WXMICROWIN__)
465 #elif defined(__WXWINCE__)
466 // TODO: make it work for WinCE
468 if (style
& wxFULLSCREEN_NOMENUBAR
)
469 SetMenu((HWND
)GetHWND(), (HMENU
) NULL
);
473 wxStatusBar
*theStatusBar
= GetStatusBar();
475 theStatusBar
->GetSize(NULL
, &m_fsStatusBarHeight
);
477 // Save the number of fields in the statusbar
478 if ((style
& wxFULLSCREEN_NOSTATUSBAR
) && theStatusBar
)
480 //m_fsStatusBarFields = theStatusBar->GetFieldsCount();
481 //SetStatusBar((wxStatusBar*) NULL);
482 //delete theStatusBar;
483 theStatusBar
->Show(false);
486 m_fsStatusBarFields
= 0;
487 #endif // wxUSE_STATUSBAR
492 #if defined(WINCE_WITHOUT_COMMANDBAR)
493 // TODO: show commandbar
495 wxToolBar
*theToolBar
= GetToolBar();
497 // restore the toolbar, menubar, and statusbar
498 if (theToolBar
&& (m_fsStyle
& wxFULLSCREEN_NOTOOLBAR
))
500 theToolBar
->SetSize(wxDefaultCoord
, m_fsToolBarHeight
);
501 theToolBar
->Show(true);
503 #endif // __WXWINCE__
504 #endif // wxUSE_TOOLBAR
507 if ( m_fsStyle
& wxFULLSCREEN_NOSTATUSBAR
)
509 //CreateStatusBar(m_fsStatusBarFields);
512 GetStatusBar()->Show(true);
516 #endif // wxUSE_STATUSBAR
518 #if defined(__WXMICROWIN__)
519 #elif defined(__WXWINCE__)
520 // TODO: make it work for WinCE
522 if ((m_fsStyle
& wxFULLSCREEN_NOMENUBAR
) && (m_hMenu
!= 0))
523 SetMenu((HWND
)GetHWND(), (HMENU
)m_hMenu
);
527 return wxFrameBase
::ShowFullScreen(show
, style
);
530 // ----------------------------------------------------------------------------
531 // tool/status bar stuff
532 // ----------------------------------------------------------------------------
536 wxToolBar
* wxFrame
::CreateToolBar(long style
, wxWindowID id
, const wxString
& name
)
538 #if defined(WINCE_WITHOUT_COMMANDBAR)
539 // We may already have a toolbar from calling SetMenuBar.
543 if ( wxFrameBase
::CreateToolBar(style
, id
, name
) )
548 return m_frameToolBar
;
551 void wxFrame
::PositionToolBar()
553 wxToolBar
*toolbar
= GetToolBar();
554 if ( toolbar
&& toolbar
->IsShown() )
556 #if defined(WINCE_WITHOUT_COMMANDBAR)
557 // We want to do something different in WinCE, because
558 // the toolbar should be associated with the commandbar,
559 // and not an independent window.
562 // don't call our (or even wxTopLevelWindow) version because we want
563 // the real (full) client area size, not excluding the tool/status bar
565 wxWindow
::DoGetClientSize(&width
, &height
);
568 wxStatusBar
*statbar
= GetStatusBar();
569 if ( statbar
&& statbar
->IsShown() )
571 height
-= statbar
->GetClientSize().y
;
573 #endif // wxUSE_STATUSBAR
577 #if defined(WINCE_WITH_COMMANDBAR)
578 // We're using a commandbar - so we have to allow for it.
579 if (GetMenuBar() && GetMenuBar()->GetCommandBar())
582 ::GetWindowRect((HWND
) GetMenuBar()->GetCommandBar(), &rect
);
583 y
= rect
.bottom
- rect
.top
;
589 toolbar
->GetPosition(&tx
, &ty
);
590 toolbar
->GetSize(&tw
, &th
);
593 if (ty
< 0 && (-ty
== th
))
595 if (tx
< 0 && (-tx
== tw
))
601 if ( toolbar
->GetWindowStyleFlag() & wxTB_VERTICAL
)
608 // if ( toolbar->GetWindowStyleFlag() & wxTB_FLAT )
612 // use the 'real' MSW position here, don't offset relativly to the
613 // client area origin
615 // Optimise such that we don't have to always resize the toolbar
616 // when the frame changes, otherwise we'll get a lot of flicker.
617 bool heightChanging
wxDUMMY_INITIALIZE(true);
618 bool widthChanging
wxDUMMY_INITIALIZE(true);
620 if ( toolbar
->GetWindowStyleFlag() & wxTB_VERTICAL
)
622 // It's OK if the current height is greater than what can be shown.
623 heightChanging
= (desiredH
> th
) ;
624 widthChanging
= (desiredW
!= tw
) ;
626 // The next time around, we may not have to set the size
628 desiredH
= desiredH
+ 200;
632 // It's OK if the current width is greater than what can be shown.
633 widthChanging
= (desiredW
> tw
) ;
634 heightChanging
= (desiredH
!= th
) ;
636 // The next time around, we may not have to set the size
638 desiredW
= desiredW
+ 200;
641 if (tx
!= 0 || ty
!= 0 || widthChanging
|| heightChanging
)
642 toolbar
->SetSize(x
, y
, desiredW
, desiredH
, wxSIZE_NO_ADJUSTMENTS
);
644 #endif // __WXWINCE__
648 #endif // wxUSE_TOOLBAR
650 // ----------------------------------------------------------------------------
651 // frame state (iconized/maximized/...)
652 // ----------------------------------------------------------------------------
654 // propagate our state change to all child frames: this allows us to emulate X
655 // Windows behaviour where child frames float independently of the parent one
656 // on the desktop, but are iconized/restored with it
657 void wxFrame
::IconizeChildFrames(bool bIconize
)
659 m_iconized
= bIconize
;
661 for ( wxWindowList
::compatibility_iterator node
= GetChildren().GetFirst();
663 node
= node
->GetNext() )
665 wxWindow
*win
= node
->GetData();
667 // iconizing the frames with this style under Win95 shell puts them at
668 // the bottom of the screen (as the MDI children) instead of making
669 // them appear in the taskbar because they are, by virtue of this
670 // style, not managed by the taskbar - instead leave Windows take care
673 if ( win
->GetWindowStyle() & wxFRAME_TOOL_WINDOW
)
677 // the child MDI frames are a special case and should not be touched by
678 // the parent frame - instead, they are managed by the user
679 wxFrame
*frame
= wxDynamicCast(win
, wxFrame
);
681 #if wxUSE_MDI_ARCHITECTURE
682 && !wxDynamicCast(frame
, wxMDIChildFrame
)
683 #endif // wxUSE_MDI_ARCHITECTURE
686 // we don't want to restore the child frames which had been
687 // iconized even before we were iconized, so save the child frame
688 // status when iconizing the parent frame and check it when
692 frame
->m_wasMinimized
= frame
->IsIconized();
695 // note that we shouldn't touch the hidden frames neither because
696 // iconizing/restoring them would show them as a side effect
697 if ( !frame
->m_wasMinimized
&& frame
->IsShown() )
698 frame
->Iconize(bIconize
);
703 WXHICON wxFrame
::GetDefaultIcon() const
705 // we don't have any standard icons (any more)
709 // ===========================================================================
710 // message processing
711 // ===========================================================================
713 // ---------------------------------------------------------------------------
715 // ---------------------------------------------------------------------------
717 bool wxFrame
::MSWTranslateMessage(WXMSG
* pMsg
)
719 if ( wxWindow
::MSWTranslateMessage(pMsg
) )
722 #if wxUSE_MENUS && wxUSE_ACCEL && !defined(__WXUNIVERSAL__)
723 // try the menu bar accels
724 wxMenuBar
*menuBar
= GetMenuBar();
728 const wxAcceleratorTable
& acceleratorTable
= menuBar
->GetAccelTable();
729 return acceleratorTable
.Translate(this, pMsg
);
732 #endif // wxUSE_MENUS && wxUSE_ACCEL
735 // ---------------------------------------------------------------------------
736 // our private (non virtual) message handlers
737 // ---------------------------------------------------------------------------
739 bool wxFrame
::HandlePaint()
742 if ( ::GetUpdateRect(GetHwnd(), &rect
, FALSE
) )
744 #if !defined(__WXMICROWIN__) && !defined(__WXWINCE__)
747 const wxIcon
& icon
= GetIcon();
748 HICON hIcon
= icon
.Ok() ?
GetHiconOf(icon
)
749 : (HICON
)GetDefaultIcon();
751 // Hold a pointer to the dc so long as the OnPaint() message
752 // is being processed
754 HDC hdc
= ::BeginPaint(GetHwnd(), &ps
);
756 // Erase background before painting or we get white background
757 MSWDefWindowProc(WM_ICONERASEBKGND
, (WORD
)(LONG
)ps
.hdc
, 0L);
762 ::GetClientRect(GetHwnd(), &rect
);
764 // FIXME: why hardcoded?
765 static const int icon_width
= 32;
766 static const int icon_height
= 32;
768 int icon_x
= (int)((rect
.right
- icon_width
)/2);
769 int icon_y
= (int)((rect
.bottom
- icon_height
)/2);
771 ::DrawIcon(hdc
, icon_x
, icon_y
, hIcon
);
774 ::EndPaint(GetHwnd(), &ps
);
781 return wxWindow
::HandlePaint();
786 // nothing to paint - processed
791 bool wxFrame
::HandleSize(int WXUNUSED(x
), int WXUNUSED(y
), WXUINT id
)
793 #if !defined(__WXMICROWIN__) && !defined(__WXWINCE__)
798 // only do it it if we were iconized before, otherwise resizing the
799 // parent frame has a curious side effect of bringing it under it's
804 // restore all child frames too
805 IconizeChildFrames(false);
807 (void)SendIconizeEvent(false);
811 // iconize all child frames too
812 IconizeChildFrames(true);
817 #endif // !__WXWINCE__
823 #endif // wxUSE_STATUSBAR
827 #endif // wxUSE_TOOLBAR
829 #if defined(WINCE_WITH_COMMANDBAR)
830 // Position the menu command bar
831 if (GetMenuBar() && GetMenuBar()->GetCommandBar())
834 ::GetWindowRect((HWND
) GetMenuBar()->GetCommandBar(), &rect
);
835 wxSize clientSz
= GetClientSize();
837 if ( !::MoveWindow((HWND
) GetMenuBar()->GetCommandBar(), 0, 0, clientSz
.x
, rect
.bottom
- rect
.top
, true ) )
839 wxLogLastError(wxT("MoveWindow"));
843 #endif // WINCE_WITH_COMMANDBAR
846 // call the base class version to generate the appropriate events
850 bool wxFrame
::HandleCommand(WXWORD id
, WXWORD cmd
, WXHWND control
)
854 // In case it's e.g. a toolbar.
855 wxWindow
*win
= wxFindWinFromHandle(control
);
857 return win
->MSWCommand(cmd
, id
);
860 // handle here commands from menus and accelerators
861 if ( cmd
== 0 || cmd
== 1 )
863 #if wxUSE_MENUS_NATIVE
864 if ( wxCurrentPopupMenu
)
866 wxMenu
*popupMenu
= wxCurrentPopupMenu
;
867 wxCurrentPopupMenu
= NULL
;
869 return popupMenu
->MSWCommand(cmd
, id
);
871 #endif // wxUSE_MENUS_NATIVE
873 #if defined(__SMARTPHONE__) && defined(__WXWINCE__)
874 // handle here commands from Smartphone menu bar
875 if ( wxTopLevelWindow
::HandleCommand(id
, cmd
, control
) )
879 #endif // __SMARTPHONE__ && __WXWINCE__
881 if ( ProcessCommand(id
) )
890 bool wxFrame
::HandleMenuSelect(WXWORD nItem
, WXWORD flags
, WXHMENU hMenu
)
893 if ( flags
== 0xFFFF && hMenu
== 0 )
895 // menu was removed from screen
898 #ifndef __WXMICROWIN__
899 else if ( !(flags
& MF_POPUP
) && !(flags
& MF_SEPARATOR
) )
906 // don't give hints for separators (doesn't make sense) nor for the
907 // items opening popup menus (they don't have them anyhow) but do clear
908 // the status line - otherwise, we would be left with the help message
909 // for the previous item which doesn't apply any more
910 DoGiveHelp(wxEmptyString
, false);
915 wxMenuEvent
event(wxEVT_MENU_HIGHLIGHT
, item
);
916 event
.SetEventObject(this);
918 return GetEventHandler()->ProcessEvent(event
);
921 bool wxFrame
::HandleMenuLoop(const wxEventType
& evtType
, WXWORD isPopup
)
923 // we don't have the menu id here, so we use the id to specify if the event
924 // was from a popup menu or a normal one
925 wxMenuEvent
event(evtType
, isPopup ?
-1 : 0);
926 event
.SetEventObject(this);
928 return GetEventHandler()->ProcessEvent(event
);
931 // ---------------------------------------------------------------------------
932 // the window proc for wxFrame
933 // ---------------------------------------------------------------------------
935 WXLRESULT wxFrame
::MSWWindowProc(WXUINT message
, WXWPARAM wParam
, WXLPARAM lParam
)
938 bool processed
= false;
943 // if we can't close, tell the system that we processed the
944 // message - otherwise it would close us
945 processed
= !Close();
949 processed
= HandleSize(LOWORD(lParam
), HIWORD(lParam
), wParam
);
956 UnpackCommand((WXWPARAM
)wParam
, (WXLPARAM
)lParam
,
959 processed
= HandleCommand(id
, cmd
, (WXHWND
)hwnd
);
964 processed
= HandlePaint();
967 case WM_INITMENUPOPUP
:
968 processed
= HandleInitMenuPopup((WXHMENU
) wParam
);
971 #if !defined(__WXMICROWIN__) && !defined(__WXWINCE__)
976 UnpackMenuSelect(wParam
, lParam
, &item
, &flags
, &hmenu
);
978 processed
= HandleMenuSelect(item
, flags
, hmenu
);
982 case WM_EXITMENULOOP
:
983 processed
= HandleMenuLoop(wxEVT_MENU_CLOSE
, (WXWORD
)wParam
);
986 case WM_QUERYDRAGICON
:
988 const wxIcon
& icon
= GetIcon();
989 HICON hIcon
= icon
.Ok() ?
GetHiconOf(icon
)
990 : (HICON
)GetDefaultIcon();
995 #endif // !__WXMICROWIN__
999 rc
= wxFrameBase
::MSWWindowProc(message
, wParam
, lParam
);
1004 // handle WM_INITMENUPOPUP message
1005 bool wxFrame
::HandleInitMenuPopup(WXHMENU hMenu
)
1007 wxMenu
* menu
= NULL
;
1010 int nCount
= GetMenuBar()->GetMenuCount();
1011 for (int n
= 0; n
< nCount
; n
++)
1013 if (GetMenuBar()->GetMenu(n
)->GetHMenu() == hMenu
)
1015 menu
= GetMenuBar()->GetMenu(n
);
1021 wxMenuEvent
event(wxEVT_MENU_OPEN
, 0, menu
);
1022 event
.SetEventObject(this);
1024 return GetEventHandler()->ProcessEvent(event
);
1027 // ----------------------------------------------------------------------------
1028 // wxFrame size management: we exclude the areas taken by menu/status/toolbars
1029 // from the client area, so the client area is what's really available for the
1031 // ----------------------------------------------------------------------------
1033 // get the origin of the client area in the client coordinates
1034 wxPoint wxFrame
::GetClientAreaOrigin() const
1036 wxPoint pt
= wxTopLevelWindow
::GetClientAreaOrigin();
1038 #if wxUSE_TOOLBAR && !defined(__WXUNIVERSAL__) && \
1039 (!defined(__WXWINCE__) || (_WIN32_WCE >= 400 && !defined(__POCKETPC__) && !defined(__SMARTPHONE__)))
1040 wxToolBar
*toolbar
= GetToolBar();
1041 if ( toolbar
&& toolbar
->IsShown() )
1044 toolbar
->GetSize(&w
, &h
);
1046 if ( toolbar
->GetWindowStyleFlag() & wxTB_VERTICAL
)
1055 #endif // wxUSE_TOOLBAR
1057 #if defined(WINCE_WITH_COMMANDBAR)
1058 if (GetMenuBar() && GetMenuBar()->GetCommandBar())
1061 ::GetWindowRect((HWND
) GetMenuBar()->GetCommandBar(), &rect
);
1062 pt
.y
+= (rect
.bottom
- rect
.top
);