Exdui自绘IOS滚动发光字Ex扩展组件

图形_平滑模式 (exps.mGraphics, #平滑模式_最佳质量)
.如果真 (pImg ≠ 0)
i ＝ i ＋ exps.oRcf.Width ÷ (exps.oRcf.Width × 0.8) ' 不同宽度匀速运动
.如果真 (i ＞ exps.oRcf.Width ＋ exps.oRcf.Height × 1.5)
i ＝ 0
.如果真结束
pImg_b ＝ 图像_创建自像素格式 (exps.pRcf.Width, exps.pRcf.Height)
GdipGetImageGraphicsContext (pImg_b, pGrahpic)
GdipGraphicsClear (pGrahpic, 0)
图形_绘图缩放 (pGrahpic, colorimg, exps.oRcf, 255)
图形_绘图缩放 (pGrahpic, pImg, MakeRCF (exps.oRcf.left ＋ i － exps.oRcf.Height × 1.5, exps.oRcf.top － exps.oRcf.Height ÷ 2.5, exps.oRcf.Height × 1.5, exps.oRcf.Height × 1.5), 255)
GdipDeleteGraphics (pGrahpic)
GdipCreateTexture (pImg_b, 0, pBrush)
mPath ＝ 路径_创建 ()
路径_添加文本 (mPath, A2W (_text), 字体族, 13, exps.oRcf, #字体风格_普通, 文本格式)
GdipFillPath (exps.mGraphics, pBrush, mPath)
GdipDeleteBrush (pBrush)
图像_销毁 (pImg_b)
路径_销毁 (mPath)
.如果真结束
Ex_EndPaint (hObj, exps)