Future BASICからのToolbox使用例

- TEXTSIZE -

◆文字の大きさを指定する
 表示する文字の大きさを指定するのが、TEXTSIZEです。
文字のサイズは1〜32767まで指定する事ができます。ただしTrue TypeやType-1フォントなどアウトラインフォントはキャッシュされていないと、かなり速度が低下します。


引数:
size%
設定する文字の大きさ(1〜32768)

戻り値:
なし


◆今回のプログラムリスト
'-------------------------- ' "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