Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.560 by h677, Sat Dec 10 11:01:53 2005 UTC revision 1.561 by h677, Sat Dec 10 15:17:00 2005 UTC
# Line 4166  begin Line 4166  begin
4166                                          TreeView.Refresh;                                          TreeView.Refresh;
4167                                          ListView.Refresh;                                          ListView.Refresh;
4168                                  end;                                  end;
4169                                  BrowserRecord.Move(BrowserRecord.Movement);                                  // スクロール先が取得外のレスの時は終端に移動
4170                                  BrowserRecord.Movement := '';                                  if (StrToIntDef(BrowserRecord.Movement, 0) <= BrowserRecord.Thread.Count) then begin
4171                                            BrowserRecord.Move(BrowserRecord.Movement);
4172                                            BrowserRecord.Movement := '';
4173                                    end else begin
4174                                            BrowserRecord.Move(IntToStr(BrowserRecord.Thread.Count));
4175                                    end;
4176    
4177                          end else if threadItem.UnRead then begin                          end else if threadItem.UnRead then begin
4178                                  threadItem.UnRead := False;                                  threadItem.UnRead := False;
4179                                  TreeView.Refresh;                                  TreeView.Refresh;
# Line 4527  begin Line 4533  begin
4533          //===== プラグイン          //===== プラグイン
4534          try          try
4535                  //作業中//                  //作業中//
                 //bi := High( BoardPlugIns );  
4536                  bi := Length(BoardGroups) - 1;                  bi := Length(BoardGroups) - 1;
                 //for i := Low( BoardPlugIns ) to bi do begin  
4537                  for i := 1 to bi do begin                  for i := 1 to bi do begin
                         //if Assigned( Pointer( BoardPlugIns[ i ].Module ) ) then begin  
4538                          if (BoardGroups[i].BoardPlugIn <> nil) and (Assigned(Pointer(BoardGroups[i].BoardPlugIn.Module))) then begin                          if (BoardGroups[i].BoardPlugIn <> nil) and (Assigned(Pointer(BoardGroups[i].BoardPlugIn.Module))) then begin
4539                                  case BoardGroups[i].BoardPlugIn.AcceptURL( inURL ) of                                  case BoardGroups[i].BoardPlugIn.AcceptURL( inURL ) of
4540                                  atThread:                                  atThread:
# Line 4577  begin Line 4580  begin
4580                                                                  GikoSys.GetPopupResNumber( inURL, stRes, edRes );                                                                  GikoSys.GetPopupResNumber( inURL, stRes, edRes );
4581                                                                  browserRec := InsertBrowserTab( ThreadItem );                                                                  browserRec := InsertBrowserTab( ThreadItem );
4582                                                                  if ThreadItem.IsLogFile then begin                                                                  if ThreadItem.IsLogFile then begin
4583                                                                          if (browserRec <> nil) and (stRes > 0) then                                                                          if (browserRec <> nil) and (stRes > 0) then begin
4584                                                                                  browserRec.Move(IntToStr( stRes ));                                                                                  browserRec.Movement := IntToStr( stRes );
4585                                                                                    if (stRes > ThreadItem.Count) then begin
4586                                                                                            DownloadContent( ThreadItem );
4587                                                                                    end;
4588                                                                            end;
4589                                                                  end else begin                                                                  end else begin
4590                                                                          if (browserRec <> nil) and (stRes > 0) then                                                                          if (browserRec <> nil) and (stRes > 0) then
4591                                                                                  browserRec.Movement := IntToStr( stRes );                                                                                  browserRec.Movement := IntToStr( stRes );
# Line 4677  begin Line 4684  begin
4684                          if ThreadItem.IsLogFile then begin                          if ThreadItem.IsLogFile then begin
4685                                  GikoSys.GetPopupResNumber( inURL, stRes, edRes );                                  GikoSys.GetPopupResNumber( inURL, stRes, edRes );
4686                                  browserRec := InsertBrowserTab(ThreadItem);                                  browserRec := InsertBrowserTab(ThreadItem);
4687                                  if (browserRec <> nil) and (stRes > 0) then                                  if (browserRec <> nil) and (stRes > 0) then begin
4688                                          browserRec.Movement := IntToStr( stRes );                                          browserRec.Movement := IntToStr( stRes );
4689                                            if (stRes > ThreadItem.Count) then begin
4690                            DownloadContent(ThreadItem);
4691                                            end;
4692                                    end;
4693                          end else begin                          end else begin
4694                                  if AnsiPos(Host, Board.URL) = 0 then                                  if AnsiPos(Host, Board.URL) = 0 then
4695                                          ThreadItem.DownloadHost := Host                                          ThreadItem.DownloadHost := Host

Legend:
Removed from v.1.560  
changed lines
  Added in v.1.561

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