cyFrame3D

procedure cyFrame3D(

  Canvas: TCanvas;

  var Rect: TRect;

  TopLeftColor: TColor;

  BottomRightColor: TColor;

  Width: Integer;

  const DrawLeft: Boolean = True;

  const DrawTop: Boolean = True;

  const DrawRight: Boolean = True;

  const DrawBottom: Boolean = True;

  const RoundRect: Boolean = False

);