怎么才能在canvas中画没有用填充色填充的矩形？（也就是只画出矩形的边框，而不在边框里填充颜色）

Question

怎么才能在canvas中画没有用填充色填充的矩形？（也就是只画出矩形的边框，而不在边框里填充颜色）

Answer 1

procedure TForm1.DrawShape(Cnvs: Tcanvas; TopLeft, BottomRight: TPoint; AMode: TPenMode);
begin
  with Cnvs do
  begin
    Pen.Mode := AMode;
    Rectangle(TopLeft.X, TopLeft.Y, BottomRight.X, BottomRight.Y);
  end;
end;DrawShape(Cnvs, NowTopLeft, NowBottomRight, pmNotXor);

Answer 2

此贴又提前了？一楼的方法就可以啊！  with Self.Canvas do
    begin
    Pen.Color := clRed;
    Pen.Width := 1;
    Brush.Style := bsClear;
    //Brush.Color := self.Color; //或这样
    Rectangle(Rect(20,20,100,100));
    end;