2014-03-06 6 views

답변

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 저자 중 하나의 예입니다.

+0

나를 위해 들여 쓰기 주셔서 감사합니다. :) –

+0

감사합니다. :) – abbypan

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 "這是一份非常間單的說明書…" 
] 

클립 보드 문제로 인해 중국어 텍스트를 필드에 붙여 넣을 수 없습니다. 다행히도 이것은 곧 수정 될 것입니다.