Hi,
Ganz naiv schonmal mit zwei Schleifen:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9:
| procedure MixBmp(Source, Dest: TBitmap); var i, j: Integer; begin for i := 0 to Width(Source) - 1 do begin for j := 0 to Height(Source) - 1 do Dest.Pixels[i, j] := Dest.Pixels[i, j] AND Source.Pixels[i, j]; end; end; |
Womit wir uns die langsamst denkbare Methode schonmal geschrieben hätten, der kann man fast beim Arbeiten zuschauen
Etwas beschleunigen ließe sich das sicher noch mit
SCANLINE. Was mich spontan verwirrt hatte war ja, dass in dem Thread jemand meinte das ginge mit BitBlt
mfG,