当前位置: 主页 > 百科 > 计算机编程 > 易语言源码 >
-16 Comments

源码Sexy Mouse是怎样的?

发布于:2016-07-04  |   作者:http://www.zxjsq.net  |   已聚集:人围观

.程序集 扩展组件_Ex, Ex_ObjBase, 公开, Ex_DUI 3.0扩展组件模板

.程序集变量 集_初始光圈宽度

.程序集变量 集_光圈宽度

.程序集变量 集_初始透明度

.程序集变量 集_透明度

.程序集变量 集_缓动完毕, 逻辑型

.程序集变量 集_光圈颜色

.程序集变量 集_光圈总宽度

.程序集变量 集_当前坐标, POINT


.子程序 _初始化, , , 当基于本类的对象被创建后,此方法会被自动调用


.子程序 _销毁, , , 当基于本类的对象被销毁前,此方法会被自动调用


.子程序 _ObjProc, 整数型, 公开, 虚函数,组件消息.返回值:0默认处理,1程序处理。

.参数 hWnd, 整数型

.参数 hObj, 整数型

.参数 uMsg, 整数型

.参数 wParam, 整数型

.参数 lParam, 整数型


.判断开始 (uMsg = #事件_创建)

    集_光圈总宽度 = 80

    集_初始透明度 = 255

    集_透明度 = 集_初始透明度

    集_缓动完毕 = 真

    集_光圈颜色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))

    透明穿透 (真)

.判断 (uMsg = #事件_绘画)

    PaintObj (hObj)

.判断 (uMsg = #事件_销毁)


.默认


.判断结束


返回 (0)



.子程序 回调_缓动特效, , , 1

.参数 dfProgress, 双精度小数型, , 缓动总时间 / 缓动间隔时间

.参数 dfCur, 双精度小数型, , 缓动开始值~缓动结束值


集_光圈宽度 = (集_光圈总宽度 - 集_初始光圈宽度) × dfCur ÷ 100 + 集_初始光圈宽度

集_透明度 = 集_初始透明度 - 集_初始透明度 ÷ 100 × dfCur

重画 ()

.如果真 (dfProgress = 1)

集_缓动完毕 = 真

.如果真结束



.子程序 创建, 整数型, 公开

.参数 窗口句柄

.参数 左边

.参数 顶边

.参数 宽度

.参数 高度



返回 (初始化 (窗口句柄, 左边, 顶边, 宽度, 高度, #组件_扩展组件, #组件类名_新组件类名, , , , , , , , , , , ))


.子程序 PaintObj, , , 绘制组件

.参数 hObj

.局部变量 rcf, RectF

.局部变量 rcf_item, RectF

.局部变量 ps, Exs_PaintStruct

.局部变量 w


Ex_BeginPaint (hObj, ps, , 真)

rcf = ps.oRcf

图形_平滑模式 (ps.mGraphics, #平滑模式_最佳质量)

w = 集_光圈宽度 ÷ 2

rcf_item = MakeRCF (集_当前坐标.x - w, 集_当前坐标.y - w, 集_光圈宽度, 集_光圈宽度)

图形_描边_椭圆 (ps.mGraphics, rcf_item, RGB2ARGB (集_光圈颜色, 集_透明度), 3)

图形_描边_矩形 (ps.mGraphics, ps.oRcf, #边框_单线式, RGB2ARGB (#红色, ), 1, )

Ex_EndPaint (hObj, ps)


.子程序 图形_描边_椭圆

.参数 图形指针, 整数型

.参数 矩形, RectF

.参数 描边颜色, 整数型, 可空

.参数 画笔宽度, 小数型, 可空

.局部变量 pen


描边颜色 = 选择 (是否为空 (描边颜色), RGB2ARGB (#黑色), 描边颜色)

画笔宽度 = 选择 (是否为空 (画笔宽度), 1, 画笔宽度)

pen = 画笔_创建自颜色 (描边颜色, 画笔宽度, )

GdipDrawEllipseI (图形指针, pen, 矩形.left, 矩形.top, 矩形.Width, 矩形.Height)

画笔_销毁 (pen)


.子程序 开始动画, , 公开

.参数 坐标, POINT


.如果真 (集_缓动完毕 = 真)

集_缓动完毕 = 假

集_当前坐标 = 坐标

集_光圈颜色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))

缓动特效_创建 (1, 500, 10, 0, 100, 整数到子程序指针 (组件_取方法指针 (取组件句柄 (), #组件方法_用户索引 + 1)), 取指针 (), 真)

.如果真结束


标签:                   喜欢:收藏