{nono} if not NavigateIntoView(URI, gtOther, true) then begin{*********} if Config.optUseViewer and TJpegForm.ExtCheck(URI) then begin Form := TJpegForm.Create(nil); SetJpegForm(Form); Form.Show; end else OpenByBrowser(URI); end; //if not NavigateIntoView(URI, gtOther, true, Config.oprUrlBgOpen) then // OpenByBrowser(URI); {/nono}
{-------------------------------------- あぼーん処理 --------------------------------------- 名前欄にレス番号表示(ポップアップ用) 理由等(引数指定)をメール欄に表示 --------------------------------------} procedure NG2(const strText:String); begin //ここから追加↓ if VisibleAbone then dest.DisableLink := True else //ここまで追加↑ begin if not Config.optAboneReason then {nono} begin NG; Exit; end;