| タイトル | ： CKWV マウスでリサイズ時のVZ正常化マクロ |
| 投稿日 | ： 2023/06/14(水) 01:17 |
| 投稿者 | ： konno | 番 号 | ： 10846 10841 番 konno さんへのコメント |
CKWV マウスでリサイズ時はVZはコマンドラインでないと表示が異常になります。
その時にVZを正常化するマクロを作りました。
本当は CKWV のリサイズ時にVZに特定のキーを送れるのでそのマクロの
起動キーにしようとしたのですがうまくキーが遅れていないようです。
10♯さんのVZソースも導入してみましたがまだうまく動作出来ていないです。
メニューモードのときに問題が出るのは10♯さんのコードを導入すれば解決しそうですが。
とりあえず当分は、このマクロは表示の正常化用とすることにします。
画面サイズを変更したときに表示以上になった時もこのマクロで正常化できると思います。
=== resize.def ===
*m
;80 @R "表示行数切替え" ;2024-04-26 v0.52
80 ^\ "表示行数切替え" ;2024-04-26 v0.52
(s>=3)?. ;窓モードなら終了
(s==1)?. ;窓モードなら終了
&s sx[-, ; コンソール取り込み停止
dx0, &08 w[, &00 w=vp.26, ; コマンド実行
&09 sx], &d . ; wa wb テキストの設定調整
00: bx0, cx0, ; bx:桁 cx:行 ローメモリから取得
&i("$(50,06,33,C0,8E,C0,26,8A,1E,4A,04,26,8A,0E,84,04,07,58,C3)")
ax0,cx++,(lc!=cx)?{lc=cx,ax1,}
(vp.26!=bx)?{vp.26=bx, ax1,}
08: (s!=2)? { dx1,#E} ;コマンドラインに
&?("ver >nul") #m &w(1) ;コマンド実行
09: (wa)?? { (s==2)?{ ;編集テキストが無ければ
ep[-, #[ #[ ep], w], sx], .} } ;[ESC]2回で整えて終了
(dx==1)? {ep[-, #[ ep], } ;編集モードに(シフト実行時はスルー)
&10 (wb)?{&s #W &10 #W } w], &d ;表／裏テキストの桁,行数調整
10: w=vp.26, we=w, wa.55=w, wa.56=lc-2, wa.57=lc-3, wv=w>>1, wh=lc>>1, kx=lx,
*
- No.10846 一括表示へ - コメント元:10841 一括表示へ - [ 返信 ] [引用無し] pre