程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi 與 DirectX 之 DelphiX(95): TDIB.x

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

編輯:Delphi

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


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved