Future BASICからのToolbox使用例

- DRAWSTRING -

◆文字列を表示する
 ウィンドウやオフスクリーンなどに文字列を表示するツールボックスコールがDRAWSTRINGです。このツールボックスコールは文字列を表示します。日本語も表示できます。Future BASICのPRINT文を使用するよりも高速です。
 また、フォントの描画基準点は左上ではなくベースラインにあります。


引数:
Str$
描画する文字列

戻り値:
なし


◆今回のプログラムリスト
'-------------------------- ' "Toolbox Call QuickDraw Text" ' ' CALL DRAWSTRING(Str$) ' '-------------------------- LOCAL FN sample(a$) L% = LEN(a$) FOR i%=1 TO L% c$ = LEFT$(a$,i%) CLS CALL DRAWSTRING(c$) DELAY 500 NEXT 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 FN sample("Sample String!!") 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 PRINT:PRINT:PRINT:PRINT:PRINT TEXT ,24 DO HANDLEEVENTS UNTIL theProgramends END