メガソフト トップサポートユーザーフォーラム > テキストエディタ MIFESフォーラム
テキストエディタ MIFESフォーラム

[ フォーラムトップ ] [ 検索 ] [ 過去ログ ]
[ テキストエディタ MIFESシリーズ ][ MIFESサポートトップ ]

Re^3: 現在の表示フォントの設定を取得する方法 - matsu 2011/04/27(Wed) 10:34
> 素早い回答ありがとうございます。
>
> 1行が長いファイルがあるので フォントサイズ 9 で "FIXEDSYS" と "MS ゴシック" を交互に切り替えたいと思ったのですが現在の設定を取得できないとすると、別々のキーにマクロを割り当てるしかないでしょうか。

chgfontで設定したフォントを保存しておけばいいのでは?

*TEST

@1=strcmp("",@str1)
if @1==0
gsearch(GS_1DIR,0x0100,"FONT_HEIGHT","MIW.INI","C:\Documents and Settings\All Users\Documents\MEGASOFT\MIFES8")
replace(0x21,0x0102,"*,",0,0,"")
@1=getline(@str1)
close()
else
@1=getprof(1,@str1)
endif

@2=strcmp("MS ゴシック",@str1)
if @2==0
chgfont(FONT_BOTH,9,"FIXEDSYS")
setprof(1,-1,"FIXEDSYS")
sprintf(@str1,"%s","FIXEDSYS")
else
chgfont(FONT_BOTH,9,"MS ゴシック")
setprof(1,-1,"MS ゴシック")
sprintf(@str1,"%s","MS ゴシック")
endif


- 関連一覧ツリー をクリックするとツリー全体を一括表示します)