Форум программистов
Реклама:
Гарантия безопасности сети с UTM-системой ИКС.
Защита ПД, межсетевой экран, контроль доступа, фильтрация трафика, система предотвращения вторжений.
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 17.05.2017, 19:50   #11
BDA
Модератор
Заслуженный модератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Адрес: RF Moscow
Сообщений: 5,361
Репутация: 2407

icq: 438888048
По умолчанию

К посту выше от Cuprum5.
Например, смешивание с фоном формы:
Код:

function mix(a, b: tcolor; p: double): tcolor;
begin
  result := rgb(Round(GetRValue(a) * p + GetRValue(b) * (1 - p)),
    Round(GetGValue(a) * p + GetGValue(b) * (1 - p)),
    Round(GetBValue(a) * p + GetBValue(b) * (1 - p)));
end;

Image1.Canvas.Pen.Color := mix(rgb(k * r, k * g, k * b),
      ColorToRGB(Form1.Color), p);

И переменную p увеличивать от 0 до 1.
__________________
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума   Ответить с цитированием
Старый 21.05.2017, 14:59   #12
Коккс
Пользователь
 
Аватар для Коккс
 
Регистрация: 07.11.2013
Сообщений: 18
Репутация: 10
По умолчанию

Всем спасибо! Разобралась!!!
Коккс вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Плавное появление картинки sorokolit Общие вопросы Delphi 1 22.01.2015 18:04
плавное появление изображения RevenGGe Общие вопросы Delphi 3 13.04.2013 17:46
плавное появление/исчезновение объекта TImage Хамяг Общие вопросы Delphi 2 04.12.2011 01:14
Плавное появление картинки при наведении мыши на ссылку CodeNOT JavaScript, Ajax 7 28.04.2011 17:15
Плавное появление формы HAMMAN Общие вопросы Delphi 3 15.05.2008 14:20




05:55.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru