Hallo!
Ich würde gern eine Monochrom-Bitmap mittels OR auf eine andere kopieren. Nach studium der Hilfe war ich der Meinung, dass es so gehen müßte:
Delphi-Quellcode:
with image6.Picture.Bitmap do
begin
Canvas.CopyMode := cmSrcPaint;
Canvas.CopyRect(Rect(0,0,Width,Height),Image5.Picture.Bitmap.Canvas,Rect(0,0,Width,Height));
end;
Tut es aber nicht. Das gewünschte Ergebniss lieftert folgender Code, allerdings viel zu langsam:
Delphi-Quellcode:
for a := 0 to Image2.Picture.Bitmap.Height-1 do
for b := 0 to Image2.Picture.Bitmap.Width-1 do
if Image5.Picture.Bitmap.Canvas.Pixels[b,a] = clBlack then Image6.Picture.Bitmap.Canvas.Pixels[b,a] := clBlack;
Warum funktioniert also die 1. Variante nicht? Was mache ich da falsch?
MfG
bidi