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:

markieren

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:

markieren

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

Hallo bidi,

nach deiner Beschreibung würde ich den Operator AND erwarten:

markieren

Delphi-Quellcode:

with Image6.Picture.Bitmap do
begin
  Canvas.CopyMode := cmSrcAnd;
  Canvas.Draw (0, 0, Image5.Picture.Bitmap);
end;

Gruß Hawkeye