使用mask来制作图像透明
摘要:
背景图带mask的图像效果图type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); procedure FormDestroy(Sender: TObject); private bgBitmap:HGDIOBJ; pMan:HGDIOBJ; DC... 阅读全文
posted @ 2010-01-21 13:10 流浪猫 阅读(547) 评论(0) 推荐(0) 编辑