Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Вниз

Как мне сделать Image полупрозрачным?   Найти похожие ветки 

 
intell ©   (2003-12-07 09:32) [0]

Как мне сделать Image полупрозрачным так, чтобы под ним все процессы было видно? Т.е. допустим за Image показывается кино и нужно чтобы его было видно. При этом в Image у меня очищен розовый цвет (Transparent). Мне нужно это реализовать в Win98.


 
Pentium !!! :)   (2003-12-07 13:43) [1]

Типа сначала делаем полностью прозрачную форму:

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited createparams(params);
{Здесь убираем у формы заголовки и границы}
params.style:=params.style or ws_popup xor ws_dlgframe;
end;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
formrgn:hrgn;
begin

form1.brush.style:=bsclear;
GetWindowRect(form1.Handle, rect(...........));

DeleteObject(formRgn);
formrgn:=
CreateroundRectRgn0,0,form1.width,form1.width,form1.width,form1.width); ///// или что-то такое........

SetWindowRgn(form1.Handle, formrgn, TRUE);
end;


Потом ставим ВИТМАП и делаем его прозрачным.....
Не потеряй свою форму на экране!


 
intell ©   (2003-12-07 13:55) [2]

Попробуем, хотя метод меня "Слегка" не устравиает. Т.к. Image должен лежать на главной форме, и форма обыкновенная.


 
Pentium !!! :)   (2003-12-07 16:48) [3]

Какие проблемы...
Делаем в форме прозрачную область для БИТМАПА...

тока сам думай как, мне облом...


 
Fenik ©   (2003-12-07 19:04) [4]

http://delphibase.endimus.com/?action=viewfunc&topic=mediaimg&id=10300


 
Mihey ©   (2003-12-07 19:28) [5]

Если нужно осуществить прозрачность так, чтобы изображение было прозрачным над другими компонентами, то используй TLayers, универсальный компонент, может всё:

http://www.hot.ee/compcoll/vcl.htm


 
intell ©   (2003-12-07 20:26) [6]

Спасибо всем, буду пытаться применить в моей ситуации!

Mihey - твоя ссылка не работает.


 
Mihey ©   (2003-12-07 21:18) [7]

>Mihey - твоя ссылка не работает.

Вот сейчас только всё проверял - работает. Странно...


 
Intell ©   (2003-12-08 08:01) [8]

Странно. И у меня теперь заработало. Спасибо!


 
Intell ©   (2004-01-07 10:16) [9]

Я так и не получил желаемого результата.


 
Mihey ©   (2004-01-07 20:33) [10]

А чё так???


 
Intell ©   (2004-01-07 21:03) [11]

А... Всё не то. Я как-то видел компонент - он изменяет прозрачность Image, при этом под Image всё видно(движущиеся компоненты и прочее). Так он не скачался - битый. Мне бы что-нибудь этакое нужно. Чтобы и просто, и эффективно. Может у кого такой компонент есть (названия не помню)? Или код, не такой как у Pentium !!!. Мне такой вариант совсем не подходит.


 
Intell ©   (2004-01-07 21:08) [12]

К тому же ни один код не работает. На ссылке Fenik код не работает - откуда-то появляется FBitmap...с чего ему там быть? И откуда он берётся? А TLayers не ставиться. Жалко блин...


 
Intell ©   (2004-01-07 21:18) [13]

Забыл сказать - у меня D6, поэтому не ставиться, говорит ошибка в строке Delphi

type
 IFormDesigner = interface(IDesigner)//Здесь  ошибка

Что за ошибка я не понимаю.


 
Fenik ©   (2004-01-07 21:46) [14]

>Intell ©  (07.01.04 21:08) [12]
>К тому же ни один код не работает. На ссылке Fenik код не работает - откуда-то появляется FBitmap...с чего ему там быть?

Срочная госпитализация!
FBitmap - это из примера использования, к процедуре отношения не имеет.

Я ведь всё подробно описал:

procedure BlendBitmap(Src, Dest: TBitmap; Amount: Byte; Left, Top: Integer; BackColor: TColor; Transparent: Boolean);

{Процедура установления уровня прозрачности
изображения Dest, расположенного над изображением Src.
Amount - уровень прозрачности в промежутке [0..255].
Left, Top - левый верхний угол Dest.
BackColor - цвет, который не нужно изменять,
если Transparent = True.}

Неужели не ясно как использовать?
Откуда у тебя руки растут?


 
Fenik ©   (2004-01-07 21:55) [15]

Есть у тебя картинка B1.
На неё нужно с прозрачностью наложить В2.

Ты вызываешь BlendBitmap(В1, В2...);
Затем рисуешь В2 где хочешь.
В примере В1 - это и есть тот FBitmap.


 
Mihey ©   (2004-01-07 22:14) [16]

2 Fenik:

Нет у него картинки. Нужно, чтобы компоненты были видны под всем этим делом.

2 Intell:

Качаем-с:

TCEImage (сырцов нет, но так бесплатный, с демкой откомпиляной)
http://www.torry.net/vcl/graphics/transparent/ceceimage.zip

TTransImage (бесплатный, оригинально для D3, но попробуй, юзает маску (grayscale))
http://www.torry.net/vcl/graphics/transparent/rstransimg.zip

TransLib
http://www.torry.net/vcl/graphics/effects/diprodetranslib.zip


 
Intell ©   (2004-01-08 01:24) [17]

Mihey, спасибо, но:

ceceimage - его то я какраз и видел. Но не ставиться - [Fatal Error] File not found: "CEImage.pas"

rstransimg тоже не ставиться - оштбка в коде компонента Shape.

rstransimg - подбираю пароль к архиву.


 
Intell ©   (2004-01-08 01:26) [18]

Ошибся
не
rstransimg тоже не ставиться - оштбка в коде компонента Shape.
а diprodetranslib не ставиться, а на rstransimg подбираю пароль.


 
Mihey ©   (2004-01-08 17:58) [19]

>[Fatal Error] File not found: "CEImage.pas"

И рук не хватает починить. С таким отношение ты путного никогда не найдёшь. Всё, я умываю руки с этого вопроса. Для себя в своё время я его решил. И тебе того же желаю. Не смею навязывать своё мнение.



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.49 MB
Время: 0.03 c
6-1076921072
nazgul
2004-02-16 11:44
2004.04.18
ServerSoket и ClientSoket... #каналы


8-1072856792
ИЛЕЙ
2003-12-31 10:46
2004.04.18
Ребят, помогайте с BASS.DLL


9-1066393003
Timer
2003-10-17 16:16
2004.04.18
Анимированный спрайт


3-1079596544
viktor
2004-03-18 10:55
2004.04.18
размер поля


4-1076174980
nester
2004-02-07 20:29
2004.04.18
Как внедриться в OutlookExpress.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский