@ScreenWidth というのがあったんですね。これは行番号表示部分も含んだ幅で はあるけど、これを使えば文字数で掛け算なんかしなくてもいいですね。すっか り失念してました。ご指摘ありがとうございます。QWIDTH.MAC のその部分を組 み込むと、
proc larger dim width width = @ScreenWidth - 4 if @PrintNumber then width = width - 6 @FontSize = @FontSize + 2 @Width = width end proc
とかになりますね。(数値指定もいらないし、誤差も出ません。)
ついでに、マクロの1行目のお約束、
if @hwnd = 0 then exit proc
を書かなかったことにも気づきましたが、使う人が目的がわかっている場合なの で、まいっか〜。(これがないと、文書ウィンドウがひとつもないときにエラー メッセージが出ます > pavlov さん。 |