procedure DrawOtherRect(x1, y1, x2, y2: Integer; img: TImage; cColor: TColor = clLime; LineLen: Integer = 50);
var
lineLength: integer;
x3, y3, x4, y4: Integer;
begin
lineLength := LineLen;
img.Canvas.Pen.Color := cColor;
img.Canvas.MoveTo(x1, y1);
img.Canvas.LineTo(x1 + lineLength, y1);
img.Canvas.MoveTo(x1, y1);
img.Canvas.LineTo(x1, y1 + lineLength);
img.Canvas.MoveTo(x2, y2);
img.Canvas.LineTo(x2 - lineLength, y2);
img.Canvas.MoveTo(x2, y2);
img.Canvas.LineTo(x2, y2 - lineLength);
x3 := x1;
y3 := y2;
x4 := x2;
y4 := y1;
img.Canvas.MoveTo(x3, y3);
img.Canvas.LineTo(x3 + lineLength, y3);
img.Canvas.MoveTo(x3, y3);
img.Canvas.LineTo(x3, y3 - lineLength);
img.Canvas.MoveTo(x4, y4);
img.Canvas.LineTo(x4 - lineLength, y4);
img.Canvas.MoveTo(x4, y4);
img.Canvas.LineTo(x4, y4 + lineLength);
end;
var
lineLength: integer;
x3, y3, x4, y4: Integer;
begin
lineLength := LineLen;
img.Canvas.Pen.Color := cColor;
img.Canvas.MoveTo(x1, y1);
img.Canvas.LineTo(x1 + lineLength, y1);
img.Canvas.MoveTo(x1, y1);
img.Canvas.LineTo(x1, y1 + lineLength);
img.Canvas.MoveTo(x2, y2);
img.Canvas.LineTo(x2 - lineLength, y2);
img.Canvas.MoveTo(x2, y2);
img.Canvas.LineTo(x2, y2 - lineLength);
x3 := x1;
y3 := y2;
x4 := x2;
y4 := y1;
img.Canvas.MoveTo(x3, y3);
img.Canvas.LineTo(x3 + lineLength, y3);
img.Canvas.MoveTo(x3, y3);
img.Canvas.LineTo(x3, y3 - lineLength);
img.Canvas.MoveTo(x4, y4);
img.Canvas.LineTo(x4 - lineLength, y4);
img.Canvas.MoveTo(x4, y4);
img.Canvas.LineTo(x4, y4 + lineLength);
end;