| |
秀丸エディタ用は秀丸担当が作ってくれたので、必要かどうか分かりませんが、
一応書いておきます。
------------------------秀丸エディタ用-----------------------
//enUS 656E5553
//enGB 656E4742
//enCA 656E4341
//frFR 66724652
//frCH 66724348
//deDE 64654445
//deCH 64654348
//es 65730000
//it 69740000
//
$langname[0] = "英語-米国(&U)";
$langname[1] = "英語-英国(&G)";
$langname[2] = "英語-カナダ(&C)";
$langname[3] = "フランス語-フランス(&F)";
$langname[4] = "フランス語-スイス(&S)";
$langname[5] = "ドイツ語-ドイツ(&D)";
$langname[6] = "ドイツ語-スイス(&D)";
$langname[7] = "スペイン語(&E)";
$langname[8] = "イタリア語(&I)";
$langcode[0] = "656E5553";
$langcode[1] = "656E4742";
$langcode[2] = "656E4341";
$langcode[3] = "66724652";
$langcode[4] = "66724348";
$langcode[5] = "64654445";
$langcode[6] = "64654348";
$langcode[7] = "65730000";
$langcode[8] = "69740000";
#langcount = 9;
if( (platform & 0x00800000) == 0 ) {
if( (configstate & 0x01) != 0 ) {
message "一時的な設定になっているため設定を変更できません。";
endmacro;
}
openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\"
+filetype;
$config=getregstr("");
closereg;
if( $config!=""){
$configset="Config\\"+$config;
} else {
$configset="Default";
}
openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\"
+$configset;
$s = getregbinary("ExConfig2",20,4);
$lang = leftstr($s,8);
}
#i = 0;
$menu[0] = "スペルチェックの言語";
$menu[1] = "\x01";
while( #i < #langcount ) {
if( $langcode[#i] == $lang ) {
$menu[#i+2] = "●" + $langname[#i];
} else {
$menu[#i+2] = " " + $langname[#i];
}
#i = #i + 1;
}
menuarray $menu, #langcount + 2;
#lang = result - 3;
if( #lang <0 ) {
closereg;
endmacro;
}
$s = $langcode[#lang] + midstr($s, 8);
if( (platform & 0x00800000) == 0 ) {
writeregbinary "ExConfig2", $s,20,1;
}
closereg;
envchanged;
endmacro;
|
|