| タイトル | ： 表示行数切替えマクロ v0.52 DOSVAXJ3差替え |
| 投稿日 | ： 2023/04/26(水) 17:25 |
| 投稿者 | ： konno | 番 号 | ： 10793 10786 番 konno さんへのコメント コメント数 1 |
表示行数切替えマクロ v0.52 差し替え版
DOSVAXJ3 用です。
&d を入れたらタイミング調整出来たようです。
=== ^kld.def ===
*m
80 ^KL "表示行数切替え" ;2024-04-26 v0.52
(s==1 || s>2)?. ;窓モードなら終了
k=ks&1, (k==1)?{w[, w=vp.26, &09 .} ;シフト実行で表テキストの設定調整
cx0, ; &s
;#if AXJ3 ; DOSVAXJ3 ※環境変数 VZSYM=AXJ3 を指定
(vp.26==106)?{&08 &00 &09 .} ;VT4の106*29行→vgaの80*25行
(vp.26==80&&lc<=25)?{&08 &01 &09 .} ;80*25行→80*44行
(vp.26==80)?{&08 &02 &09 .} ;VTの80*44行→VT2の128*44行
(vp.26<=128)?{&08 &03 &09 .} ;VT2の128*44行→VT3の160*44行
(vp.26>128)?{&08 &04 &09 .} ;VT3の160*44行→VT4の106*29行
.
00: &?("chev jp >nul") #m &d w[, w=vp.26, ; vga 640x 480 文字 80×25
01: &?("chev vt >nul") #m &d w[, w=vp.26, ; svga 800x 600 文字 100×37
02: &?("chev vt2 >nul") #m &d w[, w=vp.26, ; xga 1024x 768 文字 128×48(44)
03: &?("chev vt3 >nul") #m &d w[, w=160, ; sxga 1280x1024 文字 160×64(44)
04: &?("chev vt4 >nul") #m &d w[, w=vp.26, ; sxga24 1280x1024 文字 106×42(29)
;#endif
08: (s!=2)? #E ;コマンドラインに
09: (wa)?? { (s==2)?{ ;編集テキストが無ければ
ep[-, #[ #[ ep], w], .} } ;[ESC]2回で整えて終了
(s==2)? {ep[-, #[ ep], } ;編集モードに(シフト実行時はスルー)
&10 (wb)?{&s #W &10 #W } w], &d ;表／裏テキストの桁,行数調整
10: we=w, wa.55=w, wa.56=lc-2, wa.57=lc-3, wv=w>>1, wh=lc>>1, kx=lx,
*
23-04-26 v0.52 DOSVAXJ3での切り替えの不具合に対応
23-04-24 v0.5 VTDOSでの切り替えでコンソールのゴミが出ないように
23-04-22 v0.41 wv wh の画面分割パラメータ合わせた
23-04-21 v0.4 VTDOSのFコール版
23-04-21 v0.35 VTDOSのWin32バグ発覚、修正版
23-04-21 v0.34 wa.55 〜 wa.57 合わせアンダーラインカーソルも正常に
23-04-20 v0.2 VTDOS用も作ってみた。
23-04-08 v0.1 DOSVAXJ3用にとりあえず作ってみた。
- No.10793 一括表示へ - コメント元:10786 一括表示へ - [ 返信 ] [引用無し] pre