Future BASICからのToolbox使用例

- STRINGWIDTH -

◆文字列の幅を調べる
 文字列の横幅を調べます。


引数:
Str
調べる文字列

戻り値:
strW%
文字列の横幅


◆今回のプログラムリスト
'-------------------------- ' "Toolbox Call QuickDraw Text" ' ' strW% = FN STRINGWIDTH(Str) ' '-------------------------- LOCAL FN sample(a$) CLS PRINT "Test Char is = ";a$ FOR sz% = 9 TO 36 STEP 2 TEXT _sysFont,sz% cw% = FN STRINGWIDTH(a$) TEXT ,9 PRINT "Font Size = ";sz%;" --> ";cw% 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("KaZuhiro") 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