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 von
elundril.
![Antworten [gesperrt]](./graphics/navbar/reply.png)
