src/msw/control.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        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 #if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
  21     #pragma implementation "control.h"
  22 #endif
  23
  24 // For compilers that support precompilation, includes "wx.h".
  25 #include "wx/wxprec.h"
  26
  27 #ifdef __BORLANDC__
  28     #pragma hdrstop
  29 #endif
  30
  31 #if wxUSE_CONTROLS
  32
  33 #ifndef WX_PRECOMP
  34     #include "wx/event.h"
  35     #include "wx/app.h"
  36     #include "wx/dcclient.h"
  37     #include "wx/log.h"
  38     #include "wx/settings.h"
  39 #endif
  40
  41 #include "wx/control.h"
  42
  43 #include "wx/msw/private.h"
  44
  45 #if defined(__WIN95__) && !(defined(__GNUWIN32_OLD__) && !defined(__CYGWIN10__))
  46     #include <commctrl.h>
  47 #endif
  48
  49 // ----------------------------------------------------------------------------
  50 // wxWin macros
  51 // ----------------------------------------------------------------------------
  52
  53 IMPLEMENT_ABSTRACT_CLASS(wxControl, wxWindow)
  54
  55 BEGIN_EVENT_TABLE(wxControl, wxWindow)
  56     EVT_ERASE_BACKGROUND(wxControl::OnEraseBackground)
  57 END_EVENT_TABLE()
  58
  59 // ============================================================================
  60 // wxControl implementation
  61 // ============================================================================
  62
  63 // ----------------------------------------------------------------------------
  64 // wxControl ctor/dtor
  65 // ----------------------------------------------------------------------------
  66
  67 wxControl::~wxControl()
  68 {
  69     m_isBeingDeleted = true;
  70 }
  71
  72 // ----------------------------------------------------------------------------
  73 // control window creation
  74 // ----------------------------------------------------------------------------
  75
  76 bool wxControl::Create(wxWindow *parent,
  77                        wxWindowID id,
  78                        const wxPoint& pos,
  79                        const wxSize& size,
  80                        long style,
  81                        const wxValidator& wxVALIDATOR_PARAM(validator),
  82                        const wxString& name)
  83 {
  84     if ( !wxWindow::Create(parent, id, pos, size, style, name) )
  85         return false;
  86
  87 #if wxUSE_VALIDATORS
  88     SetValidator(validator);
  89 #endif
  90
  91     return true;
  92 }
  93
  94 bool wxControl::MSWCreateControl(const wxChar *classname,
  95                                  const wxString& label,
  96                                  const wxPoint& pos,
  97                                  const wxSize& size)
  98 {
  99     WXDWORD exstyle;
 100     WXDWORD msStyle = MSWGetStyle(GetWindowStyle(), &exstyle);
 101
 102     return MSWCreateControl(classname, msStyle, pos, size, label, exstyle);
 103 }
 104
 105 bool wxControl::MSWCreateControl(const wxChar *classname,
 106                                  WXDWORD style,
 107                                  const wxPoint& pos,
 108                                  const wxSize& size,
 109                                  const wxString& label,
 110                                  WXDWORD exstyle)
 111 {
 112     // if no extended style given, determine it ourselves
 113     if ( exstyle == (WXDWORD)-1 )
 114     {
 115         exstyle = 0;
 116         (void) MSWGetStyle(GetWindowStyle(), &exstyle);
 117     }
 118
 119     // all controls should have this style
 120     style |= WS_CHILD;
 121
 122     // create the control visible if it's currently shown for wxWidgets
 123     if ( m_isShown )
 124     {
 125         style |= WS_VISIBLE;
 126     }
 127
 128     // choose the position for the control
 129     int x = pos.x == wxDefaultCoord ? 0 : pos.x,
 130         y = pos.y == wxDefaultCoord ? 0 : pos.y,
 131         w = size.x == wxDefaultCoord ? 0 : size.x,
 132         h = size.y == wxDefaultCoord ? 0 : size.y;
 133
 134     // ... and adjust it to account for a possible parent frames toolbar
 135     AdjustForParentClientOrigin(x, y);
 136
 137     m_hWnd = (WXHWND)::CreateWindowEx
 138                        (
 139                         exstyle,            // extended style
 140                         classname,          // the kind of control to create
 141                         label,              // the window name
 142                         style,              // the window style
 143                         x, y, w, h,         // the window position and size
 144                         GetHwndOf(GetParent()),  // parent
 145                         (HMENU)GetId(),     // child id
 146                         wxGetInstance(),    // app instance
 147                         NULL                // creation parameters
 148                        );
 149
 150     if ( !m_hWnd )
 151     {
 152         wxLogDebug(wxT("Failed to create a control of class '%s'"), classname);
 153         wxFAIL_MSG(_T("something is very wrong, CreateWindowEx failed"));
 154
 155         return false;
 156     }
 157
 158 #if wxUSE_CTL3D
 159     if ( want3D )
 160     {
 161         Ctl3dSubclassCtl(GetHwnd());
 162         m_useCtl3D = true;
 163     }
 164 #endif // wxUSE_CTL3D
 165
 166     // install wxWidgets window proc for this window
 167     SubclassWin(m_hWnd);
 168
 169     // set up fonts and colours
 170     InheritAttributes();
 171     if (!m_hasFont)
 172         SetFont(GetDefaultAttributes().font);
 173
 174     // set the size now if no initial size specified
 175     SetInitialBestSize(size);
 176
 177     return true;
 178 }
 179
 180 // ----------------------------------------------------------------------------
 181 // various accessors
 182 // ----------------------------------------------------------------------------
 183
 184 wxBorder wxControl::GetDefaultBorder() const
 185 {
 186     // we want to automatically give controls a sunken style (confusingly,
 187     // it may not really mean sunken at all as we map it to WS_EX_CLIENTEDGE
 188     // which is not sunken at all under Windows XP -- rather, just the default)
 189     return wxBORDER_SUNKEN;
 190 }
 191
 192 WXDWORD wxControl::MSWGetStyle(long style, WXDWORD *exstyle) const
 193 {
 194     long msStyle = wxWindow::MSWGetStyle(style, exstyle);
 195
 196     if ( AcceptsFocus() )
 197     {
 198         msStyle |= WS_TABSTOP;
 199     }
 200
 201     return msStyle;
 202 }
 203
 204 wxSize wxControl::DoGetBestSize() const
 205 {
 206     return wxSize(DEFAULT_ITEM_WIDTH, DEFAULT_ITEM_HEIGHT);
 207 }
 208
 209 // This is a helper for all wxControls made with UPDOWN native control.
 210 // In wxMSW it was only wxSpinCtrl derived from wxSpinButton but in
 211 // WinCE of Smartphones this happens also for native wxTextCtrl,
 212 // wxChoice and others.
 213 wxSize wxControl::GetBestSpinerSize(const bool is_vertical) const
 214 {
 215     // take size according to layout
 216     wxSize bestSize(
 217 #if defined(__SMARTPHONE__) && defined(__WXWINCE__)
 218                     0,GetCharHeight()
 219 #else
 220                     GetSystemMetrics(is_vertical ? SM_CXVSCROLL : SM_CXHSCROLL),
 221                     GetSystemMetrics(is_vertical ? SM_CYVSCROLL : SM_CYHSCROLL)
 222 #endif
 223     );
 224
 225     // correct size as for undocumented MSW variants cases (WinCE and perhaps others)
 226     if (bestSize.x==0)
 227         bestSize.x = bestSize.y;
 228     if (bestSize.y==0)
 229         bestSize.y = bestSize.x;
 230
 231     // double size according to layout
 232     if (is_vertical)
 233         bestSize.y *= 2;
 234     else
 235         bestSize.x *= 2;
 236
 237     return bestSize;
 238 }
 239
 240 /* static */ wxVisualAttributes
 241 wxControl::GetClassDefaultAttributes(wxWindowVariant WXUNUSED(variant))
 242 {
 243     wxVisualAttributes attrs;
 244
 245     // old school (i.e. not "common") controls use the standard dialog font
 246     // by default
 247     attrs.font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
 248
 249     // most, or at least many, of the controls use the same colours as the
 250     // buttons -- others will have to override this (and possibly simply call
 251     // GetCompositeControlsDefaultAttributes() from their versions)
 252     attrs.colFg = wxSystemSettings::GetColour(wxSYS_COLOUR_BTNTEXT);
 253     attrs.colBg = wxSystemSettings::GetColour(wxSYS_COLOUR_BTNFACE);
 254
 255     return attrs;
 256 }
 257
 258 // another version for the "composite", i.e. non simple controls
 259 /* static */ wxVisualAttributes
 260 wxControl::GetCompositeControlsDefaultAttributes(wxWindowVariant WXUNUSED(variant))
 261 {
 262     wxVisualAttributes attrs;
 263     attrs.font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
 264     attrs.colFg = wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOWTEXT);
 265     attrs.colBg = wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW);
 266
 267     return attrs;
 268 }
 269
 270 // ----------------------------------------------------------------------------
 271 // message handling
 272 // ----------------------------------------------------------------------------
 273
 274 bool wxControl::ProcessCommand(wxCommandEvent& event)
 275 {
 276     return GetEventHandler()->ProcessEvent(event);
 277 }
 278
 279 #ifdef __WIN95__
 280 bool wxControl::MSWOnNotify(int idCtrl,
 281                             WXLPARAM lParam,
 282                             WXLPARAM* result)
 283 {
 284     wxEventType eventType wxDUMMY_INITIALIZE(wxEVT_NULL);
 285
 286     NMHDR *hdr = (NMHDR*) lParam;
 287     switch ( hdr->code )
 288     {
 289         case NM_CLICK:
 290             eventType = wxEVT_COMMAND_LEFT_CLICK;
 291             break;
 292
 293         case NM_DBLCLK:
 294             eventType = wxEVT_COMMAND_LEFT_DCLICK;
 295             break;
 296
 297         case NM_RCLICK:
 298             eventType = wxEVT_COMMAND_RIGHT_CLICK;
 299             break;
 300
 301         case NM_RDBLCLK:
 302             eventType = wxEVT_COMMAND_RIGHT_DCLICK;
 303             break;
 304
 305         case NM_SETFOCUS:
 306             eventType = wxEVT_COMMAND_SET_FOCUS;
 307             break;
 308
 309         case NM_KILLFOCUS:
 310             eventType = wxEVT_COMMAND_KILL_FOCUS;
 311             break;
 312
 313         case NM_RETURN:
 314             eventType = wxEVT_COMMAND_ENTER;
 315             break;
 316
 317         default:
 318             return wxWindow::MSWOnNotify(idCtrl, lParam, result);
 319     }
 320
 321     wxCommandEvent event(wxEVT_NULL, m_windowId);
 322     event.SetEventType(eventType);
 323     event.SetEventObject(this);
 324
 325     return GetEventHandler()->ProcessEvent(event);
 326 }
 327 #endif // Win95
 328
 329 void wxControl::OnEraseBackground(wxEraseEvent& event)
 330 {
 331     // notice that this 'dumb' implementation may cause flicker for some of the
 332     // controls in which case they should intercept wxEraseEvent and process it
 333     // themselves somehow
 334
 335     RECT rect;
 336     ::GetClientRect(GetHwnd(), &rect);
 337
 338     HBRUSH hBrush = ::CreateSolidBrush(wxColourToRGB(GetBackgroundColour()));
 339
 340     HDC hdc = GetHdcOf((*event.GetDC()));
 341
 342 #ifndef __WXWINCE__
 343     int mode = ::SetMapMode(hdc, MM_TEXT);
 344 #endif
 345
 346     ::FillRect(hdc, &rect, hBrush);
 347     ::DeleteObject(hBrush);
 348
 349 #ifndef __WXWINCE__
 350     ::SetMapMode(hdc, mode);
 351 #endif
 352 }
 353
 354 WXHBRUSH wxControl::OnCtlColor(WXHDC pDC, WXHWND WXUNUSED(pWnd), WXUINT WXUNUSED(nCtlColor),
 355 #if wxUSE_CTL3D
 356                                WXUINT message,
 357                                WXWPARAM wParam,
 358                                WXLPARAM lParam
 359 #else
 360                                WXUINT WXUNUSED(message),
 361                                WXWPARAM WXUNUSED(wParam),
 362                                WXLPARAM WXUNUSED(lParam)
 363 #endif
 364     )
 365 {
 366 #if wxUSE_CTL3D
 367     if ( m_useCtl3D )
 368     {
 369         HBRUSH hbrush = Ctl3dCtlColorEx(message, wParam, lParam);
 370         return (WXHBRUSH) hbrush;
 371     }
 372 #endif // wxUSE_CTL3D
 373
 374     HDC hdc = (HDC)pDC;
 375     wxColour colBack = GetBackgroundColour();
 376
 377     ::SetBkColor(hdc, wxColourToRGB(colBack));
 378     ::SetTextColor(hdc, wxColourToRGB(GetForegroundColour()));
 379
 380     wxBrush *brush = wxTheBrushList->FindOrCreateBrush(colBack, wxSOLID);
 381
 382     return (WXHBRUSH)brush->GetResourceHandle();
 383 }
 384
 385 // ---------------------------------------------------------------------------
 386 // global functions
 387 // ---------------------------------------------------------------------------
 388
 389 // this is used in radiobox.cpp and slider95.cpp and should be removed as soon
 390 // as it is not needed there any more!
 391 //
 392 // Call this repeatedly for several wnds to find the overall size
 393 // of the widget.
 394 // Call it initially with wxDefaultCoord for all values in rect.
 395 // Keep calling for other widgets, and rect will be modified
 396 // to calculate largest bounding rectangle.
 397 void wxFindMaxSize(WXHWND wnd, RECT *rect)
 398 {
 399     int left = rect->left;
 400     int right = rect->right;
 401     int top = rect->top;
 402     int bottom = rect->bottom;
 403
 404     GetWindowRect((HWND) wnd, rect);
 405
 406     if (left < 0)
 407         return;
 408
 409     if (left < rect->left)
 410         rect->left = left;
 411
 412     if (right > rect->right)
 413         rect->right = right;
 414
 415     if (top < rect->top)
 416         rect->top = top;
 417
 418     if (bottom > rect->bottom)
 419         rect->bottom = bottom;
 420 }
 421
 422 #endif // wxUSE_CONTROLS