src/msw/radiobox.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        radiobox.cpp
   3 // Purpose:     wxRadioBox
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     04/01/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart and Markus Holzem
   9 // Licence:     wxWindows license
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // ===========================================================================
  13 // declarations
  14 // ===========================================================================
  15
  16 // ---------------------------------------------------------------------------
  17 // headers
  18 // ---------------------------------------------------------------------------
  19
  20 #ifdef __GNUG__
  21     #pragma implementation "radiobox.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 #ifndef WX_PRECOMP
  32     #include "wx/bitmap.h"
  33     #include "wx/brush.h"
  34     #include "wx/radiobox.h"
  35     #include "wx/log.h"
  36 #endif
  37
  38 #include "wx/msw/private.h"
  39
  40 #if wxUSE_TOOLTIPS
  41
  42 #ifndef __GNUWIN32__
  43     #include <commctrl.h>
  44 #endif
  45
  46     #include "wx/tooltip.h"
  47 #endif // wxUSE_TOOLTIPS
  48
  49 IMPLEMENT_DYNAMIC_CLASS(wxRadioBox, wxControl)
  50
  51 // VZ: the new behaviour is to create the radio buttons as children of the
  52 //     radiobox instead of creating them as children of the radiobox' parent.
  53 //
  54 //     This seems more logical, more consistent with what other frameworks do
  55 //     and allows tooltips to work with radioboxes, so there should be no
  56 //     reason to revert to the backward compatible behaviour - but I still
  57 //     leave this possibility just in case.
  58
  59 #define RADIOBTN_PARENT_IS_RADIOBOX 0
  60
  61 // ---------------------------------------------------------------------------
  62 // private functions
  63 // ---------------------------------------------------------------------------
  64
  65 // wnd proc for radio buttons
  66 #ifdef __WIN32__
  67 LRESULT APIENTRY _EXPORT wxRadioBtnWndProc(HWND hWnd,
  68                                            UINT message,
  69                                            WPARAM wParam,
  70                                            LPARAM lParam);
  71
  72 // ---------------------------------------------------------------------------
  73 // global vars
  74 // ---------------------------------------------------------------------------
  75
  76 // the pointer to standard radio button wnd proc
  77 static WXFARPROC s_wndprocRadioBtn = (WXFARPROC)NULL;
  78
  79 #endif // __WIN32__
  80
  81 // ===========================================================================
  82 // implementation
  83 // ===========================================================================
  84
  85 // ---------------------------------------------------------------------------
  86 // wxRadioBox
  87 // ---------------------------------------------------------------------------
  88
  89 int wxRadioBox::GetNumVer() const
  90 {
  91     if ( m_windowStyle & wxRA_SPECIFY_ROWS )
  92     {
  93         return m_majorDim;
  94     }
  95     else
  96     {
  97         return (m_noItems + m_majorDim - 1)/m_majorDim;
  98     }
  99 }
 100
 101 int wxRadioBox::GetNumHor() const
 102 {
 103     if ( m_windowStyle & wxRA_SPECIFY_ROWS )
 104     {
 105         return (m_noItems + m_majorDim - 1)/m_majorDim;
 106     }
 107     else
 108     {
 109         return m_majorDim;
 110     }
 111 }
 112
 113 bool wxRadioBox::MSWCommand(WXUINT cmd, WXWORD id)
 114 {
 115     if ( cmd == BN_CLICKED )
 116     {
 117         int selectedButton = -1;
 118
 119         for ( int i = 0; i < m_noItems; i++ )
 120         {
 121             if ( id == wxGetWindowId(m_radioButtons[i]) )
 122             {
 123                 selectedButton = i;
 124
 125                 break;
 126             }
 127         }
 128
 129         wxASSERT_MSG( selectedButton != -1, wxT("click from alien button?") );
 130
 131         if ( selectedButton != m_selectedButton )
 132         {
 133             m_selectedButton = selectedButton;
 134
 135             SendNotificationEvent();
 136         }
 137         //else: don't generate events when the selection doesn't change
 138
 139         return TRUE;
 140     }
 141     else
 142         return FALSE;
 143 }
 144
 145 #if WXWIN_COMPATIBILITY
 146 wxRadioBox::wxRadioBox(wxWindow *parent, wxFunction func, const char *title,
 147         int x, int y, int width, int height,
 148         int n, char **choices,
 149         int majorDim, long style, const char *name)
 150 {
 151     wxString *choices2 = new wxString[n];
 152     for ( int i = 0; i < n; i ++) choices2[i] = choices[i];
 153     Create(parent, -1, title, wxPoint(x, y), wxSize(width, height), n, choices2, majorDim, style,
 154             wxDefaultValidator, name);
 155     Callback(func);
 156     delete choices2;
 157 }
 158
 159 #endif // WXWIN_COMPATIBILITY
 160
 161 // Radio box item
 162 wxRadioBox::wxRadioBox()
 163 {
 164     m_selectedButton = -1;
 165     m_noItems = 0;
 166     m_noRowsOrCols = 0;
 167     m_radioButtons = NULL;
 168     m_majorDim = 0;
 169     m_radioWidth = NULL;
 170     m_radioHeight = NULL;
 171 }
 172
 173 bool wxRadioBox::Create(wxWindow *parent,
 174                         wxWindowID id,
 175                         const wxString& title,
 176                         const wxPoint& pos,
 177                         const wxSize& size,
 178                         int n,
 179                         const wxString choices[],
 180                         int majorDim,
 181                         long style,
 182                         const wxValidator& val,
 183                         const wxString& name)
 184 {
 185     // initialize members
 186     m_selectedButton = -1;
 187     m_noItems = 0;
 188
 189     m_majorDim =  majorDim == 0 ? n : majorDim;
 190     m_noRowsOrCols = majorDim;
 191
 192     // common initialization
 193     if ( !CreateControl(parent, id, pos, size, style, val, name) )
 194         return FALSE;
 195
 196     // create the static box
 197     if ( !MSWCreateControl(wxT("BUTTON"), BS_GROUPBOX | WS_GROUP,
 198                            pos, size, title, 0) )
 199         return FALSE;
 200
 201     // and now create the buttons
 202     m_noItems = n;
 203 #if RADIOBTN_PARENT_IS_RADIOBOX
 204     HWND hwndParent = GetHwnd();
 205 #else
 206     HWND hwndParent = GetHwndOf(parent);
 207 #endif
 208
 209     // Some radio boxes test consecutive id.
 210     (void)NewControlId();
 211     m_radioButtons = new WXHWND[n];
 212     m_radioWidth = new int[n];
 213     m_radioHeight = new int[n];
 214
 215     WXHFONT hfont = 0;
 216     wxFont& font = GetFont();
 217     if ( font.Ok() )
 218     {
 219         hfont = font.GetResourceHandle();
 220     }
 221
 222     for ( int i = 0; i < n; i++ )
 223     {
 224         m_radioWidth[i] =
 225         m_radioHeight[i] = -1;
 226         long styleBtn = BS_AUTORADIOBUTTON | WS_TABSTOP | WS_CHILD | WS_VISIBLE;
 227         if ( i == 0 && style == 0 )
 228             styleBtn |= WS_GROUP;
 229
 230         long newId = NewControlId();
 231
 232         HWND hwndBtn = ::CreateWindow(_T("BUTTON"),
 233                                       choices[i],
 234                                       styleBtn,
 235                                       0, 0, 0, 0,   // will be set in SetSize()
 236                                       hwndParent,
 237                                       (HMENU)newId,
 238                                       wxGetInstance(),
 239                                       NULL);
 240
 241         if ( !hwndBtn )
 242         {
 243             wxLogLastError("CreateWindow(radio btn)");
 244
 245             return FALSE;
 246         }
 247
 248         m_radioButtons[i] = (WXHWND)hwndBtn;
 249
 250         SubclassRadioButton((WXHWND)hwndBtn);
 251
 252         if ( hfont )
 253         {
 254             ::SendMessage(hwndBtn, WM_SETFONT, (WPARAM)hfont, 0L);
 255         }
 256
 257         m_subControls.Add(newId);
 258     }
 259
 260     // Create a dummy radio control to end the group.
 261     (void)::CreateWindow(_T("BUTTON"),
 262                          _T(""),
 263                          WS_GROUP | BS_AUTORADIOBUTTON | WS_CHILD,
 264                          0, 0, 0, 0, hwndParent,
 265                          (HMENU)NewControlId(), wxGetInstance(), NULL);
 266
 267     SetSelection(0);
 268
 269     SetSize(pos.x, pos.y, size.x, size.y);
 270
 271     return TRUE;
 272 }
 273
 274 wxRadioBox::~wxRadioBox()
 275 {
 276     m_isBeingDeleted = TRUE;
 277
 278     if (m_radioButtons)
 279     {
 280         int i;
 281         for (i = 0; i < m_noItems; i++)
 282             ::DestroyWindow((HWND)m_radioButtons[i]);
 283         delete[] m_radioButtons;
 284     }
 285
 286     if (m_radioWidth)
 287         delete[] m_radioWidth;
 288     if (m_radioHeight)
 289         delete[] m_radioHeight;
 290
 291 }
 292
 293 wxString wxRadioBox::GetLabel(int item) const
 294 {
 295     wxCHECK_MSG( item >= 0 && item < m_noItems, wxT(""), wxT("invalid radiobox index") );
 296
 297     return wxGetWindowText(m_radioButtons[item]);
 298 }
 299
 300 void wxRadioBox::SetLabel(int item, const wxString& label)
 301 {
 302     wxCHECK_RET( item >= 0 && item < m_noItems, wxT("invalid radiobox index") );
 303
 304     m_radioWidth[item] = m_radioHeight[item] = -1;
 305     SetWindowText((HWND)m_radioButtons[item], label.c_str());
 306 }
 307
 308 void wxRadioBox::SetLabel(int item, wxBitmap *bitmap)
 309 {
 310     /*
 311        m_radioWidth[item] = bitmap->GetWidth() + FB_MARGIN;
 312        m_radioHeight[item] = bitmap->GetHeight() + FB_MARGIN;
 313      */
 314     wxFAIL_MSG(wxT("not implemented"));
 315 }
 316
 317 int wxRadioBox::FindString(const wxString& s) const
 318 {
 319     for (int i = 0; i < m_noItems; i++)
 320     {
 321         if ( s == wxGetWindowText(m_radioButtons[i]) )
 322             return i;
 323     }
 324
 325     return wxNOT_FOUND;
 326 }
 327
 328 void wxRadioBox::SetSelection(int N)
 329 {
 330     wxCHECK_RET( (N >= 0) && (N < m_noItems), wxT("invalid radiobox index") );
 331
 332     // Following necessary for Win32s, because Win32s translate BM_SETCHECK
 333     if (m_selectedButton >= 0 && m_selectedButton < m_noItems)
 334         ::SendMessage((HWND) m_radioButtons[m_selectedButton], BM_SETCHECK, 0, 0L);
 335
 336     ::SendMessage((HWND)m_radioButtons[N], BM_SETCHECK, 1, 0L);
 337     ::SetFocus((HWND)m_radioButtons[N]);
 338
 339     m_selectedButton = N;
 340 }
 341
 342 // Get single selection, for single choice list items
 343 int wxRadioBox::GetSelection() const
 344 {
 345     return m_selectedButton;
 346 }
 347
 348 // Find string for position
 349 wxString wxRadioBox::GetString(int N) const
 350 {
 351     return wxGetWindowText(m_radioButtons[N]);
 352 }
 353
 354 // Restored old code.
 355 void wxRadioBox::DoSetSize(int x, int y, int width, int height, int sizeFlags)
 356 {
 357     int currentX, currentY;
 358     GetPosition(&currentX, &currentY);
 359     int widthOld, heightOld;
 360     GetSize(&widthOld, &heightOld);
 361
 362     int xx = x;
 363     int yy = y;
 364
 365     if (x == -1 && !(sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
 366         xx = currentX;
 367     if (y == -1 && !(sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
 368         yy = currentY;
 369
 370 #if RADIOBTN_PARENT_IS_RADIOBOX
 371     int y_offset = 0;
 372     int x_offset = 0;
 373 #else
 374     int y_offset = yy;
 375     int x_offset = xx;
 376 #endif
 377
 378     int current_width, cyf;
 379
 380     int cx1,cy1;
 381     wxGetCharSize(m_hWnd, &cx1, &cy1, & GetFont());
 382
 383     // Attempt to have a look coherent with other platforms: We compute the
 384     // biggest toggle dim, then we align all items according this value.
 385     int maxWidth =  -1;
 386     int maxHeight = -1;
 387
 388     int i;
 389     for (i = 0 ; i < m_noItems; i++)
 390     {
 391         int eachWidth;
 392         int eachHeight;
 393         if (m_radioWidth[i]<0)
 394         {
 395             // It's a labelled toggle
 396             GetTextExtent(wxGetWindowText(m_radioButtons[i]),
 397                           &current_width, &cyf);
 398             eachWidth = (int)(current_width + RADIO_SIZE);
 399             eachHeight = (int)((3*cyf)/2);
 400         }
 401         else
 402         {
 403             eachWidth = m_radioWidth[i];
 404             eachHeight = m_radioHeight[i];
 405         }
 406
 407         if (maxWidth<eachWidth)
 408             maxWidth = eachWidth;
 409         if (maxHeight<eachHeight)
 410             maxHeight = eachHeight;
 411     }
 412
 413     if (m_hWnd)
 414     {
 415         int totWidth;
 416         int totHeight;
 417
 418         int nbHor = GetNumHor(),
 419             nbVer = GetNumVer();
 420
 421         // this formula works, but I don't know why.
 422         // Please, be sure what you do if you modify it!!
 423         if (m_radioWidth[0]<0)
 424             totHeight = (nbVer * maxHeight) + cy1/2;
 425         else
 426             totHeight = nbVer * (maxHeight+cy1/2);
 427         totWidth  = nbHor * (maxWidth+cx1);
 428
 429         int extraHeight = cy1;
 430
 431 #if defined(CTL3D) && !CTL3D
 432         // Requires a bigger group box in plain Windows
 433         extraHeight *= 3;
 434         extraHeight /= 2;
 435 #endif
 436
 437         // only change our width/height if asked for
 438         if ( width == -1 )
 439         {
 440             if ( sizeFlags & wxSIZE_AUTO_WIDTH )
 441                 width = totWidth + cx1;
 442             else
 443                 width = widthOld;
 444         }
 445
 446         if ( height == -1 )
 447         {
 448             if ( sizeFlags & wxSIZE_AUTO_HEIGHT )
 449                 height = totHeight + extraHeight;
 450             else
 451                 height = heightOld;
 452         }
 453
 454         ::MoveWindow(GetHwnd(), xx, yy, width, height, TRUE);
 455
 456         x_offset += cx1;
 457         y_offset += cy1;
 458     }
 459
 460 #if defined(CTL3D) && (!CTL3D)
 461     y_offset += (int)(cy1/2); // Fudge factor since buttons overlapped label
 462     // JACS 2/12/93. CTL3D draws group label quite high.
 463 #endif
 464     int startX = x_offset;
 465     int startY = y_offset;
 466
 467     for ( i = 0 ; i < m_noItems; i++)
 468     {
 469         // Bidimensional radio adjustment
 470         if (i&&((i%m_majorDim)==0)) // Why is this omitted for i = 0?
 471         {
 472             if (m_windowStyle & wxRA_VERTICAL)
 473             {
 474                 y_offset = startY;
 475                 x_offset += maxWidth + cx1;
 476             }
 477             else
 478             {
 479                 x_offset = startX;
 480                 y_offset += maxHeight;
 481                 if (m_radioWidth[0]>0)
 482                     y_offset += cy1/2;
 483             }
 484         }
 485         int eachWidth;
 486         int eachHeight;
 487         if (m_radioWidth[i]<0)
 488         {
 489             // It's a labeled item
 490             GetTextExtent(wxGetWindowText(m_radioButtons[i]),
 491                           &current_width, &cyf);
 492
 493             // How do we find out radio button bitmap size!!
 494             // By adjusting them carefully, manually :-)
 495             eachWidth = (int)(current_width + RADIO_SIZE);
 496             eachHeight = (int)((3*cyf)/2);
 497         }
 498         else
 499         {
 500             eachWidth = m_radioWidth[i];
 501             eachHeight = m_radioHeight[i];
 502         }
 503
 504         // VZ: make all buttons of the same, maximal size - like this they
 505         //     cover the radiobox entirely and the radiobox tooltips are always
 506         //     shown (otherwise they are not when the mouse pointer is in the
 507         //     radiobox part not belonging to any radiobutton)
 508         ::MoveWindow((HWND)m_radioButtons[i],
 509                      x_offset, y_offset, maxWidth, maxHeight,
 510                      TRUE);
 511
 512         if (m_windowStyle & wxRA_SPECIFY_ROWS)
 513         {
 514             y_offset += maxHeight;
 515             if (m_radioWidth[0]>0)
 516                 y_offset += cy1/2;
 517         }
 518         else
 519             x_offset += maxWidth + cx1;
 520     }
 521 }
 522
 523 void wxRadioBox::GetSize(int *width, int *height) const
 524 {
 525     RECT rect;
 526     rect.left = -1; rect.right = -1; rect.top = -1; rect.bottom = -1;
 527
 528     if (m_hWnd)
 529         wxFindMaxSize(m_hWnd, &rect);
 530
 531     int i;
 532     for (i = 0; i < m_noItems; i++)
 533         wxFindMaxSize(m_radioButtons[i], &rect);
 534
 535     *width = rect.right - rect.left;
 536     *height = rect.bottom - rect.top;
 537 }
 538
 539 void wxRadioBox::GetPosition(int *x, int *y) const
 540 {
 541     wxWindow *parent = GetParent();
 542     RECT rect = { -1, -1, -1, -1 };
 543
 544     int i;
 545     for (i = 0; i < m_noItems; i++)
 546         wxFindMaxSize(m_radioButtons[i], &rect);
 547
 548     if (m_hWnd)
 549         wxFindMaxSize(m_hWnd, &rect);
 550
 551     // Since we now have the absolute screen coords, if there's a parent we
 552     // must subtract its top left corner
 553     POINT point;
 554     point.x = rect.left;
 555     point.y = rect.top;
 556     if (parent)
 557     {
 558         ::ScreenToClient((HWND) parent->GetHWND(), &point);
 559     }
 560
 561     // We may be faking the client origin. So a window that's really at (0, 30)
 562     // may appear (to wxWin apps) to be at (0, 0).
 563     if (GetParent())
 564     {
 565         wxPoint pt(GetParent()->GetClientAreaOrigin());
 566         point.x -= pt.x;
 567         point.y -= pt.y;
 568     }
 569
 570     *x = point.x;
 571     *y = point.y;
 572 }
 573
 574 void wxRadioBox::SetFocus()
 575 {
 576     if (m_noItems > 0)
 577     {
 578         if (m_selectedButton == -1)
 579             ::SetFocus((HWND) m_radioButtons[0]);
 580         else
 581             ::SetFocus((HWND) m_radioButtons[m_selectedButton]);
 582     }
 583
 584 }
 585
 586 bool wxRadioBox::Show(bool show)
 587 {
 588     if ( !wxControl::Show(show) )
 589         return FALSE;
 590
 591     int nCmdShow = show ? SW_SHOW : SW_HIDE;
 592     for ( int i = 0; i < m_noItems; i++ )
 593     {
 594         ::ShowWindow((HWND)m_radioButtons[i], nCmdShow);
 595     }
 596
 597     return TRUE;
 598 }
 599
 600 // Enable a specific button
 601 void wxRadioBox::Enable(int item, bool enable)
 602 {
 603     wxCHECK_RET( item >= 0 && item < m_noItems,
 604                  wxT("invalid item in wxRadioBox::Enable()") );
 605
 606     ::EnableWindow((HWND) m_radioButtons[item], enable);
 607 }
 608
 609 // Enable all controls
 610 bool wxRadioBox::Enable(bool enable)
 611 {
 612     if ( !wxControl::Enable(enable) )
 613         return FALSE;
 614
 615     for (int i = 0; i < m_noItems; i++)
 616         ::EnableWindow((HWND) m_radioButtons[i], enable);
 617
 618     return TRUE;
 619 }
 620
 621 // Show a specific button
 622 void wxRadioBox::Show(int item, bool show)
 623 {
 624     wxCHECK_RET( item >= 0 && item < m_noItems,
 625                  wxT("invalid item in wxRadioBox::Show()") );
 626
 627     ::ShowWindow((HWND)m_radioButtons[item], show ? SW_SHOW : SW_HIDE);
 628 }
 629
 630 // For single selection items only
 631 wxString wxRadioBox::GetStringSelection() const
 632 {
 633     wxString result;
 634     int sel = GetSelection();
 635     if (sel > -1)
 636         result = GetString(sel);
 637
 638     return result;
 639 }
 640
 641 bool wxRadioBox::SetStringSelection(const wxString& s)
 642 {
 643     int sel = FindString (s);
 644     if (sel > -1)
 645     {
 646         SetSelection (sel);
 647         return TRUE;
 648     }
 649     else
 650         return FALSE;
 651 }
 652
 653 bool wxRadioBox::ContainsHWND(WXHWND hWnd) const
 654 {
 655     int i;
 656     for (i = 0; i < Number(); i++)
 657     {
 658         if (GetRadioButtons()[i] == hWnd)
 659             return TRUE;
 660     }
 661
 662     return FALSE;
 663 }
 664
 665 void wxRadioBox::Command(wxCommandEvent & event)
 666 {
 667     SetSelection (event.m_commandInt);
 668     ProcessCommand (event);
 669 }
 670
 671 void wxRadioBox::SubclassRadioButton(WXHWND hWndBtn)
 672 {
 673 #ifdef __WIN32__
 674     HWND hwndBtn = (HWND)hWndBtn;
 675
 676     if ( !s_wndprocRadioBtn )
 677         s_wndprocRadioBtn = (WXFARPROC)::GetWindowLong(hwndBtn, GWL_WNDPROC);
 678
 679     // No GWL_USERDATA in Win16, so omit this subclassing.
 680     ::SetWindowLong(hwndBtn, GWL_WNDPROC, (long)wxRadioBtnWndProc);
 681     ::SetWindowLong(hwndBtn, GWL_USERDATA, (long)this);
 682 #endif // __WIN32__
 683 }
 684
 685 void wxRadioBox::SendNotificationEvent()
 686 {
 687     wxCommandEvent event(wxEVT_COMMAND_RADIOBOX_SELECTED, m_windowId);
 688     event.SetInt( m_selectedButton );
 689     event.SetString( GetString(m_selectedButton) );
 690     event.SetEventObject( this );
 691     ProcessCommand(event);
 692 }
 693
 694 bool wxRadioBox::SetFont(const wxFont& font)
 695 {
 696     if ( !wxControl::SetFont(font) )
 697     {
 698         // nothing to do
 699         return FALSE;
 700     }
 701
 702     // also set the font of our radio buttons
 703     WXHFONT hfont = wxFont(font).GetResourceHandle();
 704     for ( int n = 0; n < m_noItems; n++ )
 705     {
 706         ::SendMessage((HWND)m_radioButtons[n], WM_SETFONT, (WPARAM)hfont, 0L);
 707     }
 708
 709     return TRUE;
 710 }
 711
 712 long wxRadioBox::MSWWindowProc(WXUINT nMsg, WXWPARAM wParam, WXLPARAM lParam)
 713 {
 714     switch ( nMsg )
 715     {
 716         case WM_CTLCOLORSTATIC:
 717             // set the colour of the radio buttons to be the same as ours
 718             {
 719                 HDC hdc = (HDC)wParam;
 720
 721                 const wxColour& colBack = GetBackgroundColour();
 722                 ::SetBkColor(hdc, wxColourToRGB(colBack));
 723                 ::SetTextColor(hdc, wxColourToRGB(GetForegroundColour()));
 724
 725                 wxBrush *brush = wxTheBrushList->FindOrCreateBrush(colBack, wxSOLID);
 726
 727                 return (WXHBRUSH)brush->GetResourceHandle();
 728             }
 729
 730         // This is required for the radiobox to be sensitive to mouse input,
 731         // e.g. for Dialog Editor.
 732         case WM_NCHITTEST:
 733             {
 734                 int xPos = LOWORD(lParam);  // horizontal position of cursor
 735                 int yPos = HIWORD(lParam);  // vertical position of cursor
 736
 737                 ScreenToClient(&xPos, &yPos);
 738
 739                 // Make sure you can drag by the top of the groupbox, but let
 740                 // other (enclosed) controls get mouse events also
 741                 if (yPos < 10)
 742                     return (long)HTCLIENT;
 743             }
 744             // fall through
 745
 746         default:
 747             return wxControl::MSWWindowProc(nMsg, wParam, lParam);
 748     }
 749 }
 750
 751 // ---------------------------------------------------------------------------
 752 // window proc for radio buttons
 753 // ---------------------------------------------------------------------------
 754
 755 #ifdef __WIN32__
 756
 757 LRESULT APIENTRY _EXPORT wxRadioBtnWndProc(HWND hwnd,
 758                                            UINT msg,
 759                                            WPARAM wParam,
 760                                            LPARAM lParam)
 761 {
 762     bool processed = FALSE;
 763     if ( msg == WM_KEYDOWN
 764 #if wxUSE_TOOLTIPS
 765          || msg == WM_NOTIFY
 766 #endif // wxUSE_TOOLTIPS
 767        )
 768     {
 769         wxRadioBox *radiobox = (wxRadioBox *)::GetWindowLong(hwnd, GWL_USERDATA);
 770
 771         wxCHECK_MSG( radiobox, 0, wxT("radio button without radio box?") );
 772
 773 #if wxUSE_TOOLTIPS && !defined(__GNUWIN32__)
 774         if ( msg == WM_NOTIFY )
 775         {
 776             NMHDR* hdr = (NMHDR *)lParam;
 777             if ( (int)hdr->code == TTN_NEEDTEXT )
 778             {
 779                 wxToolTip *tt = radiobox->GetToolTip();
 780                 if ( tt )
 781                 {
 782                     TOOLTIPTEXT *ttt = (TOOLTIPTEXT *)lParam;
 783                     ttt->lpszText = (wxChar *)tt->GetTip().c_str();
 784
 785                     processed = TRUE;
 786                 }
 787             }
 788         }
 789         else // msg == WM_KEYDOWN
 790 #endif // wxUSE_TOOLTIPS
 791         {
 792             processed = TRUE;
 793
 794             int sel = radiobox->GetSelection();
 795
 796             switch ( wParam )
 797             {
 798                 case VK_UP:
 799                     sel--;
 800                     break;
 801
 802                 case VK_LEFT:
 803                     sel -= radiobox->GetNumVer();
 804                     break;
 805
 806                 case VK_DOWN:
 807                     sel++;
 808                     break;
 809
 810                 case VK_RIGHT:
 811                     sel += radiobox->GetNumVer();
 812                     break;
 813
 814                 case VK_TAB:
 815                     {
 816                         wxNavigationKeyEvent event;
 817                         event.SetDirection(!(::GetKeyState(VK_SHIFT) & 0x100));
 818                         event.SetWindowChange(FALSE);
 819                         event.SetEventObject(radiobox);
 820
 821                         if ( radiobox->GetEventHandler()->ProcessEvent(event) )
 822                             return 0;
 823                     }
 824                     // fall through
 825
 826                 default:
 827                     processed = FALSE;
 828             }
 829
 830             if ( processed )
 831             {
 832                 if ( sel >= 0 && sel < radiobox->Number() )
 833                 {
 834                     radiobox->SetSelection(sel);
 835
 836                     // emulate the button click
 837                     radiobox->SendNotificationEvent();
 838                 }
 839             }
 840         }
 841     }
 842
 843     if ( processed )
 844         return 0;
 845
 846     return ::CallWindowProc(CASTWNDPROC s_wndprocRadioBtn, hwnd, msg, wParam, lParam);
 847 }
 848
 849 #endif // __WIN32__
 850