| |
皆さんこんにちは。
カラーコードと、その意味（「強調１」など）
を表示するマクロを作りました。
もっといい書き方があったら教えてください。
よろしくお願いします。
もしよかったら使ってやってください。＞ALL
P.S.
ファイルの末尾に表示されている[EOF]にカーソルを合わせたとき
カラーコードが「16」になりました。
// ----- ここから -----
// カーソル上のカラーコードを表示する。
#Bubun = colorcode & 0x001F;
#Tab = colorcode & 0x0020;
#ZenSpace = colorcode & 0x0040;
#HanSpace = colorcode & 0x0080;
#Select = colorcode & 0x0100;
#CtrlCode = colorcode & 0x0200;
#OpenByShell = colorcode & 0x0400;
#OpenByHidemaru = colorcode & 0x0800;
#E_mail = colorcode & 0x1000;
$Bubun_msg[ 0] = "普通の部分";
$Bubun_msg[ 3] = "コメント部分";
$Bubun_msg[ 4] = "強調１";
$Bubun_msg[ 5] = "特に強調１";
$Bubun_msg[ 6] = "行の強調１";
$Bubun_msg[ 7] = "強調２";
$Bubun_msg[ 8] = "特に強調２";
$Bubun_msg[ 9] = "行の強調２";
$Bubun_msg[11] = "URL部分";
$Bubun_msg[12] = "E-mail部分";
$Bubun_msg[13] = "HTMLタグ全体部分";
$Bubun_msg[14] = "HTMLタグのエレメント";
$Bubun_msg[15] = "HTMLタグのアトリビュート";
$Bubun_msg[20] = "文字定数";
$Bubun_msg[21] = "ファイル名部分";
$Bubun_msg[22] = "強調３";
$Bubun_msg[23] = "強調４";
$msg = $Bubun_msg[#Bubun];
if( #Tab != 0 )
$msg = $msg + "\n" + "タブ文字";
if( #ZenSpace != 0 )
$msg = $msg + "\n" + "全角空白";
if( #HanSpace != 0 )
$msg = $msg + "\n" + "半角空白";
if( #Select != 0 )
$msg = $msg + "\n" + "範囲選択";
if( #CtrlCode != 0 )
$msg = $msg + "\n" + "制御コード";
if( #OpenByShell != 0 )
$msg = $msg + "\n" + "「...を開く」が出来る場所";
if( #OpenByHidemaru != 0 )
$msg = $msg + "\n" + "「...を秀丸で開く」が出来る場所";
// if( #E_mail != 0 )
// $msg = $msg + "\n" + "E-mail部分";
message "ColorCode = " + str( colorcode ) + "\n\n" + $msg;
// ----- ここまで -----
|
|