01 2010 档案

使用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 流浪猫 阅读(554) 评论(0) 推荐(0)

一些比较实用的小函数
摘要：扫描文件夹极其子目录,列出所有文件,已经测试通过,绝对可用代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--procedureFindAllFile(constDir:string;List:TStringlist);varhFindFile:THa... 阅读全文

posted @ 2010-01-05 19:21 流浪猫 阅读(288) 评论(2) 推荐(0)

导航