Кнопки с иконками и стилем Windows XP

[ger_kar]

Собственно хотел поместить на форму наряду с обычными кнопками, кнопки с иконками.
Выставил свойства Style - 1-Graphical
У Picture - путь к *.bmp файлу
B получил облом, так как как оказалось такие кнопки не хотят отображаться с XP стилями
Получилась фигня типа этой

Так выглядят по соседству простая кнопа и с иконкой

Кнопки.jpg (4.28 Кб) Просмотров: 2400

Ну и собственно вопрос, как это лечить, если это вообще лечится?

[Хакер]

А ты где-то вообще видел в XP кнопки, отображающиеся как тебе надо (то есть с рисунком и стилем)?

[ger_kar]

А ты где-то вообще видел в XP кнопки, отображающиеся как тебе надо (то есть с рисунком и стилем)?

Ты хочешь сказать что это взаимоисключающие вещи по определению? А насчет видел ли я такое? Я видел красивые стилизованные кнопки с иконками и не раз. Может это была имитация, не знаю, но выглядели они точно как кнопки.

[Хакер]

Я ничего не хочу сказать. Я стараюсь быть предельно беспристрастным.
Видел — одно дело. Надо разбираться, как они этого добились.
Не видел — другое дело. Есть повод задуматься над тем, что такого не бывает.

[ger_kar]

Вот сделал подборочку из того что нашлось непосредственно на моем компьютере

BUT3.jpg (6.45 Кб) Просмотров: 2383

BUT4.jpg (11.8 Кб) Просмотров: 2383

BUT1.jpg (23.38 Кб) Просмотров: 2383

But6.jpg (49.08 Кб) Просмотров: 2383

[ger_kar]

При попытке сделать что нибудь аналогичное в VB получается такая вот неприглядная картинка

Кнопки.jpg (7.08 Кб) Просмотров: 2381

Кроме того, что при добавлении иконки теряются стили XP, так еще и надпись нельзя настроить так, что-бы она была не снизу а справа от иконки как например на кнопках, которые я привел для примера постом выше. Конечно можно извратится и сделать рисунок надписи, т.е. что-бы и иконка и надпись были одним целым рисунком, но этот способ видится мне очень корявым.
Вообще на VB можно сделать нечто подобное, как на приведенных примерах?

Или только так

Пример.rar

(27.68 Кб) Скачиваний: 62

[jangle]

Вообще на VB можно сделать нечто подобное, как на приведенных примерах?

Я делал, лет 5 назад. Но уже не помню как устанавливал стиль Потому как сейчас пользуюсь покупными контролами, где все это есть.

[ger_kar]

Но уже не помню как устанавливал стиль Потому как сейчас пользуюсь покупными контролами, где все это есть.

И как покупные контролы, оправдывают вложенные в них средства? И насколько они дорогие если их покупать?
И опять же контролы наверное идут в виде *.ocx файлов, которые надо дополнительно устанавливать в систему.
Что еще можно найти полезного в таких контролах, кроме XP стиля?

[jangle]

И как покупные контролы, оправдывают вложенные в них средства?

А как покупной автомобиль оправдывает вложенные в него средства?

И насколько они дорогие если их покупать?

Зависит от фирмы разработчика. Меня цена мало волнует, покупает организация по-моей заявке.

И опять же контролы наверное идут в виде *.ocx файлов, которые надо дополнительно устанавливать в систему.

Да в виде .ocх, в систему их устанавливает твой инсталлятор

Что еще можно найти полезного в таких контролах, кроме XP стиля?

Опять же смотря что покупаешь. К примеру, можно перевести весь свой интерфейс на XAML, что я сейчас делаю в одном проекте.

[ger_kar]

А как покупной автомобиль оправдывает вложенные в него средства?

Когда как, может и не оправдать.

Меня цена мало волнует, покупает организация по-моей заявке.

Тебя то может и не волнует, это мне интересно.

К примеру, можно перевести весь свой интерфейс на XAML

Кто такой XAML не имею не малейшего понятия , надо про это прочитать.

[jangle]

Когда как, может и не оправдать.

Если ты профессионально зарабатываешь программированием, создаешь десктопные приложения, то тебе обязательно нужен хороший GUI фреймворк, без него ты не сможешь делать современные интерфейсы на уровне 2012 года.

Тебя то может и не волнует, это мне интересно.

Вот к примеру Порядка 800$ за весь GUI фреймворк

Кто такой XAML не имею не малейшего понятия , надо про это прочитать.

Гипертекстовый язык разметки интерфейса. Позволяет творить чудеса с GUI

[ger_kar]

Я делал, лет 5 назад. Но уже не помню как устанавливал стиль

А ты не мог бы вспомнить, может где-то как-то образец какой завалялся . Кстати я попробовал контролы от MS Forms2, там есть свойство позволяющее выставить ориентацию иконки и текста, но стили XP с ними тоже отсутствуют.

[Хакер]

Все скриншоты, которые ты привёл, не являются скришотами XP-программ. Так что не исключено, что кнопки в них являются вручную отрисовываемыми. Возьми Spy++ и разведай.

[ger_kar]

Все скриншоты, которые ты привёл, не являются скришотами XP-программ.

Как это не XP программ, я что-то не совсем понял. Вроде обычные приложения под Windows XP и запущенные тоже в Windows XP. Или имелось ввиду что-то другое?

Возьми Spy++ и разведай.

Я это уже разведывал. Spy++ говорит что сие - есть кнопки.

