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;