//让 TDIB 的这些特效烦透了: 多、还重复、又不完善; 还没有测试或测试失败的方法:
procedure DrawShadow(SrcDIB: TDIB; X, Y, Width, Height, Frame: Integer; FilterMode: TFilterMode);
procedure DrawShadows(SrcDIB: TDIB; X, Y, Width, Height, Frame: Integer; Alpha: Byte);
procedure DrawAntialias(SrcDIB: TDIB);
procedure DoZoom(DIB2: TDIB; ZoomRatio: Real);
procedure DoBlur(DIB2: TDIB);
procedure DoRotate(DIB1: TDIB; cX, cY, Angle: Integer);
function HasAlphaChannel: Boolean;
function AssignAlphaChannel(ALPHA: TDIB; ForceResize: Boolean{$IFDEF VER4UP} = False{$ENDIF}): Boolean;
procedure RetAlphaChannel(out DIB: TDIB);
procedure Compress;
procedure Decompress;
//另外, 从 TBitmap 到 TDIB, 本来也简单, TDIB 还是给提供了方便的互通方法:
procedure TDIB.CreateDIBFromBitmap(const Bitmap: TBitmap);
function TDIB.CreateBitmapFromDIB: TBitmap;
转载于:https://my.oschina.net/hermer/blog/319101