Tab Control Customizations

[Richard Kelly]

I seem to be able to get rid of the colored area to the right of the last tab although if I have additional extended border styles set, it leaves a narrow band left. Any ideas on how to do this the right way?

Code Select Expand


Function USERUPDATE_CUSTOM ( _
                           hWndForm      As Dword, _  ' handle of Form
                           wMsg          As Long,  _  ' type of message
                           wParam        As Dword, _  ' first message parameter
                           lParam        As Long   _  ' second message parameter
                           ) As Long

Local rTab        As Rect
Local rTabCtrl    As Rect
Local nWidth      As Long
Local nHeight     As Long
Local hBrush      As Dword
Local lDISPtr     As DRAWITEMSTRUCT Ptr 

    Select Case wMsg
   
        Case %WM_DRAWITEM
       
            FF_Control_GetSize (HWND_USERUPDATE_USERMAINTENANCETABCONTROL, _
                                nWidth, _
                                nHeight)
       
            TabCtrl_GetTabRect ( HWND_USERUPDATE_USERMAINTENANCETABCONTROL, FF_TabControl_GetTabCount(HWND_USERUPDATE_USERMAINTENANCETABCONTROL) - 1, rTab)
           
            GetWindowRect( HWND_USERUPDATE_USERMAINTENANCETABCONTROL, rTabCtrl)
           
            rTabCtrl.nLeft = rTab.nRight
           
            rTabCtrl.nTop = 0
           
            rTabCtrl.nBottom = rTab.nBottom         
           
            hBrush = CreateSolidBrush (&HFFFFFF)
           
            lDisPtr = lParam
           
            FillRect (@lDisPtr.hDC, rTabCtrl, hBrush)
           
            DeleteObject hBrush
           
End Function