Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.64 by eggcake, Sun Apr 13 04:20:24 2008 UTC revision 1.65 by h677, Sat May 10 14:05:32 2008 UTC
# Line 2404  const Line 2404  const
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  //! このレスあぼ〜ん (通常)  //! このレスあぼ〜ん (通常)

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26