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.593 by h677, Wed Feb 22 18:29:18 2006 UTC revision 1.594 by h677, Sat Feb 25 01:30:36 2006 UTC
# Line 2751  begin Line 2751  begin
2751                                          Application.ProcessMessages;                                          Application.ProcessMessages;
2752                                  end;                                  end;
2753                                  Thread.Browser.OnStatusTextChange := BrowserStatusTextChange;                                  Thread.Browser.OnStatusTextChange := BrowserStatusTextChange;
2754                            end else begin
2755                                    // JUMP先が指定されていたら飛ぶ
2756                                    if (ThreadItem.JumpAddress > 0) then begin
2757                                            Thread.Move(IntToStr(ThreadItem.JumpAddress));
2758                                            ThreadItem.JumpAddress := 0;
2759                                    end;
2760                          end;                          end;
2761                  end;                  end;
2762    
# Line 4628  begin Line 4634  begin
4634                  end;                  end;
4635                  if ( stRes > 0 ) then begin                  if ( stRes > 0 ) then begin
4636                          Thread.JumpAddress := stRes;                          Thread.JumpAddress := stRes;
4637                    end;
4638                          // ログを持っていないか JUMPすべきレス番号まで取得していないときはDLする                  // ログを持っていないか JUMPすべきレス番号まで取得していないときはDLする
4639                          if (not Thread.IsLogFile) or (stRes > Thread.Count) then begin                  if (not Thread.IsLogFile) or (stRes > Thread.Count) then begin
4640                                  DownloadContent(Thread);                          DownloadContent(Thread);
                         end else if (not browserRec.Repaint) then begin  
                                 try  
                                         browserRec.Move(IntToStr(stRes));  
                                         Thread.JumpAddress := 0;  
                                         doc := Idispatch( OleVariant( browserRec.Browser.ControlInterface ).Document ) as IHTMLDocument2;  
                                         Thread.ScrollTop := doc.Body.ScrollTop;  
                                 except  
                                 end;  
                         end;  
4641                  end;                  end;
4642          end;          end;
4643  end;  end;

Legend:
Removed from v.1.593  
changed lines
  Added in v.1.594

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