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

дата публикации 10 ноября 2001г.


Раздел Сокровищница тов,
дата публикации 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.
Код Андрея Пляко опубликован с согласия чной теме смотрите проекты Антона Григорьева:
  • Окно с изменяемой степенью прозрачности.


Содержание раздела