[4kusNick]

В аттаче модуль DGraphBlur - его можно на прямую не использовать, т.к. в аттаче есть еще небольшой мой модуль DGraphFunctions для работы с эффектами, в нем и DGraphBlur используется.

Вот список процедур и ф-ий:

Код:

//////////////////////////////////////////////////////////////////////////////
  // процедуры
  //////////////////////////////////////////////////////////////////////////////

  procedure Sharpen(sbm, tbm: TBitmap; alpha: Single);
  procedure Contrast(Bitmap: TBitmap; Value: Integer; Local: Boolean);
  procedure PutImageToImage(bmLogo,bmOutput: TBitmap; iX,iY: Integer; bTransp: Boolean; colTransp: TColor);
  procedure Brightness(const Bmp: TBitmap; iValue: Smallint);
  procedure Blur(Bmp: TBitmap; fValue: Double);
  procedure Bevel(Bmp: TBitmap; iRadius: Integer; colColor: TColor);
  procedure RotateBitmap(Bitmap: TBitmap; Angle: Double; BackColor: TColor);

  //////////////////////////////////////////////////////////////////////////////
  // функции
  //////////////////////////////////////////////////////////////////////////////

  function BmpToSepia(const Bmp: TBitmap; Depth: Integer): Boolean;
  function DoGrayScale(const Bmp: TBitmap): Boolean;
  function PutTextToImage(Bitmap: TBitmap; iX,iY: Integer; sText: String; colBackColor: TColor; bBackTransp: Boolean; fFont: TFont): Boolean;
  function GetPixelColor: String;
  function SimpleResize(bmpIn,bmpOut: TBitmap; iHeight,iWidth: Integer; btSide{1-by Width,2-by Height,3-Proportional}: Byte): Boolean;
  function CustomResize(sImagePath,sSavingType,sDestImagePath: String; iHeight,iWidth: Integer; btSide{1-by Width,2-by Height,3-Proportional}: Byte): Boolean;

Если будет не понятно, как пользоваться какими-то ф-ми или процедурами, пишите, покажу на примере.