2

该sometext字段现在只接受 ASCII 字符作为输入：

REBOL [
    title: "test"
]

load-gui

view [
   sometext: field
]
4

2 回答 2

1 
REBOL [
    title: "chinese font rendering test (Windows)"
    author: "Richard Smolak"
]
load-gui
print ""
fnt: make system/standard/font [
    name: "Tahoma"
    size: 64
]

ch-fnt: make system/standard/font [
    name: "SimSun"
    size: 64
]

par: make system/standard/para [wrap?: off]

win-size: 840x300

append append
win: make gob! [size: win-size]
make gob! [size: win-size color: sky]
tg: make gob! [size: win-size]

tg/text: to-text compose [
    anti-alias on
    para par
    font fnt
    "Příliš žluťoučký kůň"
    newline
    font ch-fnt
    "这是一份非常间单的说明书…"
    newline
    "這是一份非常間單的說明書…"
] copy []


view/options win [
    title: "Basic TEXT test"
    offset: 'center
]

是渲染其他语言的 r3Gui 作者之一的示例。

于 2014-03-19T19:20:49.887 回答
1

您可以使用这样的中文字体创建一个新的字段类型，现在将显示字符。

stylize [
        ch-field: field [
                about: "Chinese font field"
                draw-text: [
                   pen off
                   fill-pen 0.0.0
                   anti-alias off
                   text 0x0 none aliased [font make object! [
                           name: "SimSun"
                           style: 'bold
                           size: 20
                           color: 0.0.0
                           offset: 0x0
                           space: 0x0
                           shadow: none
                       ] para make object! [
                           origin: 0x0
                           margin: 0x0
                           indent: 0x0
                           tabs: 40
                           wrap?: false
                           scroll: 0x0
                           align: 'left
                           valign: 'top
                       ] anti-alias off
                       caret make object! [
                           caret: [[""] ""]
                           highlight-start: [[""] ""]
                           highlight-end: [[""] ""]
                       ] ""
                   ]
               ]
        ]
]

view [
    ch-field "這是一份非常間單的說明書…"
]

由于剪贴板的问题，您无法将中文文本粘贴到该字段中。希望这将很快得到解决。

于 2015-09-11T06:13:08.330 回答