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?
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