Предлагается новый вариант архива (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)
По скорости создания региона
По логичности кода
По структурированности и комментированности.
В каталоге D6 - версия для Delphi6 с использованием новых свойств формы. Почувствуйте разницу между D5 и D6. И ужас от того, что скоро все будут это использовать.
P.S. Код Андрея Пляко опубликован с согласия чной теме смотрите проекты Антона Григорьева: