Delphi DirectUI

DirectUI控件的基类不直接使用主要实现了为控件创建32位画布渲染图像提供一系列动画方法等等功能TJDUIGraphicsControl父类为TJDUIControl继承此类并重写绘制方法可创建自己的DirectUI控件.pascal type TJDUIImageView class TJDUIGraphicsControl private FImageFile String protected procedure PaintSelf ATargetBitmap TBitmap32override public procedure LoadImage AImageFile String end implementation procedure TJDUIImageView.PaintSelf ATargetBitmap TBitmap32begin在ATargetBitmap上绘制即可此处仅做示例ATargetBitmap.LoadFrom