| 2404 |
LIMIT = 20; |
LIMIT = 20; |
| 2405 |
var |
var |
| 2406 |
ThreadItem : TThreadItem; |
ThreadItem : TThreadItem; |
| 2407 |
No, count: Integer; |
No : Integer; |
| 2408 |
body : string; |
body : string; |
| 2409 |
limited: Integer; |
limited: Integer; |
| 2410 |
|
numbers : TStringList; |
| 2411 |
begin |
begin |
| 2412 |
No := GikoForm.KokoPopupMenu.Tag; |
No := GikoForm.KokoPopupMenu.Tag; |
| 2413 |
if No = 0 then Exit; |
if No = 0 then Exit; |
| 2414 |
ThreadItem := GikoForm.GetActiveContent(True); |
ThreadItem := GikoForm.GetActiveContent(True); |
| 2415 |
if ThreadItem = nil then Exit; |
if ThreadItem = nil then Exit; |
| 2416 |
count := GikoSys.GetSameIDResCount(No, GikoForm.ActiveContent.Thread); |
numbers := TStringList.Create; |
| 2417 |
limited := LIMIT; |
try |
| 2418 |
if not (GikoSys.Setting.LimitResCountMessage) then begin |
GikoSys.GetSameIDRes(No, GikoForm.ActiveContent.Thread, numbers); |
| 2419 |
limited := -1; |
limited := LIMIT; |
| 2420 |
end else if count > LIMIT then begin |
if not (GikoSys.Setting.LimitResCountMessage) then begin |
|
if ( GikoUtil.MsgBox(GikoForm.Handle, |
|
|
IntToStr(LIMIT) + '個以上ありますが、すべて表示しますか?', |
|
|
'IDポップアップ警告', |
|
|
MB_YESNO or MB_ICONQUESTION) = ID_YES ) then begin |
|
| 2421 |
limited := -1; |
limited := -1; |
| 2422 |
|
end else if numbers.Count > LIMIT then begin |
| 2423 |
|
if ( GikoUtil.MsgBox(GikoForm.Handle, |
| 2424 |
|
IntToStr(LIMIT) + '個以上ありますが、すべて表示しますか?', |
| 2425 |
|
'IDポップアップ警告', |
| 2426 |
|
MB_YESNO or MB_ICONQUESTION) = ID_YES ) then begin |
| 2427 |
|
limited := -1; |
| 2428 |
|
end; |
| 2429 |
end; |
end; |
| 2430 |
end; |
body := GikoSys.CreateSameIDResAnchor(numbers, ThreadItem, limited); |
| 2431 |
body := GikoSys.GetSameIDResAnchor(No, ThreadItem, limited); |
GikoForm.ActiveContent.IDAnchorPopup(body); |
| 2432 |
GikoForm.ActiveContent.IDAnchorPopup(body); |
finally |
| 2433 |
|
numbers.Free; |
| 2434 |
|
end; |
| 2435 |
end; |
end; |
| 2436 |
// ************************************************************************* |
// ************************************************************************* |
| 2437 |
//! このレスあぼ〜ん (通常) |
//! このレスあぼ〜ん (通常) |