Forum: Multimedia
Delphi
by LDericher,
20. Sep 2009
Okay, ich habs selbst hingekriegt:
Das hier:
if((P^.R<>T^.R)and(P^.G<>T^.G)and(P^.B<>T^.B))
musste durch das hier:
if(P^.R<>T^.R)or(P^.G<>T^.G)or(P^.B<>T^.B)
ersetzt werden... So was blödes :wall:
Und trotzdem Danke auch wenns niemand gesehn hat^^
Bis Bald,
Forum: Multimedia
Delphi
by LDericher,
20. Sep 2009
Also, ich versuche eine Möglichkeit zu finden, ein Bitmap (abgelegt in einer selbstdefinierten Listenstruktur) in ein anderes zu kopieren und dabei eine Farbe auszulassen, nämlich die, die in der oberen linken Ecke sitzt.
Mit dem Pixelzugriff funktioniert das auch einigermaßen:
procedure TForm1.MapToImagePix(Aug:TBitmap);
var
I,
J:integer;
T:TColor;
BMP:TBitmap;
begin...