Disable XP GUI Style

[Arcady_XQST]

Приветствую! У меня возник вопрос по поводу графического интерфейса программы: как можно отключить поддержку XP-стиля в программе? В ресурсах программы (exe-файла) находится Manifest. Пробовал просто не инициализировать стиль, так еще до показа окон программа выдает: "Out of memory"! В случае инициализации все работает отлично, но, разумеется, в стиле XP.

[Lumen]

А использовать внешний манифест и если не нужна поддержка стиля XP, то просто переименовывать файл манифеста, не подойдет?

[Хакер]

Arcady_XQST
Ты поправил подпись так, что теперь она вновь занимает полстраницы форума?

[Arcady_XQST]

Lumen, спасибо, но так не пойдет. Манифест находится в ресурсах.
Хакер, так это ты мне ее изменил? Я думал это глюк на форуме был... Сделаю поменьше. Может есть что-нибудь по теме?

[Хакер]

Arcady_XQST
Не кажется, что больно уж интеллектуально для глюка?

[Lumen]

Вот, нарыл у себя где-то код, по-моему это то, что надо.

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

Private Declare Function SetWindowTheme Lib "uxtheme.dll" (ByVal hWnd As Long, ByVal pszSubAppName As Long, ByVal pszSubIdList As Long) As Long

Private Sub RemoveTheme(ByVal hWnd As Long)
   On Error Resume Next
   Dim lR As Long
   lR = SetWindowTheme(hWnd, StrPtr(" "), StrPtr(" "))
   On Error GoTo 0
End Sub


hWnd - это хэндл контрола, которого надо "лишить" стиля XP. Если надо, приведу код, как вернуть стиль XP.

Т.о чтобы "отключить" стиль XP для всех контролов на форме надо написать что-то типа:

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

Dim i As Control
For Each i In Me.Controls
    RemoveTheme i.hWnd
Next


[Arcady_XQST]

Хакер, на таком интеллектуальном форуме возможно все!

Во-о-т! Lumen, то что надо! Спасибо большое!
Вот, если кому надо (автор не я):

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

Private Declare Function ActivateWindowTheme Lib "uxtheme.dll" Alias "SetWindowTheme" (ByVal hwnd As Long, Optional ByVal pszSubAppName As Long = 0, Optional ByVal pszSubIdList As Long = 0) As Long
Private Declare Function DeactivateWindowTheme Lib "uxtheme.dll" Alias "SetWindowTheme" (ByVal hwnd As Long, Optional ByRef pszSubAppName As String = " ", Optional ByRef pszSubIdList As String = " ") As Long

[Arcady_XQST]

Блин, сложно так все окна обрабатывать! + Сообщения (MsgBox) выводятся в XP-стиле. Нужен способ полного отключения XP-стиля в приложении, как если бы в ресурсах небыло манифеста. В пример могу поставить Sound Forge.

[Lumen]

В каком SoundForge? В седьмом я вообще манифеста не нашёл...

[Cytron]

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

Private Declare Sub SetThemeAppProperties Lib "UxTheme" (dwFlags As Long)

Private Sub Form_Initialize()
SetThemeAppProperties 0
End Sub

Работает на всю прогу, делая как будто бы манифеста не было. Код вообще не запустится ни в чем кроме XP и позже.
Если надо во всем - LoadLibrary и CallWindowProc
ВАЖНО! Должно стоять в Initialize!

[Хакер]

Cytron
От чего же не запустится? Запустится, но выдаст ошибку. Если поставить On Error Resume Next, то не выдаст.

[Arcady_XQST]

Ох нефига, аж VB стал в standard-style! Cytron, спасибо!!

P.S.: Lumen, Sound Forge 9.0

[Arcady_XQST]

Если надо во всем - LoadLibrary и CallWindowProc

Во всем - это на сколько? Все оформление в целом? Малехо не понял про способ вызова, почему оно так заработает.

[Lumen]

Да, всё оформление в целом.
Способ вызова - стандартный для вызова API без декларации:
LoadLibrary (или GetModuleHandle)
GetProcAddress
CallWindowProc...

[keks-n]

Внимание вопрос: зачем её вызывать без декларации?

[Lumen]

Хороший вопрос. Может щас так модно?

[Arcady_XQST]

Да, это именно те функции в которых я ОЧЕНЬ плохо разбираюсь...

Может кто-нибудь одарит примерчиком (по теме)?

[Lumen]

За примерами обращайся к поиску, он почти всегда чем-нить одаривает.