Automatically arrange visible controls below the tab control

Here is some code for realigning the controls present on a property sheet. The code realigns the controls that are beneath the tab control, which have the WS_VISIBLE style. The controls are repositioned from right to left, in reverse tab order, and being separated by a standard distance. This is handy for realigning the controls after you have changed the visibile state of the buttons at the bottom of the property sheet. You can also use this function during OnInitDialog(..) as the visible state of the controls is obtained by checking the window style of the child control, and not by using IsWindowVisible(..).

void CPropertySheetDerivedClass::AutoArrangeButtons() 
{
	CWnd* pWnd = GetDlgItem(ID_APPLY_NOW);
	
	if (pWnd && ::IsWindow(pWnd->m_hWnd))
	{
		// Get the last control in the tab order - (tab order is the same as creation order)
		pWnd = pWnd->GetWindow(GW_HWNDLAST);

		// Get the tab control
		CTabCtrl* pTabCtrl = GetTabControl();

		// Get the child identifier of the tab control
		int nTabControlID = ::GetWindowLong(pTabCtrl->m_hWnd, GWL_ID);

		// Child control identifier
		int nControlID = 0;

		// The window rect of the tab control.
		CRect rcTAB(0, 0, 0, 0);

		pTabCtrl->GetWindowRect(rcTAB);

		ScreenToClient(rcTAB);

		CRect rcTemp(0, 0, 0, 0);

		GetClientRect(rcTemp);

		int nLeft = rcTemp.right;
		int nSpacing = rcTemp.right - rcTAB.right;

		// do this bit while we have a control to do something with
		while(pWnd)
		{
			// Get the ID of the current child control
			nControlID = ::GetWindowLong(pWnd->m_hWnd, GWL_ID);
			
			// Do not make changes to the tab control!!
			if (nControlID != nTabControlID)
			{
				// do some stuff
				pWnd->GetWindowRect(rcTemp);

				ScreenToClient(rcTemp);

				// Is the child control visible? - Don't use IsWindowVisible as the parent
				// also has to be visible for that to return TRUE;
				BOOL bChildIsVisible = ((pWnd->GetStyle() & WS_VISIBLE) == WS_VISIBLE);

				// Make sure we are below the TAB control
				if ((rcTemp.top > rcTAB.bottom) && bChildIsVisible)
				{
					// Move each control
					nLeft -= nSpacing + rcTemp.Width();
					
					pWnd->MoveWindow(nLeft, rcTemp.top, rcTemp.Width(), rcTemp.Height());
				}
			}
				
			// Go back in the TAB order again
			pWnd = pWnd->GetWindow(GW_HWNDPREV);
		}
	}
}

Last updated: 29 April 1998



Comments

  • CTabCtrl Style

    Posted by Legacy on 01/21/2002 12:00am

    Originally posted by: LDS

    Hello 
    
    In CPropertySheet,I Want to Modify the backcolor of TabCtrl
    I use
    CTabCtrl* Tab_ChildCtrl=this->GetTabControl();
    but How Can i Modify it's backcolor????
    Thank You!!!

    • ok

      Posted by huangyongtao on 12/04/2008 02:41am

      ok

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

Top White Papers and Webcasts

  • Live Event Date: July 28, 2016 @ 1:00 p.m. ET / 10:00 a.m. PT Jepsen tests are third-party tests for distributed databases that validate vendors' guarantees about how they perform under various failure scenarios, especially network partitions. These have proven their value as tools in any distributed system tester's arsenal. When the creator of Jepsen, Kyle Kingsbury, started his Jepsen-for-Hire business last fall, VoltDB immediately got in line, and over the past two months, our solution was given the most …

  • Microsoft® Office 365 is a top choice for enterprises that want a cloud-based suite of productivity/ collaboration applications. With Office 365, you get access to Microsoft™ Office solutions practically anytime, anywhere, on virtually any device. It's a great option for current Microsoft users who can now build on their experience with Microsoft™ solutions while enjoying the flexibility of a cloud-based delivery. But even organizations with no previous investment in Microsoft will find that …

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date