Entwickler-Ecke

Multimedia / Grafik - Alphablend zweier TGraphics


Narses - Di 08.05.12 12:54
Titel: Alphablend zweier TGraphics
Die Unit im Anhang stellt diese Prozedur bereit:

Delphi-Quelltext 
1:
 
procedure AlphaImgs(Image1, Image2: TGraphic; ResultBitmap: TBitmap; AlphaValue: Byte);
Damit können zwei Bilder in TGraphic-Kontainern zu einem verschmolzen werden, wobei der AlphaBlend-Wert angibt, wieviel vom zweiten Bild zu sehen sein soll: 0 bedeutet, dass nur das erste Bild zu sehen ist, 255 nur das zweite. Das erste Bild ist als Hintergrund zu verstehen, auf den das zweite Bild gezeichnet werden soll. Ist das zweite Bild größer als das erste, wird nur ein überdeckender Ausschnitt verwendet.

Beispielaufruf:

Delphi-Quelltext 
1:
 
AlphaImgs(Image1.Picture.Graphic, Image2.Picture.Graphic, Image3.Picture.Bitmap, tbAlpha.Position);


Dieser Beitrag basiert auf einem Vorschlag [http://www.delphi-forum.de/viewtopic.php?t=71382&start=0&postorder=asc] von user profile iconelundril.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!