Future BASICからのToolbox使用例
- STRINGWIDTH -
◆文字列の幅を調べる
文字列の横幅を調べます。調べることの出来る文字数は32767文字までです。
- 引数：
- txtPtr&
- 調べる文字列の先頭アドレス
- startChar%
- 調べる文字列の位置
- numChar%
- 調べる文字数
- 戻り値：
- textW%
- 指定された範囲の文字列の横幅
◆今回のプログラムリスト
<![CDATA[
'--------------------------
' "Toolbox Call QuickDraw Text"
'
' textW% = FN TEXTWIDTH(txtPtr&,startChar%,numChar%)
'
'--------------------------
LOCAL FN sample(a$)
CLS
TEXT ,9
PRINT "Test Char is = ";a$;" Size = 9"
FOR sz% = 1 TO LEN(a$)
cw% = FN TEXTWIDTH(@a$,1,sz%)
PRINT "1 〜 ";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
]]>