draw.text.部分 module

句法   draw.text. (Txtstr. : 细绳, x, y, 字体id., 颜色 : )

描述   draw.text. 用于实际绘制指定字体中的文本。 The textstr. 参数包含要绘制的字符串。这 xy 参数是左下角的位置 要显示的文本的手角。这 字体id. 范围 是要绘制文本的字体的数量。这 颜色 参数用于指定其中的颜色 text is to appear.

请注意,显示的文本与文本完全无关 that appears using . draw.text. 是一个图形命令 因此,不使用或影响光标位置。

由此绘制的文本 draw.text. 程序不会删除 background.

细节   如果 draw.text. 通过无效的字体ID,致命错误 occurs. If the draw.text. 呼叫失败其他(非致命) reasons then 错误.Last. 将返回一个非零值指示 失败的原因。 ERROR.LASTMSG. 将返回一个字符串 包含错误的文本版本。

细节   draw.text. 与之相同 font.draw.。它放在这里 对于其他像素图形绘图例程的一致性。

例子   该程序在亮蓝色的盒子中绘制了一个字的一句话。

        var font : 
        font := 字体.New ("serif:12")
        assert font1 > 0
        var width : := 字体.Width ("This is in a serif font", font)
        var height, ascent, descent, ㈡ernalLeading : 
        字体.Sizes (font, height, ascent, descent, ㈡ernalLeading)
        draw.text. ("This is in a serif font", 50, 30, font, red)
        画.Box (50, 30 + descent, 50 + width, 30 + height, brightblue)
        字体.Free (font)
执行  

细节   使用相同的字体如所用的 声明,使用 deffontid. 对于字体编号。这个字体没有必要 由用户创建或释放,并允许程序快速 将文本放在屏幕上的任何位置。
例子   该程序在默认字体中绘制两个字符串(deffontid.)。

        draw.text. ("画ing Here", 100, 120, deffontid., brightred)
        draw.text. ("和 Here", 180, 90, deffontid., brightgreen)
执行  

状态   出口合格。

这意味着您只能通过调用来调用该功能 draw.text.,不是通过致电 文本.

也可以看看   字体 模块有关选择字体的更多信息 be displayed.