opaQue Selector: Прозрачность панели задач, как в Висте.

[Денис]

Предлагаю на суд любителей свистелок и перделок небольшую утилитку, которая управляет (переключает) прозрачностью панели задач рабочего стола таким образом, как это реализовано в Aero™ Висты и выше. Тоесть, когда на экране есть развернутые окна, панель задач делается непрозрачной, когда таких окон нет, панель задач делается полупрозрачной.

[UPD] Добавил код. [/UPD]
Подозреваю, что таких утилит в сети куча, но у моей есть неоспоримое преимущество — опен сорц.
Вся прога сделана на API, работает следующим образом: висит в фоне, по таймеру перебирает все открытые окна и если находит хотя бы одно видимое и развернутое на весь экран, то задаёт панели задач верхнюю границу прозрачности (по-умолчанию непрозрачность, меняется в настройках) иначе, задает панели нижнюю границу прозрачности. Для пущей красоты прозрачность меняется плавно (поведение задается в настройках).
Что радует — программа совершенно не расходует процессорное время (я отмечал 3% максимум, но обычно меньше процента).

В архиве сам exe, ярлык запуска, ярлык настроек и пакетник для остановки (убивания taskkill'ом). На моем домашнем компе проге почему-то не понравился msvbvm60 пришлось положить с работы в папку с прогой. Хотелось бы узнать, у кого еще не заработает. (UPD: Вопрос решен. На моем компе был поврежденный msvbvm60)

В настройках все просто. Там их раз-два и обчелся. Единственное, что может смутить, хитрый самодельный контрол для задания границ прозрачности. Управляется левой и правой клавишей мыши для задания нижней и верхней границы соответственно.
Во время первого запуска программа предлагает создать файл настроек, так что позаботьтесь о правах на запись в папку с ней.

Ну, в общем, вот. Буду благодарен за отзывы и найденные баги.

[Debugger]

Интересная тулзинка. Хотя конечное назначение не понятно. Ну, разве что для

свистелок и перделок

и просто чтобы показать знакомым.
А после убивания не хочешь восстанавливать прозрачность?
P.S. Зарегистрирован новый фразеологический оборот - "свистелки и перделки". Скоро он будет наравне с многочисленными "религиями": "А написать col(i) вместо col.Item(i) религия не позволяет?", "Пора бы уже запомнить православную запись числа: 0x39F".

[Денис]

Интересная тулзинка. Хотя конечное назначение не понятно.

Поправил описание. Надеюсь станет понятней.

А после убивания не хочешь восстанавливать прозрачность?

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

[Денис]

Ап.
Потому что добавил код.

[Antonariy]

Тоесть, когда на экране есть развернутые окна, панель задач делается непрозрачной, когда таких окон нет, панель задач делается полупрозрачной.

Зачем? Что там есть такого под таскбаром, на что стоит смотреть сквозь него?
Хоть какой-то смысл появится, если убрать зависимость от окон и сделать таскбар автоматически убирающимся — окна станут разворачиваться на весь экран и будет видна их нижняя часть сквозь таскбар при его появлении.

[Денис]

Зачем? Что там есть такого под таскбаром, на что стоит смотреть сквозь него?

Wallpaper

Тоесть, чтобы не было недопонимания: программа не делает непрозрачный таскбар прозрачным, программа делает прозрачный таскбар непрозрачным. Чтобы при развернутых на весь экран окнах прозрачность таскбара не раздражала зрение фрагментами обоев.

И вдогонку вопрос всем. Делаю показ окна настроек при повторном вызове программы. Делаю так:

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

   rc = GetWindowLong(PrvHWND, GWL_STYLE)
   
   If Not (rc Or WS_VISIBLE) Then
      rc = rc Or WS_VISIBLE
   End If
   
   SetWindowLong PrvHWND, GWL_STYLE, rc

PrvHWND известен заранее и это хендл окна предыдушего инстанса. Окно появляется, но не перерисовывается. Если поводить мышкой в том месте, где оно расположено, начинают проявляться контролы и если угадать расположение заголовка и потягать за него, то тогда оно (окно) появляется полностью. В том числе кнопка на таскбаре.
Я пробовал посылать WM_PAINT, WM_ACTIVATE,

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

   PostMessage PrvHWND, WM_ACTIVATE, 0, 0
   PostMessage PrvHWND, WM_PAINT, 0, 0

но ничего не помогает. Подскажите?
_________________

Новая версия.
Добавлено:
- Иконка. Теперь у программы есть своя иконка.
- Манифест.
- Рефакторинг и оптимизация функций работы с настройками. Теперь можно через запускной ярлык указать папку для сохранения файла настроек.
Исправлено:
- Глюк контрола при задании верхней границы ниже нижней.
- Анимация теперь работает и в вышеуказанном случае.
Известные проблемы:
- При повторном запуске окно дурно прорисовывается. Надо его отыскивать, бегая мышкой по экрану. Как разберусь с сообщениями - будет релиз. Пока что рекомендуется убивать процесс и запускать из ярлыка с опцией /setup

[Денис]

Итак, встречайте!

Релиз.

Что нового?
- Добавлены языковые файлы. Локализация переключается мгновенно на лету.
- Добавлен простенький графический дизайн окна настроек.
- При повторном запуске предлагается либо открыть настройки, либо закрыть предыдущий инстанс.
- Открытие окна настроек из другого инстанса реализовано элегантно, через опцию в файле настроек.
- Так же реализовано и завершение работы программы.
- В связи с появлением кучи файлов могут возникнуть глюки. Рекомендуется стереть старый файл настроек. Языковые файлы следует ложить рядом с ним (по умолчанию в папке с exe)

А вообще, удивительно. Казалось бы, маленькая, простейшая прога, а сколько труда! Всё-таки я не программист.

[Twister]

If Not (rc Or WS_VISIBLE) Then

Вообще-то наличие флага определяется битовым and'ом.

[Денис]

If Not (rc Or WS_VISIBLE) Then

Вообще-то наличие флага определяется битовым and'ом.

Окей, запомню на будущее. В релизе я от этого кода отказался. Видимость регулируется через конфиги.