Отрисовка контролов в XP Style

[Alexanbar]

Если кому не жалко, скиньте модуль для прорисовки элементов
SSTab и Listview (версии 6)

[Alexanbar]

Закончил в первом приближении отрисовку SSTab. Нашёл пример с отрисовкой графической кнопки. При запуске формы диалога и её последующем закрытии кнопка отрисовывается наполовину как стандартная (вне того места, где была форма диалога), наполовину-в XP стиле. Для отрисовки перехватывается сообщение WM_Paint.
Но, похоже, прорисовка происходит и при поступлении других сообщений, вот только каких?
[/img]

[Alexanbar]

С отрисовкой кнопки вроде глюк пропал, заодно и подсветка появилась. Всё благодаря ф-и InvalidateRect.

Начал отрисовку Frame, так как стандартная меня не устраивает.

Споткнулся на том, что он не хочет быть прозрачным.
Перехватываю событие WM_Paint. Далее делаю так:

Dim tcr As RECT, tCRText As RECT
Dim tPS As PAINTSTRUCT
......

GetClientRect hwnd, tcr
hTheme = OpenThemeData(hwnd, StrPtr("Button"))
hdc = BeginPaint(hwnd, tPS)

'закрашивается внутрення область одним цветом. Если не делать- собирается мусор с экрана

hBR = CreateSolidBrush(TranslateColor(Frame.Container.BackColor))
FillRect hdc, tcr, hBR
DeleteObject hBR

'собственно, рисование
DrawThemeBackground hTheme, hdc, 4, 1, tcr, tcr

... 'рисую текст

......

EndPaint hwnd, tPS

' Close the theme
CloseThemeData hTheme