| もしかして追加するのでしょうか? 自分なりに試行錯誤してみて &hed_("All Icon");の下に
print"<body text=\"$text\" if($_[0] eq "All Icon"){oncontextmenu="return false;"}
という風にいれてみましたがやはり無理でした。。
ちなみに以前専用アイコンも普通に表示するために少し改造してありますので #-------------------------------------------------------------------------------------------------------------------- # [アイコン画像表示] # -> アイコン画像のサンプルを表示します(img_) # sub img_ { &hed_("All Icon"); print"<center><table width=\"98\%\"><tr><th bgcolor=\"$ttb\">アイコン画像一覧</td></tr></table>\n"; print"<br><a href=\"javascript:close()\">|X| このウィンドウを閉じる</a><br><br>\n"; my($I,$page_,$page,$page_end,$af,$a,$i)=(0,0,0,0,0,0,0); my($BG)=""; foreach (0..$#ico1){if($ico1[$_] eq "master"){splice(@ico1,$_,1); splice(@ico2,$_,1);}} if(@mas_i){push(@ico1,@mas_i); foreach(0..$#mas_i){push(@ico2,"専用アイコン");}} $page_=int($#ico1/$Ico_kp); if($page_){ print"ページ移動 / "; if($FORM{"page"}){$page=$FORM{"page"};}else{$page=0;} $page_end=$page+($Ico_kp-1); if($page_end > $#ico1){$page_end=$#ico1;} for($i=0;$i<=$page_;$i++){ $af=$page/$Ico_kp; if($i != 0){print"| ";} if($i eq $af){print"<b>$i</b>\n";}else{print"<a href=\"$cgi_f?mode=img&page=$a&no=$no$pp\">$i</a>\n";} $a+=$Ico_kp; } }else{$page=0; $page_end=$#ico1;} print"<table border=\"1\" bordercolor=\"$ttb\" cellspacing=\"0\" cellpadding=\"3\">\n"; foreach ($page..$page_end){ if(($I % 2 && $i) || (!($I % 2)&& !$i)){$BG=$bg;}else{$BG=$k_back;} if(!$I){print"<tr>";} print"<th width=\"$Ico_w\" bgcolor=\"$BG\">"; if($ico1[$_] eq "randam"){print"ランダム<br>アイコン"} elsif($ico1[$_] eq ""){print"アイコン<br>なし";} else{print"<img src=\"$i_dir/$ico1[$_]\"><br>$ico2[$_]";} print"</th>\n"; $I++; if($I >= $Ico_h){print"</tr>"; $I=0; if($i){$i=0;}else{$i=1;}} } if($I){print"</tr>";} print"</table></center>"; &foot_; }
#---------------------------------------------------------------------------------------------------------------------
このような感じになっています。
|