Delphi 与 DirectX 之 DelphiX(95): TDIB.x

//让 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;