CSubFtrGetライブラリによるTsPatchのFeature情報の取得

Dim Res as Integer
Dim parm as String

'---- バージョン番号の存在をチェック
parm="TSph"+"0"
Res=AppLaunch(0,"CSubFtrGet",32769,parm)
If Res=0 then
    Msgbox "TsPatch有効"
else
    MSgbox "TsPatch無効"
end if

Dim tinyFontID as Integer
Dim tinyBoldFontID as Integer
Dim smallFontID as Integer
Dim smallBoldFontID as Integer

'---- TinyFontID取得
parm="TSph"+"10"
tinyFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)

'---- TinyBoldFontID取得
parm="TSph"+"11"
tinyBoldFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)

'---- SmallFontID取得
parm="TSph"+"12"
smallFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)

'---- SmallBoldFontID取得
parm="TSph"+"17"
smallBoldFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)

Dim smallSymbolFontID as Integer
Dim smallSymbol11FontID as Integer
Dim smallSymbol7FontID as Integer
Dim smallLEDFontID as Integer

'---- SmallSymbolFontID取得
parm="TSph"+"13"
tinyFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)

'---- SmallSymbol11FontID取得
parm="TSph"+"14"
tinyBoldFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)

'---- SmallSymbol7ID取得
parm="TSph"+"15"
smallFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)

'---- SmallLEDFontID取得
parm="TSph"+"16"
smallBoldFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)

Dim Res as Integer
Dim parm as String
Dim tinyFontID as Integer
Dim tinyBoldFontID as Integer
Dim smallBoldFontID as Integer
Dim smallFontID as Integer

Dim FieldObjID as Integer

'---- バージョン番号の存在をチェック
parm="TSph"+"0"
Res=AppLaunch(0,"CSubFtrGet",32769,parm)
If Res=0 then
    '---- TinyFontID取得
    parm="TSph"+"10"
    tinyFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)
    '---- TinyBoldFontID取得
    parm="TSph"+"11"
    tinyBoldFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)
    '---- SmallFontID取得
    parm="TSph"+"12"
    smallFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)
    '---- SmallBoldFontID取得
    parm="TSph"+"17"
    smallBoldFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)
else
    tinyFontID=0
    tinyBoldFontID=0
    SmallFontID=0
    SmallBoldFontID=0
end if

'---- TsPatchが有効であったらFiledxxxxの使用FontをSmallFontに変更する。
If Res=0 then
	'---- FieldObjectのID
    FieldObjID=xxxx
	'---- Fieldxxxxの使用FontをSmallFontに変更
    NSL.FieldSetFont FieldObjID,SmallFontID
	'---- Fontを変更した後はFieldObjectをRedraw
    Fileldxxxx.Redraw
End if

Dim OldFontID as Integer
Dim FontID as Integer
Dim Res as Integer
Dim parm as String
Dim tinyFontID as Integer
Dim tinyBoldFontID as Integer
Dim smallBoldFontID as Integer
Dim smallFontID as Integer

Dim FieldObjID as Integer

'---- バージョン番号の存在をチェック
parm="TSph"+"0"
Res=AppLaunch(0,"CSubFtrGet",32769,parm)
If Res=0 then
    '---- TinyFontID取得
    parm="TSph"+"10"
    tinyFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)
    '---- TinyBoldFontID取得
    parm="TSph"+"11"
    tinyBoldFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)
    '---- SmallFontID取得
    parm="TSph"+"12"
    smallFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)
    '---- SmallBoldFontID取得
    parm="TSph"+"17"
    smallBoldFontID=AppLaunch(0, "CSubFtrGet", 32770, parm)
else
    tinyFontID=0
    tinyBoldFontID=0
    SmallFontID=0
    SmallBoldFontID=0
end if

'---- TsPatchが有効であったらFiledxxxxの使用FontをSmallFontに変更する。
If Res=0 then
    FontID=SmallFontID
    '---- 描画するFontをSmallFontに変更
    OldFontId = NSL.FontSetFont(FontID)
    DrawChars "Testデータ" ,20 ,20
    FontID=oldFontID
    '---- 描画に利用するFontを元に戻す
    OldFontID = NSL.FontSetFont(FontID)
End if