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.583 by h677, Sat Jan 14 07:44:14 2006 UTC revision 1.584 by h677, Wed Jan 18 16:14:58 2006 UTC
# Line 2715  begin Line 2715  begin
2715                                          Exit;                                          Exit;
2716                                  end;                                  end;
2717                                  PostMessage( Handle, USER_DOCUMENTCOMPLETE, Integer( Thread.Browser ), 0 );                                  PostMessage( Handle, USER_DOCUMENTCOMPLETE, Integer( Thread.Browser ), 0 );
2718                            end else begin
2719                                    // JUMPを指定されていたらJUMPする
2720                                    if (Thread.Movement <> '') then begin
2721                                            Thread.Move(Thread.Movement);
2722                                            Thread.Movement := '';
2723                                    end;
2724                          end;                          end;
2725                  end;                  end;
2726                  if (Thread <> nil) and (ThreadItem <>nil) then begin                  if (Thread <> nil) and (ThreadItem <>nil) then begin
# Line 4646  begin Line 4652  begin
4652                                                                                  browserRec.Movement := IntToStr( stRes );                                                                                  browserRec.Movement := IntToStr( stRes );
4653                                                                                  if (stRes > ThreadItem.Count) then begin                                                                                  if (stRes > ThreadItem.Count) then begin
4654                                                                                          DownloadContent( ThreadItem );                                                                                          DownloadContent( ThreadItem );
4655                                                                                    end else begin
4656                                                                                            try
4657                                                                                                    browserRec.Move(browserRec.Movement);
4658                                                                                            except
4659                                                                                            end;
4660                                                                                            browserRec.Movement := '';
4661                                                                                  end;                                                                                  end;
4662                                                                          end;                                                                          end;
4663                                                                  end else begin                                                                  end else begin
# Line 4750  begin Line 4762  begin
4762                                          browserRec.Movement := IntToStr( stRes );                                          browserRec.Movement := IntToStr( stRes );
4763                                          if (stRes > ThreadItem.Count) then begin                                          if (stRes > ThreadItem.Count) then begin
4764                          DownloadContent(ThreadItem);                          DownloadContent(ThreadItem);
4765                                            end else begin
4766                                                    try
4767                                                            browserRec.Move(browserRec.Movement);
4768                                                    except
4769                                                    end;
4770                                                    browserRec.Movement := '';
4771                                          end;                                          end;
4772                                  end;                                  end;
4773                          end else begin                          end else begin

Legend:
Removed from v.1.583  
changed lines
  Added in v.1.584

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