我是一个新手,向大家请教:Image 的底色怎么设置啊!在线!!

Question

我要在image1上画图,底色要求要按不同的要求设置为不同颜色:
比如说:要求底色为黑色,画出一个边长为80的正方形,我的正方形画出来了,但是底色却是默认的白色
我怎么把底色设为黑色啊!?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  image1.Canvas.Brush.Color:= clRed;
  image1.Canvas.Rectangle(10,10,40,40);
end;

Answer 2

不对,你这是画出一个红色的长方形,我要求的是长方形区域以外的空旷区域的底色也就是image1的底色:比如说上面画出l一个红色的长方形,那长方形外的区域要求是黑色(因为我的image1的大小已经固定,是要求固定),该怎么办?

Answer 3

晕，自己改一下不就可以了
procedure TForm1.Button1Click(Sender: TObject);
begin
  image1.Canvas.Brush.Color:= clBlack;
  image1.Canvas.Rectangle(0,0,image1.Width,image1.Height);
  image1.Canvas.Pen.Color:= clRed;
  image1.Canvas.Rectangle(10,10,40,40);
end;

Answer 4

可能是我的意思表达错了!我是描点的,一点,一点的画.结果,还是没有描点的地方是默认的windou 色,我想要的是在image1上没有描点的地方是黑色

Answer 5

真是不太明白，是这样吗？
procedure TForm1.Button1Click(Sender: TObject);
begin
  image1.Canvas.Brush.Color:= clBlack;
  image1.Canvas.FillRect(Rect(0,0,image1.Width,image1.Height));
  image1.Canvas.Pixels[10,10]:= clRed;
end;