デバッグ用変数ウォッチ画面No.01046
ENCODINGSHIFTJIS さん 00/02/21 15:17
 
// Watchval.mac
// マクロのデバッグ用変数ウォッチ画面 (複数面同時使用の楽しみ)
// 処理面に影響があまり及ばないのがよい。
// UNDO により少し前の値も見える。
// チラツキなどはなにかできるだろう。
//
#hwnd0=hidemaruhandle(0);// 処理面記憶
openfile "1";// 新規面を開いた直後の hidemaruhandle は -1 ?
openfile "2";// 画面の完全な切替えと値の返るタイミングは一致?
while("1"!=basename){nexthidemaru} #hwnd1=hidemaruhandle(0);
while("2"!=basename){nexthidemaru} #hwnd2=hidemaruhandle(0);

setactivehidemaru #hwnd0;//画面戻し
//
$aa="jshfksfhlafdhlaj";
call dbw #hwnd1,'c',"$aa on Xpoint",$aa;// clear & 書き込み
$aa="lsdfhfら";
call dbw #hwnd1,'a',"$aa on Ypoint",$aa;// 追加書き込み
$bb="kfsdjkfkasflsdldhfladhfldhfdlhfsffhdsahfahfd";
call dbw #hwnd1,'a',"$bb on Zpoint",$bb;// 追加書き込み
$cc="kjflsdjfl;asfjdlf
sdfja;kdhfkdf
asdfhs;hfdklsdf
ashdflk;ahfla
";
call dbw #hwnd2,'c',"$cc on 0point",$cc; // clear & 書き込み

endmacro
//
dbw:// ---- 書き込む画面、クリア、標識、変数値
setactivehidemaru ##1;//画面切替え
if('c'==##2)selectall
insert $$3+"="+$$4;insertreturn // 書き込み

setactivehidemaru #hwnd0;//画面戻し
return;

// 単体のマクロというより、書き方の雛型

[ ]