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

最新推荐文章于 2016-08-24 18:19:21 发布

weixin_33826268

最新推荐文章于 2016-08-24 18:19:21 发布

阅读量121

点赞数

原文链接：https://my.oschina.net/hermer/blog/319101

版权

为什么80%的码农都做不了架构师？>>>

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