src/msw/control.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/msw/control.cpp
   3 // Purpose:     wxControl class
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     01/02/97
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // ============================================================================
  13 // declarations
  14 // ============================================================================
  15
  16 // ----------------------------------------------------------------------------
  17 // headers
  18 // ----------------------------------------------------------------------------
  19
  20 // For compilers that support precompilation, includes "wx.h".
  21 #include "wx/wxprec.h"
  22
  23 #ifdef __BORLANDC__
  24     #pragma hdrstop
  25 #endif
  26
  27 #if wxUSE_CONTROLS
  28
  29 #include "wx/control.h"
  30
  31 #ifndef WX_PRECOMP
  32     #include "wx/msw/wrapcctl.h" // include <commctrl.h> "properly"
  33     #include "wx/event.h"
  34     #include "wx/app.h"
  35     #include "wx/dcclient.h"
  36     #include "wx/log.h"
  37     #include "wx/settings.h"
  38 #endif
  39
  40 #if wxUSE_LISTCTRL
  41     #include "wx/listctrl.h"
  42 #endif // wxUSE_LISTCTRL
  43
  44 #if wxUSE_TREECTRL
  45     #include "wx/treectrl.h"
  46 #endif // wxUSE_TREECTRL
  47
  48 #include "wx/msw/private.h"
  49 #include "wx/msw/uxtheme.h"
  50
  51 // ----------------------------------------------------------------------------
  52 // wxWin macros
  53 // ----------------------------------------------------------------------------
  54
  55 IMPLEMENT_ABSTRACT_CLASS(wxControl, wxWindow)
  56
  57 // ============================================================================
  58 // wxControl implementation
  59 // ============================================================================
  60
  61 // ----------------------------------------------------------------------------
  62 // wxControl ctor/dtor
  63 // ----------------------------------------------------------------------------
  64
  65 wxControl::~wxControl()
  66 {
  67     m_isBeingDeleted = true;
  68 }
  69
  70 // ----------------------------------------------------------------------------
  71 // control window creation
  72 // ----------------------------------------------------------------------------
  73
  74 bool wxControl::Create(wxWindow *parent,
  75                        wxWindowID id,
  76                        const wxPoint& pos,
  77                        const wxSize& size,
  78                        long style,
  79                        const wxValidator& wxVALIDATOR_PARAM(validator),
  80                        const wxString& name)
  81 {
  82     if ( !wxWindow::Create(parent, id, pos, size, style, name) )
  83         return false;
  84
  85 #if wxUSE_VALIDATORS
  86     SetValidator(validator);
  87 #endif
  88
  89     return true;
  90 }
  91
  92 bool wxControl::MSWCreateControl(const wxChar *classname,
  93                                  const wxString& label,
  94                                  const wxPoint& pos,
  95                                  const wxSize& size)
  96 {
  97     WXDWORD exstyle;
  98     WXDWORD msStyle = MSWGetStyle(GetWindowStyle(), &exstyle);
  99
 100     return MSWCreateControl(classname, msStyle, pos, size, label, exstyle);
 101 }
 102
 103 bool wxControl::MSWCreateControl(const wxChar *classname,
 104                                  WXDWORD style,
 105                                  const wxPoint& pos,
 106                                  const wxSize& size,
 107                                  const wxString& label,
 108                                  WXDWORD exstyle)
 109 {
 110     // if no extended style given, determine it ourselves
 111     if ( exstyle == (WXDWORD)-1 )
 112     {
 113         exstyle = 0;
 114         (void) MSWGetStyle(GetWindowStyle(), &exstyle);
 115     }
 116
 117     // all controls should have this style
 118     style |= WS_CHILD;
 119
 120     // create the control visible if it's currently shown for wxWidgets
 121     if ( m_isShown )
 122     {
 123         style |= WS_VISIBLE;
 124     }
 125
 126     // choose the position for the control: we have a problem with default size
 127     // here as we can't calculate the best size before the control exists
 128     // (DoGetBestSize() may need to use m_hWnd), so just choose the minimal
 129     // possible but non 0 size because 0 window width/height result in problems
 130     // elsewhere
 131     int x = pos.x == wxDefaultCoord ? 0 : pos.x,
 132         y = pos.y == wxDefaultCoord ? 0 : pos.y,
 133         w = size.x == wxDefaultCoord ? 1 : size.x,
 134         h = size.y == wxDefaultCoord ? 1 : size.y;
 135
 136     // ... and adjust it to account for a possible parent frames toolbar
 137     AdjustForParentClientOrigin(x, y);
 138
 139     m_hWnd = (WXHWND)::CreateWindowEx
 140                        (
 141                         exstyle,            // extended style
 142                         classname,          // the kind of control to create
 143                         label,              // the window name
 144                         style,              // the window style
 145                         x, y, w, h,         // the window position and size
 146                         GetHwndOf(GetParent()),  // parent
 147                         (HMENU)GetId(),     // child id
 148                         wxGetInstance(),    // app instance
 149                         NULL                // creation parameters
 150                        );
 151
 152     if ( !m_hWnd )
 153     {
 154 #ifdef __WXDEBUG__
 155         wxFAIL_MSG(wxString::Format
 156                    (
 157                     _T("CreateWindowEx(\"%s\", flags=%08x, ex=%08x) failed"),
 158                     classname, (unsigned int)style, (unsigned int)exstyle
 159                    ));
 160 #endif // __WXDEBUG__
 161
 162         return false;
 163     }
 164
 165     // install wxWidgets window proc for this window
 166     SubclassWin(m_hWnd);
 167
 168     // set up fonts and colours
 169     InheritAttributes();
 170     if ( !m_hasFont )
 171     {
 172 #if wxUSE_LISTCTRL || wxUSE_TREECTRL
 173         // if we set a font for {list,tree}ctrls and the font size is changed in
 174         // the display properties then the font size for these controls doesn't
 175         // automatically adjust when they receive WM_SETTINGCHANGE
 176         if ( wxDynamicCastThis(wxListCtrl) || wxDynamicCastThis(wxTreeCtrl) )
 177         {
 178             // not sure if we need to explicitly set the font here for Win95/NT4
 179             // but we definitely can't do it for any newer version
 180             // see wxGetCCDefaultFont() in src/msw/settings.cpp for explanation
 181             // of why this test works
 182
 183             // TODO: test Win95/NT4 to see if this is needed or breaks the
 184             // font resizing as it does on newer versions
 185             wxFont font = GetDefaultAttributes().font;
 186             if ( font == wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT) )
 187             {
 188                 SetFont(font);
 189             }
 190         }
 191         else
 192 #endif // wxUSE_LISTCTRL || wxUSE_TREECTRL
 193         {
 194             SetFont(GetDefaultAttributes().font);
 195         }
 196     }
 197
 198     // set the size now if no initial size specified
 199     SetInitialSize(size);
 200
 201     return true;
 202 }
 203
 204 // ----------------------------------------------------------------------------
 205 // various accessors
 206 // ----------------------------------------------------------------------------
 207
 208 wxBorder wxControl::GetDefaultBorder() const
 209 {
 210     // we want to automatically give controls a sunken style (confusingly,
 211     // it may not really mean sunken at all as we map it to WS_EX_CLIENTEDGE
 212     // which is not sunken at all under Windows XP -- rather, just the default)
 213 #if defined(__POCKETPC__) || defined(__SMARTPHONE__)
 214     return wxBORDER_SIMPLE;
 215 #else
 216     return wxBORDER_SUNKEN;
 217 #endif
 218 }
 219
 220 WXDWORD wxControl::MSWGetStyle(long style, WXDWORD *exstyle) const
 221 {
 222     long msStyle = wxWindow::MSWGetStyle(style, exstyle);
 223
 224     if ( AcceptsFocus() )
 225     {
 226         msStyle |= WS_TABSTOP;
 227     }
 228
 229     return msStyle;
 230 }
 231
 232 wxSize wxControl::DoGetBestSize() const
 233 {
 234     return wxSize(DEFAULT_ITEM_WIDTH, DEFAULT_ITEM_HEIGHT);
 235 }
 236
 237 // This is a helper for all wxControls made with UPDOWN native control.
 238 // In wxMSW it was only wxSpinCtrl derived from wxSpinButton but in
 239 // WinCE of Smartphones this happens also for native wxTextCtrl,
 240 // wxChoice and others.
 241 wxSize wxControl::GetBestSpinnerSize(const bool is_vertical) const
 242 {
 243     // take size according to layout
 244     wxSize bestSize(
 245 #if defined(__SMARTPHONE__) && defined(__WXWINCE__)
 246                     0,GetCharHeight()
 247 #else
 248                     ::GetSystemMetrics(is_vertical ? SM_CXVSCROLL : SM_CXHSCROLL),
 249                     ::GetSystemMetrics(is_vertical ? SM_CYVSCROLL : SM_CYHSCROLL)
 250 #endif
 251     );
 252
 253     // correct size as for undocumented MSW variants cases (WinCE and perhaps others)
 254     if (bestSize.x==0)
 255         bestSize.x = bestSize.y;
 256     if (bestSize.y==0)
 257         bestSize.y = bestSize.x;
 258
 259     // double size according to layout
 260     if (is_vertical)
 261         bestSize.y *= 2;
 262     else
 263         bestSize.x *= 2;
 264
 265     return bestSize;
 266 }
 267
 268 /* static */ wxVisualAttributes
 269 wxControl::GetClassDefaultAttributes(wxWindowVariant WXUNUSED(variant))
 270 {
 271     wxVisualAttributes attrs;
 272
 273     // old school (i.e. not "common") controls use the standard dialog font
 274     // by default
 275     attrs.font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
 276
 277     // most, or at least many, of the controls use the same colours as the
 278     // buttons -- others will have to override this (and possibly simply call
 279     // GetCompositeControlsDefaultAttributes() from their versions)
 280     attrs.colFg = wxSystemSettings::GetColour(wxSYS_COLOUR_BTNTEXT);
 281     attrs.colBg = wxSystemSettings::GetColour(wxSYS_COLOUR_BTNFACE);
 282
 283     return attrs;
 284 }
 285
 286 // another version for the "composite", i.e. non simple controls
 287 /* static */ wxVisualAttributes
 288 wxControl::GetCompositeControlsDefaultAttributes(wxWindowVariant WXUNUSED(variant))
 289 {
 290     wxVisualAttributes attrs;
 291     attrs.font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
 292     attrs.colFg = wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOWTEXT);
 293     attrs.colBg = wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW);
 294
 295     return attrs;
 296 }
 297
 298 // ----------------------------------------------------------------------------
 299 // message handling
 300 // ----------------------------------------------------------------------------
 301
 302 bool wxControl::ProcessCommand(wxCommandEvent& event)
 303 {
 304     return GetEventHandler()->ProcessEvent(event);
 305 }
 306
 307 bool wxControl::MSWOnNotify(int idCtrl,
 308                             WXLPARAM lParam,
 309                             WXLPARAM* result)
 310 {
 311     wxEventType eventType wxDUMMY_INITIALIZE(wxEVT_NULL);
 312
 313     NMHDR *hdr = (NMHDR*) lParam;
 314     switch ( hdr->code )
 315     {
 316         case NM_CLICK:
 317             eventType = wxEVT_COMMAND_LEFT_CLICK;
 318             break;
 319
 320         case NM_DBLCLK:
 321             eventType = wxEVT_COMMAND_LEFT_DCLICK;
 322             break;
 323
 324         case NM_RCLICK:
 325             eventType = wxEVT_COMMAND_RIGHT_CLICK;
 326             break;
 327
 328         case NM_RDBLCLK:
 329             eventType = wxEVT_COMMAND_RIGHT_DCLICK;
 330             break;
 331
 332         case NM_SETFOCUS:
 333             eventType = wxEVT_COMMAND_SET_FOCUS;
 334             break;
 335
 336         case NM_KILLFOCUS:
 337             eventType = wxEVT_COMMAND_KILL_FOCUS;
 338             break;
 339
 340         case NM_RETURN:
 341             eventType = wxEVT_COMMAND_ENTER;
 342             break;
 343
 344         default:
 345             return wxWindow::MSWOnNotify(idCtrl, lParam, result);
 346     }
 347
 348     wxCommandEvent event(wxEVT_NULL, m_windowId);
 349     event.SetEventType(eventType);
 350     event.SetEventObject(this);
 351
 352     return GetEventHandler()->ProcessEvent(event);
 353 }
 354
 355 WXHBRUSH wxControl::DoMSWControlColor(WXHDC pDC, wxColour colBg, WXHWND hWnd)
 356 {
 357     HDC hdc = (HDC)pDC;
 358     if ( m_hasFgCol )
 359     {
 360         ::SetTextColor(hdc, wxColourToRGB(GetForegroundColour()));
 361     }
 362
 363     WXHBRUSH hbr = 0;
 364     if ( !colBg.Ok() )
 365     {
 366         hbr = MSWGetBgBrush(pDC, hWnd);
 367
 368         // if the control doesn't have any bg colour, foreground colour will be
 369         // ignored as the return value would be 0 -- so forcefully give it a
 370         // non default background brush in this case
 371         if ( !hbr && m_hasFgCol )
 372             colBg = GetBackgroundColour();
 373     }
 374
 375     // use the background colour override if a valid colour is given
 376     if ( colBg.Ok() )
 377     {
 378         ::SetBkColor(hdc, wxColourToRGB(colBg));
 379
 380         // draw children with the same colour as the parent
 381         wxBrush *brush = wxTheBrushList->FindOrCreateBrush(colBg, wxSOLID);
 382
 383         hbr = (WXHBRUSH)brush->GetResourceHandle();
 384
 385     }
 386
 387     // if we use custom background, we should set foreground ourselves too
 388     if ( hbr && !m_hasFgCol )
 389     {
 390         ::SetTextColor(hdc, ::GetSysColor(COLOR_WINDOWTEXT));
 391     }
 392     //else: already set above
 393
 394     return hbr;
 395 }
 396
 397 WXHBRUSH wxControl::MSWControlColor(WXHDC pDC, WXHWND hWnd)
 398 {
 399     wxColour colBg;
 400
 401     if ( HasTransparentBackground() )
 402         ::SetBkMode((HDC)pDC, TRANSPARENT);
 403     else // if the control is opaque it shouldn't use the parents background
 404         colBg = GetBackgroundColour();
 405
 406     return DoMSWControlColor(pDC, colBg, hWnd);
 407 }
 408
 409 WXHBRUSH wxControl::MSWControlColorDisabled(WXHDC pDC)
 410 {
 411     return DoMSWControlColor(pDC,
 412                              wxSystemSettings::GetColour(wxSYS_COLOUR_BTNFACE),
 413                              GetHWND());
 414 }
 415
 416 // ---------------------------------------------------------------------------
 417 // global functions
 418 // ---------------------------------------------------------------------------
 419
 420 // this is used in radiobox.cpp and slider95.cpp and should be removed as soon
 421 // as it is not needed there any more!
 422 //
 423 // Call this repeatedly for several wnds to find the overall size
 424 // of the widget.
 425 // Call it initially with wxDefaultCoord for all values in rect.
 426 // Keep calling for other widgets, and rect will be modified
 427 // to calculate largest bounding rectangle.
 428 void wxFindMaxSize(WXHWND wnd, RECT *rect)
 429 {
 430     int left = rect->left;
 431     int right = rect->right;
 432     int top = rect->top;
 433     int bottom = rect->bottom;
 434
 435     GetWindowRect((HWND) wnd, rect);
 436
 437     if (left < 0)
 438         return;
 439
 440     if (left < rect->left)
 441         rect->left = left;
 442
 443     if (right > rect->right)
 444         rect->right = right;
 445
 446     if (top < rect->top)
 447         rect->top = top;
 448
 449     if (bottom > rect->bottom)
 450         rect->bottom = bottom;
 451 }
 452
 453 #endif // wxUSE_CONTROLS