Как вывести текст (DrawText) прозрачно?

[Antonariy]

1) Рисую табы в табстрипе:

Код: Выделить всё

Private Function ISubclass_Callback(ByVal hwnd As Long, uMsg As Long, wParam As Long, lParam As Long, ByVal PrevProc As Long) As Long
Dim di As DRAWITEMSTRUCT
Dim rc As RECT
Dim IFont As IFont
    If uMsg = &H202B Then 'WM_DRAWITEM
        Call CopyMemory(di, ByVal lParam, Len(di))
        Debug.Print di.itemID, di.itemState
        Set IFont = tsBrwsrs.Font
        Call SelectObject(di.hdc, IFont.hFont)
        rc.Left = di.rcItem.Left + 5
        rc.Right = di.rcItem.Right + 5
        rc.Top = di.rcItem.Top + 5
        rc.Bottom = di.rcItem.Bottom + 5
        'SetBkColor di.hdc, vbWhite
        DrawText di.hdc, tsBrwsrs.Tabs(di.itemID + 1).Caption & Chr(0), -1, rc, 0
    End If
End Function

Текст получается на сером фоне.

[Antonariy]

SetBkMode для xp-стиля. В обычном режиме нужно заливать фон через FillRect.
Вопрос закрыт.