2010年1月21日

使用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) 编辑

导航