это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
Сегодня мы поговорим о том, как достичь красивой анимации. Для этого не нужно писать килобайты кода или строить программу на технологии Flash. Отличные результаты можно получить используя только функции WinAPI или возможности Delphi. Я рассмотрю несколько таких необычных возможностей, причем самый большой пример будет состоять из менее чем 10 (!) строк кода.
Альфа-смешивание
Для того, что бы сделать форму полу-прозрачной не надо использовать какие либо компоненты. Не надо даже прописывать ни строчки кода. Что бы сделать форму полу-прозрачной, достаточно присвоить значению TForm.AlphaBlend := true и AlphaBlendValue меньшее чем 255. Чем меньше будет значение AlphaBlendValue, тем прозрачнее будет форма. Можно манипулировать этими значениями и создавать интересные эффекты с помощью циклов. Вот, например, как можно создать красивый эффект при активации формы:
Form1.AlphaBlend := true;
Form1.AlphaBlendValue := 100;
Form1.Show;
for i := 100 to 255 do
begin
Form1.AlphaBlendValue := i;
Application.ProcessMessages;
end;
Следует заметить, что эффект не будет плавным на слабых машинах.
AnimateWindow
В предыдущем примере я показал, как с помощью цикла плавно вывести форму на экран. Для достижения почти такого же эффекта можно воспользоваться WinApi функцией AnimateWindow. Функции передается 3 параметра: hWnd : THandle - дескриптор окна, которое нужно анимировать; dwTime : Cardinal = время, на протяжении которого будет продолжаться анимация окна; dwFlags : Cardinal; - флаги, определяющие способ анимации. Пример:
AnimateWindow (Form1.Handle, 1000, AW_BLEND);
Form1.Show;
Помимо флага AW_BLEND есть ещё несколько флагов, с помощью которых можно достичь довольно впечатляющие результаты:
AW_HOR_POSITIVE - анимирует форму слева направо
AW_HOR_NEGATIVE - анимирует форму справа налево
AW_VER_POSITIVE - анимирует форму сверху вниз
AW_VER_NEGATIVE - анимирует форму снизу вверх
AW_CENTER - анимирует форму из центра
С помощью этой технологии удобно демонстрировать слайды. А если одновременно ещё и использовать альфа-смешивание, то получится очень впечатляюще.
Дырявая форма
При использовании компонента TShape можно сделать в форме дырку. Положите на форму TShape и присвойте свойству Brush.Color := clGreen. А если ещё и присвоить свойству формы FormStyle := fsStayOnTop то через форму можно не только смотреть на то, что находите позади неё, но и нажимать на кнопки, редактировать текст и т.п. Трюк "Летающие кнопки": расположите TShape на форму (Shape := stRectangle, Brush.Color := clRed), присвойте свойству Align := alClient и присвойте свойству формы BorderStyle = bsNone. Далее добавьте на форму кнопки и другие элементы управления.
Масштабирование
Ну и на последок я расскажу про полезную возможность масштабирования. Само масштабирование производит метод ScaleBy класса TForm. Свойства PixelPerInch и Scaled позволяют Delphi автоматически изменять размер формы в случае если приложение запускается с использованием системного шрифта другого размера. Сам метод масштабирует только содержимое формы, если вы хотите, что бы рамер формы тоже масштабировался вместе с элементами управления, то установите свойство AutoScroll := false.
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн
Выполнить Отчет по практике, Менеджмент, решения задач
Отчет по практике, Менеджмент
Срок сдачи к 4 авг.
Написать курсовую работу
Курсовая, Управление в технических системах, теория автоматического управления
Срок сдачи к 7 авг.
Составить предложения 4 штуки чтобы в них были слова: дождь,море, рука
Услуги корректора, Русский язык
Срок сдачи к 3 авг.
нужны две статьи на разные уникальные актуальные темы по архитектуре...
Статья, Архитектура
Срок сдачи к 3 авг.
Написать отчет по учебной практике. Есть только методичка и название...
Отчет по практике, Реклама и PR
Срок сдачи к 8 авг.
«Кто понимает не оценивает, а кто оценивает не понимает» (Владимир...
Эссе, Психология
Срок сдачи к 7 авг.
Задание лабораторной работы - учебно-исследовательская экономическая работа для вкр
Лабораторная, Учебно-исследовательская экономическая работа для ВКР
Срок сдачи к 7 авг.
Студенческая молодёжь в цифровой среде: освоение и различное использование.
Курсовая, Социология
Срок сдачи к 14 авг.
Составить общее описание предприятия (организации) – название
Отчет по практике, банков
Срок сдачи к 7 авг.
1. Теоретическая часть: (является общим для всех студентов)
Контрольная, Арбитражный
Срок сдачи к 10 сент.
Выполнить отчет по практике, 6 семестр, менеджмент, технологическая (проектно-технологическая) практика | п. в | производственная практика
Отчет по практике, Менеджмент
Срок сдачи к 7 авг.
1. источники уголовного права фрг. 2. тест 10 вопросов + заполнить титульник работы по шаблону
Контрольная, Уголовное право зарубежных стран
Срок сдачи к 20 сент.
Заполните форму и узнайте цену на индивидуальную работу!