Статьи Королевства Дельфи


Пример работы с Layers Windows 2000


Раздел Сокровищница тов,
дата публикации 10 ноября 2001г.

Предлагается новый вариант архива (41.5K)
В этом архиве представлены 3 версии программы, которая демонстрирует работу со слоями(Layers) в Windows 2000: Берется форма, на нее накладывается рисунок (любой). Форма окна подгоняется под рисунок (цвет точки в координатах [0,0] считаем прозрачным).
Потом - две новые прикольные WinAPI функции.

  • Первая располагает окно на отдельном Layer-е в Windows 2000+ SetWindowLong
  • Вторая - она там в цикле по таймеру крутится - устанавливает степень прозрачности Layer-а с использованием Alpha-канала. SetLayeredWindowAttributes
В результате - окно по форме скина (кто-то интересовался) и демонстрация новых функций API Windows 2000.
Прозрачными формами тоже кто-то развлекался.

В каталоге D5 - версия для Delphi5 с объявлением внешних функций API Windows 2000. Написана Ярославом Богатовым (aka AnorAglar)
Аскетизм и прямолинейность кода демонстрируют не только соответствующие качества мозга программиста, но и позволяют запихать всё в один модуль, где всё понятно и без комментариев.

В каталоге NewLayer - версия для Delphi5. Оптимизирована Андреем Пляко (aka EinWill)

  1. По скорости создания региона
  2. По логичности кода
  3. По структурированности и комментированности.
В каталоге D6 - версия для Delphi6 с использованием новых свойств формы. Почувствуйте разницу между D5 и D6. И ужас от того, что скоро все будут это использовать.

P.S.
Код Андрея Пляко опубликован с согласия чной теме смотрите проекты Антона Григорьева:

  • Окно с изменяемой степенью прозрачности.




Начало  Назад  Вперед