дата публикации 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)

По скорости создания региона
По логичности кода
По структурированности и комментированности.

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

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

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

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