怎么在image上画一个黑色方块，把image白色变成黑色

Question

怎么在image上画一个黑色方块，把image白色变成黑色

Answer 1

参考代码
var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('MyBitmap.bmppng');
    Bitmap.Canvas.Brush.Bitmap := Bitmap;
Bitmap.Canvas.Pen.Color := clWhite;    Bitmap.Canvas.FillRect(Rect(0,0,100,100));
  finally
    Bitmap.Canvas.Brush.Bitmap := nil;
    Bitmap.Free;
  end;end;

Answer 2

  with Image1.Canvas do begin
    Brush.Color := clBlack;
    FillRect(Rect(0 , 0 , Image1.Width , Image1.Height));
  end;

Answer 3

判断每个像素的颜色，if 白 then :=黑