Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 08.04.2007, 18:38   #1
MaGiCeYe
Пользователь
 
Аватар для MaGiCeYe
 
Регистрация: 29.12.2006
Сообщений: 11
Репутация: 10
Сообщение Маска изображения

Хочу сделать имайдже с маской. Я тут мутил мутил но не выходит
Подскажите что я не правильно сделал

...
var
buf,buf2,mask,image:tbitmap;
bagin
\\копирование фона под изображением
bitblt(buf.canvas.Handle,0,0,h.Widt h,h.Height,form1.canvas.handle,0,0, srccopy);
\\копирование только белого цвета маски на фон
bitblt(buf.canvas.Handle,0,0,h.Widt h,h.Height,mask.Canvas.handle,0,0,s rcpaint);
\\копирование самого изображения
bitblt(buf2.canvas.Handle,0,0,h.Wid th,h.Height,image.Canvas.handle,0,0 ,srccopy);
\\прорисовка всего первого буфера кроме белого цвета на изображение
bitblt(buf2.canvas.Handle,0,0,h.Wid th,h.Height,buf.Canvas.handle,0,0,s rcand);
\\вывод полученного изображения
bitblt(image1.canvas.Handle,0,0,def picture.Width,defpicture.Height,buf 2.Canvas.Handle,0,0,srccopy);
__________________
БОГ ЕСТЬ СОВЕСТЬ...
MaGiCeYe вне форума   Ответить с цитированием
Старый 08.04.2007, 18:57   #2
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Адрес: Химки
Сообщений: 13,566
Репутация: 2756
По умолчанию

bagin - begin

\\ - //

h - вероятно Trect

где взял код, может там статья какая-нибудь есть?
Alar вне форума   Ответить с цитированием
Старый 09.04.2007, 08:29   #3
SERG1980
Профессионал
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
Репутация: 717
По умолчанию

Чтобы работать с объектом TbitMap необходимо его создать
var
buf,buf2,mask,image:tbitmap;
begin
buf:=TbitMap.Create;
и так для всех битмапов, потом уже можно с ними работать
SERG1980 вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
маска файла BESS Общие вопросы Delphi 1 22.08.2008 20:01
Чтение изображения из базы данных, Вместо изображения - "System.Byte[]" ruelCrow Общие вопросы .NET 3 10.07.2008 23:29
Маска в ShellListView SANTA_KLAUD Общие вопросы Delphi 4 30.05.2008 12:29
изменение параметров протокола, таких как IP-адрес, маска, шлюз и DNS сервер Илья М. Работа с сетью в Delphi 1 12.04.2007 12:53


04:14.


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

RusProfile.ru


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