文本转图片解决行数越多字体越小的问题

yq1431 · 发表于 7 小时前

.版本 2
.支持库 spec

.子程序文本转图片, 字节集
.参数文本, 文本型
.参数文本颜色, 整数型, , #黑色
.参数背景颜色, 整数型, , 15780221
.局部变量 GP字体, GP字体
.局部变量 GP字体族, GP字体族
.局部变量宽度_局, 整数型
.局部变量高度_局, 整数型
.局部变量 GP纯色画刷, GP纯色画刷
.局部变量临时位图数据, 字节集
.局部变量 GP位图, GP位图
.局部变量内存图, GP内存图形

Gdiplus初始化 ()
GP字体族.创建自名称 (“微软雅黑”)
GP字体.创建 (GP字体族, 48, #字体风格_加粗, #单位_像素)
宽度_局＝内部_取字符串宽度 (GP字体, 文本) ＋ 10
高度_局＝内部_取字符串高度 (GP字体, 文本) ＋ 10
内存图.创建 (宽度_局, 高度_局)
GP纯色画刷.创建 (RGB到ARGB (背景颜色))
内存图.填充矩形 (GP纯色画刷, 0, 0, 宽度_局, 高度_局)
GP纯色画刷.置颜色 (RGB到ARGB (文本颜色))
内存图.画文本 (文本, GP字体, GP纯色画刷, , )
GP位图.创建自字节集 (内存图.取位图 (), 真)
临时位图数据＝ GP位图.保存到字节集 (#图像格式_JPEG)
GP位图.销毁 ()
GP纯色画刷.销毁 ()
GP字体族.销毁 ()
GP字体.销毁 ()
内存图.销毁 ()
Gdiplus关闭 ()
返回 (临时位图数据)

.子程序内部_取字符串宽度, 整数型
.参数字体, GP字体
.参数字符串, 文本型
.局部变量字符串s, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 i, 整数型

字符串s ＝分割文本 (字符串, #换行符, )
.计次循环首 (取数组成员数 (字符串s), i)
.如果真 (n ＜取文本长度 (字符串s ))
n ＝取文本长度 (字符串s )
调试输出 (n)
.如果真结束

.计次循环尾 ()

返回 (n ÷ 2 × 字体.取尺寸 () ＋字体.取尺寸 () ÷ 2)

.子程序内部_取字符串高度, 整数型
.参数字体, GP字体
.参数字符串, 文本型
.局部变量 n, 整数型
.局部变量字符串s, 文本型, , "0"

字符串s ＝分割文本 (字符串, #换行符, )
返回 (字体.取高度 () × 取数组成员数 (字符串s))
--------------------------------------------------------------------
只有字母和数字
-----------------------
模块
GDIPlus类2.4.1改过.rar (84.41 KB, 下载次数: 1)

7 小时前上传
点击文件名下载附件

cunanhai · 发表于 7 小时前

yq1431 发表于 2026-5-1 14:43
破案了就是QQ进行缩放了代码没问题

结贴

cunanhai · 发表于 5 小时前

.子程序内部_取字符串宽度, 整数型
.参数字体, GP字体
.参数字符串, 文本型
.局部变量字符串s, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 i, 整数型

字符串s ＝分割文本 (字符串, #换行符, )
.计次循环首 (取数组成员数 (字符串s), i)
.如果真 (n ＜取文本长度 (字符串s ))
      n ＝取文本长度 (字符串s )
      调试输出 (n)
.如果真结束

.计次循环尾 ()

返回 (n ÷ 2 × 字体.取尺寸 () ＋字体.取尺寸 () ÷ 2)

没明白你说的啥意思但是代码这里有点问题

补充内容 (2026-5-1 13:28):
取文本长度 (字符串s ) 和  n ＝取文本长度 (字符串s ) 没有下标

yq1431 · 发表于 5 小时前

cunanhai 发表于 2026-5-1 13:27
.子程序内部_取字符串宽度, 整数型
.参数字体, GP字体
.参数字符串, 文本型

文本行数越多生成的图片字体就越小好奇怪

cunanhai · 发表于 5 小时前

例子.e (327.08 KB, 下载次数: 2)

yq1431 · 发表于 5 小时前

cunanhai 发表于 2026-5-1 13:48
没发现问题你看看

大于13行就变小了

cunanhai · 发表于 5 小时前

例子.e (281.17 KB, 下载次数: 0)

yq1431 · 发表于 5 小时前

cunanhai 发表于 2026-5-1 14:04
.版本 2

.子程序 _按钮1_被单击

我要发送到QQ

cunanhai · 发表于 5 小时前

会不会是你发到QQ的时候图片缩放了?
你这段代码没问题,有问题肯定是后续代码的问题

yq1431 · 发表于 5 小时前

cunanhai 发表于 2026-5-1 14:12
会不会是你发到QQ的时候图片缩放了?
你这段代码没问题,有问题肯定是后续代码的问题
...

就图片复制粘贴发送

		自动登录	找回密码
密码			注册

[完成] 文本转图片解决行数越多字体越小的问题

最佳答案

[完成] 文本转图片 解决行数越多 字体越小的问题

最佳答案

[完成] 文本转图片解决行数越多字体越小的问题