Разведка Spy++.jpg (66.04 Кб) Просмотров: 2341

Даже большие прямоугольники в центре, не говоря уже про боковые кнопки с левой стороны.

[Хакер]

Как это не XP программ, я что-то не совсем понял. Вроде обычные приложения под Windows XP и запущенные тоже в Windows XP. Или имелось ввиду что-то другое?

Имелись в виду программы, входящие в состав XP, а не программы, написанные для Windows XP. Непонятно разве?

Я это уже разведывал. Spy++ говорит что сие - есть кнопки.

Ну а расшифровку стилей посмотреть?

[ger_kar]

Имелись в виду программы, входящие в состав XP, а не программы, написанные для Windows XP. Непонятно разве?

Теперь то уже конечно понятно
А вот и стили

Style3.jpg (83.77 Кб) Просмотров: 2332

Style1.jpg (28.56 Кб) Просмотров: 2332

Style2.jpg (32.81 Кб) Просмотров: 2332

Правда мне это совершенно непонятно, как их можно использовать применительно к VB

[Хакер]

BS_OWNERDRAW. Точно, кнопка с ручной отрисовкой родителем.

[ger_kar]

На VB можно такое повторить? Имеется ввиду использование стандартной кнопки, а не посредством вызова функций WinApi CreateWindowEx и обработки оконных сообщений. Приметить суперклассинг если такое возможно и скажем доработать недостающее?

[Хакер]

А почему должно быть нельзя?

[ger_kar]

Твой ответ обнадежил, осталось прояснить в каком направлении двигаться, потому что я абсолютно не представляю, с чего начать.

[Хакер]

В направлении поиска по BS_OWNERDRAW.

[ger_kar]

Нашел на форуме тему в которой этот вопрос уже изучался, буду пока изучать да ставить опыты.

[bon818]

Когда как, может и не оправдать.
Вот к примеру Порядка 800$ за весь GUI фреймворк

800$ ахереть в Microsoft Visual Studio 2010 чуть-ли не поумолчанию такой интерфейс генерит

[bon818]

Кнопки с иконками и стилем Windows XP самый простой способ со всеми минусами и плюсами

[ger_kar]

Спасибо, то что надо. И все оказалось намного проще, чем я думал.
Однако при изучении примера возникли кое-какие вопросы. Стиль XP реализован через вызов InitCommonControlsEx, и нет никакого манифеста. При этом все прекрасно работает. Получается, что можно вызывать InitCommonControlsEx, а манифест совсем можно исключить? Можно ли убрать манифест если вызывать вместо InitCommonControlsEx функцию InitCommonControls?
Идея самого примера заключается в том, что кнопка делается обычной, а поверх просто помещается контрол с изображением, в данном случае - это пользовательский контрол. А разве напрямую нельзя вместо UserControl'а использовать просто Picture? Зачем надо было городить весь этот огород, я честно нифига не догнал.

[Хакер]

Идея самого примера заключается в том, что кнопка делается обычной, а поверх просто помещается контрол с изображением, в данном случае - это пользовательский контрол. А разве напрямую нельзя вместо UserControl'а использовать просто Picture? Зачем надо было городить весь этот огород, я честно нифига не догнал.

Фу, нельзя так делать!!!

[bon818]

Реализуй без огорода как хочеш.. а вот манифест в ресурсе.

[ger_kar]

Фу, нельзя так делать!!!

Что конкретно нельзя? Нельзя Picture без UserControl'а использовать? Или вообще нельзя помещать изображение поверх кнопки?

Реализуй без огорода как хочеш..

Вопрос не в том, как я хочу, а вопрос в том как лучше. Я не понял замысла, но это не значит, что его не было. Поэтому хотелось бы разобраться в этом вопросе и постичь тайный смысл.

а вот манифест в ресурсе

Ну и где там манифест? Я например исследовав файл ресурсов, нашел там только Bitmap'ы в количестве 5 штук, и более ничего.

[ger_kar]

Без файла ресурсов, стилей XP нет. Странно. Получается манифест может быть в виде битмапов что-ли?

[bon818]

Есть еще 101 способ реализации в том числе и без манифеста

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

Option Explicit

Private Type RECT2
    x1 As Long
    y1 As Long
    x2 As Long
    y2 As Long
End Type

'Theme =========================================================================
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT2) As Long
Private Declare Function DrawThemeBackGround Lib "uxtheme.dll" Alias "DrawThemeBackground" (ByVal hTheme As Long, ByVal lhdc As Long, ByVal iPartId As Long, ByVal iStateId As Long, pRect As RECT2, pClipRect As Any) As Long
Private Declare Function OpenThemeData Lib "uxtheme.dll" (ByVal hwnd As Long, ByVal pszClassList As Long) As Long
Private Declare Function CloseThemeData Lib "uxtheme.dll" (ByVal hTheme As Long) As Long

'Edit
'ComboBox
'Rebar
'Tab
'Toolbar
'AddressBand
'SearchBox

Private Sub SusTheme(wParam As Long)
    Dim hTheme  As Long, uRct     As RECT2
    GetClientRect wParam, uRct
    hTheme = OpenThemeData(0&, StrPtr("Rebar"))
    If (hTheme) Then
        Call DrawThemeBackGround(hTheme, Picture1.hDC, 6, 0&, uRct, ByVal 0&)
        Call CloseThemeData(hTheme)
    Else
       Call CloseThemeData(hTheme)
    End If
End Sub

Private Sub Form_Paint()
Call SusTheme(Picture1.hwnd)
End Sub



есть там манифест!