Future BASICからのToolbox使用例
- TEXTSIZE -
◆文字の大きさを指定する
表示する文字の大きさを指定するのが、TEXTSIZEです。
文字のサイズは1〜32767まで指定する事ができます。ただしTrue TypeやType-1フォントなどアウトラインフォントはキャッシュされていないと、かなり速度が低下します。
- 引数：
- size%
- 設定する文字の大きさ（１〜３２７６８）
- 戻り値：
- なし
◆今回のプログラムリスト
<![CDATA[
'--------------------------
' "Toolbox Call QuickDraw Text"
'
' CALL TEXTSIZE(size%)
'
'--------------------------
flag = false
a$ = "文字のサイズ変更"
c% = 1
END GLOBALS
LOCAL FN sample
c% = c% + 1
IF c% > 128 THEN c% = 1:CLS
CALL MOVETO(10,200)
CALL TEXTMODE(_srcCopy)
CALL TEXTSIZE(c%)
CALL DRAWSTRING(a$)
END FN
LOCAL FN initMenu
MENU 1,0,_enable,"ファイル"
MENU 1,1,_enable,"/G実 行"
MENU 1,2,_enable,";"
MENU 1,3,_enable,"/Q終 了"
END FN
'--------------------- "メニュー選択
LOCAL FN doMenus
menuID=MENU(_menuID)
itemID=MENU(_itemID)
SELECT menuID
CASE 1
SELECT itemID
CASE 1
flag = true
CASE 3
END
END SELECT
END SELECT
MENU
END FN
WINDOW #1,"Sample Window",(8,32)-(480,320),_doc
FN initMenu
ON MENU FN doMenus
DO
HANDLEEVENTS
IF flag THEN FN sample
UNTIL theProgramends
END
]]>