Pixekfarbe ändern?

[Lyan]

Hallo,

ich würde gerne alle Pixel eines Bilkdes die nicht schwarz sind durch dien Farbe weiß ersetzen.
Ich weiß nur leider garnicht wie ich einen Pixel durch eine Farbe ersetze, ist mein erstes Projekt mit Canvas.

Hier mal mein bisheriger Code:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  bmptmp : Tbitmap;
  i,j : Integer;
  col : TColor;
begin
  try
    bmptmp := TBitmap.Create;
    bmptmp.Assign(Image1.Picture.bitmap);
    for I := 0 to 299 do
    begin
      for j := 0 to 149 do
      begin
        col := bmptmp.Canvas.Pixels[i,j];
        if col <> clblack then begin
          bmptmp.Canvas.Pixels[i,j] := clwhite;
        end;
      end;
    end;
    Image1.Picture.Bitmap.Assign(bmptmp);
    bmptmp.Free;
    Image1.Picture.SaveToFile('C:\temp\test.bmp');
  except
    showmessage('Fehler');
  end;
end;

EDIT:// hat geklappt