Auto Scrolling a Single Line PropertySheet Tab Control

Environment: all versions of windows. VC6, Win32.

When using property sheets with a large number of pages (for whatever reason) and where there is limited space available, it is often useful to use the single line version. This displays a spin control on the tab control to allow the user to scroll the various tabs into view.

The problem: When the user needs to scroll left they must continually go over to the spin control that is normally on the right hand side to scroll the tabs and then return to select the page they need.

A solution: The technique I present below gets around this problem by automatically scrolling the tabs by one when the selected tab is on the edge thus bringing the next tab into view. There may be more elegant ways to solve this but this gives you the gist.

This solution was developed primarily for use on a maximised property sheet whilst using a PocketPC, on these devices it is not possible to use the Ctrl+Tab and Ctrl+Shift+Tab keyboard shortcuts. The solution though applies equally to desktop solutions.

The PostMessage parameters were determined by using Spy++ on the msctls_updown32 window.

HWND hTabCtrl = NULL;
HWND hWndSpin = NULL;

// Call this function whenever a propertsheet page 
// receives a PSN_SETACTIVE notification:

void AutoScroll(HWND hWndMain)
{
   if(hTabCtrl)
   {
      int iItem;
      RECT rItemRect,rWindow;
     
      GetWindowRect(hWndMain,&rWindow);
     
      iItem = TabCtrl_GetCurSel(hTabCtrl);
      TabCtrl_GetItemRect(hTabCtrl,iItem,&rItemRect);

      if(rItemRect.left < 10)
      {
         PostMessage(hWndSpin,WM_LBUTTONDOWN,1,0x9000A);
         PostMessage(hWndSpin,WM_LBUTTONUP,1,0xD000D);
      }
     
      if(rItemRect.right > rWindow.right-40)
      {
         PostMessage(hWndSpin,WM_LBUTTONDOWN,1,0x70016);
         PostMessage(hWndSpin,WM_LBUTTONUP,1,0x6001B);
      }
   }
}

// Add this code snippet to your property sheet initialisation:

   case PSCB_INITIALIZED:
   {
      // Find the hWnd for the spin control on the tab control

      TCHAR classname[100];

      hTabCtrl = PropSheet_GetTabControl(hWndDlg);

      HWND hWndFind = GetWindow(hTabCtrl,GW_HWNDFIRST);

      while(hWndFind)
      {
         GetClassName(hWndFind,classname,100);

         if(lstrcmp(_T("SysTabControl32"),classname) == 0)
            hWndFind = GetWindow(hWndFind,GW_CHILD);
         else if(lstrcmp(_T("msctls_updown32"),classname) == 0)
         {
            hWndSpin = hWndFind;
            break;
         }
         else
            hWndFind = GetWindow(hWndFind,GW_HWNDNEXT);
     };
  }


Comments

  • Do you have a demo project?

    Posted by Legacy on 11/13/2002 12:00am

    Originally posted by: Danielle

    ?

    Please let me know. My email address is brinasas@yahoo.com

    Reply
Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Live Event Date: October 29, 2014 @ 11:00 a.m. ET / 8:00 a.m. PT Are you interested in building a cognitive application using the power of IBM Watson? Need a platform that provides speed and ease for rapidly deploying this application? Join Chris Madison, Watson Solution Architect, as he walks through the process of building a Watson powered application on IBM Bluemix. Chris will talk about the new Watson Services just released on IBM bluemix, but more importantly he will do a step by step cognitive …

  • Today's "average" business in general is ever more reliant on technology and the Internet. Mobility is the most often cited business trend that has transformed the way many of us work and communicate. From an IT security perspective, this means that protection methods and tools from even a few years ago are rapidly becoming "unfit for purpose." This guide provides crucial facts to assist you in building a robust business case, meeting the demands of your business, and protecting against threats now and in the …

Most Popular Programming Stories

More for Developers

Latest Developer Headlines

RSS Feeds