bbb.m

在Matlab中

Procedure DrawRect(Canvas:TCanvas;X1,Y1,X2,Y2:Integer;Color:TColor);
Begin
Canvas.Brush.Color:=Color;
Canvas.Pen.Color:=Color;
Canvas.Rectangle(X1,Y1,X2,Y2);
Canvas.Pen.Color:=color;
Line(Canvas,X1,Y1,X1,Y2);
Line(Canvas,X1,Y1,X2,Y1);
Canvas.Pen.Color:=color;
Line(Canvas,X2,Y1,X2,Y2);
Line(Canvas,X1,Y2,X2,Y2);
Canvas.MoveTo(X1+1,Y2-1);
Canvas.Pen.Color:=color;
Canvas.LineTo(X2-1,Y2-1);
Canvas.LineTo(X2-1,Y1+1);
End;