Autor Beitrag
Vivian_85
Hält's aus hier
Beiträge: 1

win xp pro
delphi 7 Prof.
BeitragVerfasst: Fr 04.08.06 12:11 
Hallo

Ich möchte Bilder einblenden und sie ineinander faden. So eine Art Überblendeffekt für Bilder.
Es sollte nicht nur für bmp sondern auch für jpg und gif funktionieren.
Ist das in Delphi 7 möglich oder brauch ich eine andere Komponente.
Alphablend gibt es ja bei TImage nicht.

gruss vivian
BenBE
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 8721
Erhaltene Danke: 191

Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
BeitragVerfasst: Fr 04.08.06 12:50 
Gehen tut fast alles mit D7 ...

Bei Fades musst Du aber ein wenig Arbeit aufwenden, damit es geht.

Grobes Vorgehen:
1. Beide zu überblendenden Bilder in Bitmap-Objekte kopieren
2. Ein Ausgabe-Bitmap entsprechender Größe erstellen
3. Für jeden Pixel der Bilder folgendes Berechnen (für jeden Farbkanal getrennt):
ausblenden Delphi-Quelltext
1:
OutPxC := In1PxC * (1 - FadeTime) + In2PxC * FadeTime;					

Wobei FadeTime eine Variable zwischen 0 und 1 ist, die den Grad der Überblendung angibt: 0 = Bild 1, 1 = Bild 2, alles dazwischen: Überblendung im Gange
4. Fertiges Bild ausgeben

Ggf sollte Dir aber auch die Suchfunktion dieses Forums weiterhelfen können ;-)

_________________
Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.