GDI彗星置窗口阴影皮肤模块

易语言 2020-04-11 14:13:34

GDI彗星置窗口阴影皮肤模块

.子程序 皮肤_简约白色, , 公开, By:青橙
.参数 窗口句柄, 整数型, , 给无边框窗口增加阴影 写法:_启动窗口.取窗口句柄()
.参数 阴影颜色, 整数型, 可空, 写法:#灰色
.参数 阴影大小, 整数型, 可空, 留空默认为5,为0取消阴影

加载皮肤 (#皮肤)
.如果真 (是否为空 (阴影颜色))
阴影颜色 = #灰色
.如果真结束
.如果真 (是否为空 (阴影大小))
阴影大小 = 5
.如果真结束
彗星置窗口阴影 (窗口句柄, 阴影颜色, 阴影大小)