Var

  Matrix:TColorMatrix =

   ((1.0, 0.0, 0.0, 0.0, 0.0),

    (0.0, 1.0, 0.0, 0.0, 0.0),

    (0.0, 0.0, 1.0, 0.0, 0.0),

    (0.0, 0.0, 0.0, 0.4, 0.0),

    (0.0, 0.0, 0.0, 0.0, 1.0));

 

Procedure AlphaDraw(AFrom,AAlpha,ATo:TBitmap;AWidth,AHeight,APercent:Integer);

Var

  Graphics:GPGraphics;

  Bitmap:GPBitmap;

  Attributes:GPImageAttributes;

Begin

  Matrix[3,3]:=APercent/100;

  GdipCreateFromHDC(ATo.Canvas.Handle,Graphics);

  GdipCreateBitmapFromHBITMAP(AFrom.Handle,AFrom.Palette,Bitmap);

  GdipDrawImageRectI(Graphics,Bitmap,0,0,AWidth,AHeight);

  GdipDisposeImage(Bitmap);

  GdipCreateBitmapFromHBITMAP(AAlpha.Handle,AAlpha.Palette,Bitmap);

  GdipCreateImageAttributes(Attributes);

  GdipSetImageAttributesColorMatrix(Attributes,ColorAdjustTypeBitmap,True,@Matrix,Nil,ColorMatrixFlagsDefault);

  GdipDrawImageRectRect(Graphics,Bitmap,0,0,AWidth,AHeight,0,0,AWidth,AHeight,UnitPixel,Attributes,Nil,Nil);

  GdipDisposeImageAttributes(Attributes);

  GdipDisposeImage(Bitmap);

  GdipDeleteGraphics(Graphics);

End;