cyFrame

procedure cyFrame(

  aCanvas: TCanvas;

  var InsideRect: TRect;

  Color: TColor;

  const Width: Integer = 1

); overload;

procedure cyFrame(

  Canvas: TCanvas;

  var InsideRect: TRect;

  LeftColor: TColor;

  TopColor: TColor;

  RightColor: TColor;

  BottomColor: TColor;

  const Width: Integer = 1;

  const RoundRect: Boolean = False

); overload;