| |
># 投稿まで間違えてる ...
[ 100301 ] 2001/05/25 14:44
ハンドル：番頭++
E-Mail ：xxxxxxxxx@hotmail.com
タイトル：印刷時のフォント、サイズを変更
getinixxx , writeinixxx を完全にわすれてた、いかん ...
# おーおーボケた、金曜日であった ...
//*5 A6.mac
//*5 印刷時のフォント、サイズを変更する。
//*5 print; // も出来るでしょう。
//*5 レジストリを変更しています。
// "PFont"="ＭＳ 明朝"
// "PFontSize"=dword:0000000a
// とりあえず、元のを逃がす ...
call pp_get_inistr1 "PFont"; $t_f[0] = $$return;
call pp_get_ininum1 "PFontSize"; #t_s[0] = ##return;
$t[0] = "印刷のフォント、サイズの変更するだ !!!";
$t[1] = "現在の設定 - " + $t_f[0] + " ; " + str(#t_s[0]);
$t_f[1] = "ＭＳ 明朝"; #t_s[1] = 10;
$t_f[2] = "ＭＳ 明朝"; #t_s[2] = 09;
$t_f[3] = "Times New Roman"; #t_s[3] = 11;
$t_f[4] = "Times New Roman"; #t_s[4] = 09;
$t_f[5] = ""; #t_s[5] = 00; // 追加はご自分で ...
#i = 1;
while( $t_f[#i] != "" ){
$t[#i+1] = "(&" + str(#i) + ") " + $t_f[#i] + " ; " + str(#t_s[#i]);
#i = #i + 1;
}
menuarray $t, #i + 1;
#r = result - 2;
if( #r > 0 ){
call pp_put_inistr1 "PFont", $t_f[#r];
call pp_put_ininum1 "PFontSize", #t_s[#r];
envchanged;
// message "変更後の設定 - " + $t_f[#r] + " ; " + str(#t_s[#r]);
// print; // 印刷するか !!!
call pp_put_inistr1 "PFont", $t_f[0]; // 元に戻す
call pp_put_ininum1 "PFontSize", #t_s[0]; // 元に戻す
envchanged; // いるんかいな ...
}
endmacro;
pp_get_inistr1:
$$w = getinistr( "HIDEMARU.INI", "Env", $$1 );
return $$w;
pp_put_inistr1:
writeinistr "HIDEMARU.INI", "Env", $$1, $$2;
return;
pp_get_ininum1:
##w = getininum( "HIDEMARU.INI", "Env", $$1 );
return ##w;
pp_put_ininum1:
writeininum "HIDEMARU.INI", "Env", $$1, ##2;
return;
|
|