Полупрозрачный image

[postal2]

Как средствами delphi 7 сделать ПОЛУпрозрачный image?

[postal2]

Вот нашёл ПОЧТИ то, что надо. А есть ещё предложения??

[Daramant]

Можно разместить Image на отдельной форме и сделать ее полупрозрачной, там есть свойство AlphaBlend.
Если не секрет - зачем?

[0nni]

Вот в этой ветке несколько хороших примеров, только с простым TImage боюсь не получится.
http://desksoft.ru/index.php?forum=13

[postal2]

Сообщение от Daramant

Можно разместить Image на отдельной форме и сделать ее полупрозрачной, там есть свойство AlphaBlend.

Вот так и правда можно, что-то я не догадался, спасибо)

Сообщение от Daramant

Если не секрет - зачем?

Хочу написать свою игру вроде "Компьютерной эволюции" или "Compman`a", только там будет монитор с "установленной" системой - должно получиться прикольно) для последних версий ОС надо делать прозрачность окнам, поэтому и подыскиваю материал заранее.

Сообщение от 0nni

Вот в этой ветке несколько хороших примеров, только с простым TImage боюсь не получится.
http://desksoft.ru/index.php?forum=13

Спасибо, вечером гляну

[DomiNick]

Можно же просто AlphaBlend'ом...

Var Bitmap: TBitmap;

...

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Bitmap:=TBitmap.Create;
Bitmap.LoadFromFile('F:\Alpha_TBitmap_32bit.bmp');
End;

Procedure TForm1.FormPaint(Sender: TObject);
Var bf: BlendFunction;
Begin
bf.BlendOp:=AC_SRC_OVER;
bf.BlendFlags:=0;
bf.AlphaFormat:=AC_SRC_ALPHA; // 0 - èãíîðèðóåì èñõîäíûé àëüôà êàíàë  |  AC_SRC_ALPHA - èñïîëüçóåì èñòî÷íèê alpha (åñëè ðèñóíîê 32-bit)
bf.SourceConstantAlpha:=255;  // îò 0 äî 255 - ïðîçðà÷íîñòü  |  ïðè èñïîëüçîâàíèè AC_SRC_ALPHA íàäî ñòàâèòü 255
Windows.AlphaBlend(Form1.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, Bitmap.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, bf);
End;

А кстати кто такой "TsSemitransPanel"..? Впервые про такого слышу...

[postal2]

Это самонаписаный, скачал с какого-то форума, он вроде в проекте лежит. По идее прога для D2007, я переписал там немного под D7

DomiNick, спасибо) сейчас попробую

Чтото этот альфаблэнд не очень хочет работать или я чего-то не догоняю.
Ничего на форме не отображается, а если считать тот рисунок в image, то он такой же, как и при загрузке. Может я просто не 32 битный гружу..

DomiNick, переведи плиз, что у тебя в примечаниях написано, а то ascii не очень с unicode дружит)

[DomiNick]

Только в том примере я брал 32-битный рисунок со своей прозрачностью...
И с кодировками у меня какой-то глюк...

Если нужно рисовать 32-битный рисунок с собственной прозрачностью:

bf.AlphaFormat:=AC_SRC_ALPHA;
bf.SourceConstantAlpha:=255;

А если простой рисунок:

bf.AlphaFormat:=0;
bf.SourceConstantAlpha:=180; // прозрачность рисунка - от 0 до 255

Ну и "bf" можно в принципе глобальной делать...



Чтоб рисунок нормально ложился на TLabel надо сделать этому TLabel'у:

Label1.Transparent:=True;

[postal2]

Короч всё равно не получается. Скинь исходник, если не затруднит

[DomiNick]

Вот архив, а что не получается-то?

Хочу написать свою игру вроде "Компьютерной эволюции" или "Compman`a"

Это что за зверь?)