DrawButton

procedure DrawButton(

  bitmap: TBGRABitmap;

  cl1: TBGRAPixel;

  cl2: TBGRAPixel;

  cl3: TBGRAPixel;

  cl4: TBGRAPixel;

  border: TBGRAPixel;

  light: TBGRAPixel;

  rx: single;

  ry: single;

  w: single;

  Value: single;

  dir1: TGradientDirection;

  dir2: TGradientDirection;

  dir3: TGradientDirection;

  options: TRoundRectangleOptions = [];

  drawlight: Boolean = True

);