Forum: Multimedia
Delphi
by Delphi-Freak,
21. Jul 2005
Nochmal tschuldige wegen dem shr.
Super aber, dass es jetzt funkioniert!!
LG
Forum: Multimedia
Delphi
by Delphi-Freak,
20. Jul 2005
Auweh, AVs die nur auf manchen Rechnern auftreten. Da habe ich dann keine Ahnung...
Die Funktion SetPixelT ist mir eigentlich noch nicht untergekommen, aber probieren kannst du's ja.
Kann ich mir eigentlich nicht vorstellen.
NEEEIIIN, tschuldige, das muss shr 8 bzw. shr 16 heißen, die Bits müssen ja nach rechts verschoben werden. :oops: :oops:
Leider weiß ich dann den Fehler (oder...
Forum: Multimedia
Delphi
by Delphi-Freak,
14. Jul 2005
Habe das gerade in meinem Dateienchaos :wink: gefunden:maxP := ViewImage.Bitmap.Width * ViewImage.Bitmap.Height - 1;
Pdst := @ViewImage.Bitmap.Bits;
Psrc1 := @oldImage.Bits;
Psrc2 := @newImage.Bits;
for i := 0 to maxP do begin
Pdst^ := ((((Psrc1^ and $00FF0000) shr 16) * (255 - blendfact)) shl 8 + (((Psrc2^ and $00FF0000) shr 16) * (blendfact)) shl 8) and $00FF0000
or ((((Psrc1^...
Forum: Multimedia
Delphi
by Delphi-Freak,
13. Jul 2005
Hi!
Schneller ist sicher TBitmap32.Bits. Habemal einen Überblendeffekt in Laufzeit gemacht (mit voller Bildschirmauflösung -> 1280x1024), das hat mit Graphics32 und TBitmap32.Bits ziemlich gut funktioniert.
LG
Edit: Wie machst du das eigenlich mit der Farbgrenze - das würde mich interessieren - bzw. baust du auch Anti-Aliasing ein (für Objekt (Mensch) <-> Hintergrund)?