DrawEdge

procedure DrawEdge(

  img: TImage32;

  const rec: TRect;

  topLeftColor: TColor32;

  bottomRightColor: TColor32;

  penWidth: Double = 1.0

); overload;

procedure DrawEdge(

  img: TImage32;

  const rec: TRectD;

  topLeftColor: TColor32;

  bottomRightColor: TColor32;

  penWidth: Double = 1.0

); overload;

procedure DrawEdge(

  img: TImage32;

  const path: TPathD;

  topLeftColor: TColor32;

  bottomRightColor: TColor32;

  penWidth: Double = 1.0;

  closePath: Boolean = True

); overload;