如何在image上画一个黑色方块，把image白色变成黑色

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

[解决办法]

Delphi(Pascal) code

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