GDIPlus画艺术字源码

GDIPlus画艺术字源码

@泪闯天涯

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

GDIPlus装载 ()

.子程序 __启动窗口_将被销毁

GDIPlus卸载 ()

.子程序 __启动窗口_首次激活

_按钮1_被单击 ()

.子程序 _按钮1_被单击
.局部变量 Gdiplus, Gdiplus图形
.局部变量 Image, Gdiplus图像
.局部变量 Path, Gdiplus路径
.局部变量 Pen, Gdiplus画笔
.局部变量 Brush, Gdiplus画刷
.局部变量 String, 文本型

String ＝ 编辑框1.内容
Gdiplus.创建_自HWND (图片框1.取窗口句柄 ())
Image.载入图像_自字节集 (#图片1)
Gdiplus.画图像 (Image, 0, 0)
Gdiplus.置呈现模式 (#呈现模式_高质量低速度)
Gdiplus.置文本呈现模式 (#文本呈现模式_AntiAlias)
Pen.创建_自颜色 (0, 2)
Brush.创建_固色画刷 (RGB到ARGB (#红色, 100))
Path.创建 ()
Path.加入文本 (String, 70, 70, “微软雅黑”, #字体风格_加粗倾斜, 20)
.计次循环首 (4, )
    Path.扩展路径 (Pen, , 1)
    Gdiplus.填充路径 (Brush, Path)
.计次循环尾 ()
' ------------------
Path.创建 ()
Path.加入文本 (String, 70, 70, “微软雅黑”, #字体风格_加粗倾斜, 20)
Brush.创建_固色画刷 (RGB到ARGB (#白色, 255))
Gdiplus.填充路径 (Brush, Path)